some minor fixes

diff --git a/lang/cem/cemcom/Parameters b/lang/cem/cemcom/Parameters
index 5fff54b..17babb5 100644 (file)
--- a/lang/cem/cemcom/Parameters
+++ b/lang/cem/cemcom/Parameters
@@ -132,4 +132,4 @@
 
 
 !File: static.h
-#define STATIC                 /* decl. spec. for large "static" arrays */
+#define GSTATIC                        /* for large global "static" arrays */

diff --git a/lang/cem/cemcom/dumpidf.c b/lang/cem/cemcom/dumpidf.c
index e6a67c1..c027c64 100644 (file)
--- a/lang/cem/cemcom/dumpidf.c
+++ b/lang/cem/cemcom/dumpidf.c
@@ -285,7 +285,7 @@ type2str(tp)
        return buf;
 }
 
-STATIC char trans_buf[MAXTRANS][300];
+GSTATIC char trans_buf[MAXTRANS][300];
 
 char *         /* the ultimate transient buffer supplier */
 next_transient()

diff --git a/lang/cem/cemcom/input.c b/lang/cem/cemcom/input.c
index 0fa38e2..fd6de23 100644 (file)
--- a/lang/cem/cemcom/input.c
+++ b/lang/cem/cemcom/input.c
@@ -446,7 +446,7 @@ setwdir(wdir, fn)
 #ifndef NOPP
 /*     mk_filename() concatenates a dir and filename.
 */
-STATIC char path[PATHLENGTH];
+GSTATIC char path[PATHLENGTH];
 
 PRIVATE char *
 mk_filename(dir, file)

diff --git a/lang/cem/cemcom/main.c b/lang/cem/cemcom/main.c
index e624007..f3a3cd6 100644 (file)
--- a/lang/cem/cemcom/main.c
+++ b/lang/cem/cemcom/main.c
@@ -143,7 +143,6 @@ compile(argc, argv)
        int pp_only = options['E'] || options['P'];
 #endif NOPP
 
-       source = strcmp(argv[0], "-") ? argv[0] : 0;
        switch (argc) {
        case 1:
 #ifndef NOPP
@@ -162,6 +161,7 @@ compile(argc, argv)
                fatal("use: %s source destination [namelist]", prog_name);
                break;
        }
+       source = strcmp(argv[0], "-") ? argv[0] : 0;
 
 #ifdef USE_TMP
        strcpy(tmpf, tmpfdir);

diff --git a/lang/cem/cemcom/replace.c b/lang/cem/cemcom/replace.c
index b19d41b..675d37d 100644 (file)
--- a/lang/cem/cemcom/replace.c
+++ b/lang/cem/cemcom/replace.c
@@ -63,7 +63,7 @@ replace(idef)
        return 1;
 }
 
-STATIC char FilNamBuf[PATHLENGTH];
+GSTATIC char FilNamBuf[PATHLENGTH];
 
 PRIVATE
 macro_func(idef)