shithub: scc

Info  •  Files  •  Log  •  Branches

Don't install tags that are already installed

The code was installing all the tags it found, even in the cases
the tag was already installed, creating wrong symbols without
type.

--- a/cc1/decl.c

+++ b/cc1/decl.c

@@ -303,7 +303,8 @@

 	case IDEN:

 	case TYPEIDEN:

 		sym = yylval.sym;

-		install(NS_TAG);

+		if ((sym->flags & ISDEFINED) == 0)

+			install(NS_TAG);

 		next();

 		break;

 	default:

@@ -317,7 +318,6 @@

 		sym->type->ns = ns++;

 	}

-	sym->flags |= ISDEFINED;

 	if ((op = sym->type->op) != tag &&  op != INT)

 		error("'%s' defined as wrong kind of tag", sym->name);

 	return sym;