pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:1:   /* -  * $Id: interpret_functions.h,v 1.106 2002/09/14 01:54:59 mast Exp $ +  * $Id: interpret_functions.h,v 1.107 2002/09/20 12:31:36 marcus Exp $    *    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST   #undef LOOP   #undef COMPARISON
pike.git/src/interpret_functions.h:2103:    \    push_zeroes((new_frame->num_locals = (ptrdiff_t)addr[-2]) - args); \    \    DO_IF_DEBUG({ \    if(t_flag > 3) \    fprintf(stderr,"- Allocating %d extra locals.\n", \    new_frame->num_locals - new_frame->num_args); \    }); \    \    \ +  SET_PROG_COUNTER(addr); \    new_frame->fun=Pike_fp->fun; \    DO_IF_PROFILING( new_frame->ident=Pike_fp->ident ); \    new_frame->current_storage=Pike_fp->current_storage; \    if(Pike_fp->scope) add_ref(new_frame->scope=Pike_fp->scope); \    add_ref(new_frame->current_object=Pike_fp->current_object); \    new_frame->context=Pike_fp->context; \    add_ref(new_frame->context.prog); \    if(new_frame->context.parent) \    add_ref(new_frame->context.parent); \    Pike_fp=new_frame; \ -  SET_PROG_COUNTER(addr); \ +     new_frame->flags=PIKE_FRAME_RETURN_INTERNAL | XFLAGS; \    \    FETCH; \    DONE; \   }while(0)         /* Assume that the number of arguments is correct */   OPCODE1_JUMP(F_COND_RECUR, "recur if not overloaded", I_PC_AT_NEXT, {    PIKE_OPCODE_T *addr = (PIKE_OPCODE_T *)(((INT32 *)PROG_COUNTER) + 1);