From fc4213a39d0280141b591bb8f0489927fade2b91 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Fri, 10 Mar 2000 01:58:59 +0100
Subject: [PATCH] Fixed bug again.
Rev: src/pike_types.c:1.126
---
src/pike_types.c | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/src/pike_types.c b/src/pike_types.c
index 31dc4e8743..f349b73a2e 100644
--- a/src/pike_types.c
+++ b/src/pike_types.c
@@ -5,7 +5,7 @@
\*/
/**/
#include "global.h"
-RCSID("$Id: pike_types.c,v 1.125 2000/03/10 00:53:49 grubba Exp $");
+RCSID("$Id: pike_types.c,v 1.126 2000/03/10 00:58:59 grubba Exp $");
#include <ctype.h>
#include "svalue.h"
#include "pike_types.h"
@@ -2750,17 +2750,17 @@ static struct pike_string *debug_low_index_type(char *t,
if(low_pike_types_le(tString, index_type, 0, 0) &&
(a = low_index_type(t, tString, n))) {
/* Possible to index the array with a string. */
+ type_stack_mark();
+ push_finished_type(a);
+ free_string(a);
+ push_type(T_ARRAY);
+
if (low_match_types(tInt, index_type, 0)) {
/* Also possible to index the array with an int. */
- type_stack_mark();
- push_finished_type(a);
- free_string(a);
- push_type(T_ARRAY);
push_unfinished_type(t);
push_type(T_OR);
- return pop_unfinished_type();
}
- return a;
+ return pop_unfinished_type();
}
if (low_match_types(tInt, index_type, 0)) {
/* Possible to index the array with an int. */
--
GitLab