pike.git/ src/ interpret_functions.h

2014-12-04

2014-12-04 19:26:45 by Arne Goedeke <el@laramies.com>

• c1e754e29f15713335a1dd7007cea83adfcdea93 (31 lines) (+16/-15) ^{[ Show | Annotate ]}
  Branch: bill/master_archive_support

Interpreter: renamed some variables

When compiling without bytecode and with compilers without computed
goto, the variable p is always struct program *. Use addr for OPCODE_T *,
instead, to silence warnings.

2159:    });      OPCODE1_JUMP(F_MARK_CALL_LFUN, "mark, call lfun" , I_UPDATE_ALL, { -  LOCAL_VAR(PIKE_OPCODE_T *p); +  LOCAL_VAR(PIKE_OPCODE_T *addr);    JUMP_SET_TO_PC_AT_NEXT (Pike_fp->return_addr); -  if((p = lower_mega_apply(0, Pike_fp->current_object, +  if((addr = lower_mega_apply(0, Pike_fp->current_object,    (arg1+Pike_fp->context->identifier_level)))) {    Pike_fp->flags |= PIKE_FRAME_RETURN_INTERNAL; -  DO_JUMP_TO(p); +  DO_JUMP_TO(addr);    } else {    DO_JUMP_TO_NEXT;    }    });      OPCODE1_JUMP( F_MARK_CALL_LFUN_AND_POP , "mark, call lfun & pop", I_UPDATE_ALL, { -  LOCAL_VAR(PIKE_OPCODE_T *p); +  LOCAL_VAR(PIKE_OPCODE_T *addr);    JUMP_SET_TO_PC_AT_NEXT (Pike_fp->return_addr); -  if((p = lower_mega_apply(0, Pike_fp->current_object, +  if((addr = lower_mega_apply(0, Pike_fp->current_object,    (arg1+Pike_fp->context->identifier_level) )))    {    Pike_fp->flags |= PIKE_FRAME_RETURN_INTERNAL | PIKE_FRAME_RETURN_POP; -  DO_JUMP_TO(p); +  DO_JUMP_TO(addr);    }    else    {
2244:    {    LOCAL_VAR(struct svalue tmp);    LOCAL_VAR(struct svalue tmp2); -  LOCAL_VAR(PIKE_OPCODE_T *p); +  LOCAL_VAR(PIKE_OPCODE_T *addr);    SET_SVAL(tmp, PIKE_T_STRING, 1, string,    Pike_fp->context->prog->strings[arg1]);   
2253:    move_svalue (s, &tmp2);    print_return_value();    -  if((p = low_mega_apply(APPLY_STACK, args, 0, 0))) +  if((addr = low_mega_apply(APPLY_STACK, args, 0, 0)))    {    Pike_fp->flags |= PIKE_FRAME_RETURN_INTERNAL; -  DO_JUMP_TO(p); +  DO_JUMP_TO(addr);    }    else {    DO_JUMP_TO_NEXT;
2304:    {    LOCAL_VAR(struct svalue tmp);    LOCAL_VAR(struct svalue tmp2); -  LOCAL_VAR(PIKE_OPCODE_T *p); +  LOCAL_VAR(PIKE_OPCODE_T *addr);       SET_SVAL(tmp, PIKE_T_STRING, 1, string,    Pike_fp->context->prog->strings[arg1]);
2314:    move_svalue (s, &tmp2);    print_return_value();    -  if((p = low_mega_apply(APPLY_STACK, args, 0, 0))) +  if((addr = low_mega_apply(APPLY_STACK, args, 0, 0)))    {    Pike_fp->flags |= PIKE_FRAME_RETURN_INTERNAL | PIKE_FRAME_RETURN_POP; -  DO_JUMP_TO(p); +  DO_JUMP_TO(addr);    }    else {    pop_stack();
2364:    {    LOCAL_VAR(struct svalue tmp);    LOCAL_VAR(struct svalue tmp2); -  LOCAL_VAR(PIKE_OPCODE_T *p); +  LOCAL_VAR(PIKE_OPCODE_T *addr);    SET_SVAL(tmp, PIKE_T_STRING, 1, string,    Pike_fp->context->prog->strings[arg1]);   
2373:    move_svalue (s, &tmp2);    print_return_value();    -  if((p = low_mega_apply(APPLY_STACK, args, 0, 0))) +  if((addr = low_mega_apply(APPLY_STACK, args, 0, 0)))    {    DO_IF_DEBUG(Pike_fp->next->pc=0);    unlink_previous_frame(); -  DO_JUMP_TO(p); +  DO_JUMP_TO(addr);    }    DO_DUMB_RETURN;    }