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.175 2001/09/10 20:47:34 hubbe Exp $"); + RCSID("$Id: gc.c,v 1.176 2001/09/11 05:42:59 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:502:    fprintf(stderr, "%*s **In storage of object\n", indent, "");    break;       case T_MULTISET:    descblock = ((struct multiset *) memblock)->ind;    /* FALL THROUGH */    case T_ARRAY:    {    struct array *a=(struct array *)descblock;    struct svalue *s=(struct svalue *)location; +  +  if(location == (void *)&a->next) +  fprintf(stderr,"%*s **In a->next\n",indent,""); +  +  if(location == (void *)&a->prev) +  fprintf(stderr,"%*s **In a->prev\n",indent,""); +  +  if( s-ITEM(a) > 0)    fprintf(stderr,"%*s **In index number %"PRINTPTRDIFFT"d\n",indent,"",    s-ITEM(a));    break;    }       case T_MAPPING:    descblock = ((struct mapping *) memblock)->data;    /* FALL THROUGH */    case T_MAPPING_DATA: {    INT32 e;