Branch: Tag:

2002-09-24

2002-09-24 13:08:09 by Martin Stjernholm <mast@lysator.liu.se>

Enable dump_backlog if the debug level is 1 or higher.

Rev: src/error.c:1.89

22:   #include "threads.h"   #include "gc.h"    - RCSID("$Id: error.c,v 1.88 2002/09/21 16:29:43 mast Exp $"); + RCSID("$Id: error.c,v 1.89 2002/09/24 13:08:09 mast Exp $");      #undef ATTRIBUTE   #define ATTRIBUTE(X)
210:    if(!Pike_interpreter.recoveries)    {   #ifdef PIKE_DEBUG +  if (d_flag) { +  fprintf(stderr,"No error recovery context!\n%s",buf);    dump_backlog(); -  +  }   #endif       fprintf(stderr,"No error recovery context!\n%s",buf);
242:    if(!Pike_interpreter.recoveries)    {   #ifdef PIKE_DEBUG +  if (d_flag) { +  fprintf(stderr,"No error recovery context!\n%s():%s",name,text);    dump_backlog(); -  +  }   #endif       fprintf(stderr,"No error recovery context!\n%s():%s",name,text);
294:    */    Pike_inhibit_errors = 1;    -  fprintf(stderr,"%s\n",(char *)msg); +    #ifdef PIKE_DEBUG -  +  if (d_flag) { +  fprintf(stderr,"%s\n",(char *)msg);    dump_backlog(); -  +  }   #endif    fprintf(stderr,"%s\n",(char *)msg);   #ifdef PIKE_DEBUG
333:    if (throw_severity == THROW_EXIT) return;      #ifdef PIKE_DEBUG +  if (d_flag) { +  fprintf(stderr,"%s\n",(char *)msg);    dump_backlog(); -  +  }   #endif    fprintf(stderr,"%s\n",(char *)msg);    do_abort();
363:    }       in_fatal = 1; - #if 0 +    #ifdef PIKE_DEBUG -  +  if (d_flag) { +  (void)VFPRINTF(stderr, fmt, args);    dump_backlog(); -  +  }   #endif - #endif +        if(Pike_in_gc)    fprintf(stderr,"Pike was in GC stage %d when this fatal occured:\n",Pike_in_gc);