shithub: scc

Info  •  Files  •  Log  •  Branches

Make constant pointers generated in decay()

When a pointer generated in decay() comes from a lvalue with
static storage then it is a constant value.

--- a/cc1/expr.c

+++ b/cc1/expr.c

@@ -199,6 +199,7 @@

 Node *

 decay(Node *np)

 {

+	Node *new;

 	Type *tp = np->type;

 	switch (tp->op) {

@@ -205,13 +206,16 @@

 	case ARY:

 		tp = tp->type;

 		if (np->op == OPTR) {

-			Node *new = np->left;

+			new = np->left;

 			free(np);

 			new->type = mktype(tp, PTR, 0, NULL);

 			return new;

 		}

 	case FTN:

-		np = node(OADDR, mktype(tp, PTR, 0, NULL), np, NULL);

+		new = node(OADDR, mktype(tp, PTR, 0, NULL), np, NULL);

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

+			new->constant = 1;

+		return new;

 	default:

 		return np;

 	}