Branch: Tag:

2000-04-17

2000-04-17 21:06:24 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more gc() paranoia

Rev: src/block_alloc.h:1.19
Rev: src/error.c:1.49
Rev: src/gc.c:1.69
Rev: src/gc.h:1.32
Rev: src/interpret.c:1.142
Rev: src/object.c:1.112
Rev: src/pike_memory.c:1.66
Rev: src/svalue.c:1.69

20:   #include "threads.h"   #include "gc.h"    - RCSID("$Id: error.c,v 1.48 2000/04/17 04:55:45 hubbe Exp $"); + RCSID("$Id: error.c,v 1.49 2000/04/17 21:06:24 hubbe Exp $");      #undef ATTRIBUTE   #define ATTRIBUTE(X)
227:   {    ONERROR tmp;    SET_ONERROR(tmp,fatal_on_error,"Fatal in exit_on_error!"); +  d_flag=0;       fprintf(stderr,"%s\n",(char *)msg);   #ifdef PIKE_DEBUG
294:    (void)VFPRINTF(stderr, fmt, args);       d_flag=t_flag=0; -  push_error("Attempting to dump backlog (may fail).\n"); +  if(!Pike_sp) +  { +  fprintf(stderr,"Attempting to dump backlog (may fail)...\n"); +  push_error("Backtrace at time of fatal:\n");    APPLY_MASTER("describe_backtrace",1);    if(sp[-1].type==T_STRING)    write_to_stderr(sp[-1].u.string->str, sp[-1].u.string->len); -  +  }else{ +  fprintf(stderr,"No stack - no backtrace.\n"); +  }    fflush(stderr);    abort();   }