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.69 1999/04/08 23:54:29 hubbe Exp $"); + RCSID("$Id: main.c,v 1.70 1999/04/12 02:24:15 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:498:    init_pike_security();    th_init();    init_operators();    init_builtin_efuns();    init_signals();    init_dynamic_load();   }      void exit_main(void)   { + #ifdef DO_PIKE_CLEANUP    cleanup_objects(); -  + #endif   }      void init_main(void)   {   }      void low_exit_main(void)   { -  + #ifdef DO_PIKE_CLEANUP    void cleanup_added_efuns(void);    void cleanup_pike_types(void);    void cleanup_program(void);    void cleanup_compiler(void);    void cleanup_backend(void);       th_cleanup();    exit_object();    exit_dynamic_load();    exit_signals();
pike.git/src/main.c:604:    }   #else       zap_all_arrays();    zap_all_mappings();       cleanup_shared_string_table();   #endif       really_clean_up_interpret(); - #ifdef DO_PIKE_CLEANUP +     cleanup_callbacks();    free_all_callable_blocks();    exit_destroy_called_mark_hash();   #endif   }