From 8f2fe1c0037045308103930a4799a965c5cb4f6f Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 30 May 1989 12:20:54 +0000
Subject: [PATCH] token references in EM replacements do not work. Give error
 message

---
 util/ncgg/cgg.y | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/util/ncgg/cgg.y b/util/ncgg/cgg.y
index 2b82eb060..54251c142 100644
--- a/util/ncgg/cgg.y
+++ b/util/ncgg/cgg.y
@@ -32,6 +32,7 @@ int optstack=0;	/* Inside with <blah> STACK rule */
 int saferulefound=0;
 int maxempatlen=0;
 int maxrule=0;
+int in_em_repl=0;	/* set when in EM replacement part */
 struct varinfo *defcost;
 int Xstackflag=0; /* set in coercions, moves, and tests. %1 means something
 		     different then.
@@ -882,8 +883,8 @@ yieldlist
 leaving
 	: /* empty */
 		{ $$ = 0; }
-	| LEAVING {emhere=1; } leavelist
-		{ emhere=0; $$ = $3; }
+	| LEAVING {emhere=1; in_em_repl=1; } leavelist
+		{ emhere=0; in_em_repl=0; $$ = $3; }
 	;
 leavelist
 	: leavelist_el
@@ -947,6 +948,8 @@ emarg
 tokarg
 	: PERCENT
 		{ $$ = $1;
+		  if (in_em_repl)
+			error("No token references allowed in EM replacement part");
 		  if ($1<1 || $1>tokpatlen) {
 			error("Only %d tokens in stackpattern",tokpatlen);
 			$$ =1;