pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| 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.245 2001/08/30 18:30:41 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.246 2001/08/30 22:36:12 hubbe 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:1227:       if(save_sp+1 > Pike_sp)    {    if(type != APPLY_SVALUE_STRICT)    push_int(0);    }else{    if(save_sp+1 < Pike_sp)    {    assign_svalue(save_sp,Pike_sp-1);    pop_n_elems(Pike_sp-save_sp-1); -  +     low_destruct_objects_to_destruct(); /* consider using a flag for immediate destruct instead... */ -  +     }    if(t_flag>1) trace_return_value();    }    return 0;   }            #define low_return_profiling()   
pike.git/src/interpret.c:1274:    ) \    \    Pike_mark_sp=Pike_fp->save_mark_sp; \    \    POP_PIKE_FRAME()         void low_return(void)   {    basic_low_return(); +  if(save_sp+1 > Pike_sp) +  { +  push_int(0); +  }else{    if(save_sp+1 < Pike_sp)    {    assign_svalue(save_sp,Pike_sp-1);    pop_n_elems(Pike_sp-save_sp-1);       /* consider using a flag for immediate destruct instead... */    destruct_objects_to_destruct();    } -  else if(save_sp+1 > Pike_sp) -  { -  push_int(0); -  }else{ +     if(t_flag>1) trace_return_value();    }   }      void low_return_pop(void)   {    basic_low_return();       if(save_sp < Pike_sp)    {