From 498d867bc32ef85b55eee371753e2b7a14cb73ef Mon Sep 17 00:00:00 2001
From: Manoel Trapier <godzil@godzil.net>
Date: Thu, 7 Mar 2013 18:56:36 +0100
Subject: [PATCH] Update LLgen.g and regenerate LLgen.c with it.

---
 util/LLgen/src/LLgen.c | 178 ++++++++++++++++++++---------------------
 util/LLgen/src/LLgen.g |  50 ++++++------
 2 files changed, 113 insertions(+), 115 deletions(-)

diff --git a/util/LLgen/src/LLgen.c b/util/LLgen/src/LLgen.c
index 8b75177af..c34f5992c 100644
--- a/util/LLgen/src/LLgen.c
+++ b/util/LLgen/src/LLgen.c
@@ -78,6 +78,7 @@ extern LLnc_recover();
 
 # include <stdlib.h>
 # include <string.h>
+
 # include "types.h"
 # include "io.h"
 # include "extern.h"
@@ -140,19 +141,19 @@ static void LL2_rule(void);
 static void LL3_listel(void);
 static void LL4_firsts(void);
 static void LL5_productions(
-# line 246 "LLgen.g"
+# line 233 "LLgen.g"
 p_gram *p) ;
 static void LL6_simpleproduction(
-# line 332 "LLgen.g"
+# line 318 "LLgen.g"
 p_gram *p ,register int *conflres) ;
 static void LL7_elem(
-# line 480 "LLgen.g"
+# line 465 "LLgen.g"
 register p_gram pres) ;
 static void LL8_repeats(
-# line 602 "LLgen.g"
+# line 587 "LLgen.g"
 int *kind ,int *cnt) ;
 static void LL9_number(
-# line 619 "LLgen.g"
+# line 604 "LLgen.g"
 int *t) ;
 #else
 static LL1_def();
@@ -174,7 +175,7 @@ void
 #endif
 ) {
 LLsincr(0);
-# line 96 "LLgen.g"
+# line 84 "LLgen.g"
 {	acount = 0; p_init(); }
 for (;;) {
 goto L_1;
@@ -202,7 +203,7 @@ continue;
 LLsdecr(0);
 break;
 }
-# line 98 "LLgen.g"
+# line 86 "LLgen.g"
 {	/*
 				 * Put an endmarker in temporary file
 				 */
@@ -221,7 +222,7 @@ LL1_def(
 void
 #endif
 ) {
-# line 108 "LLgen.g"
+# line 96 "LLgen.g"
 	register string p; 
 switch(LLcsymb) {
 case /*  C_IDENT  */ 2 : ;
@@ -262,13 +263,13 @@ LLtincr(2);
 LLtincr(24);
 LL_SAFE(C_START);
 LL_NOSCANDONE(C_IDENT);
-# line 118 "LLgen.g"
+# line 106 "LLgen.g"
 {	p = store(lextoken.t_string); }
 LLtdecr(23);
 LL_NOSCANDONE(',');
 LLtdecr(2);
 LL_NOSCANDONE(C_IDENT);
-# line 123 "LLgen.g"
+# line 111 "LLgen.g"
 {	/*
 				 * Put the declaration in the list
 				 * of start symbols
@@ -296,7 +297,7 @@ case /*  C_LEXICAL  */ 14 : ;
 LLtincr(24);
 LL_SAFE(C_LEXICAL);
 LL_NOSCANDONE(C_IDENT);
-# line 149 "LLgen.g"
+# line 137 "LLgen.g"
 {	if (!lexical) {
 					lexical = store(lextoken.t_string);
 				}
@@ -309,7 +310,7 @@ case /*  C_PREFIX  */ 15 : ;
 LLtincr(24);
 LL_SAFE(C_PREFIX);
 LL_NOSCANDONE(C_IDENT);
-# line 159 "LLgen.g"
+# line 147 "LLgen.g"
 {	if (!prefix) {
 					prefix = store(lextoken.t_string);
 					if (strlen(prefix) > 6) {
@@ -327,7 +328,7 @@ case /*  C_ONERROR  */ 16 : ;
 LLtincr(24);
 LL_SAFE(C_ONERROR);
 LL_NOSCANDONE(C_IDENT);
-# line 171 "LLgen.g"
+# line 159 "LLgen.g"
 {
 #ifdef NON_CORRECTING
 				if (non_corr) {
@@ -345,7 +346,7 @@ LL_NOSCANDONE(';');
 break;
 default:
 LL_SSCANDONE(C_ACTION);
-# line 184 "LLgen.g"
+# line 172 "LLgen.g"
 {	acount++; }
 break;
 case /*  C_FIRST  */ 13 : ;
@@ -363,7 +364,7 @@ void
 #endif
 ) {
 LL_NOSCANDONE(C_IDENT);
-# line 194 "LLgen.g"
+# line 182 "LLgen.g"
 {	p_gram temp = search(TERMINAL,lextoken.t_string,ENTERING);
 				newtorder(g_getcont(temp));
 				tokens[g_getcont(temp)].t_lineno = linecount;
@@ -378,7 +379,7 @@ LL2_rule(
 void
 #endif
 ) {
-# line 200 "LLgen.g"
+# line 188 "LLgen.g"
 	register p_nont p;
 				p_gram rr;
 				register p_gram temp;
@@ -389,12 +390,11 @@ LLtincr(25);
 LLsincr(1);
 LLtincr(24);
 LL_SAFE(C_IDENT);
-# line 207 "LLgen.g"
+# line 195 "LLgen.g"
 {	temp = search(NONTERM,lextoken.t_string,BOTH);
 				p = &nonterms[g_getcont(temp)];
 				if (p->n_rule) {
-					error(linecount,
-"Nonterminal %s already defined", lextoken.t_string, NULL);
+					error(linecount, "Nonterminal %s already defined", lextoken.t_string, NULL);
 				}
 				/*
 				 * Remember the order in which the nonterminals
@@ -424,7 +424,7 @@ else if (LL_3 & 1) goto L_1;}
 case /*  C_PARAMS  */ 6 : ;
 LLtdecr(6);
 LL_SAFE(C_PARAMS);
-# line 225 "LLgen.g"
+# line 212 "LLgen.g"
 {	if (lextoken.t_num > 0) {
 					p->n_flags |= PARAMS;
 					if (lextoken.t_num > 15) {
@@ -450,25 +450,25 @@ else if (LL_4 & 1) goto L_2;}
 case /*  C_ACTION  */ 7 : ;
 LLtdecr(7);
 LL_SAFE(C_ACTION);
-# line 234 "LLgen.g"
+# line 221 "LLgen.g"
 {	p->n_flags |= LOCALS; }
 LLread();
 }
 }
 LLtdecr(25);
 LL_SCANDONE(':');
-# line 236 "LLgen.g"
+# line 223 "LLgen.g"
 { 	in_production = 1; }
 LLread();
 LLsdecr(1);
 LL5_productions(
-# line 237 "LLgen.g"
+# line 224 "LLgen.g"
 &rr);
 LLtdecr(24);
 LL_SCANDONE(';');
-# line 238 "LLgen.g"
+# line 225 "LLgen.g"
 {	in_production = 0; }
-# line 243 "LLgen.g"
+# line 230 "LLgen.g"
 {	nonterms[g_getcont(temp)].n_rule = rr;}
 }
 static
@@ -477,14 +477,14 @@ void
 #endif
 LL5_productions(
 #if LL_ANSI_C
-# line 246 "LLgen.g"
+# line 233 "LLgen.g"
 p_gram *p)  
 #else
-# line 246 "LLgen.g"
+# line 233 "LLgen.g"
  p) p_gram *p; 
 #endif
 {
-# line 250 "LLgen.g"
+# line 237 "LLgen.g"
 	p_gram		prod;
 		int		conflres = 0;
 		int		t = 0;
@@ -493,12 +493,12 @@ p_gram *p)
 		int		o_lc, n_lc;
 	
 LLtincr(26);
-# line 257 "LLgen.g"
+# line 244 "LLgen.g"
 {	o_lc = linecount; }
 LL6_simpleproduction(
-# line 258 "LLgen.g"
+# line 245 "LLgen.g"
 p,&conflres);
-# line 259 "LLgen.g"
+# line 246 "LLgen.g"
 {	if (conflres & DEF) haddefault = 1; }
 goto L_2; /* so that the label is used for certain */
 L_2: ;
@@ -510,13 +510,13 @@ LLsdecr(1);
 LLtincr(26);
 for (;;) {
 LL_SAFE('|');
-# line 261 "LLgen.g"
+# line 248 "LLgen.g"
 {	n_lc = linecount; }
 LLread();
 LL6_simpleproduction(
-# line 262 "LLgen.g"
+# line 249 "LLgen.g"
 &prod,&t);
-# line 263 "LLgen.g"
+# line 250 "LLgen.g"
 {	if (n_alts >= max_alts-2) {
 					alt_table = (p_gram ) ralloc(
 						(p_mem) alt_table,
@@ -553,7 +553,7 @@ continue;
 LLtdecr(26);
 break;
 }
-# line 282 "LLgen.g"
+# line 269 "LLgen.g"
 {	if (conflres & (COND|PREFERING|AVOIDING)) {
 					error(n_lc,
 		"Resolver on last alternative not allowed", NULL, NULL);
@@ -569,7 +569,7 @@ case /* ']' */ 28 : ;
 goto L_3;
 L_3: ;
 LLtdecr(26);
-# line 292 "LLgen.g"
+# line 279 "LLgen.g"
 {	if (conflres & (COND|PREFERING|AVOIDING)) {
 					error(o_lc,
 		"No alternation conflict resolver allowed here", NULL, NULL);
@@ -577,7 +577,7 @@ LLtdecr(26);
 				/*
 				if (conflres & DEF) {
 					error(o_lc,
-		"No %%default allowed here");
+		"No %%default allowed here", NULL, NULL);
 				}
 				*/
 			}
@@ -585,10 +585,10 @@ break;
 default: if (LLskip()) goto L_2;
 goto L_3;
 }
-# line 304 "LLgen.g"
+# line 291 "LLgen.g"
 {	n_alts -= altcnt; }
 }
-# line 306 "LLgen.g"
+# line 293 "LLgen.g"
 
 
 STATIC void mkalt(p_gram prod, int condition, int lc, p_gram res) {
@@ -618,14 +618,14 @@ void
 #endif
 LL6_simpleproduction(
 #if LL_ANSI_C
-# line 332 "LLgen.g"
+# line 318 "LLgen.g"
 p_gram *p ,register int *conflres)  
 #else
-# line 332 "LLgen.g"
+# line 318 "LLgen.g"
  p,conflres) p_gram *p; register int *conflres; 
 #endif
 {
-# line 333 "LLgen.g"
+# line 319 "LLgen.g"
 	t_gram		elem;
 		int		elmcnt = 0;
 		int		cnt, kind;
@@ -661,7 +661,7 @@ else if (LL_6 & 1) goto L_1;}
 case /*  C_DEFAULT  */ 19 : ;
 LLtdecr(19);
 LL_SAFE(C_DEFAULT);
-# line 338 "LLgen.g"
+# line 324 "LLgen.g"
 {	*conflres |= DEF; }
 LLread();
 }
@@ -694,17 +694,17 @@ switch(LLcsymb) {
 case /*  C_IF  */ 10 : ;
 LL_SAFE(C_IF);
 LL_NOSCANDONE(C_EXPR);
-# line 344 "LLgen.g"
+# line 330 "LLgen.g"
 {	*conflres |= COND; }
 break;
 default:
 LL_SAFE(C_PREFER);
-# line 345 "LLgen.g"
+# line 331 "LLgen.g"
 {	*conflres |= PREFERING; }
 break;
 case /*  C_AVOID  */ 17 : ;
 LL_SAFE(C_AVOID);
-# line 346 "LLgen.g"
+# line 332 "LLgen.g"
 {	*conflres |= AVOIDING; }
 break;
 }
@@ -733,7 +733,7 @@ else if (LL_8 & 1) goto L_6;}
 case /*  C_ILLEGAL  */ 22 : ;
 LLtdecr(22);
 LL_SAFE(C_ILLEGAL);
-# line 348 "LLgen.g"
+# line 334 "LLgen.g"
 {
 #ifdef NON_CORRECTING
 				if (n_rules >= max_rules-2) {
@@ -776,9 +776,9 @@ case /* '*' */ 30 : ;
 case /* '+' */ 31 : ;
 LLsincr(4);
 LL7_elem(
-# line 364 "LLgen.g"
+# line 350 "LLgen.g"
 &elem);
-# line 365 "LLgen.g"
+# line 351 "LLgen.g"
 {	if (n_rules >= max_rules-2) {
 					rule_table = (p_gram) ralloc(
 						  (p_mem) rule_table,
@@ -796,9 +796,9 @@ case /* '*' */ 30 : ;
 case /* '+' */ 31 : ;
 LLsdecr(4);
 LL8_repeats(
-# line 373 "LLgen.g"
+# line 359 "LLgen.g"
 &kind, &cnt);
-# line 374 "LLgen.g"
+# line 360 "LLgen.g"
 {	if (g_gettype(&elem) != TERM) {
 					rule_table[n_rules] = elem;
 					g_settype((&rule_table[n_rules+1]),EORULE);
@@ -821,7 +821,7 @@ case /* ']' */ 28 : ;
 goto L_10;
 L_10: ;
 LLsdecr(4);
-# line 384 "LLgen.g"
+# line 370 "LLgen.g"
 { if (g_gettype(&elem) == TERM) {
 				register p_term q = g_getterm(&elem);
 
@@ -853,7 +853,7 @@ break;
 default: if (LLskip()) goto L_9;
 goto L_10;
 }
-# line 411 "LLgen.g"
+# line 397 "LLgen.g"
 {	if (!termdeleted && g_gettype(&elem) == TERM) {
 					register p_term q;
 
@@ -872,7 +872,7 @@ goto L_10;
 					if ((q->t_flags & PERSISTENT) &&
 					    kind == FIXED) {
 						error(linecount,
-							"Illegal %%persistent");
+							"Illegal %%persistent", NULL, NULL);
 					}
 					*/
 				}
@@ -886,7 +886,7 @@ continue;
 LLsdecr(3);
 break;
 }
-# line 437 "LLgen.g"
+# line 423 "LLgen.g"
 {	register p_term q;
 
 				g_settype((&rule_table[n_rules]),EORULE);
@@ -904,7 +904,7 @@ break;
 						elmcnt+1);
 			}
 }
-# line 454 "LLgen.g"
+# line 440 "LLgen.g"
 
 
 STATIC void mkterm(p_gram prod, int flags, int lc, p_gram result) {
@@ -934,14 +934,14 @@ void
 #endif
 LL7_elem(
 #if LL_ANSI_C
-# line 480 "LLgen.g"
+# line 465 "LLgen.g"
 register p_gram pres)  
 #else
-# line 480 "LLgen.g"
+# line 465 "LLgen.g"
  pres) register p_gram pres; 
 #endif
 {
-# line 481 "LLgen.g"
+# line 466 "LLgen.g"
 	register int	t = 0;
 		p_gram		p1;
 		int		ln;
@@ -957,7 +957,7 @@ LLtincr(12);
 LLsincr(1);
 LLtincr(28);
 LL_SAFE('[');
-# line 489 "LLgen.g"
+# line 474 "LLgen.g"
 {	ln = linecount; }
 LLread();
 goto L_4;
@@ -988,7 +988,7 @@ case /*  C_WHILE  */ 11 : ;
 LLtdecr(11);
 LL_SAFE(C_WHILE);
 LL_NOSCANDONE(C_EXPR);
-# line 490 "LLgen.g"
+# line 475 "LLgen.g"
 {	t |= RESOLVER; }
 LLread();
 }
@@ -1019,18 +1019,18 @@ else if (LL_11 & 1) goto L_5;}
 case /*  C_PERSISTENT  */ 12 : ;
 LLtdecr(12);
 LL_SAFE(C_PERSISTENT);
-# line 492 "LLgen.g"
+# line 477 "LLgen.g"
 {	t |= PERSISTENT; }
 LLread();
 }
 }
 LLsdecr(1);
 LL5_productions(
-# line 494 "LLgen.g"
+# line 479 "LLgen.g"
 &p1);
 LLtdecr(28);
 LL_SCANDONE(']');
-# line 495 "LLgen.g"
+# line 480 "LLgen.g"
 {
 				mkterm(p1,t,ln,pres);
 			}
@@ -1046,7 +1046,7 @@ default:
 break;
 case /*  C_ERRONEOUS  */ 21 : ;
 LL_SAFE(C_ERRONEOUS);
-# line 499 "LLgen.g"
+# line 484 "LLgen.g"
 {
 #ifdef NON_CORRECTING
 					erroneous = 1;
@@ -1064,7 +1064,7 @@ L_9: ;
 LLsdecr(5);
 LLtincr(6);
 LL_SSCANDONE(C_IDENT);
-# line 507 "LLgen.g"
+# line 492 "LLgen.g"
 {	pe = search(UNKNOWN,lextoken.t_string,BOTH);
 				*pres = *pe;
 #ifdef NON_CORRECTING
@@ -1107,7 +1107,7 @@ else if (LL_12 & 1) goto L_10;}
 case /*  C_PARAMS  */ 6 : ;
 LLtdecr(6);
 LL_SAFE(C_PARAMS);
-# line 522 "LLgen.g"
+# line 507 "LLgen.g"
 {	if (lextoken.t_num > 15) {
 					error(linecount,"Too many parameters", NULL, NULL);
 				} else	g_setnpar(pres,lextoken.t_num);
@@ -1125,7 +1125,7 @@ goto L_9;
 case /*  C_LITERAL  */ 4 : ;
 LLsdecr(5);
 LL_SAFE(C_LITERAL);
-# line 531 "LLgen.g"
+# line 516 "LLgen.g"
 {	pe = search(LITERAL,lextoken.t_string,BOTH);
 				*pres = *pe;
 #ifdef NON_CORRECTING
@@ -1139,7 +1139,7 @@ break;
 break;
 default:
 LLtincr(7);
-# line 539 "LLgen.g"
+# line 524 "LLgen.g"
 {	g_settype(pres,ACTION);
 				pres->g_lineno = linecount;
 #ifdef NON_CORRECTING
@@ -1154,14 +1154,14 @@ case /*  C_SUBSTART  */ 20 : ;
 LLtincr(23);
 LLtincr(24);
 LL_SAFE(C_SUBSTART);
-# line 548 "LLgen.g"
+# line 533 "LLgen.g"
 {
 #ifdef NON_CORRECTING
 				nsubstarts++;
 #endif
 			}
 LL_NOSCANDONE(C_IDENT);
-# line 555 "LLgen.g"
+# line 540 "LLgen.g"
 {
 #ifdef NON_CORRECTING
 				register p_gram temp;
@@ -1190,7 +1190,7 @@ else if (LL_13 & 1) goto L_12;}
 case /* ',' */ 23 : ;
 LL_SAFE(',');
 LL_NOSCANDONE(C_IDENT);
-# line 571 "LLgen.g"
+# line 556 "LLgen.g"
 {
 #ifdef NON_CORRECTING
 				register p_gram temp;
@@ -1239,19 +1239,19 @@ void
 #endif
 LL8_repeats(
 #if LL_ANSI_C
-# line 602 "LLgen.g"
+# line 587 "LLgen.g"
 int *kind ,int *cnt)  
 #else
-# line 602 "LLgen.g"
+# line 587 "LLgen.g"
  kind,cnt) int *kind; int *cnt; 
 #endif
 {
-# line 602 "LLgen.g"
+# line 587 "LLgen.g"
 	int t1 = 0; 
 switch(LLcsymb) {
 default:
 LL_SAFE('?');
-# line 604 "LLgen.g"
+# line 589 "LLgen.g"
 {	*kind = OPT; }
 LLread();
 break;
@@ -1261,12 +1261,12 @@ LLtincr(3);
 switch(LLcsymb) {
 default:
 LL_SAFE('*');
-# line 605 "LLgen.g"
+# line 590 "LLgen.g"
 {	*kind = STAR; }
 break;
 case /* '+' */ 31 : ;
 LL_SAFE('+');
-# line 606 "LLgen.g"
+# line 591 "LLgen.g"
 {	*kind = PLUS; }
 break;
 }
@@ -1293,12 +1293,12 @@ else if (LL_14 & 1) goto L_7;}
 case /*  C_NUMBER  */ 3 : ;
 LLtdecr(3);
 LL9_number(
-# line 608 "LLgen.g"
+# line 593 "LLgen.g"
 &t1);
 LLread();
 }
 }
-# line 609 "LLgen.g"
+# line 594 "LLgen.g"
 {	if (t1 == 1) {
 					t1 = 0;
 					if (*kind == STAR) *kind = OPT;
@@ -1308,12 +1308,12 @@ LLread();
 break;
 case /*  C_NUMBER  */ 3 : ;
 LL9_number(
-# line 615 "LLgen.g"
+# line 600 "LLgen.g"
 &t1);
 LLread();
 break;
 }
-# line 616 "LLgen.g"
+# line 601 "LLgen.g"
 {	*cnt = t1; }
 }
 static
@@ -1322,15 +1322,15 @@ void
 #endif
 LL9_number(
 #if LL_ANSI_C
-# line 619 "LLgen.g"
+# line 604 "LLgen.g"
 int *t)  
 #else
-# line 619 "LLgen.g"
+# line 604 "LLgen.g"
  t) int *t; 
 #endif
 {
 LL_SAFE(C_NUMBER);
-# line 621 "LLgen.g"
+# line 606 "LLgen.g"
 {	*t = lextoken.t_num;
 				if (*t <= 0 || *t >= 8192) {
 					error(linecount,"Illegal number", NULL, NULL);
@@ -1346,14 +1346,14 @@ LL4_firsts(
 void
 #endif
 ) {
-# line 628 "LLgen.g"
+# line 613 "LLgen.g"
 	register string p; 
 LLtincr(23);
 LLtincr(2);
 LLtincr(24);
 LL_SAFE(C_FIRST);
 LL_NOSCANDONE(C_IDENT);
-# line 630 "LLgen.g"
+# line 615 "LLgen.g"
 {	p = store(lextoken.t_string); }
 LLtdecr(23);
 LL_NOSCANDONE(',');
@@ -1361,7 +1361,7 @@ LLtdecr(2);
 LL_NOSCANDONE(C_IDENT);
 LLtdecr(24);
 LL_NOSCANDONE(';');
-# line 632 "LLgen.g"
+# line 617 "LLgen.g"
 {	/*
 				 * Store this %first in the list belonging
 				 * to this input file
@@ -1378,7 +1378,7 @@ LL_NOSCANDONE(';');
 			}
 }
 
-# line 647 "LLgen.g"
+# line 632 "LLgen.g"
 
 
 STATIC p_gram
diff --git a/util/LLgen/src/LLgen.g b/util/LLgen/src/LLgen.g
index f617c85dd..c0861ac18 100644
--- a/util/LLgen/src/LLgen.g
+++ b/util/LLgen/src/LLgen.g
@@ -20,6 +20,7 @@
 {
 # include <stdlib.h>
 # include <string.h>
+
 # include "types.h"
 # include "io.h"
 # include "extern.h"
@@ -120,9 +121,9 @@ def			{	register string p; }
 				ff->ff_name = p;
 				ff->ff_next = start;
 				start = ff;
-				while (ff = ff->ff_next) {
+				while ((ff = ff->ff_next)) {
 					if (! strcmp(p, ff->ff_name)) {
-						error(linecount, "\"%s\" already used in a %%start", p);
+						error(linecount, "\"%s\" already used in a %%start", p, NULL);
 						break;
 					}
 				}
@@ -136,7 +137,7 @@ def			{	register string p; }
 			{	if (!lexical) {
 					lexical = store(lextoken.t_string);
 				}
-				else	error(linecount,"Duplicate %%lexical");
+				else	error(linecount,"Duplicate %%lexical", NULL, NULL);
 			}
 	  ';'
 	| C_PREFIX C_IDENT
@@ -147,25 +148,25 @@ def			{	register string p; }
 					prefix = store(lextoken.t_string);
 					if (strlen(prefix) > 6) {
 						error(linecount,
-							"%%prefix too long");
+							"%%prefix too long", NULL, NULL);
 						prefix[6] = 0;
 					}
 				}
-				else	error(linecount,"Duplicate %%prefix");
+				else	error(linecount,"Duplicate %%prefix", NULL, NULL);
 			}
 	  ';'
 	| C_ONERROR C_IDENT
 			{
 #ifdef NON_CORRECTING
 				if (non_corr) {
-					warning(linecount, "%%onerror conflicts with -n option");
+					warning(linecount, "%%onerror conflicts with -n option", NULL, NULL);
 				}
 				else
 #endif
 				  if (! onerror) {
 					onerror = store(lextoken.t_string);
 				}
-				else	error(linecount,"Duplicate %%onerror");
+				else	error(linecount,"Duplicate %%onerror", NULL, NULL);
 			}
 	  ';'
 	| C_ACTION	{	acount++; }
@@ -194,8 +195,7 @@ rule			{	register p_nont p;
 	  C_IDENT	{	temp = search(NONTERM,lextoken.t_string,BOTH);
 				p = &nonterms[g_getcont(temp)];
 				if (p->n_rule) {
-					error(linecount,
-"Nonterminal %s already defined", lextoken.t_string);
+					error(linecount, "Nonterminal %s already defined", lextoken.t_string, NULL);
 				}
 				/*
 				 * Remember the order in which the nonterminals
@@ -212,7 +212,7 @@ rule			{	register p_nont p;
 	  [ C_PARAMS	{	if (lextoken.t_num > 0) {
 					p->n_flags |= PARAMS;
 					if (lextoken.t_num > 15) {
-						error(linecount,"Too many parameters");
+						error(linecount,"Too many parameters", NULL, NULL);
 					}
 					else	setntparams(p,lextoken.t_num);
 				}
@@ -255,7 +255,7 @@ productions(p_gram *p;)
 				if (t & DEF) {
 					if (haddefault) {
 						error(n_lc,
-		"More than one %%default in alternation");
+		"More than one %%default in alternation", NULL, NULL);
 					}
 					haddefault = 1;
 				}
@@ -268,7 +268,7 @@ productions(p_gram *p;)
 			}
 	    ]+		{	if (conflres & (COND|PREFERING|AVOIDING)) {
 					error(n_lc,
-		"Resolver on last alternative not allowed");
+		"Resolver on last alternative not allowed", NULL, NULL);
 				}
 				mkalt(*p,conflres,n_lc,&alt_table[n_alts++]);
 				altcnt++;
@@ -278,12 +278,12 @@ productions(p_gram *p;)
 	  |
 			{	if (conflres & (COND|PREFERING|AVOIDING)) {
 					error(o_lc,
-		"No alternation conflict resolver allowed here");
+		"No alternation conflict resolver allowed here", NULL, NULL);
 				}
 				/*
 				if (conflres & DEF) {
 					error(o_lc,
-		"No %%default allowed here");
+		"No %%default allowed here", NULL, NULL);
 				}
 				*/
 			}
@@ -292,8 +292,7 @@ productions(p_gram *p;)
 	;
 {
 
-STATIC
-mkalt(prod,condition,lc,res) p_gram prod; register p_gram res; {
+STATIC void mkalt(p_gram prod, int condition, int lc, p_gram res) {
 	/*
 	 * Create an alternation and initialise it.
 	 */
@@ -343,7 +342,7 @@ simpleproduction(p_gram *p; register int *conflres;)
 				rule_table[n_rules++] =
 				    *search(TERMINAL, "LLILLEGAL", BOTH);
 				if (*conflres & DEF) {
-					error(linecount, "%%illegal not allowed in %%default rule");
+					error(linecount, "%%illegal not allowed in %%default rule", NULL, NULL);
 				}
 #endif
 			}
@@ -404,7 +403,7 @@ simpleproduction(p_gram *p; register int *conflres;)
 					if ((q->t_flags & RESOLVER) &&
 					    (kind == PLUS || kind == FIXED)) {
 						error(linecount,
-		"%%while not allowed in this term");
+		"%%while not allowed in this term", NULL, NULL);
 					}
 					/*
 					 * A persistent fixed term is the same
@@ -413,7 +412,7 @@ simpleproduction(p_gram *p; register int *conflres;)
 					if ((q->t_flags & PERSISTENT) &&
 					    kind == FIXED) {
 						error(linecount,
-							"Illegal %%persistent");
+							"Illegal %%persistent", NULL, NULL);
 					}
 					*/
 				}
@@ -440,8 +439,7 @@ simpleproduction(p_gram *p; register int *conflres;)
 	;
 {
 
-STATIC
-mkterm(prod,flags,lc,result) p_gram prod; register p_gram result; {
+STATIC void mkterm(p_gram prod, int flags, int lc, p_gram result) {
 	/*
 	 * Create a term, initialise it and return
 	 * a grammar element containing it
@@ -497,7 +495,7 @@ elem (register p_gram pres;)
 				if (erroneous) {
 					if (g_gettype(pres) != TERMINAL){
 						warning(linecount,
-							"Erroneous only allowed on terminal");
+							"Erroneous only allowed on terminal", NULL, NULL);
 						erroneous = 0;
 					}
 					else
@@ -507,11 +505,11 @@ elem (register p_gram pres;)
 
 			}
 	  [ C_PARAMS	{	if (lextoken.t_num > 15) {
-					error(linecount,"Too many parameters");
+					error(linecount,"Too many parameters", NULL, NULL);
 				} else	g_setnpar(pres,lextoken.t_num);
 				if (g_gettype(pres) == TERMINAL) {
 					error(linecount,
-						"Terminal with parameters");
+						"Terminal with parameters", NULL, NULL);
 				}
 			}
 	  ]?
@@ -565,7 +563,7 @@ elem (register p_gram pres;)
 				ff = g_getsubparse(pres);
 				while (ff) {
 					if (ff->ff_nont == g_getcont(temp)) {
-						warning(linecount, "\"%s\" used twice in %%substart", lextoken.t_string);
+						warning(linecount, "\"%s\" used twice in %%substart", lextoken.t_string, NULL);
 						break;
 					}
 					ff = ff->ff_next;
@@ -607,7 +605,7 @@ number(int *t;)
 	: C_NUMBER
 			{	*t = lextoken.t_num;
 				if (*t <= 0 || *t >= 8192) {
-					error(linecount,"Illegal number");
+					error(linecount,"Illegal number", NULL, NULL);
 				}
 			}
 	;
-- 
2.34.1