pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:542:   OPCODE1(F_ARRAY_LVALUE, "[ lvalues ]", I_UPDATE_SP, {    f_aggregate(arg1*2);    Pike_sp[-1].u.array->flags |= ARRAY_LVALUE;    Pike_sp[-1].u.array->type_field |= BIT_UNFINISHED | BIT_MIXED;    /* FIXME: Shouldn't a ref be added here? */    move_svalue (Pike_sp, Pike_sp - 1);    SET_SVAL_TYPE(Pike_sp[-1], T_ARRAY_LVALUE);    Pike_sp++;   });    - OPCODE1(F_CLEAR_2_LOCAL, "clear 2 local", 0, { -  free_mixed_svalues(Pike_fp->locals + arg1, 2); -  SET_SVAL(Pike_fp->locals[arg1], PIKE_T_INT, NUMBER_NUMBER, integer, 0); -  SET_SVAL(Pike_fp->locals[arg1+1], PIKE_T_INT, NUMBER_NUMBER, integer, 0); - }); -  - OPCODE1(F_CLEAR_4_LOCAL, "clear 4 local", 0, { + OPCODE2(F_CLEAR_N_LOCAL, "clear n local", 0, {    struct svalue *locals = Pike_fp->locals;    int e; -  free_mixed_svalues(locals + arg1, 4); -  for(e = 0; e < 4; e++) +  free_mixed_svalues(locals + arg1, arg2); +  for(e = 0; e < arg2; e++)    {    SET_SVAL(locals[arg1+e], PIKE_T_INT, NUMBER_NUMBER, integer, 0);    }   });      OPCODE1(F_CLEAR_LOCAL, "clear local", 0, {    free_svalue(Pike_fp->locals + arg1);    SET_SVAL(Pike_fp->locals[arg1], PIKE_T_INT, NUMBER_NUMBER, integer, 0);   });