pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*\   ||| This file is part of Pike. For copyright information see COPYRIGHT.   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.258 2002/05/10 22:28:28 mast Exp $"); + RCSID("$Id: interpret.c,v 1.259 2002/05/10 23:41:57 nilsson Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:1361:    current->flags=prev->flags;    POP_PIKE_FRAME();       prev=current->next=Pike_interpreter.frame_pointer;    Pike_interpreter.frame_pointer=current;       current->save_sp=target;    current->save_mark_sp=smsp;       /* Move svalues down */ -  freespace=fp->locals - target; -  if(freespace > ((Pike_sp - fp->locals)<<2) + 32) +  freespace=Pike_fp->locals - target; +  if(freespace > ((Pike_sp - Pike_fp->locals)<<2) + 32)    {    assign_svalues(target, -  fp->locals, -  Pike_sp - fp->locals, +  Pike_fp->locals, +  Pike_sp - Pike_fp->locals,    BIT_MIXED);    -  fp->locals-=freespace; -  fp->expendible-=freespace; +  Pike_fp->locals-=freespace; +  Pike_fp->expendible-=freespace;    pop_n_elems(freespace);    }       /* Move pointers down */ -  freespace=fp->mark_sp_base - smsp; -  if(freespace > ((Pike_mark_sp - fp->mark_sp_base)<<2)+32) +  freespace=Pike_fp->mark_sp_base - smsp; +  if(freespace > ((Pike_mark_sp - Pike_fp->mark_sp_base)<<2)+32)    {    MEMMOVE(smsp, -  fp->mark_sp_base, -  sizeof(struct svalue **)*(Pike_mark_sp - fp->mark_sp_base)); -  fp->mark_sp_base-=freespace; +  Pike_fp->mark_sp_base, +  sizeof(struct svalue **)*(Pike_mark_sp - Pike_fp->mark_sp_base)); +  Pike_fp->mark_sp_base-=freespace;    Pike_mark_sp-=freespace;    }   }         void mega_apply(enum apply_type type, INT32 args, void *arg1, void *arg2)   {    check_c_stack(8192);    if(low_mega_apply(type, args, arg1, arg2))    {