From: sater <none@none>
Date: Thu, 2 Aug 1984 16:31:25 +0000 (+0000)
Subject: A move from a nonreg to a reg did not have the effect that all
X-Git-Tag: release-5-5~6134
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=ff9d23e4ecc14c4c7f64fe5dd480fdd40c2657ee;p=ack.git

A move from a nonreg to a reg did not have the effect that all
registers clashing with the destination were erased. Erase added.
---

diff --git a/mach/proto/cg/move.c b/mach/proto/cg/move.c
index b74e55083..3230aa8ac 100644
--- a/mach/proto/cg/move.c
+++ b/mach/proto/cg/move.c
@@ -57,6 +57,7 @@ move(tp1,tp2,ply,toplevel,maxcost) token_p tp1,tp2; unsigned maxcost; {
 		} else {
 			if (eqtoken(&machregs[tp2->t_att[0].ar].r_contents,tp1))
 				return(0);
+			erasereg(tp2->t_att[0].ar);
 			machregs[tp2->t_att[0].ar].r_contents = *tp1;
 		}
 		for (rp=machregs;rp<machregs+NREGS;rp++) {