pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:362:    Pike_sp++;    print_return_value();    });   });      OPCODE1(F_PRIVATE_GLOBAL, "global <private>", I_UPDATE_SP, {    struct svalue *sp;    struct object *co = Pike_fp->current_object;    if(!co->prog) /* note: generate an error. */    object_low_set_index(co,0,0); -  sp = (struct svalue *)(co->storage + Pike_fp->context->storage_offset + arg1); +  sp = (struct svalue *)(Pike_fp->current_storage + arg1);    push_svalue( sp );    print_return_value();   });      OPCODE2(F_PRIVATE_IF_DIRECT_GLOBAL, "global <private if direct>",    I_UPDATE_SP, {    struct object *co = Pike_fp->current_object;    struct inherit *cx = Pike_fp->context;    if(!co->prog) /* note: generate an error. */    object_low_set_index(co,0,0);    if( co->prog != cx->prog )    {    low_index_current_object_no_free(Pike_sp, arg2);    Pike_sp++;    print_return_value();    }    else    {    struct svalue *sp; -  sp = (struct svalue *)(co->storage + cx->storage_offset + arg1); +  sp = (struct svalue *)(Pike_fp->current_storage + arg1);    push_svalue( sp );    print_return_value();    }   });      OPCODE2(F_ASSIGN_PRIVATE_IF_DIRECT_GLOBAL,    "assign global <private if direct>", 0,    {    struct object *co = Pike_fp->current_object;    struct inherit *cx = Pike_fp->context;       if( co->prog != cx->prog )    {    object_low_set_index(co, arg2 + cx->identifier_level, Pike_sp-1);    }    else    {    struct svalue *tmp; -  tmp = (struct svalue *)(co->storage + cx->storage_offset + arg1); +  tmp = (struct svalue *)(Pike_fp->current_storage + arg1);    assign_svalue(tmp,Pike_sp-1);    }    });      OPCODE2(F_ASSIGN_PRIVATE_TYPED_GLOBAL_AND_POP, "assign global <private,typed> and pop", I_UPDATE_SP, {    /* lazy mode. */    union anything *tmp_s;    LOCAL_VAR(struct object *o);    o = Pike_fp->current_object;    if(!o->prog) /* note: generate an error. */    object_low_set_index(o,0,0); -  tmp_s = (union anything *)(o->storage + Pike_fp->context->storage_offset + arg1); +  tmp_s = (union anything *)(Pike_fp->current_storage + arg1);    assign_to_short_svalue( tmp_s, arg2, Pike_sp-1 );    pop_stack();   });      OPCODE2(F_ASSIGN_PRIVATE_TYPED_GLOBAL, "assign global <private,typed>", 0, {    union anything *tmp;    LOCAL_VAR(struct object *o);    o = Pike_fp->current_object;    if(!o->prog) /* note: generate an error. */    object_low_set_index(o,0,0); -  tmp = (union anything *)(o->storage + Pike_fp->context->storage_offset + arg1); +  tmp = (union anything *)(Pike_fp->current_storage + arg1);    assign_to_short_svalue( tmp, arg2, Pike_sp-1);   });         #if SIZEOF_FLOAT_TYPE != SIZEOF_INT_TYPE   #define DO_IF_ELSE_SIZEOF_FLOAT_INT(EQ, NEQ) do { NEQ; } while(0)   #else   #define DO_IF_ELSE_SIZEOF_FLOAT_INT(EQ, NEQ) do { EQ; } while(0)   #endif      OPCODE2(F_PRIVATE_TYPED_GLOBAL, "global <private,typed>", I_UPDATE_SP, {    void *ptr;    LOCAL_VAR(struct object *o);       o = Pike_fp->current_object; -  ptr = (void *)(o->storage + Pike_fp->context->storage_offset + arg1); +  ptr = (void *)(Pike_fp->current_storage + arg1);    if( arg2 < MIN_REF_TYPE )    {    DO_IF_ELSE_SIZEOF_FLOAT_INT(    SET_SVAL_TYPE_SUBTYPE(Pike_sp[0], arg2, 0);    Pike_sp[0].u.integer = *(INT_TYPE*)ptr;    Pike_sp++;    ,    if( UNLIKELY(arg2)==PIKE_T_INT )    push_int( *(INT_TYPE*)ptr );    else
pike.git/src/interpret_functions.h:1221:    pop_stack();   });      OPCODE1(F_ASSIGN_PRIVATE_GLOBAL_AND_POP,    "assign private global and pop", I_UPDATE_SP, {    struct svalue *tmp;    struct object *co;    co = Pike_fp->current_object;    if(!co->prog) /* note: generate an error. */    object_low_set_index(co,0,0); -  tmp = (struct svalue *)(co->storage + Pike_fp->context->storage_offset + arg1); +  tmp = (struct svalue *)(Pike_fp->current_storage + arg1);    free_svalue(tmp);    *tmp = *--Pike_sp;   });      OPCODE1(F_ASSIGN_PRIVATE_GLOBAL, "assign private global", I_UPDATE_SP, {    struct svalue *tmp;    struct object *co;    co = Pike_fp->current_object;    if(!co->prog) /* note: generate an error. */    object_low_set_index(co,0,0); -  tmp = (struct svalue *)(co->storage +Pike_fp->context->storage_offset +arg1); +  tmp = (struct svalue *)(Pike_fp->current_storage + arg1);    assign_svalue( tmp, Pike_sp-1 );   });      OPCODE2(F_ASSIGN_GLOBAL_NUMBER_AND_POP, "assign global number and pop", 0, {    LOCAL_VAR(struct svalue tmp);    SET_SVAL(tmp,PIKE_T_INT,0,integer,arg2);    object_low_set_index(Pike_fp->current_object,    arg1 + Pike_fp->context->identifier_level,    &tmp);   });