pike.git/
src/
interpret.c
Branch:
Tag:
Non-build tags
All tags
No tags
1997-01-17
1997-01-17 21:06:40 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
7be1c757a5ac6949efbcf96ec5f3d6f01f68ecbe (
11
lines) (+
10
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
fixed F_ARROW
Rev: src/interpret.c:1.20
4:
||| 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:
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 */