Cleanup of some external calls code

diff --git a/src/ick_ec.h b/src/ick_ec.h
index 9f562586b3baf5f642c8817f036aa3a2248b29d6..0aaccf23659ca84409cc7971dab35db318bec3e4 100644 (file)
--- a/src/ick_ec.h
+++ b/src/ick_ec.h
@@ -108,18 +108,6 @@ void id(void)                                        \
   }                                                        \
   while(0)
 
-#define ick_linelabelnosp(expr)                                    \
-  do {                                                     \
-    if(0)                                                  \
-    {                                                      \
-    ick_l2_ICK_EC_PP_2: ;                                  \
-      if(ick_global_linelabel != (expr) || (expr) > 65535)  \
-       goto ick_l2_ICK_EC_PP_2;                            \
-      ick_global_checkmode = 0;                                    \
-    }                                                      \
-  }                                                        \
-  while(0)
-
 #define ick_forget(amount)                     \
   do {                                         \
     ick_scheduleforget(amount);                        \

diff --git a/src/perpet.c b/src/perpet.c
index a87a021cdfe4229e6800338532b42d1228aef2ee..5f59bd75bc33c9262490220ae7d2a2e996b90325 100644 (file)
--- a/src/perpet.c
+++ b/src/perpet.c
@@ -1561,8 +1561,9 @@ int main(int argc, char *argv[])
                      (needc99=1),'9':' ',
                      argv[optind][strlen(argv[optind])+2]=='9'?'9':' ',
                      argv[optind]);
-      if(argv[optind][strlen(argv[optind])+2]=='\0' /* it was a .c or .i file */
-        ||argv[optind][strlen(argv[optind])+3]!='o') /* it was a .2-7i file */
+      if(*(argv[optind]) && /* there is some file to compile */
+        (argv[optind][strlen(argv[optind])+2]=='\0' /* a .c or .i file */
+         ||argv[optind][strlen(argv[optind])+3]!='o')) /* not a .cio file */
        ICK_SYSTEM(buf2); /* run the C preprocessor */
       buf2ptr = strrchr(buf2,'>'); /* get the .cio's filename */
       cioin=NULL;