pike.git / src / main.c

version» Context lines:

pike.git/src/main.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: main.c,v 1.120 2001/03/28 18:34:51 grubba Exp $"); + RCSID("$Id: main.c,v 1.121 2001/03/29 20:23:08 grubba Exp $");   #include "fdlib.h"   #include "backend.h"   #include "module.h"   #include "object.h"   #include "language.h"   #include "lex.h"   #include "pike_types.h"   #include "builtin_functions.h"   #include "array.h"   #include "stralloc.h"
pike.git/src/main.c:763: Inside #if defined(DO_PIKE_CLEANUP) and #if defined(PIKE_DEBUG) && defined(DEBUG_MALLOC)
   count_memory_in_objects(&num, &size);    if(num)    fprintf(stderr,"Objects left: %d (%d bytes)\n",num,size);       {    struct object *o;    for(o=first_object;o;o=o->next)    describe_something(o, T_OBJECT, 0,2,0);    }    -  cleanup_shared_string_table(); + #ifdef USE_PIKE_TYPE +  count_memory_in_pike_types(&num, &size); +  if (num) +  fprintf(stderr, "Types left: %d (%d bytes)\n", num, size); +  describe_all_types(); + #endif /* USE_PIKE_TYPE */    }   #else       zap_all_arrays();    zap_all_mappings();    -  cleanup_shared_string_table(); +    #endif       really_clean_up_interpret();       cleanup_callbacks();    free_all_callable_blocks();    exit_destroy_called_mark_hash();    -  +  cleanup_pike_type_table(); +  cleanup_shared_string_table(); +     free_dynamic_load();    first_mapping=0;    free_all_mapping_blocks();    first_object=0;    free_all_object_blocks();   #endif   }