From 4b11a543450414eaac5445c8f4fa71c009b6cf92 Mon Sep 17 00:00:00 2001
From: Arkshine <hv.contact@gmail.com>
Date: Tue, 9 Dec 2014 22:59:57 +0100
Subject: [PATCH] Make sure overriden tag is done with _:

---
 compiler/libpc300/sc3.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/libpc300/sc3.c b/compiler/libpc300/sc3.c
index ddaace8e..bcd29d59 100755
--- a/compiler/libpc300/sc3.c
+++ b/compiler/libpc300/sc3.c
@@ -1225,7 +1225,7 @@ static int hier2(value *lval)
     return FALSE;
   case tLABEL:                  /* tagname override */
     tag=pc_addtag(st);
-    forceuntag=(*st == '_');    /* forced to be untagged with _: */
+    forceuntag=(*st == '_' && !tag);    /* forced to be untagged with _: */
     lvalue=hier2(lval);
     lval->tag=tag;
     lval->forceuntag=forceuntag;