52b1b342ab
This PR implements zero cost `BaseIO` by erasing the `IO.RealWorld` parameter from argument lists and structures. This is a **major breaking change for FFI**. Concretely: - `BaseIO` is defined in terms of `ST IO.RealWorld` - `EIO` (and thus `IO`) is defined in terms of `EST IO.RealWorld` - The opaque `Void` type is introduced and the trivial structure optimization updated to account for it. Furthermore, arguments of type `Void s` are removed from the argument lists of the C functions. - `ST` is redefined as `Void s -> ST.Out s a` where `ST.Out` is a pair of `Void s` and `a` This together has the following major effects on our generated code: - Functions that return `BaseIO`/`ST`/`EIO`/`IO`/`EST` now do not take the dummy world parameter anymore. To account for this FFI code needs to delete the dummy world parameter from the argument lists. - Functions that return `BaseIO`/`ST` now return their wrapped value directly. In particular `BaseIO UInt32` now returns a `uint32_t` instead of a `lean_object*`. To account for this FFI code might have to change the return type and does not need to call `lean_io_result_mk_ok` anymore but can instead just `return` values right away (same with extracting values from `BaseIO` computations. - Functions that return `EIO`/`IO`/`EST` now only return the equivalent of an `Except` node which reduces the allocation size. The `lean_io_result_mk_ok`/`lean_io_result_mk_error` functions were updated to account for this already so no change is required. Besides improving performance by dropping allocation (sizes) we can now also do fun new things such as: ```lean @[extern "malloc"] opaque malloc (size : USize) : BaseIO USize ```
57 lines
1.9 KiB
Text
57 lines
1.9 KiB
Text
import Lean
|
|
|
|
inductive MyEmpty
|
|
|
|
def f (x : MyEmpty) : Nat :=
|
|
MyEmpty.casesOn _ x
|
|
|
|
set_option trace.Compiler.result true
|
|
/--
|
|
trace: [Compiler.result] size: 0
|
|
def f x : Nat :=
|
|
⊥
|
|
---
|
|
trace: [Compiler.result] size: 5
|
|
def _private.lean.run.emptyLcnf.0._eval._lam_0 _x.1 _x.2 _y.3 _y.4 _y.5 _y.6 _y.7 _y.8 _y.9 : EST.Out Lean.Exception
|
|
lcAny PUnit :=
|
|
let _x.10 := Lean.Compiler.compile _x.1 _y.7 _y.8 _y.9;
|
|
cases _x.10 : EST.Out Lean.Exception lcAny PUnit
|
|
| EST.Out.ok a.11 a.12 =>
|
|
let _x.13 := @EST.Out.ok ◾ ◾ ◾ _x.2 a.12;
|
|
return _x.13
|
|
| EST.Out.error a.14 a.15 =>
|
|
return _x.10
|
|
[Compiler.result] size: 1
|
|
def _private.lean.run.emptyLcnf.0._eval._closed_0 : String :=
|
|
let _x.1 := "f";
|
|
return _x.1
|
|
[Compiler.result] size: 2
|
|
def _private.lean.run.emptyLcnf.0._eval._closed_1 : Lean.Name :=
|
|
let _x.1 := _eval._closed_0.2;
|
|
let _x.2 := Lean.Name.mkStr1 _x.1;
|
|
return _x.2
|
|
[Compiler.result] size: 2
|
|
def _private.lean.run.emptyLcnf.0._eval._closed_2 : Array Lean.Name :=
|
|
let _x.1 := 1;
|
|
let _x.2 := Array.mkEmpty ◾ _x.1;
|
|
return _x.2
|
|
[Compiler.result] size: 3
|
|
def _private.lean.run.emptyLcnf.0._eval._closed_3 : Array Lean.Name :=
|
|
let _x.1 := _eval._closed_1.2;
|
|
let _x.2 := _eval._closed_2.2;
|
|
let _x.3 := Array.push ◾ _x.2 _x.1;
|
|
return _x.3
|
|
[Compiler.result] size: 8
|
|
def _private.lean.run.emptyLcnf.0._eval a.1 a.2 a.3 : EST.Out Lean.Exception lcAny PUnit :=
|
|
let _x.4 := _eval._closed_0.2;
|
|
let _x.5 := _eval._closed_1.2;
|
|
let _x.6 := 1;
|
|
let _x.7 := _eval._closed_2.2;
|
|
let _x.8 := _eval._closed_3.2;
|
|
let _x.9 := PUnit.unit;
|
|
let _f.10 := _eval._lam_0.2 _x.8 _x.9;
|
|
let _x.11 := Lean.Elab.Command.liftTermElabM._redArg _f.10 a.1 a.2 a.3;
|
|
return _x.11
|
|
-/
|
|
#guard_msgs in
|
|
run_meta Lean.Compiler.compile #[``f]
|