feat(library/init/lean/frontend): profile frontend
This commit is contained in:
Sebastian Ullrich
parent
f2a161e5a9
commit
85bc52b9f2
16 changed files with 5574 additions and 4785 deletions
|
|
@ -39,6 +39,12 @@ abbreviation eio := except_t io.error io
|
|||
|
||||
namespace io
|
||||
|
||||
section
|
||||
local attribute [reducible] io
|
||||
def lazy_pure {α : Type} (fn : unit → α) : io α :=
|
||||
λ w, (fn (), w)
|
||||
end
|
||||
|
||||
inductive fs.mode
|
||||
| read | write | read_write | append
|
||||
constant fs.handle : Type
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@ Released under Apache 2.0 license as described in the file LICENSE.
|
|||
Author: Sebastian Ullrich
|
||||
-/
|
||||
|
||||
import init.lean.parser.module init.lean.expander init.lean.elaborator init.io
|
||||
import init.lean.parser.module init.lean.expander init.lean.elaborator init.lean.util init.io
|
||||
|
||||
namespace lean
|
||||
open lean.parser
|
||||
|
|
@ -24,18 +24,16 @@ do t ← parser.mk_token_trie $
|
|||
trailing_term_parsers := term.builtin_trailing_parsers,
|
||||
}
|
||||
|
||||
-- for structuring the profiler output
|
||||
@[noinline] def run_parser {α β : Type} (f : α → β) : α → β := f
|
||||
@[noinline] def run_expander {α β : Type} (f : α → β) : α → β := f
|
||||
@[noinline] def run_elaborator {α β : Type} (f : α → β) : α → β := f
|
||||
|
||||
def run_frontend (filename input : string) (print_msg : message → except_t string io unit) :
|
||||
except_t string io (list module_parser_output) := do
|
||||
parser_cfg ← monad_except.lift_except $ mk_config filename input,
|
||||
let expander_cfg : expander_config := {filename := filename, input := input, transformers := builtin_transformers},
|
||||
let parser_k := parser.run parser_cfg input (λ st _, module.parser st),
|
||||
let elab_k := elaborator.run {filename := filename, input := input, initial_parser_cfg := parser_cfg},
|
||||
io.prim.iterate_eio (parser_k, elab_k, parser_cfg, expander_cfg, ([] : list module_parser_output)) $ λ ⟨parser_k, elab_k, parser_cfg, expander_cfg, outs⟩, match run_parser parser_k.resume parser_cfg with
|
||||
io.prim.iterate_eio (parser_k, elab_k, parser_cfg, expander_cfg, ([] : list module_parser_output)) $ λ ⟨parser_k, elab_k, parser_cfg, expander_cfg, outs⟩, do
|
||||
let pos := match outs with out::_ := out.pos | [] := default _,
|
||||
r ← monad_lift $ profileit_pure "parsing" pos $ λ _, parser_k.resume parser_cfg,
|
||||
match r with
|
||||
| coroutine_result_core.done p := do {
|
||||
io.println "parser died!!",
|
||||
pure (sum.inr outs.reverse)
|
||||
|
|
@ -51,10 +49,12 @@ def run_frontend (filename input : string) (print_msg : message → except_t str
|
|||
io.println (to_string out.cmd)-/
|
||||
},
|
||||
--io.println out.cmd,
|
||||
match run_expander (expand out.cmd).run expander_cfg with
|
||||
r ← monad_lift $ profileit_pure "expanding" pos $ λ _, (expand out.cmd).run expander_cfg,
|
||||
match r with
|
||||
| except.ok cmd' := do {
|
||||
--io.println cmd',
|
||||
match run_elaborator elab_k.resume cmd' with
|
||||
r ← monad_lift $ profileit_pure "elaborating" pos $ λ _, elab_k.resume cmd',
|
||||
match r with
|
||||
| coroutine_result_core.done msgs := do {
|
||||
when ¬(cmd'.is_of_kind module.eoi) $
|
||||
io.println "elaborator died!!",
|
||||
|
|
|
|||
|
|
@ -30,6 +30,7 @@ structure module_parser_output :=
|
|||
(messages : message_log)
|
||||
-- to access the profile data inside
|
||||
(cache : parser_cache)
|
||||
(pos : position)
|
||||
|
||||
section
|
||||
local attribute [reducible] parser_core_t
|
||||
|
|
@ -55,9 +56,11 @@ end
|
|||
|
||||
namespace module
|
||||
def yield_command (cmd : syntax) : module_parser_m unit :=
|
||||
do st ← get,
|
||||
do cfg ← read,
|
||||
st ← get,
|
||||
cache ← monad_lift get_cache,
|
||||
yield {cmd := cmd, messages := st.messages, cache := cache},
|
||||
pos ← cfg.file_map.to_position <$> monad_parsec.pos,
|
||||
yield {cmd := cmd, messages := st.messages, cache := cache, pos := pos},
|
||||
put {st with messages := message_log.empty}
|
||||
|
||||
@[derive parser.has_view parser.has_tokens]
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
add_library (boot OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/coroutine.cpp ./init/control/default.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monad_fail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/default.cpp ./init/data/basic.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/to_string.cpp ./init/data/uint.cpp ./init/data/usize.cpp ./init/default.cpp ./init/env_ext.cpp ./init/function.cpp ./init/io.cpp ./init/lean/compiler/const_folding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/util.cpp ./init/lean/config.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/elaborator.cpp ./init/lean/expander.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/frontend.cpp ./init/lean/ir/elim_phi.cpp ./init/lean/ir/extract_cpp.cpp ./init/lean/ir/format.cpp ./init/lean/ir/instances.cpp ./init/lean/ir/ir.cpp ./init/lean/ir/lirc.cpp ./init/lean/ir/parser.cpp ./init/lean/ir/reserved.cpp ./init/lean/ir/ssa_check.cpp ./init/lean/ir/type_check.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/parser/basic.cpp ./init/lean/parser/combinators.cpp ./init/lean/parser/command.cpp ./init/lean/parser/declaration.cpp ./init/lean/parser/identifier.cpp ./init/lean/parser/level.cpp ./init/lean/parser/module.cpp ./init/lean/parser/notation.cpp ./init/lean/parser/parsec.cpp ./init/lean/parser/pratt.cpp ./init/lean/parser/rec.cpp ./init/lean/parser/string_literal.cpp ./init/lean/parser/syntax.cpp ./init/lean/parser/term.cpp ./init/lean/parser/token.cpp ./init/lean/parser/trie.cpp ./init/lean/position.cpp ./init/lean/trace.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp)
|
||||
add_library (boot OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/coroutine.cpp ./init/control/default.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monad_fail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/default.cpp ./init/data/basic.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/to_string.cpp ./init/data/uint.cpp ./init/data/usize.cpp ./init/default.cpp ./init/env_ext.cpp ./init/function.cpp ./init/io.cpp ./init/lean/compiler/const_folding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/ir.cpp ./init/lean/compiler/util.cpp ./init/lean/config.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/elaborator.cpp ./init/lean/expander.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/frontend.cpp ./init/lean/ir/elim_phi.cpp ./init/lean/ir/extract_cpp.cpp ./init/lean/ir/format.cpp ./init/lean/ir/instances.cpp ./init/lean/ir/ir.cpp ./init/lean/ir/lirc.cpp ./init/lean/ir/parser.cpp ./init/lean/ir/reserved.cpp ./init/lean/ir/ssa_check.cpp ./init/lean/ir/type_check.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/parser/basic.cpp ./init/lean/parser/combinators.cpp ./init/lean/parser/command.cpp ./init/lean/parser/declaration.cpp ./init/lean/parser/identifier.cpp ./init/lean/parser/level.cpp ./init/lean/parser/module.cpp ./init/lean/parser/notation.cpp ./init/lean/parser/parsec.cpp ./init/lean/parser/pratt.cpp ./init/lean/parser/rec.cpp ./init/lean/parser/string_literal.cpp ./init/lean/parser/syntax.cpp ./init/lean/parser/term.cpp ./init/lean/parser/token.cpp ./init/lean/parser/trie.cpp ./init/lean/position.cpp ./init/lean/trace.cpp ./init/lean/util.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp)
|
||||
|
|
|
|||
|
|
@ -34,8 +34,8 @@ obj* l_coroutine_monad___lambda__6(obj*, obj*);
|
|||
obj* l_coroutine_resume___boxed(obj*, obj*, obj*);
|
||||
obj* l_coroutine_resume___rarg(obj*, obj*);
|
||||
obj* l_coroutine_monad__reader___boxed(obj*, obj*);
|
||||
obj* l_function_const___rarg(obj*, obj*);
|
||||
obj* l_coroutine_read___rarg(obj*);
|
||||
obj* l_function_const___rarg___boxed(obj*, obj*);
|
||||
obj* l_coroutine_monad___lambda__7(obj*, obj*, obj*, obj*);
|
||||
obj* l_coroutine_yield___rarg___lambda__1___boxed(obj*);
|
||||
obj* l_coroutine_monad___lambda__5___boxed(obj*, obj*, obj*);
|
||||
|
|
@ -681,7 +681,7 @@ obj* l_coroutine_monad___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
|
|||
_start:
|
||||
{
|
||||
obj* x_4; obj* x_5; obj* x_6; obj* x_7;
|
||||
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_function_const___rarg___boxed), 2, 1);
|
||||
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_function_const___rarg), 2, 1);
|
||||
lean::closure_set(x_4, 0, x_2);
|
||||
x_5 = l_coroutine_monad___lambda__1___closed__1;
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_function_comp___rarg), 3, 2);
|
||||
|
|
|
|||
|
|
@ -26,7 +26,6 @@ obj* l_io_println___at_io_println_x_27___spec__1(obj*, obj*);
|
|||
obj* l_coroutine__io_monad___boxed(obj*, obj*);
|
||||
obj* l_from__eio(obj*, obj*);
|
||||
obj* l_io_print___boxed(obj*, obj*);
|
||||
obj* l_id___boxed(obj*);
|
||||
obj* l_io_fs_handle_read__to__end___boxed(obj*, obj*);
|
||||
obj* l_io_prim_lift__eio___rarg___lambda__1(obj*, obj*, obj*, obj*);
|
||||
obj* l_io;
|
||||
|
|
@ -51,6 +50,7 @@ obj* l_io_fs_handle_close___boxed(obj*, obj*);
|
|||
obj* l_coroutine__io_resume___rarg(obj*, obj*, obj*);
|
||||
obj* l_io_prim_iterate___rarg(obj*, obj*, obj*);
|
||||
obj* l_io_fs_handle_get__line___at_io_fs_handle_read__to__end___spec__2___boxed(obj*, obj*);
|
||||
obj* l_id_monad___lambda__1(obj*, obj*, obj*, obj*);
|
||||
obj* l_io_has__eval___rarg(obj*, obj*, obj*);
|
||||
obj* l_eio__unit_has__eval___boxed(obj*);
|
||||
extern "C" obj* lean_io_prim_put_str(obj*, obj*);
|
||||
|
|
@ -72,12 +72,12 @@ obj* l_io_fs_handle_mk___boxed(obj*, obj*);
|
|||
obj* l_io_prim_iterate__eio___at_io_fs_handle_read__to__end___spec__3___boxed(obj*, obj*);
|
||||
obj* l_io_fs_handle_is__eof___at_io_fs_handle_read__to__end___spec__1___boxed(obj*, obj*);
|
||||
obj* l_coroutine__io_monad___lambda__5___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_function_const___rarg(obj*, obj*);
|
||||
obj* l___private_init_io_12__put__str(obj*, obj*);
|
||||
obj* l_io_println_x_27___boxed(obj*, obj*);
|
||||
obj* l_coroutine__io_monad___lambda__1___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_coroutine__io_yield___boxed(obj*, obj*);
|
||||
obj* l_coroutine__io_monad__reader___rarg(obj*, obj*);
|
||||
obj* l_function_const___rarg___boxed(obj*, obj*);
|
||||
obj* l_io_fs_handle_get__line___at_io_fs_handle_read__to__end___spec__2(obj*, obj*);
|
||||
obj* l_io_println___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_coroutine__io_monad___lambda__8(obj*, obj*, obj*, obj*);
|
||||
|
|
@ -103,6 +103,7 @@ obj* l_coroutine__io_mk__st___rarg(obj*);
|
|||
obj* l_io_prim_iterate___main___at_io_prim_iterate__eio___spec__1(obj*, obj*, obj*);
|
||||
obj* l_io_fs_read__file___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_io_fs_handle_read__to__end(obj*, obj*);
|
||||
obj* l_id_bind(obj*, obj*);
|
||||
obj* l_io_prim_put__str___boxed(obj*, obj*);
|
||||
obj* l_coroutine__io_monad___lambda__7(obj*, obj*, obj*, obj*);
|
||||
obj* l_io_prim_iterate___main___at_io_prim_iterate__eio___spec__1___boxed(obj*, obj*, obj*);
|
||||
|
|
@ -113,6 +114,7 @@ obj* l___private_init_io_12__put__str___at_io_println___spec__1___boxed(obj*, ob
|
|||
obj* l_io_prim_iterate__eio___boxed(obj*, obj*, obj*);
|
||||
obj* l_io_error_has__to__string;
|
||||
extern "C" obj* lean_io_prim_handle_close(obj*, obj*);
|
||||
obj* l_io_lazy__pure___boxed(obj*);
|
||||
obj* l_io_fs_handle_mk___at_io_fs_read__file___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_io_prim_iterate___main___at_io_fs_handle_read__to__end___spec__4(obj*, obj*, obj*);
|
||||
obj* l_coroutine__result__io;
|
||||
|
|
@ -125,6 +127,7 @@ obj* l_io_prim_iterate___boxed(obj*, obj*);
|
|||
obj* l_coroutine__io_yield___rarg___lambda__1___boxed(obj*, obj*);
|
||||
obj* l_io_prim_iterate__eio___rarg(obj*, obj*, obj*);
|
||||
obj* l_has__repr_has__eval(obj*);
|
||||
obj* l_id(obj*);
|
||||
obj* l_io_println___rarg___closed__1;
|
||||
obj* l_io_print(obj*, obj*);
|
||||
obj* l_io_fs_handle_is__eof(obj*, obj*);
|
||||
|
|
@ -135,13 +138,13 @@ obj* l_coroutine__io_monad__reader(obj*, obj*);
|
|||
obj* l_coroutine__io_monad___lambda__1(obj*, obj*, obj*, obj*);
|
||||
obj* l_io_fs_handle_close___rarg(obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_coroutine__io_pure___rarg(obj*, obj*, obj*);
|
||||
obj* l_id_monad___lambda__3(obj*, obj*, obj*, obj*);
|
||||
obj* l_coroutine__io_yield___rarg___lambda__1(obj*, obj*);
|
||||
extern "C" obj* lean_io_prim_handle_flush(obj*, obj*);
|
||||
obj* l_io_fs_read__file___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_io_monad;
|
||||
obj* l_coroutine__io_monad__io___boxed(obj*, obj*, obj*);
|
||||
obj* l_io_println___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_id_monad___lambda__1___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_coroutine__io_read(obj*, obj*);
|
||||
obj* l_state__t_monad___rarg(obj*);
|
||||
obj* l_coroutine__io_monad__coroutine(obj*, obj*);
|
||||
|
|
@ -169,14 +172,15 @@ obj* l_coroutine__io_monad___lambda__5(obj*, obj*, obj*, obj*);
|
|||
obj* l_coroutine__io_yield___rarg___closed__1;
|
||||
extern "C" obj* lean_io_prim_handle_get_line(obj*, obj*);
|
||||
obj* l_unsafe__io___boxed(obj*, obj*);
|
||||
obj* l_io_lazy__pure(obj*);
|
||||
obj* l_io_fs_handle_mk(obj*, obj*);
|
||||
obj* l_io_println_x_27(obj*, obj*);
|
||||
obj* l_io_lazy__pure___rarg(obj*, obj*);
|
||||
obj* l_io_fs_handle_read__to__end___rarg(obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_coroutine__io_bind___main(obj*, obj*, obj*, obj*);
|
||||
obj* l_coroutine__io_resume___main___rarg(obj*, obj*, obj*);
|
||||
extern obj* l_coroutine_yield___rarg___lambda__1___closed__1;
|
||||
obj* l_io_prim_handle_close___boxed(obj*, obj*);
|
||||
obj* l_id_bind___boxed(obj*, obj*);
|
||||
obj* l_coroutine__io_yield___rarg___boxed(obj*, obj*, obj*);
|
||||
obj* l_io_println(obj*, obj*);
|
||||
obj* l_coroutine__io_monad__io___rarg(obj*, obj*, obj*);
|
||||
|
|
@ -186,6 +190,7 @@ obj* l_io_print___at_io_println_x_27___spec__2(obj*, obj*);
|
|||
obj* l_coroutine__io_bind___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_io_fs_handle_mk___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
extern "C" obj* lean_io_timeit(obj*, obj*, obj*, obj*);
|
||||
obj* l_id_monad___lambda__2(obj*, obj*, obj*, obj*);
|
||||
obj* l_io_fs_handle_mk___at_io_fs_read__file___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, uint8, uint8);
|
||||
obj* l_coroutine__io_pipe___rarg(obj*, obj*);
|
||||
obj* l_io_fs_handle_close(obj*, obj*);
|
||||
|
|
@ -199,12 +204,10 @@ extern "C" obj* lean_io_prim_handle_is_eof(obj*, obj*);
|
|||
obj* l_eio_has__eval___boxed(obj*, obj*);
|
||||
obj* l_eio_has__eval___rarg___closed__1;
|
||||
obj* l_reader__t_monad___rarg___lambda__3___boxed(obj*, obj*, obj*);
|
||||
obj* l_id_monad___lambda__2___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_string_has__lift(obj*);
|
||||
obj* l_io_fs_handle_get__line(obj*, obj*);
|
||||
obj* l_io_fs_handle_mk___at_io_fs_read__file___spec__1___boxed(obj*, obj*);
|
||||
obj* l_coroutine__io_monad__io(obj*, obj*, obj*);
|
||||
obj* l_id_monad___lambda__3___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_io_prim_iterate__eio___at_io_fs_handle_read__to__end___spec__3(obj*, obj*);
|
||||
obj* l_coroutine__io_pure___boxed(obj*, obj*, obj*);
|
||||
obj* l_coroutine__io_monad___lambda__7___boxed(obj*, obj*, obj*, obj*);
|
||||
|
|
@ -216,22 +219,22 @@ obj* _init_l_io_monad() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -311,6 +314,35 @@ x_0 = lean::box(0);
|
|||
return x_0;
|
||||
}
|
||||
}
|
||||
obj* l_io_lazy__pure___rarg(obj* x_0, obj* x_1) {
|
||||
_start:
|
||||
{
|
||||
obj* x_2; obj* x_3; obj* x_4;
|
||||
x_2 = lean::box(0);
|
||||
x_3 = lean::apply_1(x_0, x_2);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_3);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
return x_4;
|
||||
}
|
||||
}
|
||||
obj* l_io_lazy__pure(obj* x_0) {
|
||||
_start:
|
||||
{
|
||||
obj* x_1;
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_io_lazy__pure___rarg), 2, 0);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
obj* l_io_lazy__pure___boxed(obj* x_0) {
|
||||
_start:
|
||||
{
|
||||
obj* x_1;
|
||||
x_1 = l_io_lazy__pure(x_0);
|
||||
lean::dec(x_0);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
obj* l_io_prim_iterate___main___rarg(obj* x_0, obj* x_1, obj* x_2) {
|
||||
_start:
|
||||
{
|
||||
|
|
@ -2631,7 +2663,7 @@ obj* l_coroutine__io_monad___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
|
|||
_start:
|
||||
{
|
||||
obj* x_4; obj* x_5; obj* x_6; obj* x_7;
|
||||
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_function_const___rarg___boxed), 2, 1);
|
||||
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_function_const___rarg), 2, 1);
|
||||
lean::closure_set(x_4, 0, x_2);
|
||||
x_5 = l_coroutine__io_monad___lambda__1___closed__1;
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_function_comp___rarg), 3, 2);
|
||||
|
|
|
|||
47
src/boot/init/lean/compiler/ir.cpp
Normal file
47
src/boot/init/lean/compiler/ir.cpp
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
// Lean compiler output
|
||||
// Module: init.lean.compiler.ir
|
||||
// Imports: init.default init.lean.name
|
||||
#include "runtime/object.h"
|
||||
#include "runtime/apply.h"
|
||||
typedef lean::object obj; typedef lean::usize usize;
|
||||
typedef lean::uint8 uint8; typedef lean::uint16 uint16;
|
||||
typedef lean::uint32 uint32; typedef lean::uint64 uint64;
|
||||
#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
|
||||
obj* l_lean_ir_fid;
|
||||
obj* l_lean_ir_varid;
|
||||
obj* _init_l_lean_ir_varid() {
|
||||
_start:
|
||||
{
|
||||
obj* x_0;
|
||||
x_0 = lean::box(0);
|
||||
return x_0;
|
||||
}
|
||||
}
|
||||
obj* _init_l_lean_ir_fid() {
|
||||
_start:
|
||||
{
|
||||
obj* x_0;
|
||||
x_0 = lean::box(0);
|
||||
return x_0;
|
||||
}
|
||||
}
|
||||
void initialize_init_default();
|
||||
void initialize_init_lean_name();
|
||||
static bool _G_initialized = false;
|
||||
void initialize_init_lean_compiler_ir() {
|
||||
if (_G_initialized) return;
|
||||
_G_initialized = true;
|
||||
initialize_init_default();
|
||||
initialize_init_lean_name();
|
||||
l_lean_ir_varid = _init_l_lean_ir_varid();
|
||||
lean::mark_persistent(l_lean_ir_varid);
|
||||
l_lean_ir_fid = _init_l_lean_ir_fid();
|
||||
lean::mark_persistent(l_lean_ir_fid);
|
||||
}
|
||||
File diff suppressed because it is too large
Load diff
|
|
@ -30,7 +30,6 @@ obj* l_lean_expander_coe__name__ident(obj*);
|
|||
obj* l_lean_expander_variable_transform___boxed(obj*, obj*);
|
||||
obj* l_lean_expander_expand__bracketed__binder(obj*, obj*);
|
||||
obj* l_lean_expander_sorry_transform___closed__1;
|
||||
obj* l_id___boxed(obj*);
|
||||
obj* l_lean_expander_pi_transform___lambda__1(obj*, obj*, obj*);
|
||||
extern obj* l_lean_parser_term_binder__ident_has__view;
|
||||
obj* l_lean_expander_if_transform___closed__1;
|
||||
|
|
@ -66,6 +65,7 @@ extern obj* l_lean_parser_command_variable;
|
|||
extern obj* l_lean_parser_term_match_has__view;
|
||||
obj* l_lean_expander_mixfix_transform___closed__1;
|
||||
obj* l_lean_expander_coe__binders__ext___rarg(obj*, obj*);
|
||||
obj* l_id_monad___lambda__1(obj*, obj*, obj*, obj*);
|
||||
extern obj* l_lean_parser_term_if_has__view;
|
||||
extern obj* l_lean_parser_term_bracketed__binders;
|
||||
obj* l_lean_parser_string__lit_has__view_x_27___lambda__1(obj*);
|
||||
|
|
@ -155,6 +155,7 @@ obj* l_lean_expander_error___at_lean_expander_mk__notation__transformer___spec__
|
|||
obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__15___boxed(obj*, obj*, obj*);
|
||||
obj* l_list_join___main___rarg(obj*);
|
||||
obj* l_rbnode_find___main___at_lean_parser_token__map_insert___spec__2___rarg(obj*, obj*);
|
||||
obj* l_id_bind(obj*, obj*);
|
||||
obj* l_coe___at_lean_expander_mk__notation__transformer___spec__2(obj*);
|
||||
obj* l_list_mmap___main___at_lean_expander_variables_transform___spec__1___closed__1;
|
||||
obj* l_lean_parser_syntax_get__pos(obj*);
|
||||
|
|
@ -195,6 +196,7 @@ uint8 nat_dec_eq(obj*, obj*);
|
|||
}
|
||||
extern obj* l_lean_parser_term__parser__m_lean_parser_monad__parsec;
|
||||
obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__3___closed__1;
|
||||
obj* l_id(obj*);
|
||||
obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__2(uint8, obj*, obj*);
|
||||
obj* l_lean_expander_error___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_expander_binding__annotation__update;
|
||||
|
|
@ -243,6 +245,7 @@ obj* l_lean_expander_error___at___private_init_lean_expander_1__pop__stx__arg___
|
|||
obj* l_list_mmap___main___at_lean_expander_bracketed__binders_transform___spec__1(obj*, obj*);
|
||||
obj* l_list_foldr1__opt___main___at_lean_expander_paren_transform___spec__2(obj*, obj*);
|
||||
obj* l_list_map___main___at_lean_expander_mk__notation__transformer___spec__3(obj*);
|
||||
obj* l_id_monad___lambda__3(obj*, obj*, obj*, obj*);
|
||||
extern obj* l_lean_parser_ident__univs_has__view;
|
||||
obj* l_list_foldr___main___at_lean_expander_expand__binders___spec__2___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_expander_subtype_transform___boxed(obj*, obj*);
|
||||
|
|
@ -252,7 +255,6 @@ obj* l_lean_expander_mk__simple__binder___closed__6;
|
|||
obj* l_lean_parser_try__view___at_lean_expander_mk__notation__transformer___spec__6(obj*);
|
||||
extern obj* l_lean_parser_term_assume_has__view;
|
||||
extern obj* l_lean_parser_command_intro__rule;
|
||||
obj* l_id_monad___lambda__1___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__1(obj*);
|
||||
obj* l_lean_expander_binder__ident__to__ident___main___closed__1;
|
||||
obj* l_lean_expander_transform__m_monad__except;
|
||||
|
|
@ -318,7 +320,6 @@ obj* l_lean_expander_mk__simple__binder___closed__1;
|
|||
extern obj* l_lean_parser_command_notation__spec_precedence_has__view;
|
||||
obj* l_lean_expander_variable_transform(obj*, obj*);
|
||||
obj* l_lean_expander_expand__bracketed__binder___main___closed__5;
|
||||
obj* l_id_bind___boxed(obj*, obj*);
|
||||
obj* l_lean_expander_expand__binders(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_expander_mk__scope___boxed(obj*, obj*);
|
||||
obj* l_lean_expander_mk__simple__binder___closed__5;
|
||||
|
|
@ -333,6 +334,7 @@ extern obj* l_lean_parser_term_lambda;
|
|||
extern obj* l_lean_parser_term_arrow;
|
||||
obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__2___boxed(obj*, obj*, obj*);
|
||||
obj* l_lean_expander_get__opt__type(obj*);
|
||||
obj* l_id_monad___lambda__2(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_expander_reserve__mixfix_transform(obj*, obj*);
|
||||
obj* l_list_foldr1___main___at_lean_expander_paren_transform___spec__3___closed__1;
|
||||
obj* l_lean_expander_level_leading_transform(obj*, obj*);
|
||||
|
|
@ -363,7 +365,6 @@ obj* l_list_foldl___main___at_lean_parser_term_mk__app___spec__1(obj*, obj*);
|
|||
obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__6___boxed(obj*, obj*);
|
||||
obj* l_lean_parser_substring_of__string(obj*);
|
||||
obj* l_lean_expander_mk__simple__binder___closed__3;
|
||||
obj* l_id_monad___lambda__2___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_expander_let_transform(obj*, obj*);
|
||||
extern obj* l_lean_parser_term_let;
|
||||
obj* l_lean_expander_expand__bracketed__binder___main___closed__7;
|
||||
|
|
@ -372,7 +373,6 @@ obj* l_list_mmap___main___at___private_init_lean_expander_2__expand__core___main
|
|||
extern obj* l_lean_parser_command_notation_has__view;
|
||||
obj* l_list_map___main___at___private_init_lean_expander_2__expand__core___main___spec__4(obj*, obj*);
|
||||
obj* l_list_mmap___main___at_lean_expander_variables_transform___spec__1(obj*, obj*);
|
||||
obj* l_id_monad___lambda__3___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__4___boxed(obj*, obj*, obj*);
|
||||
obj* l_lean_expander_constant_transform(obj*, obj*);
|
||||
obj* l_lean_expander_binder__ident__to__ident___boxed(obj*);
|
||||
|
|
@ -400,22 +400,22 @@ obj* _init_l_lean_expander_transform__m_monad() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -428,22 +428,22 @@ obj* _init_l_lean_expander_transform__m_monad__reader() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -457,22 +457,22 @@ obj* _init_l_lean_expander_transform__m_monad__except() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load diff
|
|
@ -24,7 +24,6 @@ obj* l_lean_parser_command__parser__config__coe__parser__config___boxed(obj*);
|
|||
obj* l_lean_parser_parser__core__t_lean_parser_monad__parsec(obj*);
|
||||
obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__5___rarg(obj*, obj*, obj*);
|
||||
obj* l_lean_parser_trailing__term__parser;
|
||||
obj* l_id___boxed(obj*);
|
||||
obj* l_lean_parser_parser__t_monad__except___boxed(obj*, obj*);
|
||||
obj* l_lean_parser_monad__basic__parser;
|
||||
obj* l_lean_parser_parser__core__t;
|
||||
|
|
@ -44,6 +43,7 @@ extern obj* l_mjoin___rarg___closed__1;
|
|||
obj* l_lean_parser_token__map__cons_tokens___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_basic__parser__m_monad;
|
||||
obj* l_list_mfoldl___main___at_lean_parser_mk__token__trie___spec__1(obj*, obj*);
|
||||
obj* l_id_monad___lambda__1(obj*, obj*, obj*, obj*);
|
||||
obj* l_list_mfoldl___main___at_lean_parser_mk__token__trie___spec__1___closed__2;
|
||||
obj* l_rbmap_find___main___at_lean_parser_token__map_insert___spec__1___rarg(obj*, obj*);
|
||||
obj* l_lean_parser_command__parser__m;
|
||||
|
|
@ -63,7 +63,6 @@ obj* l_lean_parser_command__parser__m_monad__reader__adapter(obj*, obj*);
|
|||
obj* l_rbnode_insert___at_lean_parser_token__map_insert___spec__8___boxed(obj*);
|
||||
uint8 l_lean_parser_syntax_is__of__kind___main(obj*, obj*);
|
||||
obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__5(obj*);
|
||||
obj* l_id___rarg___boxed(obj*);
|
||||
obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__9___rarg(obj*, obj*, obj*);
|
||||
obj* l_lean_parser_has__tokens_inhabited___boxed(obj*, obj*);
|
||||
obj* l_lean_parser_command__parser__m_basic__parser___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
|
|
@ -103,6 +102,7 @@ obj* l_rbmap_insert___main___at_lean_parser_token__map_insert___spec__7___boxed(
|
|||
obj* l_lean_parser_parser__core__t_alternative(obj*);
|
||||
obj* l_rbnode_find___main___at_lean_parser_token__map_insert___spec__2___rarg(obj*, obj*);
|
||||
obj* l_rbnode_insert___at_lean_parser_token__map_insert___spec__8(obj*);
|
||||
obj* l_id_bind(obj*, obj*);
|
||||
obj* l_lean_parser_token__map_of__list(obj*);
|
||||
obj* l_lean_parser_command__parser__m_lean_parser_monad__parsec___closed__1;
|
||||
obj* l_lean_parser_parser__core__t_monad___boxed(obj*);
|
||||
|
|
@ -128,6 +128,7 @@ uint8 nat_dec_eq(obj*, obj*);
|
|||
obj* l_lean_parser_token__map__cons_tokens___rarg(obj*, obj*);
|
||||
obj* l_lean_parser_command__parser__m_basic__parser(obj*);
|
||||
obj* l_lean_parser_term__parser__m_lean_parser_monad__parsec;
|
||||
obj* l_id(obj*);
|
||||
obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__5___boxed(obj*);
|
||||
obj* l_lean_parser_parser__core__t_monad___rarg(obj*);
|
||||
obj* l_lean_parser_basic__parser__m_monad__reader;
|
||||
|
|
@ -137,6 +138,7 @@ obj* l_lean_parser_trailing__term__parser__m;
|
|||
obj* l_lean_parser_tokens___rarg___boxed(obj*);
|
||||
obj* l_rbmap_find___main___at_lean_parser_token__map_insert___spec__1___rarg___boxed(obj*, obj*);
|
||||
extern obj* l_string_join___closed__1;
|
||||
obj* l_id___rarg(obj*);
|
||||
obj* l_lean_parser_list_nil_tokens___boxed(obj*);
|
||||
obj* l_lean_parser_monad__rec_trans___rarg___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_command__parser__m_alternative___boxed(obj*);
|
||||
|
|
@ -155,6 +157,7 @@ obj* l_rbmap_insert___main___at_lean_parser_token__map_insert___spec__3(obj*);
|
|||
obj* l_lean_parser_run___rarg___closed__1;
|
||||
obj* l_lean_parser_command__parser__config__coe__parser__config(obj*);
|
||||
obj* l_lean_parser_try__view___rarg(obj*, obj*, obj*);
|
||||
obj* l_id_monad___lambda__3(obj*, obj*, obj*, obj*);
|
||||
obj* l_reader__t_monad__reader__adapter___boxed(obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_mk__token__trie___closed__1;
|
||||
obj* l_lean_parser_has__view_default___boxed(obj*);
|
||||
|
|
@ -166,7 +169,6 @@ obj* l_lean_parser_parsec_message_text___rarg(obj*);
|
|||
namespace lean {
|
||||
obj* string_iterator_offset(obj*);
|
||||
}
|
||||
obj* l_id_monad___lambda__1___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_list_cons_tokens___rarg___boxed(obj*, obj*);
|
||||
obj* l_lean_parser_token__map_of__list___main(obj*);
|
||||
obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__10___rarg(obj*, obj*, obj*);
|
||||
|
|
@ -207,7 +209,6 @@ obj* l_lean_parser_parser__config__coe(obj*);
|
|||
obj* l_lean_parser_try__view___boxed(obj*);
|
||||
obj* l_lean_parser_parser__core__t_lean_parser_monad__parsec___rarg(obj*);
|
||||
obj* l_lean_parser_log__message___boxed(obj*, obj*, obj*);
|
||||
obj* l_has__monad__lift__t__trans___rarg___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_parsec__t_run___at_lean_parser_run___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_parser__t_monad__except___rarg(obj*);
|
||||
obj* l_rbnode_find___main___at_lean_parser_token__map_insert___spec__2___rarg___boxed(obj*, obj*);
|
||||
|
|
@ -215,9 +216,9 @@ obj* l_reader__t_monad___rarg(obj*);
|
|||
obj* l_lean_parser_trailing__term__parser__m_alternative;
|
||||
obj* l_lean_parser_basic__parser;
|
||||
obj* l_nat_repr(obj*);
|
||||
obj* l_has__monad__lift__t__trans___rarg(obj*, obj*, obj*, obj*);
|
||||
obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__6___boxed(obj*);
|
||||
obj* l_lean_parser_command__parser__m_monad___boxed(obj*);
|
||||
obj* l_id_bind___boxed(obj*, obj*);
|
||||
obj* l_lean_parser_parser__t_monad___boxed(obj*, obj*);
|
||||
obj* l_lean_parser_command__parser__m_lean_parser_monad__rec___closed__1;
|
||||
obj* l_lean_parser_term__parser__m_lean_parser_monad__rec;
|
||||
|
|
@ -226,6 +227,7 @@ obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__10(obj*);
|
|||
obj* l_lean_parser_token__map_insert(obj*);
|
||||
obj* l_lean_parser_parsec__t_run___at_lean_parser_run___spec__1(obj*);
|
||||
obj* l_rbmap_insert___main___at_lean_parser_token__map_insert___spec__3___boxed(obj*);
|
||||
obj* l_id_monad___lambda__2(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_trailing__term__parser__m_lean_parser_monad__rec;
|
||||
obj* l_lean_parser_parser__t_monad__reader(obj*, obj*);
|
||||
obj* l_lean_file__map_to__position(obj*, obj*);
|
||||
|
|
@ -246,9 +248,7 @@ obj* l_lean_parser_tokens(obj*, obj*);
|
|||
obj* l_lean_parser_term__parser;
|
||||
obj* l_lean_parser_term__parser__m_monad__reader;
|
||||
obj* l_lean_parser_log__message(obj*, obj*, obj*);
|
||||
obj* l_id_monad___lambda__2___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_command__parser__m_alternative(obj*);
|
||||
obj* l_id_monad___lambda__3___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_run___rarg___lambda__1(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_command__parser__m_monad__reader___boxed(obj*);
|
||||
obj* l_rbnode_set__black___main___rarg(obj*);
|
||||
|
|
@ -557,22 +557,22 @@ obj* _init_l_lean_parser_basic__parser__m_monad() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -584,22 +584,22 @@ obj* _init_l_lean_parser_basic__parser__m_alternative() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -611,22 +611,22 @@ obj* _init_l_lean_parser_basic__parser__m_monad__reader() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -638,22 +638,22 @@ obj* _init_l_lean_parser_basic__parser__m_lean_parser_monad__parsec() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -665,22 +665,22 @@ obj* _init_l_lean_parser_basic__parser__m_monad__except() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -1584,22 +1584,22 @@ obj* _init_l_lean_parser_command__parser__m_monad___closed__1() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -1630,22 +1630,22 @@ obj* _init_l_lean_parser_command__parser__m_alternative___closed__1() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -1680,22 +1680,22 @@ obj* _init_l_lean_parser_command__parser__m_monad__reader___closed__1() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -1727,22 +1727,22 @@ obj* _init_l_lean_parser_command__parser__m_lean_parser_monad__parsec___closed__
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -1789,22 +1789,22 @@ obj* _init_l_lean_parser_command__parser__m_monad__except___closed__1() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -1835,22 +1835,22 @@ obj* _init_l_lean_parser_command__parser__m_lean_parser_monad__rec___closed__1()
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_16;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -1900,22 +1900,22 @@ obj* _init_l_lean_parser_command__parser__m_monad__reader__adapter___closed__1()
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1___boxed), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2___boxed), 4, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__1), 4, 0);
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__2), 4, 0);
|
||||
lean::inc(x_1);
|
||||
lean::inc(x_0);
|
||||
x_4 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_4, 0, x_0);
|
||||
lean::cnstr_set(x_4, 1, x_1);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id___boxed), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3___boxed), 4, 0);
|
||||
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_id), 1, 0);
|
||||
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_id_monad___lambda__3), 4, 0);
|
||||
x_7 = lean::alloc_cnstr(0, 5, 0);
|
||||
lean::cnstr_set(x_7, 0, x_4);
|
||||
lean::cnstr_set(x_7, 1, x_5);
|
||||
lean::cnstr_set(x_7, 2, x_0);
|
||||
lean::cnstr_set(x_7, 3, x_1);
|
||||
lean::cnstr_set(x_7, 4, x_6);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind___boxed), 2, 0);
|
||||
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_id_bind), 2, 0);
|
||||
x_9 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_9, 0, x_7);
|
||||
lean::cnstr_set(x_9, 1, x_8);
|
||||
|
|
@ -2050,10 +2050,10 @@ x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_reader__t_lift___boxed), 4,
|
|||
lean::closure_set(x_1, 0, lean::box(0));
|
||||
lean::closure_set(x_1, 1, lean::box(0));
|
||||
lean::closure_set(x_1, 2, x_0);
|
||||
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_id___rarg___boxed), 1, 0);
|
||||
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_id___rarg), 1, 0);
|
||||
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_parser_command__parser__m_basic__parser___rarg___boxed), 7, 1);
|
||||
lean::closure_set(x_3, 0, x_2);
|
||||
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__trans___rarg___boxed), 4, 2);
|
||||
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__trans___rarg), 4, 2);
|
||||
lean::closure_set(x_4, 0, x_1);
|
||||
lean::closure_set(x_4, 1, x_3);
|
||||
return x_4;
|
||||
|
|
@ -2160,7 +2160,7 @@ lean::closure_set(x_1, 0, lean::box(0));
|
|||
lean::closure_set(x_1, 1, lean::box(0));
|
||||
lean::closure_set(x_1, 2, x_0);
|
||||
x_2 = l_lean_parser_term__parser__m_lean_parser_monad__basic__parser;
|
||||
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__trans___rarg___boxed), 4, 2);
|
||||
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__trans___rarg), 4, 2);
|
||||
lean::closure_set(x_3, 0, x_1);
|
||||
lean::closure_set(x_3, 1, x_2);
|
||||
return x_3;
|
||||
|
|
|
|||
|
|
@ -26,7 +26,6 @@ obj* l_lean_parser_level_app_has__view_x_27___lambda__2(obj*);
|
|||
obj* l_lean_parser_monad__parsec_error___at_lean_parser_level_trailing_parser_lean_parser_has__tokens___spec__2(obj*);
|
||||
extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__1;
|
||||
obj* l_lean_parser_number_parser___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__2___rarg(obj*, obj*, obj*);
|
||||
obj* l_has__monad__lift__t__refl___boxed(obj*, obj*);
|
||||
obj* l_lean_parser_trailing__level__parser__m_lean_parser_monad__parsec;
|
||||
obj* l_lean_parser_level_add__lit_parser_lean_parser_has__tokens;
|
||||
obj* l_lean_parser_level_trailing_has__view_x_27___lambda__1___closed__1;
|
||||
|
|
@ -42,6 +41,7 @@ extern obj* l_mjoin___rarg___closed__1;
|
|||
extern obj* l_lean_parser_basic__parser__m_monad;
|
||||
obj* l_lean_parser_level_app;
|
||||
obj* l_lean_parser_number_parser___at_lean_parser_level_add__lit_parser_lean_parser_has__tokens___spec__2(obj*, obj*);
|
||||
obj* l_has__monad__lift__t__refl(obj*, obj*);
|
||||
obj* l_list_mfoldl___main___at_lean_parser_level_paren_parser___spec__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_trailing__level__parser__coe___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l___private_init_lean_parser_rec_1__run__aux___at_lean_parser_level__parser_run___spec__7___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
|
|
@ -68,7 +68,6 @@ obj* l_lean_parser_level_add__lit_has__view_x_27___lambda__1___closed__1;
|
|||
extern obj* l___private_init_lean_parser_combinators_1__many1__aux___main___rarg___closed__1;
|
||||
obj* l_lean_parser_combinators_choice__aux___main___at_lean_parser_level_trailing_parser_lean_parser_has__tokens___spec__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_level_trailing_parser_lean_parser_has__tokens;
|
||||
obj* l_id___rarg___boxed(obj*);
|
||||
obj* l_lean_parser_level_paren_has__view_x_27___lambda__1___closed__1;
|
||||
obj* l_lean_parser_curr__lbp___at_lean_parser_level__parser_run___spec__4(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_combinators_choice__aux___main___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__4(obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
|
|
@ -145,6 +144,7 @@ extern obj* l_lean_parser_finish__comment__block___closed__2;
|
|||
obj* l_lean_parser_number_parser___at_lean_parser_level_add__lit_parser_lean_parser_has__tokens___spec__2___boxed(obj*, obj*);
|
||||
extern obj* l_string_join___closed__1;
|
||||
obj* l_lean_parser_level_leading_parser(obj*, obj*, obj*, obj*);
|
||||
obj* l_id___rarg(obj*);
|
||||
obj* l_lean_parser_monad__rec_trans___rarg___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_reader__t_read___rarg(obj*, obj*);
|
||||
extern obj* l_lean_parser_max__prec;
|
||||
|
|
@ -200,12 +200,12 @@ obj* l_string_trim(obj*);
|
|||
obj* l_list_mfoldl___main___at_lean_parser_level_app_parser___spec__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_option_get___main___at_lean_parser_run___spec__2(obj*);
|
||||
extern obj* l_lean_parser_curr__lbp___rarg___lambda__3___closed__1;
|
||||
obj* l_has__monad__lift__t__trans___rarg___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_ident_parser___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__3___rarg(obj*, obj*, obj*);
|
||||
obj* l_reader__t_monad___rarg(obj*);
|
||||
obj* l_lean_parser_monad__parsec_error___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__5___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_level_leading_has__view_x_27___lambda__1___closed__5;
|
||||
extern "C" obj* lean_name_mk_numeral(obj*, obj*);
|
||||
obj* l_has__monad__lift__t__trans___rarg(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_level_add__lit_has__view;
|
||||
obj* l_lean_parser_monad__parsec_error___at_lean_parser_level_trailing_parser_lean_parser_has__tokens___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_parser_level_app_parser(obj*, obj*, obj*, obj*, obj*);
|
||||
|
|
@ -319,9 +319,9 @@ x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_reader__t_lift___boxed), 4,
|
|||
lean::closure_set(x_1, 0, lean::box(0));
|
||||
lean::closure_set(x_1, 1, lean::box(0));
|
||||
lean::closure_set(x_1, 2, x_0);
|
||||
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__refl___boxed), 2, 1);
|
||||
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__refl), 2, 1);
|
||||
lean::closure_set(x_2, 0, lean::box(0));
|
||||
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__trans___rarg___boxed), 4, 2);
|
||||
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__trans___rarg), 4, 2);
|
||||
lean::closure_set(x_3, 0, x_1);
|
||||
lean::closure_set(x_3, 1, x_2);
|
||||
return x_3;
|
||||
|
|
@ -428,7 +428,7 @@ lean::closure_set(x_1, 0, lean::box(0));
|
|||
lean::closure_set(x_1, 1, lean::box(0));
|
||||
lean::closure_set(x_1, 2, x_0);
|
||||
x_2 = l_lean_parser_level__parser__m_lean_parser_monad__basic__parser;
|
||||
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__trans___rarg___boxed), 4, 2);
|
||||
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__trans___rarg), 4, 2);
|
||||
lean::closure_set(x_3, 0, x_1);
|
||||
lean::closure_set(x_3, 1, x_2);
|
||||
return x_3;
|
||||
|
|
@ -620,7 +620,7 @@ obj* _init_l_lean_parser_level_lean_parser_has__view() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_2;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id___rarg___boxed), 1, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id___rarg), 1, 0);
|
||||
lean::inc(x_0);
|
||||
x_2 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_2, 0, x_0);
|
||||
|
|
@ -6081,7 +6081,7 @@ obj* _init_l_lean_parser_level__parser_run_lean_parser_has__view___closed__1() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__refl___boxed), 2, 1);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_has__monad__lift__t__refl), 2, 1);
|
||||
lean::closure_set(x_0, 0, lean::box(0));
|
||||
return x_0;
|
||||
}
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load diff
|
|
@ -242,7 +242,6 @@ obj* l_lean_parser_term_projection_parser_lean_parser_has__view___lambda__1___bo
|
|||
obj* l_lean_parser_term_tuple_has__view;
|
||||
obj* l_rbmap_find___main___at___private_init_lean_parser_term_2__leading___spec__3(obj*);
|
||||
extern obj* l_lean_parser_level_trailing_parser_lean_parser_has__tokens;
|
||||
obj* l_id___rarg___boxed(obj*);
|
||||
obj* l___private_init_lean_parser_combinators_3__sep__by_view__aux___main___at_lean_parser_term_match_has__view_x_27___spec__2(obj*);
|
||||
obj* l_lean_parser_term_if_parser_lean_parser_has__tokens;
|
||||
obj* l_lean_parser_term_simple__binder_view_to__binder__info___main(obj*);
|
||||
|
|
@ -561,6 +560,7 @@ extern obj* l_string_join___closed__1;
|
|||
obj* l_lean_parser_term_binders__ext_has__view_x_27___lambda__1___closed__2;
|
||||
obj* l_lean_parser_term_simple__explicit__binder_has__view_x_27;
|
||||
obj* l_lean_parser_term_struct__inst__with_has__view_x_27___lambda__2(obj*);
|
||||
obj* l_id___rarg(obj*);
|
||||
obj* l_lean_parser_term_projection__spec_has__view_x_27___lambda__1(obj*);
|
||||
obj* l_lean_parser_term_lambda_parser_lean_parser_has__view;
|
||||
extern obj* l_lean_parser_ident_parser_view___rarg___lambda__1___closed__1;
|
||||
|
|
@ -3029,7 +3029,7 @@ obj* _init_l_lean_parser_term_lean_parser_has__view() {
|
|||
_start:
|
||||
{
|
||||
obj* x_0; obj* x_2;
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id___rarg___boxed), 1, 0);
|
||||
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_id___rarg), 1, 0);
|
||||
lean::inc(x_0);
|
||||
x_2 = lean::alloc_cnstr(0, 2, 0);
|
||||
lean::cnstr_set(x_2, 0, x_0);
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load diff
79
src/boot/init/lean/util.cpp
Normal file
79
src/boot/init/lean/util.cpp
Normal file
|
|
@ -0,0 +1,79 @@
|
|||
// Lean compiler output
|
||||
// Module: init.lean.util
|
||||
// Imports: init.lean.position init.io
|
||||
#include "runtime/object.h"
|
||||
#include "runtime/apply.h"
|
||||
typedef lean::object obj; typedef lean::usize usize;
|
||||
typedef lean::uint8 uint8; typedef lean::uint16 uint16;
|
||||
typedef lean::uint32 uint32; typedef lean::uint64 uint64;
|
||||
#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
|
||||
obj* l_lean_profileit__pure(obj*);
|
||||
extern "C" obj* lean_lean_profileit(obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_profileit___boxed(obj*, obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_profileit__pure___rarg___boxed(obj*, obj*, obj*, obj*);
|
||||
obj* l_io_lazy__pure___rarg(obj*, obj*);
|
||||
obj* l_lean_profileit__pure___boxed(obj*);
|
||||
obj* l_lean_profileit__pure___rarg(obj*, obj*, obj*, obj*);
|
||||
obj* l_lean_profileit___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
|
||||
_start:
|
||||
{
|
||||
obj* x_5;
|
||||
x_5 = lean_lean_profileit(x_0, x_1, x_2, x_3, x_4);
|
||||
lean::dec(x_1);
|
||||
lean::dec(x_2);
|
||||
return x_5;
|
||||
}
|
||||
}
|
||||
obj* l_lean_profileit__pure___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
|
||||
_start:
|
||||
{
|
||||
obj* x_4; obj* x_5;
|
||||
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_io_lazy__pure___rarg), 2, 1);
|
||||
lean::closure_set(x_4, 0, x_2);
|
||||
x_5 = lean_lean_profileit(lean::box(0), x_0, x_1, x_4, x_3);
|
||||
return x_5;
|
||||
}
|
||||
}
|
||||
obj* l_lean_profileit__pure(obj* x_0) {
|
||||
_start:
|
||||
{
|
||||
obj* x_1;
|
||||
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_profileit__pure___rarg___boxed), 4, 0);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
obj* l_lean_profileit__pure___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
|
||||
_start:
|
||||
{
|
||||
obj* x_4;
|
||||
x_4 = l_lean_profileit__pure___rarg(x_0, x_1, x_2, x_3);
|
||||
lean::dec(x_0);
|
||||
lean::dec(x_1);
|
||||
return x_4;
|
||||
}
|
||||
}
|
||||
obj* l_lean_profileit__pure___boxed(obj* x_0) {
|
||||
_start:
|
||||
{
|
||||
obj* x_1;
|
||||
x_1 = l_lean_profileit__pure(x_0);
|
||||
lean::dec(x_0);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
void initialize_init_lean_position();
|
||||
void initialize_init_io();
|
||||
static bool _G_initialized = false;
|
||||
void initialize_init_lean_util() {
|
||||
if (_G_initialized) return;
|
||||
_G_initialized = true;
|
||||
initialize_init_lean_position();
|
||||
initialize_init_io();
|
||||
}
|
||||
Loading…
Add table
Reference in a new issue