From 8123846da660302b07a759d7a214977287e5b0e0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Sat, 23 May 1998 19:28:20 -0700
Subject: [PATCH] possible bugfix in array lvalues
Rev: src/array.c:1.39
---
src/array.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/array.c b/src/array.c
index 423b730c08..d39386ea76 100644
--- a/src/array.c
+++ b/src/array.c
@@ -19,7 +19,7 @@
#include "gc.h"
#include "main.h"
-RCSID("$Id: array.c,v 1.38 1998/05/13 07:38:29 hubbe Exp $");
+RCSID("$Id: array.c,v 1.39 1998/05/24 02:28:20 hubbe Exp $");
struct array empty_array=
{
@@ -1531,7 +1531,7 @@ void check_array(struct array *a)
for(e=0;e<a->size;e++)
{
- if(! ( (1 << ITEM(a)[e].type) & (a->type_field) ))
+ if(! ( (1 << ITEM(a)[e].type) & (a->type_field) ) && ITEM(a)[e].type<16)
fatal("Type field lies.\n");
check_svalue(ITEM(a)+e);
--
GitLab