From da55f9b79ec0de31f1ae723db155cc089412bc92 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 3 May 1996 13:49:48 +0200
Subject: [PATCH] better typechecking
Rev: src/las.c:1.9
---
src/las.c | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/src/las.c b/src/las.c
index e999b84833..9a0912e000 100644
--- a/src/las.c
+++ b/src/las.c
@@ -961,6 +961,12 @@ void fix_type_field(node *n)
}
break;
+ case F_ASSIGN:
+ if(CAR(n) && CDR(n) &&
+ !match_types(CDR(n)->type,CAR(n)->type))
+ my_yyerror("Bad type in assignment.\n");
+ break;
+
case F_INDEX:
type_a=CAR(n)->type;
type_b=CDR(n)->type;
--
GitLab