pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: interpret_functions.h,v 1.172 2004/09/30 13:20:00 mast Exp $ + || $Id: interpret_functions.h,v 1.173 2004/10/01 08:55:16 grubba Exp $   */      /*    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST
pike.git/src/interpret_functions.h:1806:   OPCODE0(F_INDIRECT, "indirect", I_UPDATE_SP, {    LOCAL_VAR(struct svalue tmp);    lvalue_to_svalue_no_free(&tmp, Pike_sp-2);    if(tmp.type != PIKE_T_STRING)    {    pop_2_elems();    move_svalue (Pike_sp, &tmp);    Pike_sp++;    }else{    LOCAL_VAR(struct object *o); -  LOCAL_VAR(struct string_assignment_storage *s); +  struct string_assignment_storage *s;    o=low_clone(string_assignment_program);    s = (struct string_assignment_storage *)o->storage;    move_svalue (s->lval, Pike_sp - 2);    move_svalue (s->lval + 1, Pike_sp - 1);    s->s=tmp.u.string;    Pike_sp-=2;    push_object(o);    }    print_return_value();   });