From: ceriel <none@none>
Date: Thu, 5 Feb 1987 19:14:55 +0000 (+0000)
Subject: just for fun: do not call empty rules.
X-Git-Tag: release-5-5~4746
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=74b078c3f1f0240491797284cd5594b6bcd91151;p=ack.git

just for fun: do not call empty rules.
---

diff --git a/util/LLgen/src/gencode.c b/util/LLgen/src/gencode.c
index 1d17f08cc..f78ff4d19 100644
--- a/util/LLgen/src/gencode.c
+++ b/util/LLgen/src/gencode.c
@@ -458,16 +458,21 @@ rulecode(p,safety,mustscan,mustpop) register p_gram p; {
 			safety = NOSCANDONE;
 			break; }
 		  case NONTERM : {
-			register p_nont n;
+			register p_nont n = &nonterms[g_getnont(p)];
 
-			n = &nonterms[g_getnont(p)];
 			if (safety == NOSCANDONE &&
-			    getntsafe(n) < NOSCANDONE) fputs(c_read, f);
+			    getntsafe(n) < NOSCANDONE) {
+				safety = getntsafe(n);
+				fputs(c_read, f);
+			}
 			if (toplevel == 0 &&
 			    (g_gettype(n->n_rule) != ALTERNATION ||
 			     getntsafe(n) <= SAFESCANDONE)) {
 				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);
 			if (g_getnpar(p)) {
 				controlline();