From 389c633d9a4dc53d76ec86d172aa20e1967451df Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Mon, 25 May 1998 18:41:23 +0200
Subject: [PATCH] Added support for indexing a program.
Rev: src/opcodes.c:1.26
---
src/opcodes.c | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/opcodes.c b/src/opcodes.c
index 7c86e530dc..57a9a19455 100644
--- a/src/opcodes.c
+++ b/src/opcodes.c
@@ -22,7 +22,7 @@
#include "builtin_functions.h"
#include "module_support.h"
-RCSID("$Id: opcodes.c,v 1.25 1998/05/20 23:08:12 grubba Exp $");
+RCSID("$Id: opcodes.c,v 1.26 1998/05/25 16:41:23 grubba Exp $");
void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)
{
@@ -48,6 +48,10 @@ void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)
to->u.integer=i;
break;
+ case T_PROGRAM:
+ program_index_no_free(to, what->u.program, ind);
+ break;
+
case T_STRING:
if(ind->type==T_INT)
{
--
GitLab