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

fix(library/compiler/erase_irrelevant): erase types of irrelevant lambdas

Browse source 
This modification makes sure we do not create unnecessary closures,
and avoid artificial dependencies that may prevent destructive updates.
This commit is contained in:
Leonardo de Moura 2017-03-08 14:48:00 -08:00
parent 7a99d87cbd
commit ceeb77ec8c
1 changed files with 32 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
src/library/compiler/erase_irrelevant.cpp
View file

@ -98,17 +98,46 @@ class erase_irrelevant_fn : public compiler_step_visitor {
return *g_neutral_expr;
}
expr erase_lambda_let_types(expr const & e) {
static bool is_irrelevant_lambda_let_body(expr e) {
while (true) {
if (is_lambda(e))
e = binding_body(e);
else if (is_let(e))
e = let_body(e);
else
return is_neutral_expr(e);
}
}
expr erase_lambda_let_types_when_relevant(expr const & e) {
if (is_lambda(e)) {
return copy_tag(e, mk_lambda(binding_name(e), erase_type(binding_domain(e)),
erase_lambda_let_types(binding_body(e))));
erase_lambda_let_types_when_relevant(binding_body(e))));
} else if (is_let(e)) {
return mk_let(let_name(e), erase_type(let_type(e)), let_value(e), erase_lambda_let_types(let_body(e)));
return mk_let(let_name(e), erase_type(let_type(e)), let_value(e), erase_lambda_let_types_when_relevant(let_body(e)));
} else {
return e;
}
}
expr erase_lambda_let_types_when_irrelevant(expr const & e) {
if (is_lambda(e)) {
return copy_tag(e, mk_lambda(binding_name(e), mk_neutral_expr(),
erase_lambda_let_types_when_irrelevant(binding_body(e))));
} else if (is_let(e)) {
return erase_lambda_let_types_when_irrelevant(let_body(e));
} else {
return e;
}
}
expr erase_lambda_let_types(expr const & e) {
if (is_irrelevant_lambda_let_body(e))
return erase_lambda_let_types_when_irrelevant(e);
else
return erase_lambda_let_types_when_relevant(e);
}
virtual expr visit_lambda(expr const & e) override {
return erase_lambda_let_types(compiler_step_visitor::visit_lambda(e));
}