Branch: Tag:

2004-09-27

2004-09-27 21:37:13 by Martin Stjernholm <mast@lysator.liu.se>

Fixed --with-cleanup-on-exit to work without rtldebug.

Rev: src/array.h:1.62
Rev: src/dmalloc.h:1.52
Rev: src/gc.c:1.254
Rev: src/gc.h:1.113
Rev: src/main.c:1.203
Rev: src/mapping.h:1.56
Rev: src/multiset.h:1.36
Rev: src/object.h:1.86
Rev: src/pike_memory.c:1.152
Rev: src/program.h:1.204
Rev: src/stralloc.c:1.166
Rev: src/stralloc.h:1.82

2:   || 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: stralloc.c,v 1.165 2004/04/15 17:34:40 mast Exp $ + || $Id: stralloc.c,v 1.166 2004/09/27 21:37:13 mast Exp $   */      #include "global.h"
24:   #include <ctype.h>   #include <math.h>    - RCSID("$Id: stralloc.c,v 1.165 2004/04/15 17:34:40 mast Exp $"); + RCSID("$Id: stralloc.c,v 1.166 2004/09/27 21:37:13 mast Exp $");      /* #define STRALLOC_USE_PRIMES */   
1820:    empty_pike_string = make_shared_string("");   }    - #ifdef DEBUG_MALLOC + #ifdef DO_PIKE_CLEANUP   struct shared_string_location *all_shared_string_locations;   #endif   
1835:    empty_pike_string = 0;    }    - #if defined(PIKE_DEBUG) && defined(DEBUG_MALLOC) + #ifdef DO_PIKE_CLEANUP    while(all_shared_string_locations)    {    struct shared_string_location *x=all_shared_string_locations;
1844: Inside #if defined(PIKE_DEBUG) && defined(DEBUG_MALLOC)
   x->s=0;    }    -  if(verbose_debug_exit) +  if (exit_with_cleanup)    {    INT32 num,size;    count_memory_in_strings(&num,&size);    if(num)    {    fprintf(stderr,"Strings left: %d (%d bytes) (zapped)\n",num,size); -  + #ifdef PIKE_DEBUG    dump_stralloc_strings(); -  + #endif    }    }   #endif