max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

feat(library/compiler/name_mangling): new name mangling procedure that produces more readable output

Browse source
This commit is contained in:
Leonardo de Moura 2019-02-04 10:07:35 -08:00
parent 5b3f3178ae
commit 25ec21b498
3 changed files with 14 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/library/compiler/emit_cpp.cpp
View file

@ -812,14 +812,14 @@ static void emit_fns(std::ostream & out, environment const & env) {
static void emit_initialize(std::ostream & out, environment const & env, module_name const & m, list<module_name> const & deps) {
for (module_name const & d : deps) {
out << "void _l_initialize_" << mangle(d) << "();\n";
out << "void initialize_" << mangle(d, false) << "();\n";
}
out << "static bool _G_initialized = false;\n";
out << "void _l_initialize_" << mangle(m) << "() {\n";
out << "void initialize_" << mangle(m, false) << "() {\n";
out << " if (_G_initialized) return;\n";
out << " _G_initialized = true;\n";
for (module_name const & d : deps) {
out << " _l_initialize_" << mangle(d) << "();\n";
out << " initialize_" << mangle(d, false) << "();\n";
}
comp_decls ds = get_extension(env).m_code;
for (comp_decl const & d : ds) {

21
src/library/compiler/name_mangling.cpp
View file

@ -20,12 +20,12 @@ static std::string mangle(std::string const & s) {
} else if (c == '_') {
out += "__";
} else {
out += "_x";
out += "_x_";
out += ('0' + (c / 16));
out += ('0' + (c % 16));
}
} else {
out += "_u";
out += "_u_";
out += ('0' + (c / 4096));
c %= 4096;
out += ('0' + (c / 256));
@ -47,18 +47,17 @@ static void mangle(name const & n, std::string & out) {
out += "_";
} else {
lean_assert(n.is_string());
mangle(n.get_prefix(), out);
out += "_s";
std::string s = mangle(n.get_string().to_std_string());
unsigned len = s.size();
out += std::to_string(len);
out += "_";
out += s;
if (!n.get_prefix().is_anonymous()) {
mangle(n.get_prefix(), out);
out += "_";
}
out += mangle(n.get_string().to_std_string());
}
}
std::string mangle(name const & n) {
std::string out("_l");
std::string mangle(name const & n, bool add_prefix) {
std::string out;
if (add_prefix) out += "l_";
mangle(n, out);
return out;
}

2
src/library/compiler/name_mangling.h
View file

@ -8,5 +8,5 @@ Author: Leonardo de Moura
#include "util/name.h"
namespace lean {
std::string mangle(name const & n);
std::string mangle(name const & n, bool add_prefix = true);
}