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