shithub: scc

Info  •  Files  •  Log  •  Branches

Mark as constant nodes address of static variables

This operation generates a constant node which can be used
in initializers.

--- a/cc1/expr.c

+++ b/cc1/expr.c

@@ -544,6 +544,8 @@

 static Node *

 address(char op, Node *np)

 {

+	Node *new;

+

 	if (BTYPE(np) != FTN) {

 		chklvalue(np);

 		if (np->symbol && (np->sym->flags & ISREGISTER))

@@ -554,7 +556,11 @@

 			return new;

 		}

 	}

-	return node(op, mktype(np->type, PTR, 0, NULL), np, NULL);

+	new = node(op, mktype(np->type, PTR, 0, NULL), np, NULL);

+

+	if (np->symbol && np->sym->flags & (ISGLOBAL|ISLOCAL|ISPRIVATE))

+		new->constant = 1;

+	return new;

 }

 static Node *