From e94837cba79695c3ed66e8cdda503ef0fa449926 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Wed, 29 Dec 1999 20:20:32 +0100
Subject: [PATCH] Added types for F_MAGIC_INDEX and F_MAGIC_SET_INDEX.
Rev: src/las.c:1.154
---
src/las.c | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/src/las.c b/src/las.c
index b246053929..ea4fe9021c 100644
--- a/src/las.c
+++ b/src/las.c
@@ -5,7 +5,7 @@
\*/
/**/
#include "global.h"
-RCSID("$Id: las.c,v 1.153 1999/12/29 18:02:00 grubba Exp $");
+RCSID("$Id: las.c,v 1.154 1999/12/29 19:20:32 grubba Exp $");
#include "language.h"
#include "interpret.h"
@@ -2607,9 +2607,16 @@ void fix_type_field(node *n)
break;
case F_MAGIC_INDEX:
+ /* FIXME: Could have a stricter type for ::`->(). */
+ MAKE_CONSTANT_SHARED_STRING(n->type, tFunc(tMix,tMix));
+ break;
case F_MAGIC_SET_INDEX:
+ /* FIXME: Could have a stricter type for ::`->=(). */
+ MAKE_CONSTANT_SHARED_STRING(n->type, tFunc(tMix tSetvar(0,tMix), tVar(0)));
+ break;
+
case F_CATCH:
- /* FIXME: FALL_THROUGH */
+ /* FALL_THROUGH */
default:
copy_shared_string(n->type,mixed_type_string);
}
--
GitLab