pike.git/ src/ gc.c

2000-04-27

2000-04-27 02:13:28 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• dfe8f3fca5dd333835a50693dfb3f76085aca375 (17 lines) (+10/-7) ^{[ Show | Annotate ]}
  Branch: 7.9

some gc() fixes

Rev: src/array.c:1.69
Rev: src/gc.c:1.82
Rev: src/gc.h:1.39
Rev: src/mapping.c:1.80
Rev: src/multiset.c:1.21
Rev: src/object.c:1.121
Rev: src/pike_memory.c:1.67
Rev: src/program.c:1.234

29:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.81 2000/04/26 12:13:56 mast Exp $"); + RCSID("$Id: gc.c,v 1.82 2000/04/27 02:13:28 hubbe Exp $");      /* Run garbage collect approximate every time we have    * 20 percent of all arrays, objects and programs is
218:    fprintf(stderr,"%*s **In p->inherits[%ld] (%s)\n",indent,"",    e,    p->inherits[e].name ? p->inherits[e].name->str : "no name"); -  return; +  break;    }       if(p->constants &&
229:    fprintf(stderr,"%*s **In p->constants[%ld] (%s)\n",indent,"",    e,    p->constants[e].name ? p->constants[e].name->str : "no name"); -  return; +  break;    }      
241:    fprintf(stderr,"%*s **In p->identifiers[%ld] (%s)\n",indent,"",    e,    p->identifiers[e].name ? p->identifiers[e].name->str : "no name"); -  return; +  break;    }      #define FOO(NTYP,TYP,NAME) \
250:    fprintf(stderr,"%*s **In p->" #NAME "[%ld]\n",indent,"",((long)ptr - (long)(p->NAME)) / sizeof(TYP));   #include "program_areas.h"    -  return; +  break;    }       case T_OBJECT:
302:       }    } -  return; +  break;    }       case T_ARRAY:
310:    struct array *a=(struct array *)memblock;    struct svalue *s=(struct svalue *)location;    fprintf(stderr,"%*s **In index %ld\n",indent,"",(long)(s-ITEM(a))); -  return; +  break;    }    } -  +  +  dmalloc_describe_location(memblock, location, indent);   }      static void gdb_gc_stop_here(void *a)