Branch: Tag:

2000-04-19

2000-04-19 21:49:27 by Martin Stjernholm <mast@lysator.liu.se>

Cleaned up the fix a bit.

Rev: src/gc.c:1.73
Rev: src/object.c:1.115
Rev: src/object.h:1.43

29:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.72 2000/04/19 21:25:33 mast Exp $"); + RCSID("$Id: gc.c,v 1.73 2000/04/19 21:49:27 mast Exp $");      /* Run garbage collect approximate every time we have    * 20 percent of all arrays, objects and programs is
872:    if(Pike_in_gc) return;    Pike_in_gc=1;    +  /* Make sure there will be no callback to this while we're in the gc. */ +  destruct_objects_to_destruct(); +     if(gc_evaluator_callback)    {    remove_callback(gc_evaluator_callback);    gc_evaluator_callback=0;    }    -  remove_objects_to_destruct_callback(); -  +     tmp2=num_objects;      #ifdef PIKE_DEBUG