Branch: Tag:

2001-05-19

2001-05-19 05:30:18 by Martin Stjernholm <mast@lysator.liu.se>

Added some debug that hopefully can help catching a strange error
where Pike_in_gc is nonzero outside the gc.

Rev: src/gc.c:1.151

30:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.150 2001/04/18 17:34:19 mast Exp $"); + RCSID("$Id: gc.c,v 1.151 2001/05/19 05:30:18 mast Exp $");      /* Run garbage collect approximately every time    * 20 percent of all arrays, objects and programs is
1986: Inside #if defined(PIKE_DEBUG)
   hrtime_t gcstarttime = 0;   #endif    unsigned destroy_count, obj_count; +  ONERROR uwp;   #endif       if(Pike_in_gc) return 0;
1993: Inside #if defined(PIKE_DEBUG)
   Pike_in_gc=GC_PASS_PREPARE;   #ifdef PIKE_DEBUG    gc_debug = d_flag; +  SET_ONERROR(uwp, fatal_on_error, "Shouldn't get an exception inside the gc.\n");   #endif       destruct_objects_to_destruct();
2353:    num_allocs=0;      #ifdef PIKE_DEBUG +  UNSET_ONERROR (uwp);    if(GC_VERBOSE_DO(1 ||) t_flag)    {   #ifdef HAVE_GETHRTIME