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.183 2002/05/31 22:41:24 nilsson Exp $"); + RCSID("$Id: gc.c,v 1.184 2002/06/11 17:30:38 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:799:    goto again;       case T_FUNCTION:    if(attempt_to_identify(a, 0) != T_OBJECT)    {    fprintf(stderr,"%*s**Builtin function!\n",indent,"");    break;    }    /* FALL THROUGH */    -  describe_object: +     case T_OBJECT:    p=((struct object *)a)->prog;    if(p && (p->flags & PROGRAM_USES_PARENT))    {    fprintf(stderr,"%*s**Parent identifier: %d\n",indent,"",PARENT_INFO( ((struct object *)a) )->parent_identifier);    }    fprintf(stderr,"%*s**Program id: %ld\n",indent,"",((struct object *)a)->program_id);       if (((struct object *)a)->next == ((struct object *)a))    fprintf(stderr, "%*s**The object is fake.\n",indent,"");