lean4-htt/src/init/init.cpp
2019-05-13 12:41:33 -07:00

92 lines
2.9 KiB
C++

/*
Copyright (c) 2014 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Author: Leonardo de Moura
*/
#include "runtime/stackinfo.h"
#include "runtime/thread.h"
#include "runtime/init_module.h"
#include "util/init_module.h"
#include "util/sexpr/init_module.h"
#include "kernel/init_module.h"
#include "library/init_module.h"
#include "library/tactic/init_module.h"
#include "library/constructions/init_module.h"
#include "library/equations_compiler/init_module.h"
#include "library/print.h"
#include "library/compiler/init_module.h"
#include "frontends/lean/init_module.h"
#include "init/init.h"
lean::object* initialize_init_default(lean::object* w);
lean::object* initialize_init_lean_default(lean::object* w);
namespace lean {
void initialize() {
save_stack_info();
initialize_util_module();
object * w = initialize_init_default(io_mk_world());
w = initialize_init_lean_default(w);
if (io_result_is_error(w)) {
io_result_show_error(w);
dec(w);
throw exception("initialization failed");
} else {
dec(w);
}
initialize_sexpr_module();
initialize_kernel_module();
init_default_print_fn();
initialize_library_core_module();
initialize_library_module();
initialize_compiler_module();
initialize_tactic_module();
initialize_constructions_module();
initialize_equations_compiler_module();
initialize_frontend_lean_module();
}
void finalize() {
#ifdef LEAN_TRACK_CUSTOM_ALLOCATORS
std::cerr << "memory deallocated by memory_pool (before finalization): " << get_memory_deallocated() << "\n";
#endif
#ifdef LEAN_TRACK_LIVE_EXPRS
std::cerr << "number of live expressions (before finalization): " << get_num_live_exprs() << "\n";
#endif
run_thread_finalizers();
finalize_frontend_lean_module();
finalize_equations_compiler_module();
finalize_constructions_module();
finalize_tactic_module();
finalize_compiler_module();
finalize_library_module();
finalize_library_core_module();
finalize_kernel_module();
finalize_sexpr_module();
finalize_util_module();
run_post_thread_finalizers();
#ifdef LEAN_TRACK_CUSTOM_ALLOCATORS
std::cerr << "memory deallocated by memory_pool (after finalization): " << get_memory_deallocated() << "\n";
#endif
#ifdef LEAN_TRACK_LIVE_EXPRS
std::cerr << "number of live expressions (after finalization): " << get_num_live_exprs() << "\n";
#endif
delete_thread_finalizer_manager();
#ifdef LEAN_TRACK_CUSTOM_ALLOCATORS
std::cerr << "memory deallocated by memory_pool (after thread finalization): " << get_memory_deallocated() << "\n";
#endif
#ifdef LEAN_TRACK_LIVE_EXPRS
std::cerr << "number of live expressions (after thread finalization): " << get_num_live_exprs() << "\n";
#endif
}
initializer::initializer() {
initialize();
lean::io_mark_end_initialization();
}
initializer::~initializer() {
finalize();
}
}