pike.git / src / error.c

version» Context lines:

pike.git/src/error.c:4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h"   #include "pike_macros.h"   #include "error.h"   #include "interpret.h"   #include "stralloc.h"   #include "builtin_functions.h"   #include "array.h"   #include "object.h" + #include "main.h"      #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:27:    recoveries=r;    return r;   }      void throw(void) ATTRIBUTE((noreturn))   {    if(!recoveries)    fatal("No error recovery context.\n");      #ifdef DEBUG +  if (t_flag) { +  fprintf(stderr, "throw(X)\n"); +  }    if(sp - evaluator_stack < recoveries->sp)    fatal("Stack error in error.\n"); - #endif + #endif /* DEBUG */       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);