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.179 2001/01/10 19:56:37 mast Exp $"); + RCSID("$Id: interpret.c,v 1.180 2001/01/11 23:28:30 mast 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:747:    fprintf(stderr," %ld, %ld\n",    DO_NOT_WARN((long)backlog[e].stack),    DO_NOT_WARN((long)backlog[e].mark_stack));    }    }while(e!=backlogp);   }      #endif   static int o_catch(unsigned char *pc);    + struct light_frame_info + { +  struct svalue *expendible; +  struct svalue *locals; + }; +  + static void restore_light_frame_info(struct light_frame_info *info) + { +  Pike_fp->expendible = info->expendible; +  Pike_fp->locals = info->locals; + } +    #ifdef PIKE_DEBUG   #define EVAL_INSTR_RET_CHECK(x) \    if (x == -2) \    fatal("Return value -2 from eval_instruction is not handled here.\n"\    "Probable cause: F_ESCAPE_CATCH outside catch block.\n")   #else   #define EVAL_INSTR_RET_CHECK(x)   #endif      #ifdef PIKE_DEBUG