Branch: Tag:

2000-04-15

2000-04-15 05:05:28 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more and better debug, some cleanup in gc()

Rev: src/dmalloc.h:1.25
Rev: src/gc.c:1.65
Rev: src/gc.h:1.29
Rev: src/interpreter.h:1.37
Rev: src/las.c:1.175
Rev: src/main.c:1.89
Rev: src/mapping.c:1.73
Rev: src/object.c:1.109
Rev: src/pike_macros.h:1.15
Rev: src/pike_memory.c:1.65
Rev: src/program.c:1.226
Rev: src/stralloc.c:1.82
Rev: src/svalue.h:1.51
Rev: src/threads.c:1.119
Rev: src/threads.h:1.81

5:   \*/   /**/   #include "global.h" - RCSID("$Id: mapping.c,v 1.72 2000/04/12 18:40:12 hubbe Exp $"); + RCSID("$Id: mapping.c,v 1.73 2000/04/15 05:05:28 hubbe Exp $");   #include "main.h"   #include "object.h"   #include "mapping.h"
1707: Inside #if defined(PIKE_DEBUG)
   fatal("Mapping ->next->prev != mapping.\n");       if(m->debug_size != md->size) -  fatal("Mapping zapping detected!\n"); +  { +  fprintf(stderr,"--MAPPING ZAPPING, mapping:\n"); +  describe(m); +  fprintf(stderr,"--MAPPING ZAPPING, mapping data:\n"); +  describe(md); +  fatal("Mapping zapping detected (%d != %d)!\n",m->debug_size,md->size); +  }       if(m->prev)    {
1858: Inside #if defined(DEBUG_MALLOC)
  #ifdef DEBUG_MALLOC    if (((int)m->data) == 0x55555555) {    fprintf(stderr, "** Zapped mapping in list of active mappings!\n"); -  describe_something(m, T_MAPPING, 1); +  describe_something(m, T_MAPPING, 0,2,0);    fatal("Zapped mapping in list of active mappings!\n");    }   #endif /* DEBUG_MALLOC */