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.23 1997/08/30 18:35:41 grubba Exp $"); + RCSID("$Id: main.c,v 1.24 1997/10/27 09:59:22 hubbe Exp $");   #include "backend.h"   #include "module.h"   #include "object.h"   #include "lex.h"   #include "pike_types.h"   #include "builtin_functions.h"   #include "array.h"   #include "stralloc.h"   #include "interpret.h"   #include "error.h"
pike.git/src/main.c:249:       UNSETJMP(back);       backend();       push_int(0);    f_exit(1);   }       - void init_main(void) + void low_init_main(void)   {    th_init();    init_builtin_efuns();    init_signals();    init_dynamic_load();   }      void exit_main(void)   { -  +  cleanup_objects(); + } +  + void init_main(void) + { + } +  + void low_exit_main(void) + {    void cleanup_added_efuns(void);    void cleanup_pike_types(void);    void cleanup_program(void);       th_cleanup(); -  cleanup_objects(); +     exit_dynamic_load();    exit_signals();    exit_lex();    cleanup_interpret();    cleanup_added_efuns();    cleanup_pike_types();    cleanup_program();      #ifdef GC2    do_gc();   #endif       cleanup_callbacks();    zap_all_arrays();    zap_all_mappings();       cleanup_shared_string_table();   }