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

fix: leaks

Browse source
This commit is contained in:
Sebastian Ullrich 2019-12-22 14:45:49 +01:00 • committed by Leonardo de Moura
parent f171404530
commit a2d668ec99
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Init/Lean/Compiler/IR/CtorLayout.lean
View file

@ -36,7 +36,7 @@ structure CtorLayout :=
(scalarSize : Nat)
@[extern "lean_ir_get_ctor_layout"]
constant getCtorLayout (env : Environment) (ctorName : Name) : Except String CtorLayout := arbitrary _
constant getCtorLayout (env : @& Environment) (ctorName : @& Name) : Except String CtorLayout := arbitrary _
end IR
end Lean

4
src/library/compiler/ir_interpreter.cpp
View file

@ -838,8 +838,8 @@ public:
for (unsigned i = 0; i < arity; i++) {
m_arg_stack.push_back(args[i]);
}
push_frame(e.m_decl, 0);
r = eval_body(decl_fun_body(e.m_decl)).m_obj;
push_frame(d, 0);
r = eval_body(decl_fun_body(d)).m_obj;
if (n > arity) {
// `fn` returned a closure
r = apply_n(r, n - arity, &args[arity]);