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

just for fun: do not call empty rules.

Browse source
This commit is contained in:
ceriel 1987-02-05 19:14:55 +00:00
parent 4860deacf8
commit 74b078c3f1
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
util/LLgen/src/gencode.c
View file

@ -458,16 +458,21 @@ rulecode(p,safety,mustscan,mustpop) register p_gram p; {
safety = NOSCANDONE; safety = NOSCANDONE;
break; } break; }
case NONTERM : { case NONTERM : {
register p_nont n; register p_nont n = &nonterms[g_getnont(p)];
n = &nonterms[g_getnont(p)];
if (safety == NOSCANDONE && if (safety == NOSCANDONE &&
getntsafe(n) < NOSCANDONE) fputs(c_read, f); getntsafe(n) < NOSCANDONE) {
safety = getntsafe(n);
fputs(c_read, f);
}
if (toplevel == 0 && if (toplevel == 0 &&
(g_gettype(n->n_rule) != ALTERNATION || (g_gettype(n->n_rule) != ALTERNATION ||
getntsafe(n) <= SAFESCANDONE)) { getntsafe(n) <= SAFESCANDONE)) {
genpop(findindex(n->n_contains)); genpop(findindex(n->n_contains));
} }
if (g_gettype(n->n_rule) == EORULE &&
safety == getntout(n) &&
! g_getnpar(p)) break;
fprintf(f,"L%d_%s(\n",g_getnont(p), n->n_name); fprintf(f,"L%d_%s(\n",g_getnont(p), n->n_name);
if (g_getnpar(p)) { if (g_getnpar(p)) {
controlline(); controlline();