From a3650701d1f87100b6ab41cb120f7923eb851a33 Mon Sep 17 00:00:00 2001
From: Quentin Carbonneaux <quentin.carbonneaux@yale.edu>
Date: Thu, 4 Feb 2016 12:22:20 -0500
Subject: fix super old bug in rega!

---
 lisc/rega.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisc/rega.c b/lisc/rega.c
index 6c9ab95..a36609e 100644
--- a/lisc/rega.c
+++ b/lisc/rega.c
@@ -285,7 +285,7 @@ dopm(Blk *b, Ins *i, RMap *m)
 	} while (i != b->ins && regcpy(i-1));
 	assert(m0.n <= m->n);
 	if (i != b->ins && (i-1)->op == OCall) {
-		def = calldef(*i, 0);
+		def = calldef(*(i-1), 0);
 		for (r=0; r<NRSave; r++)
 			if (!(BIT(rsave[r]) & def))
 				move(rsave[r], R, m);
-- 
cgit 1.4.1