Branch: Tag:

2000-04-16

2000-04-16 22:10:31 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

fix for fatal in gc() (I hope)

Rev: src/error.c:1.46

20:   #include "threads.h"   #include "gc.h"    - RCSID("$Id: error.c,v 1.45 2000/04/12 18:40:12 hubbe Exp $"); + RCSID("$Id: error.c,v 1.46 2000/04/16 22:10:31 hubbe Exp $");      #undef ATTRIBUTE   #define ATTRIBUTE(X)
273:    (void)VFPRINTF(stderr, fmt, args);    abort();    } +     in_fatal = 1;   #ifdef PIKE_DEBUG    dump_backlog();   #endif    -  +  { +  extern int Pike_in_gc; +  if(Pike_in_gc) +  { +  fprintf(stderr,"Pike was in GC stage %d when this fatal occured:\n",Pike_in_gc); +  Pike_in_gc=0; +  } +     (void)VFPRINTF(stderr, fmt, args);       d_flag=t_flag=0;