Bug fix for dlb routines and C_ are now void

This commit is contained in:
ceriel 1993-11-10 14:22:26 +00:00
parent 4f3e07061e
commit 528112d9bd
3 changed files with 8 additions and 8 deletions

View file

@ -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",

View file

@ -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);
}

View file

@ -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)