2001-05-19
2001-05-19 05:30:18 by Martin Stjernholm <mast@lysator.liu.se>
-
0c8b8f2124e2a810a981e86ef92099804df77d7c
(6 lines)
(+5/-1)
[
Show
| Annotate
]
Branch: 7.9
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