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.135 2001/08/22 10:19:52 grubba Exp $"); + RCSID("$Id: main.c,v 1.136 2001/09/09 05:18:46 hubbe 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:785: Inside #if defined(DO_PIKE_CLEANUP)
   void cleanup_pike_types(void);    void cleanup_program(void);    void cleanup_compiler(void);    void free_all_mapping_blocks(void);    void free_all_object_blocks(void);    void free_all_program_blocks(void);    void exit_builtin(void);    void exit_iterators(void);    void exit_backend(void);    void cleanup_pike_type_table(void); +  void destruct_objects_to_destruct_cb(void);      #ifdef AUTO_BIGNUM    void exit_auto_bignum(void);    exit_auto_bignum();   #endif       exit_pike_searching();    th_cleanup();    exit_object();    exit_dynamic_load();
pike.git/src/main.c:867: Inside #if defined(DO_PIKE_CLEANUP) and #if defined(PIKE_DEBUG) && defined(DEBUG_MALLOC)
   fprintf(stderr,"Mappings left: %d (%d bytes) (zapped)\n",num,size);    }       zap_all_mappings();       count_memory_in_multisets(&num, &size);    if(num)    fprintf(stderr,"Multisets left: %d (%d bytes)\n",num,size);       +  destruct_objects_to_destruct_cb();    if(recount)    { -  +     fprintf(stderr,"Garbage collecting..\n");    do_gc();       count_memory_in_arrays(&num, &size);    fprintf(stderr,"Arrays left: %d (%d bytes)\n",num,size);    count_memory_in_mappings(&num, &size);    fprintf(stderr,"Mappings left: %d (%d bytes)\n",num,size);    count_memory_in_multisets(&num, &size);    fprintf(stderr,"Multisets left: %d (%d bytes)\n",num,size);    }
pike.git/src/main.c:914: Inside #if defined(DO_PIKE_CLEANUP), #if defined(PIKE_DEBUG) && defined(DEBUG_MALLOC) and #if defined(USE_PIKE_TYPE)
   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();    +  destruct_objects_to_destruct_cb();   #endif       really_clean_up_interpret();       cleanup_callbacks();    free_all_callable_blocks();    exit_destroy_called_mark_hash();       cleanup_pike_type_table();    cleanup_shared_string_table();