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.87 2000/06/10 19:20:40 mast Exp $"); + RCSID("$Id: gc.c,v 1.88 2000/06/10 23:20:47 mast 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:1170: Inside #if defined(GC_CYCLE_DEBUG)
   gc_cycle_indent -= 2;    fprintf(stderr, "%*sgc_cycle_push, unwinding: "    "%8p, ", gc_cycle_indent, "", gc_rec_last->data);    describe_marker(gc_rec_last);   #endif    gc_rec_last = (struct marker *)    dequeue_lifo(&gc_mark_queue, (queue_call) gc_set_rec_last);   #ifdef PIKE_DEBUG    if (!gc_rec_last)    fatal("Expected a gc_set_rec_last entry in gc_mark_queue.\n"); -  gc_rec_last->link = (struct marker *) -1; +    #endif    } while (gc_rec_last->flags & GC_LIVE_RECURSE); -  if (!dequeue_lifo(&gc_mark_queue, -  (queue_call) gc_cycle_pop_object)) { +  if (!dequeue_lifo(&gc_mark_queue, (queue_call) gc_cycle_pop_object)) {   #ifdef PIKE_DEBUG    fatal("Expected a gc_cycle_pop_object entry in gc_mark_queue.\n");   #endif    } -  gc_rec_last->link = 0; +     }       return 0;    }       if (!(gc_rec_last->flags & GC_RECURSING))    /* The upward thing has been removed from rec_list, so we should    * ignore it and not do any recursion from it. */    return 0;