Branch: Tag:

1997-01-17

1997-01-17 21:06:40 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

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 */