From 43f12e4fd17e9a4f4c95a8dab2cddaa07e21d90f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Tue, 29 Sep 1998 00:30:15 +0200
Subject: [PATCH] check_indexing() didn't know about indexing of programs.
Rev: src/pike_types.c:1.46
---
src/pike_types.c | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/pike_types.c b/src/pike_types.c
index 4b7df8d751..29cb13a15b 100644
--- a/src/pike_types.c
+++ b/src/pike_types.c
@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
-RCSID("$Id: pike_types.c,v 1.45 1998/08/19 07:37:59 hubbe Exp $");
+RCSID("$Id: pike_types.c,v 1.46 1998/09/28 22:30:15 grubba Exp $");
#include <ctype.h>
#include "svalue.h"
#include "pike_types.h"
@@ -1428,6 +1428,10 @@ static int low_check_indexing(char *type, char *index_type, node *n)
case T_MAPPING:
return !!low_match_types(type,index_type,0);
+ case T_PROGRAM:
+ // FIXME: Should check that the index is a string.
+ return 1;
+
case T_MIXED:
return 1;
--
GitLab