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