From 66c006eb6d70bec771ff14e924aabf221f3767a4 Mon Sep 17 00:00:00 2001
From: Quentin Carbonneaux <quentin.carbonneaux@yale.edu>
Date: Wed, 15 Jul 2015 02:56:54 -0400
Subject: fix some parsing bug of phi nodes

---
 lisc/parse.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisc/parse.c b/lisc/parse.c
index 0af054f..6b035ab 100644
--- a/lisc/parse.c
+++ b/lisc/parse.c
@@ -322,13 +322,13 @@ parseline(PState ps)
 			curb->nins = curi - ins;
 			curb->ins = alloc(curb->nins * sizeof(Ins));
 			memcpy(curb->ins, ins, curb->nins * sizeof(Ins));
-			plink = &curb->phi;
 			if (curb->jmp.type == JXXX) {
 				curb->jmp.type = JJmp;
 				curb->s1 = b;
 			}
 		}
 		curb = b;
+		plink = &curb->phi;
 		if (curb->jmp.type != JXXX)
 			err("multiple definitions of block");
 		expect(TNL);
@@ -424,6 +424,7 @@ parseline(PState ps)
 		memcpy(phi->arg, arg, i * sizeof arg[0]);
 		memcpy(phi->blk, blk, i * sizeof blk[0]);
 		phi->narg = i;
+		*plink = phi;
 		plink = &phi->link;
 		return PPhi;
 	}
-- 
cgit 1.4.1