d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fixed for empty parameter lists

Browse source
This commit is contained in:
ceriel 1993-05-10 14:02:52 +00:00
parent 8c66b84305
commit 7e30c7d648
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
util/LLgen/src/LLgen.g
View file

@ -214,11 +214,13 @@ rule { register p_nont p;
p->n_lineno = linecount;
p->n_off = ftell(fact);
}
[ params { p->n_flags |= PARAMS;
if (nparams > 15) {
error(linecount,"Too many parameters");
[ params { if (nparams > 0) {
p->n_flags |= PARAMS;
if (nparams > 15) {
error(linecount,"Too many parameters");
}
else setntparams(p,nparams);
}
else setntparams(p,nparams);
}
]?
[ action(0) { p->n_flags |= LOCALS; }
@ -496,8 +498,15 @@ elem (register p_gram pres;)
;
params
{
long off = ftell(fact);
}
: '(' { copyact('(',')',0,0); }
')'
{ if (nparams == 0) {
fseek(fact, off, 0);
}
}
;
expr : '(' { copyact('(',')',1,0); }