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 under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: interpret.c,v 1.392 2008/03/29 02:53:26 mast Exp $ + || $Id: interpret.c,v 1.393 2008/03/29 16:14:46 mast Exp $   */      #include "global.h"   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"
pike.git/src/interpret.c:2020:    add_ref (o);   #endif       basic_low_return (save_sp);    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); +  stack_pop_n_elems_keep_top (Pike_sp - save_sp - 1);       /* consider using a flag for immediate destruct instead... */    destruct_objects_to_destruct();    }    }       if(trace_level>1)    do_trace_func_return (1, o, fun);      #if defined (PIKE_USE_MACHINE_CODE) && defined (OPCODE_RETURN_JUMPADDR)