pike.git / src / gc.c

version» Context lines:

pike.git/src/gc.c:22:   #include "time_stuff.h"   #include "constants.h"   #include "interpret.h"      #include "gc.h"   #include "main.h"   #include <math.h>      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.96 2000/06/12 23:00:31 mast Exp $"); + RCSID("$Id: gc.c,v 1.97 2000/06/16 23:43:49 hubbe Exp $");      /* Run garbage collect approximately every time    * 20 percent of all arrays, objects and programs is    * garbage.    */      #define GC_CONST 20   #define MIN_ALLOC_THRESHOLD 1000   #define MAX_ALLOC_THRESHOLD 10000000   #define MULTIPLIER 0.9
pike.git/src/gc.c:1118: Inside #if defined(PIKE_DEBUG)
   for(o = gc_internal_object; o; o = o->next)    if(o == (struct object *) x) goto on_gc_internal_lists;    for(p = gc_internal_program; p; p = p->next)    if(p == (struct program *) x) goto on_gc_internal_lists;    for(m = gc_internal_mapping; m; m = m->next)    if(m == (struct mapping *) x) goto on_gc_internal_lists;    for(l = gc_internal_multiset; l; l = l->next)    if(l == (struct multiset *) x) goto on_gc_internal_lists;    gc_fatal(x, 0, "gc_cycle_check() called for thing not on gc_internal lists.\n");    on_gc_internal_lists: +  ; /* We must have a least one expression after a label! - Hubbe */    }   #endif       if (gc_rec_last->flags & GC_LIVE_RECURSE) {   #ifdef PIKE_DEBUG    if (!(gc_rec_last->flags & GC_LIVE))    gc_fatal(x, 0, "Doing live recursion from a dead thing.\n");   #endif       if (m->flags & GC_CYCLE_CHECKED) {