From 7be1c757a5ac6949efbcf96ec5f3d6f01f68ecbe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 17 Jan 1997 13:06:40 -0800
Subject: [PATCH] fixed F_ARROW
Rev: src/interpret.c:1.20
---
src/interpret.c | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/src/interpret.c b/src/interpret.c
index ef4286a52d..578d027313 100644
--- a/src/interpret.c
+++ b/src/interpret.c
@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
-RCSID("$Id: interpret.c,v 1.19 1997/01/16 05:00:44 hubbe Exp $");
+RCSID("$Id: interpret.c,v 1.20 1997/01/17 21:06:40 hubbe Exp $");
#include "interpret.h"
#include "object.h"
#include "program.h"
@@ -1021,9 +1021,17 @@ static void eval_instruction(unsigned char *pc)
goto do_index;
CASE(F_ARROW);
+ copy_shared_string(sp->u.string,fp->context.prog->strings[GET_ARG()]);
+ sp->type=T_STRING;
+ sp->subtype=1;
+ sp++;
+ print_return_value();
+ goto do_index;
+
CASE(F_STRING_INDEX);
copy_shared_string(sp->u.string,fp->context.prog->strings[GET_ARG()]);
sp->type=T_STRING;
+ sp->subtype=0;
sp++;
print_return_value();
/* Fall through */
--
GitLab