michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(frontends/lean/class): missing explicit initialization/finalization

Browse source
This commit is contained in:
Leonardo de Moura 2014-09-24 09:17:18 -07:00
parent dbe1763b1a
commit 8466115665
1 changed files with 15 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
src/frontends/lean/class.cpp
View file

@ -79,18 +79,6 @@ struct class_config {
template class scoped_ext<class_config>;
typedef scoped_ext<class_config> class_ext;
void initialize_class() {
g_class_name = new name("class");
g_key = new std::string("class");
class_ext::initialize();
}
void finalize_class() {
class_ext::finalize();
delete g_key;
delete g_class_name;
}
static void check_class(environment const & env, name const & c_name) {
declaration c_d = env.get(c_name);
if (c_d.is_definition() && !c_d.is_opaque())
@ -110,11 +98,11 @@ environment add_class(environment const & env, name const & n, bool persistent)
return class_ext::add_entry(env, get_dummy_ios(), class_entry(n), persistent);
}
static name g_tmp_prefix = name::mk_internal_unique_name();
static name * g_tmp_prefix = nullptr;
environment add_instance(environment const & env, name const & n, bool persistent) {
declaration d = env.get(n);
expr type = d.get_type();
name_generator ngen(g_tmp_prefix);
name_generator ngen(*g_tmp_prefix);
auto tc = mk_type_checker(env, ngen, false);
while (true) {
type = tc->whnf(type).first;
@ -202,4 +190,17 @@ list<expr> get_local_instances(type_checker & tc, list<expr> const & ctx, name c
}
return to_list(buffer.begin(), buffer.end());
}
void initialize_class() {
g_tmp_prefix = new name(name::mk_internal_unique_name());
g_class_name = new name("class");
g_key = new std::string("class");
class_ext::initialize();
}
void finalize_class() {
class_ext::finalize();
delete g_key;
delete g_class_name;
delete g_tmp_prefix;
}
}