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
2.4 KiB
C
Generated
57 lines
2.4 KiB
C
Generated
// Lean compiler output
|
|
// Module: Std
|
|
// Imports: public import Std.Data public import Std.Do public import Std.Sat public import Std.Sync public import Std.Time public import Std.Tactic public import Std.Internal public import Std.Net
|
|
#include <lean/lean.h>
|
|
#if defined(__clang__)
|
|
#pragma clang diagnostic ignored "-Wunused-parameter"
|
|
#pragma clang diagnostic ignored "-Wunused-label"
|
|
#elif defined(__GNUC__) && !defined(__CLANG__)
|
|
#pragma GCC diagnostic ignored "-Wunused-parameter"
|
|
#pragma GCC diagnostic ignored "-Wunused-label"
|
|
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
|
|
#endif
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
lean_object* initialize_Std_Data(uint8_t builtin, lean_object*);
|
|
lean_object* initialize_Std_Do(uint8_t builtin, lean_object*);
|
|
lean_object* initialize_Std_Sat(uint8_t builtin, lean_object*);
|
|
lean_object* initialize_Std_Sync(uint8_t builtin, lean_object*);
|
|
lean_object* initialize_Std_Time(uint8_t builtin, lean_object*);
|
|
lean_object* initialize_Std_Tactic(uint8_t builtin, lean_object*);
|
|
lean_object* initialize_Std_Internal(uint8_t builtin, lean_object*);
|
|
lean_object* initialize_Std_Net(uint8_t builtin, lean_object*);
|
|
static bool _G_initialized = false;
|
|
LEAN_EXPORT lean_object* initialize_Std(uint8_t builtin, lean_object* w) {
|
|
lean_object * res;
|
|
if (_G_initialized) return lean_io_result_mk_ok(lean_box(0));
|
|
_G_initialized = true;
|
|
res = initialize_Std_Data(builtin, lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Std_Do(builtin, lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Std_Sat(builtin, lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Std_Sync(builtin, lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Std_Time(builtin, lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Std_Tactic(builtin, lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Std_Internal(builtin, lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Std_Net(builtin, lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
return lean_io_result_mk_ok(lean_box(0));
|
|
}
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|