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.85 2000/06/12 13:51:59 mast Exp $"); + RCSID("$Id: mapping.c,v 1.86 2000/06/12 19:33:08 mast Exp $");   #include "main.h"   #include "object.h"   #include "mapping.h"   #include "svalue.h"   #include "array.h"   #include "pike_macros.h"   #include "error.h"   #include "pike_memory.h"   #include "dynamic_buffer.h"   #include "interpret.h"
pike.git/src/mapping.c:856:    {    check_destructed(& k->val);       if((k->ind.type == T_OBJECT || k->ind.type == T_FUNCTION) &&    !k->ind.u.object->prog)    {    debug_malloc_touch(md);    debug_malloc_touch(m);    PREPARE_FOR_INDEX_CHANGE2();    *prev=k->next; -  debug_gc_check_count_free(k->ind.u.refs); -  debug_gc_check_count_free(k->val.u.refs); +     free_svalue(& k->ind);    free_svalue(& k->val);    k->next=md->free_list;    md->free_list=k;    md->size--;   #ifdef PIKE_DEBUG    if(m->data ==md)    {    m->debug_size++;    debug_malloc_touch(m);