newer version

1986-04-15 17:51:53 +00:00
parent 7d76f2829a
commit 426c273de8
17 changed files with 648 additions and 351 deletions
--- a/lang/m2/comp/expression.g
+++ b/lang/m2/comp/expression.g
@@ -22,9 +22,7 @@ number(struct node **p;)
 	struct type *tp;
 } :
 [
-	INTEGER		{ tp = dot.TOK_INT <= max_int ?
-				intorcard_type : card_type;
-			}
+	INTEGER		{ tp = numtype; }
 |
 	REAL		{ tp = real_type; }
 ]			{ *p = MkNode(Value, NULLNODE, NULLNODE, &dot);