From: sater <none@none>
Date: Fri, 11 Jan 1985 09:41:13 +0000 (+0000)
Subject: code was added to cause generation of DO_RREMOVE in some cases
X-Git-Tag: release-5-5~5788
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=3534869cb5dc50736d7b1e6d552b86a90a95a7e5;p=ack.git

code was added to cause generation of DO_RREMOVE in some cases
---

diff --git a/util/ncgg/instruct.c b/util/ncgg/instruct.c
index ac6aff4b7..d09974614 100644
--- a/util/ncgg/instruct.c
+++ b/util/ncgg/instruct.c
@@ -41,6 +41,16 @@ struct varinfo * generase(n) {
 	return(vi);
 }
 
+struct varinfo * genremove(n) {
+	struct varinfo *vi;
+
+	NEW(vi,struct varinfo);
+	vi->vi_next = VI_NULL;
+	vi->vi_int[0] = INSREMOVE;
+	vi->vi_int[1] = n;
+	return(vi);
+}
+
 onlyreg(argno) {
 	register bitno;
 	register short *sp;
@@ -157,13 +167,15 @@ found:
 			break;
 		case IN_S_DESCR:
 		case IN_D_DESCR:
-			vi->vi_next = generase(
-				       ex_lookup(
-				        EX_REGVAR,insta->in_info[1],0
-				       )
-				      );
+			{ int temp;
+
+			temp=ex_lookup(EX_REGVAR,insta->in_info[1],0);
+			vi->vi_next = generase(temp);
+			vi = vi->vi_next;
+			vi->vi_next = genremove(temp);
 			vi = vi->vi_next;
 			break;
+			}
 		}
 		break;
 	    }
@@ -171,8 +183,11 @@ found:
 	for (eravi=ip->i_erases;eravi != VI_NULL;eravi=eravi->vi_next) {
 		if (eravi->vi_int[0] < 0)
 			vi->vi_next = setcoco(0);
-		else
+		else {
 			vi->vi_next = generase(eravi->vi_int[0]);
+			vi=vi->vi_next;
+			vi->vi_next = genremove(eravi->vi_int[0]);
+		}
 		vi=vi->vi_next;
 	}
 	return(retval);