From 02b70c0cb1203a9a3cc9a0bda0f013188a2a4942 Mon Sep 17 00:00:00 2001
From: Quentin Carbonneaux <quentin.carbonneaux@yale.edu>
Date: Tue, 12 Apr 2016 14:44:45 -0400
Subject: bug in checking of multiple definitions

---
 parse.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/parse.c b/parse.c
index 6daa590..5edffa1 100644
--- a/parse.c
+++ b/parse.c
@@ -530,13 +530,13 @@ parseline(PState ps)
 		break;
 	case TLbl:
 		b = findblk(tokval.str);
-		if (b->jmp.type != JXXX)
-			err("multiple definitions of block");
 		if (curb && curb->jmp.type == JXXX) {
 			closeblk();
 			curb->jmp.type = JJmp;
 			curb->s1 = b;
 		}
+		if (b->jmp.type != JXXX)
+			err("multiple definitions of block @%s", b->name);
 		*blink = b;
 		curb = b;
 		plink = &curb->phi;
-- 
cgit 1.4.1