extnd_ilb changed, declared holno and procno
This commit is contained in:
parent
ef8f1c778a
commit
9c1df5f89e
@ -89,7 +89,7 @@ t_C_info C_info[] = {
|
|||||||
/* B_ARG */ { "( b)\nlabel b;\n{\n",
|
/* B_ARG */ { "( b)\nlabel b;\n{\n",
|
||||||
{ STRING, 0, 0, 0},
|
{ STRING, 0, 0, 0},
|
||||||
{ "b", 0, 0, 0},
|
{ "b", 0, 0, 0},
|
||||||
{ "extnd_ilb( b)", 0, 0, 0}},
|
{ "extnd_ilb( b, procno)", 0, 0, 0}},
|
||||||
/* STRING+ARITH */ { "( val, sz)\nchar *val;\narith sz;\n{\n",
|
/* STRING+ARITH */ { "( val, sz)\nchar *val;\narith sz;\n{\n",
|
||||||
{ STRING, ARITH, 0, 0},
|
{ STRING, ARITH, 0, 0},
|
||||||
{ "val", "sz", 0, 0},
|
{ "val", "sz", 0, 0},
|
||||||
@ -117,7 +117,7 @@ t_C_info C_info[] = {
|
|||||||
/* BSS_ILB */ { "( n, b, i)\narith n;\nlabel b;int i;\n\n{\n",
|
/* BSS_ILB */ { "( n, b, i)\narith n;\nlabel b;int i;\n\n{\n",
|
||||||
{ ARITH, STRING, INT, 0},
|
{ ARITH, STRING, INT, 0},
|
||||||
{ "n", "b", "i", 0},
|
{ "n", "b", "i", 0},
|
||||||
{ "n", "extnd_ilb( b)", "i", 0}},
|
{ "n", "extnd_ilb( b, procno)", "i", 0}},
|
||||||
/* ID+N_ARG */ { "( p, n)\nchar *p;\narith n;\n{\n",
|
/* ID+N_ARG */ { "( p, n)\nchar *p;\narith n;\n{\n",
|
||||||
{ STRING, ARITH, 0, 0},
|
{ STRING, ARITH, 0, 0},
|
||||||
{ "p", "n", 0, 0},
|
{ "p", "n", 0, 0},
|
||||||
|
|||||||
@ -160,4 +160,5 @@ file_header()
|
|||||||
out( "#include <em.h>\n");
|
out( "#include <em.h>\n");
|
||||||
out( "#include \"mach.h\"\n");
|
out( "#include \"mach.h\"\n");
|
||||||
out( "#include \"back.h\"\n\n");
|
out( "#include \"back.h\"\n\n");
|
||||||
|
out( "extern int holno, procno;\n\n");
|
||||||
}
|
}
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user