From dad1ab3b22a406ec3cf00835923019b76d310c6e Mon Sep 17 00:00:00 2001
From: erikb <none@none>
Date: Wed, 17 Sep 1986 12:31:45 +0000
Subject: [PATCH] some minor fixes

---
 lang/cem/cemcom/Parameters | 2 +-
 lang/cem/cemcom/dumpidf.c  | 2 +-
 lang/cem/cemcom/input.c    | 2 +-
 lang/cem/cemcom/main.c     | 2 +-
 lang/cem/cemcom/replace.c  | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lang/cem/cemcom/Parameters b/lang/cem/cemcom/Parameters
index 5fff54b38..17babb558 100644
--- 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 e6a67c142..c027c646e 100644
--- 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 0fa38e2d9..fd6de2393 100644
--- 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 e6240077a..f3a3cd6c4 100644
--- 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 b19d41ba3..675d37d27 100644
--- 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)
-- 
2.34.1