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.157 2003/09/23 17:36:36 grubba Exp $ + || $Id: interpret_functions.h,v 1.158 2003/10/01 15:07:01 grubba Exp $   */      /*    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST
pike.git/src/interpret_functions.h:2222:    new_frame->num_args = new_frame->args = args; \    new_frame->locals=new_frame->save_sp=new_frame->expendible=Pike_sp-args; \    new_frame->save_mark_sp = new_frame->mark_sp_base = Pike_mark_sp; \    \    push_zeroes(new_frame->num_locals - args); \    \    DO_IF_DEBUG({ \    if(Pike_interpreter.trace_level > 3) \    fprintf(stderr,"- Allocating %d extra locals.\n", \    new_frame->num_locals - new_frame->num_args); \ +  if (Pike_fp && (new_frame->locals < Pike_fp->locals)) { \ +  fatal("New locals below old locals: %p < %p\n", \ +  new_frame->locals, Pike_fp->locals); \ +  } \    }); \    \    \    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; \