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

fix(library/compiler/extern_attribute): register extern constructors in the new IR compiler

Browse source
This commit is contained in:
Leonardo de Moura 2019-05-21 08:08:28 -07:00
parent 4ed803c564
commit dbe2bebc06
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/library/compiler/extern_attribute.cpp
View file

@ -13,6 +13,7 @@ Authors: Leonardo de Moura
#include "library/attribute_manager.h"
#include "library/compiler/borrowed_annotation.h"
#include "library/compiler/util.h"
#include "library/compiler/ir.h"
#include "library/compiler/extern_attribute.h"
namespace lean {
@ -317,8 +318,16 @@ optional<expr> get_extern_constant_ll_type(environment const & env, name const &
void initialize_extern_attribute() {
g_all = new name("all");
register_system_attribute(extern_attr("extern", "builtin and foreign functions",
[](environment const & env, io_state const &, name const &, unsigned, bool persistent) {
[](environment const & env, io_state const &, name const & n, unsigned, bool persistent) {
if (!persistent) throw exception("invalid [extern] attribute, it must be persistent");
if (optional<constant_info> cinfo = env.find(n)) {
if (cinfo->is_constructor()) {
/* Hack: we can mark constructors as `extern`.
The compiler is not invoked for constructors. So, we
register them in the IR here. */
return ir::add_extern(env, n);
}
}
return env;
}));
}

1
src/library/compiler/ir.cpp
View file

@ -472,7 +472,6 @@ public:
/* Convert extern constant into a IR.Decl */
ir::decl operator()(name const & fn) {
lean_assert(is_extern_constant(env(), fn));
buffer<bool> borrow; bool dummy;
get_extern_borrowed_info(env(), fn, borrow, dummy);
buffer<ir::param> xs;