pike.git / src / mapping.c

version» Context lines:

pike.git/src/mapping.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #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"   #include "svalue.h"   #include "array.h"   #include "pike_macros.h"   #include "language.h"   #include "error.h"   #include "pike_memory.h"   #include "dynamic_buffer.h"
pike.git/src/mapping.c:1716: Inside #if defined(PIKE_DEBUG)
   fatal("Mapping has no data block.\n");       if (!m->data->refs)    fatal("Mapping data block has zero refs.\n");       if(m->next && m->next->prev != m)    fatal("Mapping ->next->prev != mapping.\n");       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);    describe(md);    fatal("Mapping zapping detected (%d != %d)!\n",m->debug_size,md->size);    }       if(m->prev)    {    if(m->prev->next != m)