Explorar el Código

some minor fixes

erikb hace 38 años
padre
commit
1384666eb9

+ 1 - 1
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 */

+ 1 - 1
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()

+ 1 - 1
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)

+ 1 - 1
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);

+ 1 - 1
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)