Branch: Tag:

2000-04-16

2000-04-16 22:25:06 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more paranoia..

Rev: src/mapping.c:1.76

5:   \*/   /**/   #include "global.h" - RCSID("$Id: mapping.c,v 1.75 2000/04/16 22:11:34 hubbe Exp $"); + RCSID("$Id: mapping.c,v 1.76 2000/04/16 22:25:06 hubbe Exp $");   #include "main.h"   #include "object.h"   #include "mapping.h"
1723: Inside #if defined(PIKE_DEBUG)
      if(m->debug_size != md->size)    { +  if(Pike_in_gc) +  { +  fprintf(stderr,"Pike was in GC stage %d when this fatal occured:\n",Pike_in_gc); +  Pike_in_gc=0; +  } +     fprintf(stderr,"--MAPPING ZAPPING (%d!=%d), mapping:\n",m->debug_size,md->size);    describe(m);    fprintf(stderr,"--MAPPING ZAPPING (%d!=%d), mapping data:\n",m->debug_size,md->size);