pike.git / src / gc.c

version» Context lines:

pike.git/src/gc.c:23:   #include "constants.h"   #include "interpret.h"   #include "bignum.h"      #include "gc.h"   #include "main.h"   #include <math.h>      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.172 2001/08/30 23:21:54 mast Exp $"); + RCSID("$Id: gc.c,v 1.173 2001/09/06 16:53:43 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:626:    weak ? "weak " : "",    found_where?found_where:"");    if (found_in) {    if (gc_svalue_location)    describe_location(found_in , found_in_type, gc_svalue_location,0,1,0);    else {    fputc('\n', stderr);    describe_something(found_in, found_in_type, 2, 0, DESCRIBE_MEM, 0);    }    } +  else +  fputc('\n', stderr);    fprintf(stderr,"----------end------------\n");   }      void debug_gc_xmark_svalues(struct svalue *s, ptrdiff_t num, char *fromwhere)   {    char *old_found_where = found_where;    if (fromwhere) found_where = fromwhere;    found_in=(void *) -1;    found_in_type=-1;    gc_xmark_svalues(s,num);    found_where=old_found_where;    found_in_type=PIKE_T_UNKNOWN;    found_in=0;   }    -  + void debug_gc_xmark_svalues2(struct svalue *s, ptrdiff_t num, +  int data_type, void *data, char *fromwhere) + { +  char *old_found_where = found_where; +  if (fromwhere) found_where = fromwhere; +  found_in=data; +  found_in_type=data_type; +  gc_xmark_svalues(s,num); +  found_where=old_found_where; +  found_in_type=PIKE_T_UNKNOWN; +  found_in=0; + } +    void debug_gc_check_svalues2(struct svalue *s, ptrdiff_t num,    int data_type, void *data, char *fromwhere)   {    char *old_found_where = found_where;    if (fromwhere) found_where = fromwhere;    found_in=data;    found_in_type=data_type;    gc_check_svalues(s,num);    found_where=old_found_where;    found_in_type=PIKE_T_UNKNOWN;