Explorar el Código

Bug fix for dlb routines and C_ are now void

ceriel hace 30 años
padre
commit
21a720c65d

+ 6 - 6
util/ceg/EM_parser/common/C_instr2.c

@@ -79,8 +79,8 @@ t_C_info C_info[] = {
 			       { STRING, ARITH, 0, 0},
 			       { "g", "o", 0, 0},
 			       { "extnd_dnam( g)", "o", 0, 0}},
-	/* EXTERNAL_DLB	*/   { "( g, o)\nchar *g;\narith o;\n{\n",
-			       { STRING, ARITH, 0, 0},
+	/* EXTERNAL_DLB	*/   { "( g, o)\nlabel g;\narith o;\n{\n",
+			       { LABEL, ARITH, 0, 0},
 			       { "g", "o", 0, 0},
 			       { "extnd_dlb( g)", "o", 0, 0}},
 	/* P_ARG	*/   { "( p)\nchar *p;\n{\n",
@@ -99,8 +99,8 @@ t_C_info C_info[] = {
 			       { ARITH, STRING, ARITH, INT},
 			       { "n", "g", "o", "i"},
 			       { "n", "extnd_dnam( g)", "o", "i"}},
-	/* BSS_EXT_DLB	*/   { "( n, g, o, i)\nchar *g;\narith n, o;\nint i;\n{\n",
-			       { ARITH, STRING, ARITH, INT},
+	/* BSS_EXT_DLB	*/   { "( n, g, o, i)\nlabel g;\narith n, o;\nint i;\n{\n",
+			       { ARITH, LABEL, ARITH, INT},
 			       { "n", "g", "o", "i"},
 			       { "n", "extnd_dlb( g)", "o", "i"}},
 	/* BSS_STR+AR	*/   { "( n, val, sz, i)\nchar *val;\narith n, sz;\nint i;\n{\n",
@@ -131,8 +131,8 @@ t_C_info C_info[] = {
 			       { STRING, 0, 0, 0},
 			       { "g", 0, 0, 0},
 			       { "extnd_dnam( g)", 0, 0, 0}},
-	/* EXT_DLB	*/   { "( g)\nchar *g;\n{\n",
-			       { STRING, 0, 0, 0},
+	/* EXT_DLB	*/   { "( g)\nlabel g;\n{\n",
+			       { LABEL, 0, 0, 0},
 			       { "g", 0, 0, 0},
 			       { "extnd_dlb( g)", 0, 0, 0}},
 	/* ONE_INT	*/   { "( i)\nint i;\n{\n",

+ 1 - 1
util/ceg/EM_parser/common/help.c

@@ -73,7 +73,7 @@ char *str;
 header( instr)
 char *instr;
 {
-	out( "%s%s", instr, C_instr_info->header);
+	out( "void %s%s", instr, C_instr_info->header);
 	def_admn( instr);
 }
 

+ 1 - 1
util/ceg/EM_parser/common/proto.make

@@ -13,7 +13,7 @@ OFILES = pars.$(SUF) Lpars.$(SUF) scan.$(SUF) mylex.$(SUF) default.$(SUF) \
 	 C_instr2.$(SUF) help.$(SUF) eval.$(SUF) action.$(SUF)
 
 IFILES = -I$(TARGET_HOME)/h -I$(TARGET_HOME)/modules/h -I. -I$(SRC_DIR)
-CFLAGS = $(COPTIONS) $(IFILES)
+CFLAGS = $(COPTIONS) $(IFILES) -DNDEBUG
 
 all :	dummy
 	make $(OFILES)