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.146 2003/04/07 19:33:09 grubba Exp $ + || $Id: interpret_functions.h,v 1.147 2003/04/08 08:37:36 grubba Exp $   */      /*    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST
pike.git/src/interpret_functions.h:714:    s.type=PIKE_T_INT;    s.subtype=0;    s.u.integer=0;    assign_lvalue(Pike_sp-4,&s);    } else if (Pike_sp[-2].type == T_OBJECT) {    /* One ref in the lvalue, and one on the stack. */    if(Pike_sp[-2].u.object->refs <= 2 &&    FIND_LFUN(Pike_sp[-2].u.object->prog, LFUN_ADD_EQ) != -1)    {    apply_lfun(Pike_sp[-2].u.object, LFUN_ADD_EQ, 1); -  goto add_to_set_lvalue; +  /* NB: The lvalue already contains the object, so +  * no need to reassign it. +  */ +  pop_stack(); +  stack_pop_n_elems_keep_top(2); +  goto add_to_done;    }    }    f_add(2); -  add_to_set_lvalue: +     assign_lvalue(Pike_sp-3,Pike_sp-1);    stack_pop_n_elems_keep_top(2);    add_to_done:    ; /* make gcc happy */   });      OPCODE0(F_ADD_TO_AND_POP, "+= and pop", 0, {    Pike_sp[0]=Pike_sp[-1];    Pike_sp[-1].type=PIKE_T_INT;    Pike_sp++;
pike.git/src/interpret_functions.h:760:    * destructive if they like    */    if( (1 << Pike_sp[-2].type) &    (BIT_ARRAY | BIT_MULTISET | BIT_MAPPING | BIT_STRING) )    {    struct svalue s;    s.type=PIKE_T_INT;    s.subtype=0;    s.u.integer=0;    assign_lvalue(Pike_sp-4,&s); -  } else if (Pike_sp[-2].type == T_OBJECT) { +  } else if (Pike_sp[-2].type == PIKE_T_OBJECT) {    /* One ref in the lvalue, and one on the stack. */    if(Pike_sp[-2].u.object->refs <= 2 &&    FIND_LFUN(Pike_sp[-2].u.object->prog, LFUN_ADD_EQ) != -1)    {    apply_lfun(Pike_sp[-2].u.object, LFUN_ADD_EQ, 1); -  goto add_to_and_pop_set_lvalue; +  /* NB: The lvalue already contains the object, so +  * no need to reassign it. +  */ +  pop_n_elems(4); +  goto add_to_and_pop_done;    }    }    f_add(2); -  add_to_and_pop_set_lvalue: +     assign_lvalue(Pike_sp-3,Pike_sp-1);    pop_n_elems(3);    add_to_and_pop_done:    ; /* make gcc happy */   });      OPCODE1(F_GLOBAL_LVALUE, "& global", 0, {    ref_push_object(Pike_fp->current_object);    push_int(arg1 + Pike_fp->context.identifier_level);    Pike_sp[-1].type = T_OBJ_INDEX;