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.173 2004/10/01 08:55:16 grubba Exp $ + || $Id: interpret_functions.h,v 1.174 2004/10/01 13:26:40 grubba Exp $   */      /*    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST
pike.git/src/interpret_functions.h:1805:      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); +     struct string_assignment_storage *s; -  +  LOCAL_VAR(struct object *o);    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();   });