pike.git / src / error.c

version» Context lines:

pike.git/src/error.c:9:   #include "interpret.h"   #include "stralloc.h"   #include "builtin_functions.h"   #include "array.h"   #include "object.h"   #include "main.h"   #include "builtin_functions.h"   #include "backend.h"   #include "operators.h"    - RCSID("$Id: error.c,v 1.17 1998/04/13 14:19:40 grubba Exp $"); + RCSID("$Id: error.c,v 1.18 1998/04/16 21:30:50 hubbe Exp $");      #undef ATTRIBUTE   #define ATTRIBUTE(X)      JMP_BUF *recoveries=0;      JMP_BUF *init_recovery(JMP_BUF *r)   {    r->fp=fp;    r->sp=sp-evaluator_stack;
pike.git/src/error.c:57:   #endif       while(fp != recoveries->fp)    {   #ifdef DEBUG    if(!fp)    fatal("Popped out of stack frames.\n");   #endif    free_object(fp->current_object);    free_program(fp->context.prog); +  if(fp->context.parent) +  free_object(fp->context.parent);       fp = fp->parent_frame;    }       pop_n_elems(sp - evaluator_stack - recoveries->sp);    mark_sp = mark_stack + recoveries->mark_sp;       while(recoveries->onerror)    {    (*recoveries->onerror->func)(recoveries->onerror->arg);