shithub: scc

Info  •  Files  •  Log  •  Branches

Assign type to return nodes

It is important to give types in all the nodes, because
in other case we can have problems in the optimization
part.

--- a/cc2/cgen.c

+++ b/cc2/cgen.c

@@ -215,8 +215,7 @@

 	case 2:

 		moveto(np, HL);

 		break;

-	case 4:

-	case 8:

+	default:

 		abort();

 	}

 }

--- a/cc2/parser.c

+++ b/cc2/parser.c

@@ -457,13 +457,15 @@

 static void

 oreturn(char *token)

 {

-	Node *np = newnode();

+	Node *np = newnode(), *lp;

 	np->op = token[0];

 	if (token = strtok(NULL, "\t")) {

 		expr(token);

-		np -> left = pop();

+		lp = pop();

+		np ->left = lp;

+		np->type = lp->type;

 	} else {

 		np->left = NULL;

 	}

-- 

⑨