Bug fix for dlb routines and C_ are now void

diff --git a/util/ceg/EM_parser/common/C_instr2.c b/util/ceg/EM_parser/common/C_instr2.c
index 19281bd..f9d8b5b 100644 (file)
--- a/util/ceg/EM_parser/common/C_instr2.c
+++ b/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",

diff --git a/util/ceg/EM_parser/common/help.c b/util/ceg/EM_parser/common/help.c
index 811a8b5..85a54a0 100644 (file)
--- a/util/ceg/EM_parser/common/help.c
+++ b/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);
 }
 

diff --git a/util/ceg/EM_parser/common/proto.make b/util/ceg/EM_parser/common/proto.make
index 9e0c085..a1e729d 100644 (file)
--- a/util/ceg/EM_parser/common/proto.make
+++ b/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)