pike.git/ src/ gc.c

2001-06-11

2001-06-11 19:58:29 by Martin Stjernholm <mast@lysator.liu.se>

• da49a2946f2d08c615647beffc04393941325fcb (11 lines) (+5/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed potential bug when gc'ing arrays due to the two new empty_array
variants. Fixed incorrect debug checks that sometimes could cause a "Pike
code called within gc" fatal.

Rev: src/gc.c:1.153
Rev: src/interpret.c:1.206
Rev: src/object.c:1.170

30:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.152 2001/06/06 02:22:39 mast Exp $"); + RCSID("$Id: gc.c,v 1.153 2001/06/11 19:58:28 mast Exp $");      /* Run garbage collect approximately every time    * 20 percent of all arrays, objects and programs is
2206:    }       /* Add an extra reference to the stuff gc_internal_* point to, so we -  * know they're still around when gc_free_all_unreferenced_* is +  * know they're still around when gc_free_all_unreferenced_* are    * about to be called. */ -  if (gc_internal_array != &empty_array) add_ref(gc_internal_array); +  if (gc_internal_array != &weak_empty_array) add_ref(gc_internal_array);    if (gc_internal_multiset) add_ref(gc_internal_multiset);    if (gc_internal_mapping) add_ref(gc_internal_mapping);    if (gc_internal_program) add_ref(gc_internal_program);
2226:    /* Now we free the unused stuff. The extra refs to gc_internal_*    * added above are removed just before the calls so we'll get the    * correct relative positions in them. */ -  if (gc_internal_array != &empty_array) { +  if (gc_internal_array != &weak_empty_array) {    FREE_AND_GET_REFERENCED(gc_internal_array, struct array, free_array);    gc_free_all_unreferenced_arrays();    }
2260:    if(fatal_after_gc) fatal("%s", fatal_after_gc);   #endif    -  /* Pike code may run again now. */ -  +     Pike_in_gc=GC_PASS_KILL;    /* Destruct the live objects in cycles, but first warn about any bad    * cycles. */