Make sure overriden tag is done with _:

2014-12-09 22:59:57 +01:00 · 2014-12-09 22:59:57 +01:00 · 4b11a54345
commit 4b11a54345
parent 78940b46a4
1 changed files with 1 additions and 1 deletions
--- 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;