pike.git / src / mapping.c

version» Context lines:

pike.git/src/mapping.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: mapping.c,v 1.157 2002/12/01 00:16:54 mast Exp $ + || $Id: mapping.c,v 1.158 2003/02/01 15:37:23 mast Exp $   */      #include "global.h" - RCSID("$Id: mapping.c,v 1.157 2002/12/01 00:16:54 mast Exp $"); + RCSID("$Id: mapping.c,v 1.158 2003/02/01 15:37:23 mast Exp $");   #include "main.h"   #include "object.h"   #include "mapping.h"   #include "svalue.h"   #include "array.h"   #include "pike_macros.h"   #include "pike_error.h"   #include "pike_memory.h"   #include "dynamic_buffer.h"   #include "interpret.h"
pike.git/src/mapping.c:2312:    debug_gc_check_weak_svalues(&k->ind, 1, T_MAPPING, m);    debug_gc_check_weak_svalues(&k->val, 1, T_MAPPING, m);    }    break;    }    gc_checked_as_weak(md);    }    }   }    - #ifdef PIKE_DEBUG +    unsigned gc_touch_all_mappings(void)   {    unsigned n = 0;    struct mapping *m;    if (first_mapping && first_mapping->prev)    Pike_fatal("Error in mapping link list.\n");    for (m = first_mapping; m; m = m->next) {    debug_gc_touch(m);    n++;    if (m->next && m->next->prev != m)    Pike_fatal("Error in mapping link list.\n");    }    return n;   } - #endif +       void gc_check_all_mappings(void)   {    struct mapping *m;       for(m=first_mapping;m;m=m->next)    {   #ifdef DEBUG_MALLOC    if (((int)m->data) == 0x55555555) {    fprintf(stderr, "** Zapped mapping in list of active mappings!\n");