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.47 2000/02/02 22:57:09 hubbe Exp $"); + RCSID("$Id: gc.c,v 1.48 2000/02/22 21:28:52 hubbe Exp $");      /* Run garbage collect approximate every time we have    * 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:561:    return 1;    }   }      #ifdef PIKE_DEBUG   int debug_gc_do_free(void *a)   {    struct marker *m;    m=get_marker(a);    -  if( !(m->flags & GC_REFERENCED) && m->flags & GC_XREFERENCED ) +  if( !(m->flags & GC_REFERENCED) && (m->flags & GC_XREFERENCED))    {    INT32 refs=m->refs;    INT32 xrefs=m->xrefs;    TYPE_T t=attempt_to_identify(a);       fprintf(stderr,"**gc_is_referenced failed, object has %ld references, while gc() found %ld + %ld external.\n",(long)*(INT32 *)a,(long)refs,(long)xrefs);    describe_something(a, t, 1);       locate_references(a);