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

chore(stage0): update

Browse source
This commit is contained in:
Leonardo de Moura 2019-04-03 13:29:09 -07:00
parent 8b145d7884
commit 861a292d8f
27 changed files with 23472 additions and 17108 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

179
src/stage0/init/control/combinators.cpp generated
View file

@ -62,7 +62,7 @@ obj* l_mcond___rarg___lambda__1___boxed(obj*, obj*, obj*);
obj* l_when___rarg(obj*, obj*, uint8, obj*);
obj* l_List_mfoldr___boxed(obj*);
obj* l_List_mforall___main___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*);
obj* l_List_mmap___main___rarg___lambda__1(obj*, obj*, obj*);
obj* l_List_mmap___main___rarg___lambda__1(obj*, obj*);
obj* l_List_mfoldl___main___boxed(obj*);
obj* l_mwhen___rarg___lambda__1(obj*, obj*, uint8);
obj* l_List_mfoldr___main(obj*);
@ -85,7 +85,6 @@ obj* l_when___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_List_mfoldl___boxed(obj*);
obj* l_List_mfoldl___rarg(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_mjoin___rarg(obj*, obj*, obj*);
obj* l_List_mmap___main___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*);
obj* l_mcond___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_List_mfilter___main___boxed(obj*);
obj* l_mjoin(obj*);
@ -111,6 +110,7 @@ obj* l_List_mfilter___main(obj*);
obj* l_List_mforall___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_List_mexists___main___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*);
obj* l_List_mforall___rarg(obj*, obj*, obj*, obj*);
obj* l_List_mmap___main___rarg___closed__1;
obj* l_List_mfirst___main___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_List_mforall___boxed(obj*);
obj* l_List_mfoldl(obj*);
@ -183,16 +183,13 @@ _start:
{
if (x_2 == 0)
{
obj* x_4; obj* x_7; obj* x_10; obj* x_11;
x_4 = lean::cnstr_get(x_0, 0);
obj* x_4; obj* x_7; obj* x_8;
x_4 = lean::cnstr_get(x_0, 1);
lean::inc(x_4);
lean::dec(x_0);
x_7 = lean::cnstr_get(x_4, 1);
lean::inc(x_7);
lean::dec(x_4);
x_10 = lean::box(0);
x_11 = lean::apply_2(x_7, lean::box(0), x_10);
return x_11;
x_7 = lean::box(0);
x_8 = lean::apply_2(x_4, lean::box(0), x_7);
return x_8;
}
else
{
@ -241,16 +238,13 @@ return x_3;
}
else
{
obj* x_6; obj* x_9; obj* x_12; obj* x_13;
x_6 = lean::cnstr_get(x_0, 0);
obj* x_6; obj* x_9; obj* x_10;
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
lean::dec(x_0);
x_9 = lean::cnstr_get(x_6, 1);
lean::inc(x_9);
lean::dec(x_6);
x_12 = lean::box(0);
x_13 = lean::apply_2(x_9, lean::box(0), x_12);
return x_13;
x_9 = lean::box(0);
x_10 = lean::apply_2(x_6, lean::box(0), x_9);
return x_10;
}
}
}
@ -420,35 +414,29 @@ x_3 = lean::mk_nat_obj(0ul);
x_4 = lean::nat_dec_eq(x_2, x_3);
if (x_4 == 0)
{
obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_14; obj* x_15; obj* x_17;
obj* x_5; obj* x_6; obj* x_7; obj* x_11; obj* x_12; obj* x_14;
x_5 = lean::mk_nat_obj(1ul);
x_6 = lean::nat_sub(x_2, x_5);
x_7 = lean::cnstr_get(x_0, 0);
x_7 = lean::cnstr_get(x_0, 4);
lean::inc(x_7);
x_9 = lean::cnstr_get(x_7, 4);
lean::inc(x_9);
lean::dec(x_7);
lean::inc(x_6);
lean::inc(x_1);
x_14 = lean::apply_1(x_1, x_6);
x_15 = l_Nat_mforAux___main___rarg(x_0, x_1, x_6);
x_11 = lean::apply_1(x_1, x_6);
x_12 = l_Nat_mforAux___main___rarg(x_0, x_1, x_6);
lean::dec(x_6);
x_17 = lean::apply_4(x_9, lean::box(0), lean::box(0), x_14, x_15);
return x_17;
x_14 = lean::apply_4(x_7, lean::box(0), lean::box(0), x_11, x_12);
return x_14;
}
else
{
obj* x_19; obj* x_22; obj* x_25; obj* x_26;
obj* x_16; obj* x_19; obj* x_20;
lean::dec(x_1);
x_19 = lean::cnstr_get(x_0, 0);
lean::inc(x_19);
x_16 = lean::cnstr_get(x_0, 1);
lean::inc(x_16);
lean::dec(x_0);
x_22 = lean::cnstr_get(x_19, 1);
lean::inc(x_22);
lean::dec(x_19);
x_25 = lean::box(0);
x_26 = lean::apply_2(x_22, lean::box(0), x_25);
return x_26;
x_19 = lean::box(0);
x_20 = lean::apply_2(x_16, lean::box(0), x_19);
return x_20;
}
}
}
@ -546,34 +534,22 @@ lean::dec(x_0);
return x_1;
}
}
obj* l_List_mmap___main___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) {
obj* l_List_mmap___main___rarg___lambda__1(obj* x_0, obj* x_1) {
_start:
{
obj* x_3; obj* x_6; obj* x_9; obj* x_10;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
lean::dec(x_0);
x_6 = lean::cnstr_get(x_3, 1);
lean::inc(x_6);
lean::dec(x_3);
x_9 = lean::alloc_cnstr(1, 2, 0);
lean::cnstr_set(x_9, 0, x_1);
lean::cnstr_set(x_9, 1, x_2);
x_10 = lean::apply_2(x_6, lean::box(0), x_9);
return x_10;
obj* x_2;
x_2 = lean::alloc_cnstr(1, 2, 0);
lean::cnstr_set(x_2, 0, x_0);
lean::cnstr_set(x_2, 1, x_1);
return x_2;
}
}
obj* l_List_mmap___main___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
obj* _init_l_List_mmap___main___rarg___closed__1() {
_start:
{
obj* x_6; obj* x_7; obj* x_8;
lean::inc(x_0);
x_6 = l_List_mmap___main___rarg(x_0, lean::box(0), lean::box(0), x_1, x_2);
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_List_mmap___main___rarg___lambda__1), 3, 2);
lean::closure_set(x_7, 0, x_0);
lean::closure_set(x_7, 1, x_4);
x_8 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_6, x_7);
return x_8;
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_List_mmap___main___rarg___lambda__1), 2, 0);
return x_0;
}
}
obj* l_List_mmap___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
@ -581,38 +557,37 @@ _start:
{
if (lean::obj_tag(x_4) == 0)
{
obj* x_6; obj* x_9; obj* x_12; obj* x_13;
obj* x_6; obj* x_9; obj* x_10;
lean::dec(x_3);
x_6 = lean::cnstr_get(x_0, 0);
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
lean::dec(x_0);
x_9 = lean::cnstr_get(x_6, 1);
lean::inc(x_9);
lean::dec(x_6);
x_12 = lean::box(0);
x_13 = lean::apply_2(x_9, lean::box(0), x_12);
return x_13;
x_9 = lean::box(0);
x_10 = lean::apply_2(x_6, lean::box(0), x_9);
return x_10;
}
else
{
obj* x_14; obj* x_16; obj* x_19; obj* x_22; obj* x_24; obj* x_25;
x_14 = lean::cnstr_get(x_4, 0);
lean::inc(x_14);
x_16 = lean::cnstr_get(x_4, 1);
lean::inc(x_16);
obj* x_11; obj* x_13; obj* x_16; obj* x_18; obj* x_20; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28;
x_11 = lean::cnstr_get(x_4, 0);
lean::inc(x_11);
x_13 = lean::cnstr_get(x_4, 1);
lean::inc(x_13);
lean::dec(x_4);
x_19 = lean::cnstr_get(x_0, 1);
lean::inc(x_19);
x_16 = lean::cnstr_get(x_0, 2);
lean::inc(x_16);
x_18 = lean::cnstr_get(x_0, 0);
lean::inc(x_18);
x_20 = lean::cnstr_get(x_18, 0);
lean::inc(x_20);
lean::dec(x_18);
lean::inc(x_3);
x_22 = lean::apply_1(x_3, x_14);
lean::inc(x_19);
x_24 = lean::alloc_closure(reinterpret_cast<void*>(l_List_mmap___main___rarg___lambda__2), 5, 4);
lean::closure_set(x_24, 0, x_0);
lean::closure_set(x_24, 1, x_3);
lean::closure_set(x_24, 2, x_16);
lean::closure_set(x_24, 3, x_19);
x_25 = lean::apply_4(x_19, lean::box(0), lean::box(0), x_22, x_24);
return x_25;
x_24 = lean::apply_1(x_3, x_11);
x_25 = l_List_mmap___main___rarg___closed__1;
x_26 = lean::apply_4(x_20, lean::box(0), lean::box(0), x_25, x_24);
x_27 = l_List_mmap___main___rarg(x_0, lean::box(0), lean::box(0), x_3, x_13);
x_28 = lean::apply_4(x_16, lean::box(0), lean::box(0), x_26, x_27);
return x_28;
}
}
}
@ -683,36 +658,30 @@ _start:
{
if (lean::obj_tag(x_4) == 0)
{
obj* x_6; obj* x_9; obj* x_12; obj* x_13;
obj* x_6; obj* x_9; obj* x_10;
lean::dec(x_3);
x_6 = lean::cnstr_get(x_0, 0);
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
lean::dec(x_0);
x_9 = lean::cnstr_get(x_6, 1);
lean::inc(x_9);
lean::dec(x_6);
x_12 = lean::box(0);
x_13 = lean::apply_2(x_9, lean::box(0), x_12);
return x_13;
x_9 = lean::box(0);
x_10 = lean::apply_2(x_6, lean::box(0), x_9);
return x_10;
}
else
{
obj* x_14; obj* x_16; obj* x_19; obj* x_21; obj* x_25; obj* x_26; obj* x_27;
x_14 = lean::cnstr_get(x_4, 0);
lean::inc(x_14);
x_16 = lean::cnstr_get(x_4, 1);
lean::inc(x_16);
obj* x_11; obj* x_13; obj* x_16; obj* x_19; obj* x_20; obj* x_21;
x_11 = lean::cnstr_get(x_4, 0);
lean::inc(x_11);
x_13 = lean::cnstr_get(x_4, 1);
lean::inc(x_13);
lean::dec(x_4);
x_19 = lean::cnstr_get(x_0, 0);
lean::inc(x_19);
x_21 = lean::cnstr_get(x_19, 4);
lean::inc(x_21);
lean::dec(x_19);
x_16 = lean::cnstr_get(x_0, 4);
lean::inc(x_16);
lean::inc(x_3);
x_25 = lean::apply_1(x_3, x_14);
x_26 = l_List_mfor___main___rarg(x_0, lean::box(0), lean::box(0), x_3, x_16);
x_27 = lean::apply_4(x_21, lean::box(0), lean::box(0), x_25, x_26);
return x_27;
x_19 = lean::apply_1(x_3, x_11);
x_20 = l_List_mfor___main___rarg(x_0, lean::box(0), lean::box(0), x_3, x_13);
x_21 = lean::apply_4(x_16, lean::box(0), lean::box(0), x_19, x_20);
return x_21;
}
}
}
@ -1525,5 +1494,7 @@ if (io_result_is_error(w)) return w;
w = initialize_init_data_list_basic(w);
l_mjoin___rarg___closed__1 = _init_l_mjoin___rarg___closed__1();
lean::mark_persistent(l_mjoin___rarg___closed__1);
l_List_mmap___main___rarg___closed__1 = _init_l_List_mmap___main___rarg___closed__1();
lean::mark_persistent(l_List_mmap___main___rarg___closed__1);
return w;
}

155
src/stage0/init/control/estate.cpp generated
View file

@ -15,6 +15,7 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
obj* l_EState_modify___boxed(obj*, obj*);
obj* l_EState_seqRight___rarg(obj*, obj*, obj*);
obj* l_EState_resultOk_mk___rarg(obj*, obj*);
obj* l_EState_Monad___lambda__3___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_EState_HasRepr___rarg(obj*, obj*);
@ -44,6 +45,7 @@ obj* l_EState_adaptExcept___rarg(obj*, obj*, obj*);
obj* l_EState_Result_toString___main___rarg___closed__2;
obj* l_EState_bind(obj*, obj*, obj*, obj*);
obj* l_EState_pure___boxed(obj*, obj*, obj*);
obj* l_EState_seqRight___boxed(obj*, obj*, obj*, obj*);
obj* l_EState_modify(obj*, obj*);
obj* l_EState_unreachableError___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_EState_Result_toString___boxed(obj*, obj*, obj*);
@ -51,7 +53,6 @@ namespace lean {
obj* string_append(obj*, obj*);
}
obj* l_EState_Result_repr___main___rarg(obj*, obj*, obj*);
obj* l_EState_Monad___lambda__4___boxed(obj*, obj*, obj*, obj*, obj*);
extern obj* l_Option_HasRepr___rarg___closed__3;
obj* l_EState_HasOrelse___closed__1;
obj* l_EState_pure(obj*, obj*, obj*);
@ -67,7 +68,6 @@ obj* l_EState_HasRepr___boxed(obj*, obj*, obj*);
obj* l_EState_adaptExcept(obj*, obj*, obj*, obj*);
obj* l_EState_bind___boxed(obj*, obj*, obj*, obj*);
obj* l_EState_Monad___lambda__2(obj*, obj*, obj*, obj*, obj*);
obj* l_EState_Monad___lambda__4(obj*, obj*, obj*, obj*, obj*);
obj* l_EState_HasRepr(obj*, obj*, obj*);
obj* l_EState_Monad___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_EState_catch___boxed(obj*, obj*, obj*);
@ -80,6 +80,7 @@ obj* l_EState_Result_repr___rarg(obj*, obj*, obj*);
obj* l_EState_get___boxed(obj*, obj*);
obj* l_EState_orelse___rarg(obj*, obj*, obj*);
obj* l_EState_orelse___boxed(obj*, obj*, obj*);
obj* l_EState_seqRight(obj*, obj*, obj*, obj*);
obj* l_EState_MonadState(obj*, obj*);
obj* l_EState_pure___rarg(obj*, obj*);
obj* l_EState_HasToString(obj*, obj*, obj*);
@ -1085,6 +1086,79 @@ lean::dec(x_3);
return x_4;
}
}
obj* l_EState_seqRight___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = lean::apply_1(x_0, x_2);
if (lean::obj_tag(x_3) == 0)
{
obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9;
x_4 = lean::cnstr_get(x_3, 1);
if (lean::is_exclusive(x_3)) {
lean::cnstr_release(x_3, 0);
x_6 = x_3;
} else {
lean::inc(x_4);
lean::dec(x_3);
x_6 = lean::box(0);
}
x_7 = lean::box(0);
if (lean::is_scalar(x_6)) {
x_8 = lean::alloc_cnstr(0, 2, 0);
} else {
x_8 = x_6;
}
lean::cnstr_set(x_8, 0, x_7);
lean::cnstr_set(x_8, 1, x_4);
x_9 = lean::apply_1(x_1, x_8);
return x_9;
}
else
{
obj* x_11; obj* x_13; obj* x_15; obj* x_16;
lean::dec(x_1);
x_11 = lean::cnstr_get(x_3, 0);
x_13 = lean::cnstr_get(x_3, 1);
if (lean::is_exclusive(x_3)) {
x_15 = x_3;
} else {
lean::inc(x_11);
lean::inc(x_13);
lean::dec(x_3);
x_15 = lean::box(0);
}
if (lean::is_scalar(x_15)) {
x_16 = lean::alloc_cnstr(1, 2, 0);
} else {
x_16 = x_15;
}
lean::cnstr_set(x_16, 0, x_11);
lean::cnstr_set(x_16, 1, x_13);
return x_16;
}
}
}
obj* l_EState_seqRight(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_EState_seqRight___rarg), 3, 0);
return x_4;
}
}
obj* l_EState_seqRight___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = l_EState_seqRight(x_0, x_1, x_2, x_3);
lean::dec(x_0);
lean::dec(x_1);
lean::dec(x_2);
lean::dec(x_3);
return x_4;
}
}
obj* l_EState_Monad___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
@ -1332,59 +1406,6 @@ return x_31;
}
}
}
obj* l_EState_Monad___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5;
x_5 = lean::apply_1(x_2, x_4);
if (lean::obj_tag(x_5) == 0)
{
obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11;
x_6 = lean::cnstr_get(x_5, 1);
if (lean::is_exclusive(x_5)) {
lean::cnstr_release(x_5, 0);
x_8 = x_5;
} else {
lean::inc(x_6);
lean::dec(x_5);
x_8 = lean::box(0);
}
x_9 = lean::box(0);
if (lean::is_scalar(x_8)) {
x_10 = lean::alloc_cnstr(0, 2, 0);
} else {
x_10 = x_8;
}
lean::cnstr_set(x_10, 0, x_9);
lean::cnstr_set(x_10, 1, x_6);
x_11 = lean::apply_1(x_3, x_10);
return x_11;
}
else
{
obj* x_13; obj* x_15; obj* x_17; obj* x_18;
lean::dec(x_3);
x_13 = lean::cnstr_get(x_5, 0);
x_15 = lean::cnstr_get(x_5, 1);
if (lean::is_exclusive(x_5)) {
x_17 = x_5;
} else {
lean::inc(x_13);
lean::inc(x_15);
lean::dec(x_5);
x_17 = lean::box(0);
}
if (lean::is_scalar(x_17)) {
x_18 = lean::alloc_cnstr(1, 2, 0);
} else {
x_18 = x_17;
}
lean::cnstr_set(x_18, 0, x_13);
lean::cnstr_set(x_18, 1, x_15);
return x_18;
}
}
}
obj* _init_l_EState_Monad___closed__1() {
_start:
{
@ -1399,15 +1420,17 @@ lean::cnstr_set(x_2, 1, x_1);
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_EState_pure___boxed), 3, 2);
lean::closure_set(x_3, 0, lean::box(0));
lean::closure_set(x_3, 1, lean::box(0));
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_EState_Monad___lambda__2___boxed), 5, 0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_EState_Monad___lambda__3___boxed), 5, 0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_EState_Monad___lambda__4___boxed), 5, 0);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_EState_seqRight___boxed), 4, 2);
lean::closure_set(x_4, 0, lean::box(0));
lean::closure_set(x_4, 1, lean::box(0));
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_EState_Monad___lambda__2___boxed), 5, 0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_EState_Monad___lambda__3___boxed), 5, 0);
x_7 = lean::alloc_cnstr(0, 5, 0);
lean::cnstr_set(x_7, 0, x_2);
lean::cnstr_set(x_7, 1, x_3);
lean::cnstr_set(x_7, 2, x_4);
lean::cnstr_set(x_7, 3, x_5);
lean::cnstr_set(x_7, 4, x_6);
lean::cnstr_set(x_7, 2, x_5);
lean::cnstr_set(x_7, 3, x_6);
lean::cnstr_set(x_7, 4, x_4);
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_EState_bind___boxed), 4, 2);
lean::closure_set(x_8, 0, lean::box(0));
lean::closure_set(x_8, 1, lean::box(0));
@ -1455,16 +1478,6 @@ lean::dec(x_1);
return x_5;
}
}
obj* l_EState_Monad___lambda__4___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5;
x_5 = l_EState_Monad___lambda__4(x_0, x_1, x_2, x_3, x_4);
lean::dec(x_0);
lean::dec(x_1);
return x_5;
}
}
obj* l_EState_Monad___boxed(obj* x_0, obj* x_1) {
_start:
{

539
src/stage0/init/control/except.cpp generated
View file

@ -19,17 +19,15 @@ obj* l_ExceptT_HasMonadLift___boxed(obj*, obj*);
obj* l_Except_HasRepr___boxed(obj*, obj*);
obj* l_ExceptT_lift___rarg___closed__1;
obj* l_Except_repr___rarg(obj*, obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_MonadExceptAdapter___rarg(obj*, obj*, obj*, obj*);
obj* l_ExceptT_exceptTOfExcept(obj*, obj*);
obj* l_ExceptT_pure___boxed(obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_MonadExcept___rarg___lambda__1___boxed(obj*, obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__2___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_Except_toOption(obj*, obj*);
obj* l_ExceptT_return___rarg(obj*, obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__4___boxed(obj*, obj*);
uint8 l_Except_toBool___main___rarg(obj*);
obj* l_ExceptT_return___boxed(obj*, obj*);
obj* l_ExceptT_MonadFail(obj*);
obj* l_Except_return(obj*, obj*);
obj* l_MonadExcept_liftExcept___boxed(obj*, obj*, obj*);
@ -51,10 +49,8 @@ obj* l_ExceptT_MonadFail___rarg___boxed(obj*, obj*, obj*);
obj* l_ExceptT_adapt(obj*, obj*);
obj* l_Except_Inhabited___boxed(obj*, obj*);
obj* l_ExceptT_bindCont___main___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_MonadExcept_orelse_x_27___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_Monad___rarg___lambda__6(obj*, obj*, obj*);
obj* l_Function_comp___rarg(obj*, obj*, obj*);
obj* l_ExceptT_HasMonadLift(obj*, obj*);
obj* l_ExceptT_run___rarg___boxed(obj*);
obj* l_Except_toOption___main(obj*, obj*);
@ -72,7 +68,6 @@ obj* l_Except_bind___boxed(obj*, obj*, obj*);
obj* l_ExceptT_lift___rarg___lambda__1(obj*);
obj* l_ExceptT_adapt___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_catch(obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_bindCont___main___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_Except_toBool___rarg___boxed(obj*);
obj* l_Except_map(obj*, obj*, obj*);
@ -98,7 +93,6 @@ obj* l_Except_bind___rarg(obj*, obj*);
obj* l_ExceptT_MonadExcept___rarg___lambda__1(obj*, obj*, obj*);
obj* l_Except_MonadExcept___boxed(obj*);
obj* l_ExceptT_Monad___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___boxed(obj*, obj*);
obj* l_Except_toString___rarg(obj*, obj*, obj*);
obj* l_Except_Monad___lambda__2___boxed(obj*, obj*, obj*, obj*);
obj* l_Except_toString___main___boxed(obj*, obj*);
@ -108,14 +102,13 @@ obj* l_ExceptT_bindCont(obj*, obj*);
obj* l_ExceptT_catch___rarg___lambda__1(obj*, obj*, obj*);
obj* l_Except_map___rarg(obj*, obj*);
obj* l_Except_repr___main___boxed(obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6(obj*, obj*);
namespace lean {
obj* string_append(obj*, obj*);
}
obj* l_Except_HasRepr(obj*, obj*);
obj* l_monadExceptAdapterTrans(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Except_Monad___lambda__5(obj*, obj*, obj*, obj*);
obj* l_Except_bind(obj*, obj*, obj*);
obj* l_ExceptT_pure___rarg(obj*, obj*, obj*);
obj* l_ExceptT_catch___rarg___boxed(obj*, obj*, obj*, obj*);
uint8 l_Except_toBool___rarg(obj*);
obj* l_Except_toBool___main___rarg___boxed(obj*);
@ -125,25 +118,27 @@ obj* l_ExceptT_Monad___rarg___lambda__7(obj*, obj*, obj*, obj*, obj*);
extern obj* l_Option_HasRepr___rarg___closed__3;
obj* l_ExceptT_MonadExceptAdapter(obj*, obj*, obj*);
obj* l_Except_return___rarg(obj*);
obj* l_ExceptT_pure(obj*, obj*);
obj* l_Except_HasToString___rarg(obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__1___boxed(obj*, obj*);
obj* l_Except_toBool(obj*, obj*);
obj* l_ExceptT_map(obj*, obj*);
obj* l_ExceptT_HasMonadLift___rarg(obj*);
obj* l_Except_Monad___lambda__5___boxed(obj*, obj*, obj*, obj*);
obj* l_MonadExcept_liftExcept___main___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_Monad___rarg___lambda__5___boxed(obj*, obj*, obj*);
obj* l_ExceptT_Monad___rarg___lambda__7___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Except_toString___main___rarg___closed__2;
obj* l_ExceptT_MonadFunctor___rarg(obj*, obj*);
obj* l_Except_toString___main(obj*, obj*);
obj* l_ExceptT_return(obj*, obj*);
obj* l_ExceptT_mk(obj*, obj*, obj*);
obj* l_Except_catch___boxed(obj*, obj*);
obj* l_ExceptT_Monad___rarg___lambda__9(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_lift___rarg___boxed(obj*, obj*, obj*);
obj* l_ExceptT_run___rarg(obj*);
obj* l_ExceptT_map___rarg___lambda__1(obj*, obj*, obj*);
obj* l_ExceptT_Monad___rarg___lambda__8___boxed(obj*, obj*);
obj* l_ExceptT_MonadExcept___boxed(obj*, obj*);
obj* l_ExceptT_map___boxed(obj*, obj*);
obj* l_Except_map___main(obj*, obj*, obj*);
obj* l_Except_MonadExcept___lambda__1___boxed(obj*, obj*);
obj* l_MonadExcept_orelse_x_27___rarg___lambda__1(obj*, uint8, obj*, obj*);
@ -153,7 +148,6 @@ obj* l_Except_mapError___main___rarg(obj*, obj*);
obj* l_Except_Monad___lambda__1___boxed(obj*, obj*, obj*, obj*);
obj* l_Except_map___main___boxed(obj*, obj*, obj*);
obj* l_MonadExcept_orelse_x_27(obj*, obj*);
obj* l_ExceptT_Monad___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_MonadFunctor(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_exceptTOfExcept___rarg(obj*, obj*, obj*);
obj* l_ExceptT_Monad___rarg___lambda__8(obj*, obj*);
@ -161,8 +155,6 @@ obj* l_MonadExcept_orelse_x_27___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*
obj* l_ExceptT_adapt___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_Except_catch___rarg(obj*, obj*);
obj* l_Except_Inhabited___rarg(obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5(obj*, obj*);
obj* l_Function_const___rarg___boxed(obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__3(obj*, obj*);
obj* l_ExceptT_bind___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Except_Inhabited(obj*, obj*);
@ -173,7 +165,6 @@ obj* l_ExceptT_Monad___rarg___lambda__4(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_bindCont___main(obj*, obj*);
obj* l_Except_toString___main___rarg___closed__1;
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__2(obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_Except_Monad___lambda__3___boxed(obj*, obj*, obj*, obj*);
obj* l_Except_toOption___main___rarg(obj*);
obj* l_ExceptT_MonadFail___boxed(obj*);
@ -184,24 +175,21 @@ obj* l_Except_mapError___boxed(obj*, obj*, obj*);
obj* l_MonadExcept_liftExcept___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_lift(obj*, obj*);
obj* l_Except_mapError___main___boxed(obj*, obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_bind(obj*, obj*);
obj* l_ExceptT_pure___rarg___boxed(obj*, obj*, obj*);
obj* l_ExceptT_Monad___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__3___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_Except_Monad(obj*);
obj* l_ExceptT_MonadRun___rarg(obj*, obj*, obj*);
obj* l_ExceptT_bindCont___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___boxed(obj*, obj*);
obj* l_ExceptT_catch___rarg(obj*, obj*, obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Except_Monad___boxed(obj*);
obj* l_MonadExcept_orelse___boxed(obj*, obj*);
obj* l_MonadExcept_orelse_x_27___rarg___lambda__2(obj*, uint8, obj*, obj*, obj*);
obj* l_ExceptT_MonadFail___rarg(obj*, obj*, obj*);
obj* l_ExceptT_lift___boxed(obj*, obj*);
obj* l_Except_toString(obj*, obj*);
obj* l_ExceptT_Monad___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7(obj*, obj*);
obj* l_ExceptT_Monad___rarg___lambda__1(obj*, obj*, obj*);
obj* l_ExceptT_Monad___rarg(obj*);
obj* l_Except_HasToString___boxed(obj*, obj*);
obj* l_MonadExcept_orelse___rarg___boxed(obj*, obj*, obj*, obj*);
@ -216,14 +204,14 @@ obj* l_MonadExcept_liftExcept___main___rarg___boxed(obj*, obj*, obj*, obj*, obj*
obj* l_Except_HasRepr___rarg(obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__3___boxed(obj*, obj*);
obj* l_Except_toString___main___rarg(obj*, obj*, obj*);
obj* l_ExceptT_return___rarg___boxed(obj*, obj*, obj*);
obj* l_ExceptT_Monad(obj*, obj*);
obj* l_Except_Monad___closed__1;
obj* l_ExceptT_MonadExceptAdapter___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_ExceptT_map___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_monadExceptAdapterTrans___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Except_Monad___lambda__4(obj*, obj*, obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___boxed(obj*, obj*);
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__4___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_map___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_ExceptT_Monad___boxed(obj*, obj*);
obj* l_Except_toOption___boxed(obj*, obj*);
obj* l_MonadExcept_liftExcept___main(obj*, obj*, obj*);
@ -1059,51 +1047,6 @@ return x_8;
}
else
{
obj* x_9; obj* x_11; obj* x_12; obj* x_13;
x_9 = lean::cnstr_get(x_3, 0);
if (lean::is_exclusive(x_3)) {
x_11 = x_3;
} else {
lean::inc(x_9);
lean::dec(x_3);
x_11 = lean::box(0);
}
x_12 = lean::apply_1(x_2, x_9);
if (lean::is_scalar(x_11)) {
x_13 = lean::alloc_cnstr(1, 1, 0);
} else {
x_13 = x_11;
}
lean::cnstr_set(x_13, 0, x_12);
return x_13;
}
}
}
obj* l_Except_Monad___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
if (lean::obj_tag(x_3) == 0)
{
obj* x_5; obj* x_7; obj* x_8;
lean::dec(x_2);
x_5 = lean::cnstr_get(x_3, 0);
if (lean::is_exclusive(x_3)) {
x_7 = x_3;
} else {
lean::inc(x_5);
lean::dec(x_3);
x_7 = lean::box(0);
}
if (lean::is_scalar(x_7)) {
x_8 = lean::alloc_cnstr(0, 1, 0);
} else {
x_8 = x_7;
}
lean::cnstr_set(x_8, 0, x_5);
return x_8;
}
else
{
obj* x_9; obj* x_10;
if (lean::is_exclusive(x_3)) {
lean::cnstr_release(x_3, 0);
@ -1122,7 +1065,7 @@ return x_10;
}
}
}
obj* l_Except_Monad___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
obj* l_Except_Monad___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
if (lean::obj_tag(x_2) == 0)
@ -1193,7 +1136,7 @@ return x_21;
}
}
}
obj* l_Except_Monad___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
obj* l_Except_Monad___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
if (lean::obj_tag(x_2) == 0)
@ -1262,7 +1205,7 @@ return x_18;
}
}
}
obj* l_Except_Monad___lambda__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
obj* l_Except_Monad___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
if (lean::obj_tag(x_2) == 0)
@ -1296,16 +1239,17 @@ obj* _init_l_Except_Monad___closed__1() {
_start:
{
obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Except_Monad___lambda__1___boxed), 4, 0);
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Except_Monad___lambda__2___boxed), 4, 0);
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Except_map___boxed), 3, 1);
lean::closure_set(x_0, 0, lean::box(0));
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Except_Monad___lambda__1___boxed), 4, 0);
x_2 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_2, 0, x_0);
lean::cnstr_set(x_2, 1, x_1);
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_Except_return___boxed), 2, 1);
lean::closure_set(x_3, 0, lean::box(0));
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Except_Monad___lambda__3___boxed), 4, 0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Except_Monad___lambda__4___boxed), 4, 0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Except_Monad___lambda__5___boxed), 4, 0);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Except_Monad___lambda__2___boxed), 4, 0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Except_Monad___lambda__3___boxed), 4, 0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Except_Monad___lambda__4___boxed), 4, 0);
x_7 = lean::alloc_cnstr(0, 5, 0);
lean::cnstr_set(x_7, 0, x_2);
lean::cnstr_set(x_7, 1, x_3);
@ -1365,16 +1309,6 @@ obj* x_4;
x_4 = l_Except_Monad___lambda__4(x_0, x_1, x_2, x_3);
lean::dec(x_0);
lean::dec(x_1);
return x_4;
}
}
obj* l_Except_Monad___lambda__5___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = l_Except_Monad___lambda__5(x_0, x_1, x_2, x_3);
lean::dec(x_0);
lean::dec(x_1);
lean::dec(x_3);
return x_4;
}
@ -1458,7 +1392,7 @@ lean::dec(x_2);
return x_3;
}
}
obj* l_ExceptT_return___rarg(obj* x_0, obj* x_1, obj* x_2) {
obj* l_ExceptT_pure___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_6; obj* x_9; obj* x_10;
@ -1474,28 +1408,28 @@ x_10 = lean::apply_2(x_6, lean::box(0), x_9);
return x_10;
}
}
obj* l_ExceptT_return(obj* x_0, obj* x_1) {
obj* l_ExceptT_pure(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_return___rarg___boxed), 3, 0);
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_pure___rarg___boxed), 3, 0);
return x_2;
}
}
obj* l_ExceptT_return___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) {
obj* l_ExceptT_pure___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_ExceptT_return___rarg(x_0, x_1, x_2);
x_3 = l_ExceptT_pure___rarg(x_0, x_1, x_2);
lean::dec(x_1);
return x_3;
}
}
obj* l_ExceptT_return___boxed(obj* x_0, obj* x_1) {
obj* l_ExceptT_pure___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_ExceptT_return(x_0, x_1);
x_2 = l_ExceptT_pure(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
@ -1684,6 +1618,106 @@ lean::dec(x_1);
return x_2;
}
}
obj* l_ExceptT_map___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_2) == 0)
{
obj* x_4; obj* x_6; obj* x_7; obj* x_10; obj* x_13; obj* x_14;
lean::dec(x_1);
x_4 = lean::cnstr_get(x_2, 0);
if (lean::is_exclusive(x_2)) {
x_6 = x_2;
} else {
lean::inc(x_4);
lean::dec(x_2);
x_6 = lean::box(0);
}
x_7 = lean::cnstr_get(x_0, 0);
lean::inc(x_7);
lean::dec(x_0);
x_10 = lean::cnstr_get(x_7, 1);
lean::inc(x_10);
lean::dec(x_7);
if (lean::is_scalar(x_6)) {
x_13 = lean::alloc_cnstr(0, 1, 0);
} else {
x_13 = x_6;
}
lean::cnstr_set(x_13, 0, x_4);
x_14 = lean::apply_2(x_10, lean::box(0), x_13);
return x_14;
}
else
{
obj* x_15; obj* x_17; obj* x_18; obj* x_21; obj* x_24; obj* x_25; obj* x_26;
x_15 = lean::cnstr_get(x_2, 0);
if (lean::is_exclusive(x_2)) {
x_17 = x_2;
} else {
lean::inc(x_15);
lean::dec(x_2);
x_17 = lean::box(0);
}
x_18 = lean::cnstr_get(x_0, 0);
lean::inc(x_18);
lean::dec(x_0);
x_21 = lean::cnstr_get(x_18, 1);
lean::inc(x_21);
lean::dec(x_18);
x_24 = lean::apply_1(x_1, x_15);
if (lean::is_scalar(x_17)) {
x_25 = lean::alloc_cnstr(1, 1, 0);
} else {
x_25 = x_17;
}
lean::cnstr_set(x_25, 0, x_24);
x_26 = lean::apply_2(x_21, lean::box(0), x_25);
return x_26;
}
}
}
obj* l_ExceptT_map___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5; obj* x_7; obj* x_8;
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_map___rarg___lambda__1), 3, 2);
lean::closure_set(x_7, 0, x_0);
lean::closure_set(x_7, 1, x_3);
x_8 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_4, x_7);
return x_8;
}
}
obj* l_ExceptT_map(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_map___rarg___boxed), 5, 0);
return x_2;
}
}
obj* l_ExceptT_map___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5;
x_5 = l_ExceptT_map___rarg(x_0, x_1, x_2, x_3, x_4);
lean::dec(x_1);
lean::dec(x_2);
return x_5;
}
}
obj* l_ExceptT_map___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_ExceptT_map(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_ExceptT_lift___rarg___lambda__1(obj* x_0) {
_start:
{
@ -2112,222 +2146,87 @@ x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_Except
return x_2;
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
obj* l_ExceptT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_4) == 0)
if (lean::obj_tag(x_2) == 0)
{
obj* x_6; obj* x_8; obj* x_9; obj* x_12; obj* x_15; obj* x_16;
lean::dec(x_3);
x_6 = lean::cnstr_get(x_4, 0);
if (lean::is_exclusive(x_4)) {
x_8 = x_4;
obj* x_4; obj* x_6; obj* x_7; obj* x_10; obj* x_13; obj* x_14;
lean::dec(x_1);
x_4 = lean::cnstr_get(x_2, 0);
if (lean::is_exclusive(x_2)) {
x_6 = x_2;
} else {
lean::inc(x_6);
lean::dec(x_4);
x_8 = lean::box(0);
lean::inc(x_4);
lean::dec(x_2);
x_6 = lean::box(0);
}
x_9 = lean::cnstr_get(x_0, 0);
lean::inc(x_9);
x_7 = lean::cnstr_get(x_0, 0);
lean::inc(x_7);
lean::dec(x_0);
x_12 = lean::cnstr_get(x_9, 1);
lean::inc(x_12);
lean::dec(x_9);
if (lean::is_scalar(x_8)) {
x_15 = lean::alloc_cnstr(0, 1, 0);
x_10 = lean::cnstr_get(x_7, 1);
lean::inc(x_10);
lean::dec(x_7);
if (lean::is_scalar(x_6)) {
x_13 = lean::alloc_cnstr(0, 1, 0);
} else {
x_15 = x_8;
x_13 = x_6;
}
lean::cnstr_set(x_15, 0, x_6);
x_16 = lean::apply_2(x_12, lean::box(0), x_15);
return x_16;
lean::cnstr_set(x_13, 0, x_4);
x_14 = lean::apply_2(x_10, lean::box(0), x_13);
return x_14;
}
else
{
obj* x_18; obj* x_21;
lean::dec(x_0);
x_18 = lean::cnstr_get(x_4, 0);
lean::inc(x_18);
lean::dec(x_4);
x_21 = lean::apply_1(x_3, x_18);
return x_21;
}
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg___boxed), 5, 0);
return x_2;
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
if (lean::obj_tag(x_4) == 0)
{
obj* x_6; obj* x_8; obj* x_9; obj* x_12; obj* x_15; obj* x_16;
lean::dec(x_3);
x_6 = lean::cnstr_get(x_4, 0);
if (lean::is_exclusive(x_4)) {
x_8 = x_4;
obj* x_15; obj* x_16; obj* x_19; obj* x_22; obj* x_23;
if (lean::is_exclusive(x_2)) {
lean::cnstr_release(x_2, 0);
x_15 = x_2;
} else {
lean::inc(x_6);
lean::dec(x_4);
x_8 = lean::box(0);
lean::dec(x_2);
x_15 = lean::box(0);
}
x_9 = lean::cnstr_get(x_0, 0);
lean::inc(x_9);
x_16 = lean::cnstr_get(x_0, 0);
lean::inc(x_16);
lean::dec(x_0);
x_12 = lean::cnstr_get(x_9, 1);
lean::inc(x_12);
lean::dec(x_9);
if (lean::is_scalar(x_8)) {
x_15 = lean::alloc_cnstr(0, 1, 0);
x_19 = lean::cnstr_get(x_16, 1);
lean::inc(x_19);
lean::dec(x_16);
if (lean::is_scalar(x_15)) {
x_22 = lean::alloc_cnstr(1, 1, 0);
} else {
x_15 = x_8;
x_22 = x_15;
}
lean::cnstr_set(x_15, 0, x_6);
x_16 = lean::apply_2(x_12, lean::box(0), x_15);
return x_16;
lean::cnstr_set(x_22, 0, x_1);
x_23 = lean::apply_2(x_19, lean::box(0), x_22);
return x_23;
}
else
{
obj* x_18; obj* x_21;
lean::dec(x_0);
x_18 = lean::cnstr_get(x_4, 0);
lean::inc(x_18);
lean::dec(x_4);
x_21 = lean::apply_1(x_3, x_18);
return x_21;
}
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg___boxed), 5, 0);
return x_2;
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
if (lean::obj_tag(x_4) == 0)
{
obj* x_6; obj* x_8; obj* x_9; obj* x_12; obj* x_15; obj* x_16;
lean::dec(x_3);
x_6 = lean::cnstr_get(x_4, 0);
if (lean::is_exclusive(x_4)) {
x_8 = x_4;
} else {
lean::inc(x_6);
lean::dec(x_4);
x_8 = lean::box(0);
}
x_9 = lean::cnstr_get(x_0, 0);
lean::inc(x_9);
lean::dec(x_0);
x_12 = lean::cnstr_get(x_9, 1);
lean::inc(x_12);
lean::dec(x_9);
if (lean::is_scalar(x_8)) {
x_15 = lean::alloc_cnstr(0, 1, 0);
} else {
x_15 = x_8;
}
lean::cnstr_set(x_15, 0, x_6);
x_16 = lean::apply_2(x_12, lean::box(0), x_15);
return x_16;
}
else
{
obj* x_18; obj* x_21;
lean::dec(x_0);
x_18 = lean::cnstr_get(x_4, 0);
lean::inc(x_18);
lean::dec(x_4);
x_21 = lean::apply_1(x_3, x_18);
return x_21;
}
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg___boxed), 5, 0);
return x_2;
}
}
obj* l_ExceptT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11;
lean::inc(x_0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_return___rarg___boxed), 3, 2);
lean::closure_set(x_6, 0, x_0);
lean::closure_set(x_6, 1, lean::box(0));
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_Function_comp___rarg), 3, 2);
lean::closure_set(x_7, 0, x_6);
lean::closure_set(x_7, 1, x_3);
x_8 = lean::cnstr_get(x_0, 1);
lean::inc(x_8);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__1___rarg___boxed), 5, 4);
lean::closure_set(x_10, 0, x_0);
lean::closure_set(x_10, 1, lean::box(0));
lean::closure_set(x_10, 2, lean::box(0));
lean::closure_set(x_10, 3, x_7);
x_11 = lean::apply_4(x_8, lean::box(0), lean::box(0), x_4, x_10);
return x_11;
}
}
obj* l_ExceptT_Monad___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12;
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Function_const___rarg___boxed), 2, 1);
lean::closure_set(x_5, 0, x_3);
lean::inc(x_0);
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_return___rarg___boxed), 3, 2);
obj* x_5; obj* x_7; obj* x_8;
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_Monad___rarg___lambda__1), 3, 2);
lean::closure_set(x_7, 0, x_0);
lean::closure_set(x_7, 1, lean::box(0));
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_Function_comp___rarg), 3, 2);
lean::closure_set(x_8, 0, x_7);
lean::closure_set(x_8, 1, x_5);
x_9 = lean::cnstr_get(x_0, 1);
lean::inc(x_9);
x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__2___rarg___boxed), 5, 4);
lean::closure_set(x_11, 0, x_0);
lean::closure_set(x_11, 1, lean::box(0));
lean::closure_set(x_11, 2, lean::box(0));
lean::closure_set(x_11, 3, x_8);
x_12 = lean::apply_4(x_9, lean::box(0), lean::box(0), x_4, x_11);
return x_12;
lean::closure_set(x_7, 1, x_3);
x_8 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_4, x_7);
return x_8;
}
}
obj* l_ExceptT_Monad___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_4; obj* x_5; obj* x_6; obj* x_8; obj* x_9;
lean::inc(x_0);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_return___rarg___boxed), 3, 2);
lean::closure_set(x_4, 0, x_0);
lean::closure_set(x_4, 1, lean::box(0));
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Function_comp___rarg), 3, 2);
lean::closure_set(x_5, 0, x_4);
obj* x_3; obj* x_5; obj* x_6;
x_3 = lean::cnstr_get(x_0, 1);
lean::inc(x_3);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_map___rarg___lambda__1), 3, 2);
lean::closure_set(x_5, 0, x_0);
lean::closure_set(x_5, 1, x_2);
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__3___rarg___boxed), 5, 4);
lean::closure_set(x_8, 0, x_0);
lean::closure_set(x_8, 1, lean::box(0));
lean::closure_set(x_8, 2, lean::box(0));
lean::closure_set(x_8, 3, x_5);
x_9 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_1, x_8);
return x_9;
x_6 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_1, x_5);
return x_6;
}
}
obj* l_ExceptT_Monad___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
@ -2340,7 +2239,7 @@ lean::closure_set(x_6, 0, x_0);
lean::closure_set(x_6, 1, x_4);
x_7 = lean::cnstr_get(x_0, 1);
lean::inc(x_7);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__4___rarg___boxed), 5, 4);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__1___rarg___boxed), 5, 4);
lean::closure_set(x_9, 0, x_0);
lean::closure_set(x_9, 1, lean::box(0));
lean::closure_set(x_9, 2, lean::box(0));
@ -2375,7 +2274,7 @@ lean::closure_set(x_4, 0, x_0);
lean::closure_set(x_4, 1, x_2);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg___boxed), 5, 4);
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__2___rarg___boxed), 5, 4);
lean::closure_set(x_7, 0, x_0);
lean::closure_set(x_7, 1, lean::box(0));
lean::closure_set(x_7, 2, lean::box(0));
@ -2394,7 +2293,7 @@ lean::closure_set(x_6, 0, x_0);
lean::closure_set(x_6, 1, x_4);
x_7 = lean::cnstr_get(x_0, 1);
lean::inc(x_7);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg___boxed), 5, 4);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__3___rarg___boxed), 5, 4);
lean::closure_set(x_9, 0, x_0);
lean::closure_set(x_9, 1, lean::box(0));
lean::closure_set(x_9, 2, lean::box(0));
@ -2418,7 +2317,7 @@ x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_Monad___rarg___lambd
lean::closure_set(x_5, 0, x_4);
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg___boxed), 5, 4);
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_bindCont___at_ExceptT_Monad___spec__4___rarg___boxed), 5, 4);
lean::closure_set(x_8, 0, x_0);
lean::closure_set(x_8, 1, lean::box(0));
lean::closure_set(x_8, 2, lean::box(0));
@ -2432,7 +2331,7 @@ _start:
{
obj* x_2; obj* x_4; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16;
lean::inc(x_0);
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_Monad___rarg___lambda__1___boxed), 5, 1);
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_map___rarg___boxed), 5, 1);
lean::closure_set(x_2, 0, x_0);
lean::inc(x_0);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_Monad___rarg___lambda__2___boxed), 5, 1);
@ -2441,7 +2340,7 @@ x_5 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_5, 0, x_2);
lean::cnstr_set(x_5, 1, x_4);
lean::inc(x_0);
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_return___rarg___boxed), 3, 1);
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_pure___rarg___boxed), 3, 1);
lean::closure_set(x_7, 0, x_0);
lean::inc(x_0);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_ExceptT_Monad___rarg___lambda__4___boxed), 5, 1);
@ -2554,76 +2453,6 @@ lean::dec(x_1);
return x_2;
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5;
x_5 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg(x_0, x_1, x_2, x_3, x_4);
lean::dec(x_1);
lean::dec(x_2);
return x_5;
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__5(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5;
x_5 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg(x_0, x_1, x_2, x_3, x_4);
lean::dec(x_1);
lean::dec(x_2);
return x_5;
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__6(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5;
x_5 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg(x_0, x_1, x_2, x_3, x_4);
lean::dec(x_1);
lean::dec(x_2);
return x_5;
}
}
obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__7(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_ExceptT_Monad___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5;
x_5 = l_ExceptT_Monad___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4);
lean::dec(x_1);
lean::dec(x_2);
return x_5;
}
}
obj* l_ExceptT_Monad___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{

65
src/stage0/init/control/id.cpp generated
View file

@ -15,6 +15,7 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
obj* l_Id_run___rarg(obj*);
obj* l_Id_map___boxed(obj*, obj*);
obj* l_Id_pure___rarg(obj*);
obj* l_Id_pure___rarg___boxed(obj*);
obj* l_Id_Monad___lambda__1(obj*, obj*, obj*, obj*);
@ -27,10 +28,12 @@ obj* l_Id_Monad___lambda__2(obj*, obj*, obj*, obj*);
obj* l_Id_Monad___lambda__1___boxed(obj*, obj*, obj*, obj*);
obj* l_Id_Monad___lambda__2___boxed(obj*, obj*, obj*, obj*);
obj* l_Id_bind___rarg(obj*, obj*);
obj* l_Id_map___rarg(obj*, obj*);
obj* l_Id_run___boxed(obj*);
obj* l_Id_pure___boxed(obj*);
obj* l_Id_Monad___lambda__3___boxed(obj*, obj*, obj*, obj*);
obj* l_Id_bind___boxed(obj*, obj*);
obj* l_Id_map(obj*, obj*);
obj* l_Id_Monad___lambda__3(obj*, obj*, obj*, obj*);
obj* l_Id_run(obj*);
obj* l_Id_pure___rarg(obj* x_0) {
@ -92,19 +95,45 @@ lean::dec(x_1);
return x_2;
}
}
obj* l_Id_map___rarg(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::apply_1(x_0, x_1);
return x_2;
}
}
obj* l_Id_map(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_map___rarg), 2, 0);
return x_2;
}
}
obj* l_Id_map___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Id_map(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_Id_Monad___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = lean::apply_1(x_2, x_3);
return x_4;
lean::inc(x_2);
return x_2;
}
}
obj* l_Id_Monad___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
lean::inc(x_2);
return x_2;
obj* x_4;
x_4 = lean::apply_1(x_2, x_3);
return x_4;
}
}
obj* l_Id_Monad___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
@ -117,20 +146,20 @@ return x_3;
obj* _init_l_Id_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;
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);
obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_map___boxed), 2, 0);
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__1___boxed), 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_pure___boxed), 1, 0);
x_3 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_3, 0, x_0);
lean::cnstr_set(x_3, 1, x_1);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_pure___boxed), 1, 0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__2___boxed), 4, 0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__3___boxed), 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, 0, x_3);
lean::cnstr_set(x_7, 1, x_4);
lean::cnstr_set(x_7, 2, x_5);
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);
@ -147,6 +176,8 @@ obj* x_4;
x_4 = l_Id_Monad___lambda__1(x_0, x_1, x_2, x_3);
lean::dec(x_0);
lean::dec(x_1);
lean::dec(x_2);
lean::dec(x_3);
return x_4;
}
}
@ -157,8 +188,6 @@ obj* x_4;
x_4 = l_Id_Monad___lambda__2(x_0, x_1, x_2, x_3);
lean::dec(x_0);
lean::dec(x_1);
lean::dec(x_2);
lean::dec(x_3);
return x_4;
}
}

263
src/stage0/init/control/reader.cpp generated
View file

@ -14,11 +14,12 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
obj* l_ReaderT_Monad___rarg___lambda__7(obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__7(obj*, obj*, obj*);
obj* l_ReaderT_bind___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_map___rarg(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_HasMonadLift(obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__6(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__4___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__4___boxed(obj*, obj*, obj*);
obj* l_ReaderT_MonadRun(obj*, obj*, obj*);
obj* l_ReaderT_Monad(obj*, obj*);
obj* l_ReaderT_HasMonadLift___rarg(obj*);
@ -31,11 +32,13 @@ obj* l_ReaderT_Monad___rarg___lambda__6___boxed(obj*, obj*, obj*, obj*, obj*, ob
obj* l_ReaderT_MonadReader___boxed(obj*, obj*);
obj* l_ReaderT_MonadExcept___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_MonadStateRunner___boxed(obj*, obj*, obj*, obj*);
obj* l_ReaderT_map___boxed(obj*, obj*);
obj* l_ReaderT_adapt(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_run(obj*, obj*, obj*);
obj* l_ReaderT_lift(obj*, obj*, obj*, obj*);
obj* l_ReaderT_MonadExcept___rarg___lambda__1(obj*, obj*, obj*, obj*);
obj* l_ReaderT_MonadReaderAdapter___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_map___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_failure___boxed(obj*, obj*, obj*);
obj* l_monadReaderRunnerTrans(obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_MonadReaderAdapter(obj*, obj*, obj*, obj*, obj*);
@ -44,7 +47,8 @@ obj* l_ReaderT_read(obj*, obj*);
obj* l_ReaderT_MonadStateRunner(obj*, obj*, obj*, obj*);
obj* l_monadReaderTrans___rarg(obj*, obj*);
obj* l_ReaderT_MonadExcept___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__3___boxed(obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__7___boxed(obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__3___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_run___boxed(obj*, obj*, obj*);
obj* l_ReaderT_Alternative___boxed(obj*, obj*);
obj* l_monadReaderAdapterTrans___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
@ -59,7 +63,7 @@ obj* l_ReaderT_Monad___rarg___lambda__8(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg(obj*);
obj* l_ReaderT_bind(obj*, obj*);
obj* l_monadReaderRunnerTrans___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__1(obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_pure___boxed(obj*, obj*);
obj* l_ReaderT_HasMonadLift___boxed(obj*, obj*);
obj* l_ReaderT_MonadExcept___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*);
@ -69,17 +73,18 @@ obj* l_ReaderT_MonadRun___boxed(obj*, obj*, obj*);
obj* l_monadReaderRunnerTrans___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_orelse___boxed(obj*, obj*, obj*);
obj* l_ReaderT_MonadFunctor___rarg(obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__9___boxed(obj*, obj*, obj*);
obj* l_ReaderT_map(obj*, obj*);
obj* l_ReaderT_bind___boxed(obj*, obj*);
obj* l_ReaderT_MonadRun___rarg(obj*, obj*, obj*, obj*);
obj* l_ReaderT_MonadStateRunner___rarg(obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__10___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_MonadFunctor(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__3(obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__4(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__2(obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__4(obj*, obj*, obj*);
obj* l_ReaderT_MonadReaderAdapter___rarg(obj*, obj*, obj*);
obj* l_ReaderT_bind___rarg(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Function_const___rarg___boxed(obj*, obj*);
obj* l_ReaderT_orelse(obj*, obj*, obj*);
obj* l_ReaderT_MonadExcept___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*);
obj* l_ReaderT_MonadFunctor___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
@ -88,8 +93,6 @@ obj* l_ReaderT_failure___rarg___boxed(obj*, obj*, obj*);
obj* l_ReaderT_Monad___boxed(obj*, obj*);
obj* l_monadReaderAdapterTrans___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__8___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__10(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__9(obj*, obj*, obj*);
obj* l_monadReaderAdapterTrans___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_monadReaderRunnerTrans___rarg___lambda__1(obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__5(obj*, obj*, obj*, obj*, obj*);
@ -104,7 +107,6 @@ obj* l_ReaderT_MonadReader(obj*, obj*);
obj* l_ReaderT_lift___boxed(obj*, obj*, obj*, obj*);
obj* l_ReaderT_Alternative(obj*, obj*);
obj* l_ReaderT_orelse___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Monad___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_run___rarg(obj*, obj*);
obj* l_ReaderT_read___boxed(obj*, obj*);
obj* l_ReaderT_run___rarg(obj* x_0, obj* x_1) {
@ -260,36 +262,107 @@ lean::dec(x_1);
return x_2;
}
}
obj* l_ReaderT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) {
obj* l_ReaderT_map___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_3; obj* x_4; obj* x_7; obj* x_10;
x_3 = lean::apply_1(x_0, x_2);
x_4 = lean::cnstr_get(x_1, 0);
lean::inc(x_4);
obj* x_6; obj* x_9; obj* x_12; obj* x_15; obj* x_16;
x_6 = lean::cnstr_get(x_0, 0);
lean::inc(x_6);
lean::dec(x_0);
x_9 = lean::cnstr_get(x_6, 0);
lean::inc(x_9);
lean::dec(x_6);
x_12 = lean::cnstr_get(x_9, 0);
lean::inc(x_12);
lean::dec(x_9);
x_15 = lean::apply_1(x_4, x_5);
x_16 = lean::apply_4(x_12, lean::box(0), lean::box(0), x_3, x_15);
return x_16;
}
}
obj* l_ReaderT_map(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_map___rarg___boxed), 6, 0);
return x_2;
}
}
obj* l_ReaderT_map___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l_ReaderT_map___rarg(x_0, x_1, x_2, x_3, x_4, x_5);
lean::dec(x_1);
x_7 = lean::cnstr_get(x_4, 1);
lean::dec(x_2);
return x_6;
}
}
obj* l_ReaderT_map___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_ReaderT_map(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_ReaderT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_7; obj* x_10; obj* x_13; obj* x_16; obj* x_17;
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Function_const___rarg___boxed), 2, 1);
lean::closure_set(x_6, 0, x_3);
x_7 = lean::cnstr_get(x_0, 0);
lean::inc(x_7);
lean::dec(x_0);
x_10 = lean::cnstr_get(x_7, 0);
lean::inc(x_10);
lean::dec(x_7);
x_13 = lean::cnstr_get(x_10, 0);
lean::inc(x_13);
lean::dec(x_10);
x_16 = lean::apply_1(x_4, x_5);
x_17 = lean::apply_4(x_13, lean::box(0), lean::box(0), x_6, x_16);
return x_17;
}
}
obj* l_ReaderT_Monad___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4; obj* x_7; obj* x_10; obj* x_13; obj* x_14;
x_4 = lean::cnstr_get(x_0, 0);
lean::inc(x_4);
lean::dec(x_0);
x_7 = lean::cnstr_get(x_4, 0);
lean::inc(x_7);
lean::dec(x_4);
x_10 = lean::apply_2(x_7, lean::box(0), x_3);
return x_10;
x_10 = lean::cnstr_get(x_7, 0);
lean::inc(x_10);
lean::dec(x_7);
x_13 = lean::apply_1(x_1, x_2);
x_14 = lean::apply_4(x_10, lean::box(0), lean::box(0), x_3, x_13);
return x_14;
}
}
obj* l_ReaderT_Monad___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
obj* l_ReaderT_Monad___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_8; obj* x_9; obj* x_10;
obj* x_6; obj* x_9; obj* x_10; obj* x_11;
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
x_8 = lean::apply_1(x_4, x_5);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__1), 3, 2);
lean::closure_set(x_9, 0, x_3);
lean::closure_set(x_9, 1, x_0);
x_10 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_9);
return x_10;
lean::inc(x_5);
x_9 = lean::apply_1(x_3, x_5);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__2), 4, 3);
lean::closure_set(x_10, 0, x_0);
lean::closure_set(x_10, 1, x_4);
lean::closure_set(x_10, 2, x_5);
x_11 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_9, x_10);
return x_11;
}
}
obj* l_ReaderT_Monad___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2) {
obj* l_ReaderT_Monad___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_6; obj* x_9;
@ -303,28 +376,14 @@ x_9 = lean::apply_2(x_6, lean::box(0), x_1);
return x_9;
}
}
obj* l_ReaderT_Monad___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_8; obj* x_9; obj* x_10;
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
x_8 = lean::apply_1(x_4, x_5);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__3___boxed), 3, 2);
lean::closure_set(x_9, 0, x_0);
lean::closure_set(x_9, 1, x_3);
x_10 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_9);
return x_10;
}
}
obj* l_ReaderT_Monad___rarg___lambda__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5; obj* x_6; obj* x_7;
x_5 = lean::apply_1(x_0, x_1);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__1), 3, 2);
lean::closure_set(x_6, 0, x_4);
lean::closure_set(x_6, 1, x_2);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__4___boxed), 3, 2);
lean::closure_set(x_6, 0, x_2);
lean::closure_set(x_6, 1, x_4);
x_7 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_5, x_6);
return x_7;
}
@ -347,37 +406,7 @@ x_12 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_9, x_11);
return x_12;
}
}
obj* l_ReaderT_Monad___rarg___lambda__7(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5; obj* x_6; obj* x_7;
x_5 = lean::apply_1(x_0, x_1);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__3___boxed), 3, 2);
lean::closure_set(x_6, 0, x_2);
lean::closure_set(x_6, 1, x_4);
x_7 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_5, x_6);
return x_7;
}
}
obj* l_ReaderT_Monad___rarg___lambda__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_9; obj* x_11; obj* x_12;
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
lean::inc(x_5);
x_9 = lean::apply_1(x_3, x_5);
lean::inc(x_6);
x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__7), 5, 4);
lean::closure_set(x_11, 0, x_4);
lean::closure_set(x_11, 1, x_5);
lean::closure_set(x_11, 2, x_0);
lean::closure_set(x_11, 3, x_6);
x_12 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_9, x_11);
return x_12;
}
}
obj* l_ReaderT_Monad___rarg___lambda__9(obj* x_0, obj* x_1, obj* x_2) {
obj* l_ReaderT_Monad___rarg___lambda__7(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
@ -385,7 +414,7 @@ x_3 = lean::apply_1(x_0, x_1);
return x_3;
}
}
obj* l_ReaderT_Monad___rarg___lambda__10(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
obj* l_ReaderT_Monad___rarg___lambda__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_10; obj* x_11; obj* x_12;
@ -394,7 +423,7 @@ lean::inc(x_6);
lean::dec(x_0);
lean::inc(x_5);
x_10 = lean::apply_1(x_3, x_5);
x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__9___boxed), 3, 2);
x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__7___boxed), 3, 2);
lean::closure_set(x_11, 0, x_4);
lean::closure_set(x_11, 1, x_5);
x_12 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_10, x_11);
@ -406,10 +435,10 @@ _start:
{
obj* x_2; obj* x_4; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16;
lean::inc(x_0);
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__2___boxed), 6, 1);
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_map___rarg___boxed), 6, 1);
lean::closure_set(x_2, 0, x_0);
lean::inc(x_0);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__4___boxed), 6, 1);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__1___boxed), 6, 1);
lean::closure_set(x_4, 0, x_0);
x_5 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_5, 0, x_2);
@ -418,13 +447,13 @@ lean::inc(x_0);
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_pure___rarg___boxed), 4, 1);
lean::closure_set(x_7, 0, x_0);
lean::inc(x_0);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__6___boxed), 6, 1);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__3___boxed), 6, 1);
lean::closure_set(x_9, 0, x_0);
lean::inc(x_0);
x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__8___boxed), 6, 1);
x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__6___boxed), 6, 1);
lean::closure_set(x_11, 0, x_0);
lean::inc(x_0);
x_13 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__10___boxed), 6, 1);
x_13 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__8___boxed), 6, 1);
lean::closure_set(x_13, 0, x_0);
x_14 = lean::alloc_cnstr(0, 5, 0);
lean::cnstr_set(x_14, 0, x_5);
@ -448,35 +477,35 @@ x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg), 1, 0)
return x_2;
}
}
obj* l_ReaderT_Monad___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
obj* l_ReaderT_Monad___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l_ReaderT_Monad___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5);
x_6 = l_ReaderT_Monad___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4, x_5);
lean::dec(x_1);
lean::dec(x_2);
return x_6;
}
}
obj* l_ReaderT_Monad___rarg___lambda__3___boxed(obj* x_0, obj* x_1, obj* x_2) {
obj* l_ReaderT_Monad___rarg___lambda__3___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l_ReaderT_Monad___rarg___lambda__3(x_0, x_1, x_2, x_3, x_4, x_5);
lean::dec(x_1);
lean::dec(x_2);
return x_6;
}
}
obj* l_ReaderT_Monad___rarg___lambda__4___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_ReaderT_Monad___rarg___lambda__3(x_0, x_1, x_2);
x_3 = l_ReaderT_Monad___rarg___lambda__4(x_0, x_1, x_2);
lean::dec(x_2);
return x_3;
}
}
obj* l_ReaderT_Monad___rarg___lambda__4___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l_ReaderT_Monad___rarg___lambda__4(x_0, x_1, x_2, x_3, x_4, x_5);
lean::dec(x_1);
lean::dec(x_2);
return x_6;
}
}
obj* l_ReaderT_Monad___rarg___lambda__6___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
@ -487,6 +516,15 @@ lean::dec(x_2);
return x_6;
}
}
obj* l_ReaderT_Monad___rarg___lambda__7___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_ReaderT_Monad___rarg___lambda__7(x_0, x_1, x_2);
lean::dec(x_2);
return x_3;
}
}
obj* l_ReaderT_Monad___rarg___lambda__8___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
@ -497,25 +535,6 @@ lean::dec(x_2);
return x_6;
}
}
obj* l_ReaderT_Monad___rarg___lambda__9___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_ReaderT_Monad___rarg___lambda__9(x_0, x_1, x_2);
lean::dec(x_2);
return x_3;
}
}
obj* l_ReaderT_Monad___rarg___lambda__10___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l_ReaderT_Monad___rarg___lambda__10(x_0, x_1, x_2, x_3, x_4, x_5);
lean::dec(x_1);
lean::dec(x_2);
return x_6;
}
}
obj* l_ReaderT_Monad___boxed(obj* x_0, obj* x_1) {
_start:
{
@ -741,10 +760,10 @@ _start:
{
obj* x_3; obj* x_5; obj* x_6; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18;
lean::inc(x_0);
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__2___boxed), 6, 1);
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_map___rarg___boxed), 6, 1);
lean::closure_set(x_3, 0, x_0);
lean::inc(x_0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__4___boxed), 6, 1);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__1___boxed), 6, 1);
lean::closure_set(x_5, 0, x_0);
x_6 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_6, 0, x_3);
@ -753,12 +772,12 @@ lean::inc(x_0);
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_pure___rarg___boxed), 4, 1);
lean::closure_set(x_8, 0, x_0);
lean::inc(x_0);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__6___boxed), 6, 1);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__3___boxed), 6, 1);
lean::closure_set(x_10, 0, x_0);
lean::inc(x_0);
x_12 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__8___boxed), 6, 1);
x_12 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__6___boxed), 6, 1);
lean::closure_set(x_12, 0, x_0);
x_13 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__10___boxed), 6, 1);
x_13 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_Monad___rarg___lambda__8___boxed), 6, 1);
lean::closure_set(x_13, 0, x_0);
x_14 = lean::alloc_cnstr(0, 5, 0);
lean::cnstr_set(x_14, 0, x_6);

182
src/stage0/init/control/state.cpp generated
View file

@ -52,9 +52,10 @@ obj* l_StateT_Monad___rarg___lambda__8___boxed(obj*, obj*, obj*, obj*, obj*, obj
obj* l_StateT_Monad___boxed(obj*, obj*);
obj* l_StateT_bind___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_StateT_orelse___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_StateT_Monad___rarg___lambda__7(obj*, obj*, obj*, obj*);
obj* l_StateT_Monad___rarg___lambda__7(obj*, obj*);
obj* l_monadStateTrans___rarg(obj*, obj*);
obj* l_StateT_get___boxed(obj*, obj*);
obj* l_StateT_map___rarg(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_StateT_Monad___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_StateT_MonadStateAdapter___boxed(obj*, obj*, obj*);
obj* l_StateT_pure___boxed(obj*, obj*);
@ -66,11 +67,11 @@ obj* l_StateT_lift(obj*, obj*);
obj* l_StateT_failure___rarg(obj*, obj*, obj*);
obj* l_StateT_Monad___rarg___lambda__1(obj*, obj*, obj*);
obj* l_StateT_set___rarg(obj*, obj*, obj*);
obj* l_StateT_Monad___rarg___lambda__10___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_StateT_failure(obj*, obj*, obj*);
obj* l_monadStateRunnerTrans___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_MonadStateAdapter_adaptState_x_27___boxed(obj*, obj*, obj*, obj*);
obj* l_StateT_MonadExcept___rarg___lambda__2(obj*, obj*, obj*);
obj* l_StateT_map___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_monadStateRunnerTrans___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_StateT_orelse___boxed(obj*, obj*, obj*);
obj* l_StateT_MonadExcept___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*);
@ -89,6 +90,7 @@ obj* l_StateT_MonadExcept___rarg(obj*, obj*, obj*);
obj* l_StateT_pure___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_StateT_run___boxed(obj*, obj*, obj*);
obj* l_StateT_modify___rarg(obj*, obj*, obj*);
obj* l_StateT_map___rarg___lambda__1(obj*, obj*, obj*);
obj* l_StateT_run_x_27___rarg(obj*, obj*, obj*, obj*);
obj* l_MonadStateAdapter_adaptState_x_27___rarg___lambda__1(obj*, obj*);
obj* l_StateT_MonadRun___rarg(obj*, obj*, obj*, obj*, obj*);
@ -104,18 +106,19 @@ obj* l_StateT_MonadFunctor___rarg(obj*, obj*, obj*);
obj* l_StateT_set___boxed(obj*, obj*);
obj* l_StateT_run(obj*, obj*, obj*);
obj* l_StateT_MonadRun(obj*, obj*, obj*);
obj* l_StateT_map___boxed(obj*, obj*);
obj* l_StateT_MonadStateAdapter(obj*, obj*, obj*);
obj* l_StateT_bind(obj*, obj*);
obj* l_StateT_HasMonadLift(obj*, obj*);
obj* l_StateT_MonadExcept___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*);
obj* l_StateT_failure___boxed(obj*, obj*, obj*);
obj* l_StateT_Monad___rarg___lambda__10(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_StateT_map(obj*, obj*);
obj* l_StateT_Alternative(obj*, obj*);
obj* l_StateT_MonadExcept___rarg___boxed(obj*, obj*, obj*);
obj* l_StateT_lift___boxed(obj*, obj*);
obj* l_StateT_MonadState___boxed(obj*, obj*);
obj* l_MonadStateAdapter_adaptState_x_27(obj*, obj*, obj*, obj*);
obj* l_StateT_Monad___rarg___lambda__3(obj*, obj*, obj*);
obj* l_StateT_Monad___rarg___lambda__3(obj*, obj*, obj*, obj*);
obj* l_StateT_MonadState(obj*, obj*);
obj* l_monadStateRunnerTrans___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_StateT_pure(obj*, obj*);
@ -133,7 +136,6 @@ obj* l_StateT_lift___rarg(obj*, obj*, obj*, obj*);
obj* l_StateT_run_x_27(obj*, obj*);
obj* l_monadStateTrans(obj*, obj*, obj*);
obj* l_StateT_lift___rarg___lambda__1(obj*, obj*, obj*);
obj* l_StateT_Monad___rarg___lambda__9(obj*, obj*);
obj* l_StateT_MonadStateRunner___boxed(obj*, obj*);
obj* l_StateT_run___rarg(obj* x_0, obj* x_1) {
_start:
@ -327,10 +329,10 @@ lean::dec(x_1);
return x_2;
}
}
obj* l_StateT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) {
obj* l_StateT_map___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_12; obj* x_15; obj* x_16;
obj* x_3; obj* x_5; obj* x_7; obj* x_8; obj* x_11; obj* x_14; obj* x_15; obj* x_16;
x_3 = lean::cnstr_get(x_2, 0);
x_5 = lean::cnstr_get(x_2, 1);
if (lean::is_exclusive(x_2)) {
@ -341,39 +343,67 @@ if (lean::is_exclusive(x_2)) {
lean::dec(x_2);
x_7 = lean::box(0);
}
x_8 = lean::apply_1(x_0, x_3);
x_9 = lean::cnstr_get(x_1, 0);
lean::inc(x_9);
lean::dec(x_1);
x_12 = lean::cnstr_get(x_9, 1);
lean::inc(x_12);
lean::dec(x_9);
x_8 = lean::cnstr_get(x_0, 0);
lean::inc(x_8);
lean::dec(x_0);
x_11 = lean::cnstr_get(x_8, 1);
lean::inc(x_11);
lean::dec(x_8);
x_14 = lean::apply_1(x_1, x_3);
if (lean::is_scalar(x_7)) {
x_15 = lean::alloc_cnstr(0, 2, 0);
} else {
x_15 = x_7;
}
lean::cnstr_set(x_15, 0, x_8);
lean::cnstr_set(x_15, 0, x_14);
lean::cnstr_set(x_15, 1, x_5);
x_16 = lean::apply_2(x_12, lean::box(0), x_15);
x_16 = lean::apply_2(x_11, lean::box(0), x_15);
return x_16;
}
}
obj* l_StateT_Monad___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
obj* l_StateT_map___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_8; obj* x_9; obj* x_10;
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
x_8 = lean::apply_1(x_4, x_5);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__1), 3, 2);
lean::closure_set(x_9, 0, x_3);
lean::closure_set(x_9, 1, x_0);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_map___rarg___lambda__1), 3, 2);
lean::closure_set(x_9, 0, x_0);
lean::closure_set(x_9, 1, x_3);
x_10 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_9);
return x_10;
}
}
obj* l_StateT_Monad___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2) {
obj* l_StateT_map(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_map___rarg___boxed), 6, 0);
return x_2;
}
}
obj* l_StateT_map___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l_StateT_map___rarg(x_0, x_1, x_2, x_3, x_4, x_5);
lean::dec(x_1);
lean::dec(x_2);
return x_6;
}
}
obj* l_StateT_map___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_StateT_map(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_StateT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_5; obj* x_6; obj* x_9; obj* x_12; obj* x_13;
@ -403,20 +433,53 @@ x_13 = lean::apply_2(x_9, lean::box(0), x_12);
return x_13;
}
}
obj* l_StateT_Monad___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
obj* l_StateT_Monad___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_8; obj* x_9; obj* x_10;
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
x_8 = lean::apply_1(x_4, x_5);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__3), 3, 2);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__1), 3, 2);
lean::closure_set(x_9, 0, x_0);
lean::closure_set(x_9, 1, x_3);
x_10 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_9);
return x_10;
}
}
obj* l_StateT_Monad___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4; obj* x_6; obj* x_9; obj* x_10; obj* x_11;
x_4 = lean::cnstr_get(x_3, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_3, 1);
lean::inc(x_6);
lean::dec(x_3);
x_9 = lean::apply_1(x_0, x_6);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_map___rarg___lambda__1), 3, 2);
lean::closure_set(x_10, 0, x_1);
lean::closure_set(x_10, 1, x_4);
x_11 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_9, x_10);
return x_11;
}
}
obj* l_StateT_Monad___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_8; obj* x_10; obj* x_11;
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
x_8 = lean::apply_1(x_3, x_5);
lean::inc(x_6);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__3), 4, 3);
lean::closure_set(x_10, 0, x_4);
lean::closure_set(x_10, 1, x_0);
lean::closure_set(x_10, 2, x_6);
x_11 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_10);
return x_11;
}
}
obj* l_StateT_Monad___rarg___lambda__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
@ -428,8 +491,8 @@ lean::inc(x_6);
lean::dec(x_3);
x_9 = lean::apply_1(x_0, x_6);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__1), 3, 2);
lean::closure_set(x_10, 0, x_4);
lean::closure_set(x_10, 1, x_1);
lean::closure_set(x_10, 0, x_1);
lean::closure_set(x_10, 1, x_4);
x_11 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_9, x_10);
return x_11;
}
@ -450,40 +513,7 @@ x_11 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_10);
return x_11;
}
}
obj* l_StateT_Monad___rarg___lambda__7(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4; obj* x_6; obj* x_9; obj* x_10; obj* x_11;
x_4 = lean::cnstr_get(x_3, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_3, 1);
lean::inc(x_6);
lean::dec(x_3);
x_9 = lean::apply_1(x_0, x_6);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__3), 3, 2);
lean::closure_set(x_10, 0, x_1);
lean::closure_set(x_10, 1, x_4);
x_11 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_9, x_10);
return x_11;
}
}
obj* l_StateT_Monad___rarg___lambda__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_8; obj* x_10; obj* x_11;
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
x_8 = lean::apply_1(x_3, x_5);
lean::inc(x_6);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__7), 4, 3);
lean::closure_set(x_10, 0, x_4);
lean::closure_set(x_10, 1, x_0);
lean::closure_set(x_10, 2, x_6);
x_11 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_10);
return x_11;
}
}
obj* l_StateT_Monad___rarg___lambda__9(obj* x_0, obj* x_1) {
obj* l_StateT_Monad___rarg___lambda__7(obj* x_0, obj* x_1) {
_start:
{
obj* x_2; obj* x_5;
@ -494,7 +524,7 @@ x_5 = lean::apply_1(x_0, x_2);
return x_5;
}
}
obj* l_StateT_Monad___rarg___lambda__10(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
obj* l_StateT_Monad___rarg___lambda__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_9; obj* x_10; obj* x_11;
@ -502,7 +532,7 @@ x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
lean::dec(x_0);
x_9 = lean::apply_1(x_3, x_5);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__9), 2, 1);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__7), 2, 1);
lean::closure_set(x_10, 0, x_4);
x_11 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_9, x_10);
return x_11;
@ -513,10 +543,10 @@ _start:
{
obj* x_2; obj* x_4; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16;
lean::inc(x_0);
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__2___boxed), 6, 1);
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_map___rarg___boxed), 6, 1);
lean::closure_set(x_2, 0, x_0);
lean::inc(x_0);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__4___boxed), 6, 1);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__2___boxed), 6, 1);
lean::closure_set(x_4, 0, x_0);
x_5 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_5, 0, x_2);
@ -525,13 +555,13 @@ lean::inc(x_0);
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_pure___rarg___boxed), 4, 1);
lean::closure_set(x_7, 0, x_0);
lean::inc(x_0);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__6___boxed), 6, 1);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__4___boxed), 6, 1);
lean::closure_set(x_9, 0, x_0);
lean::inc(x_0);
x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__8___boxed), 6, 1);
x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__6___boxed), 6, 1);
lean::closure_set(x_11, 0, x_0);
lean::inc(x_0);
x_13 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__10___boxed), 6, 1);
x_13 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__8___boxed), 6, 1);
lean::closure_set(x_13, 0, x_0);
x_14 = lean::alloc_cnstr(0, 5, 0);
lean::cnstr_set(x_14, 0, x_5);
@ -595,16 +625,6 @@ lean::dec(x_2);
return x_6;
}
}
obj* l_StateT_Monad___rarg___lambda__10___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l_StateT_Monad___rarg___lambda__10(x_0, x_1, x_2, x_3, x_4, x_5);
lean::dec(x_1);
lean::dec(x_2);
return x_6;
}
}
obj* l_StateT_Monad___boxed(obj* x_0, obj* x_1) {
_start:
{
@ -702,10 +722,10 @@ _start:
{
obj* x_3; obj* x_5; obj* x_6; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18;
lean::inc(x_0);
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__2___boxed), 6, 1);
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_map___rarg___boxed), 6, 1);
lean::closure_set(x_3, 0, x_0);
lean::inc(x_0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__4___boxed), 6, 1);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__2___boxed), 6, 1);
lean::closure_set(x_5, 0, x_0);
x_6 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_6, 0, x_3);
@ -714,12 +734,12 @@ lean::inc(x_0);
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_pure___rarg___boxed), 4, 1);
lean::closure_set(x_8, 0, x_0);
lean::inc(x_0);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__6___boxed), 6, 1);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__4___boxed), 6, 1);
lean::closure_set(x_10, 0, x_0);
lean::inc(x_0);
x_12 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__8___boxed), 6, 1);
x_12 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__6___boxed), 6, 1);
lean::closure_set(x_12, 0, x_0);
x_13 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__10___boxed), 6, 1);
x_13 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_Monad___rarg___lambda__8___boxed), 6, 1);
lean::closure_set(x_13, 0, x_0);
x_14 = lean::alloc_cnstr(0, 5, 0);
lean::cnstr_set(x_14, 0, x_6);

76
src/stage0/init/data/array/basic.cpp generated
View file

@ -15,7 +15,6 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
obj* l_List_toArrayAux___rarg(obj*, obj*);
obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1(obj*);
obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___boxed(obj*, obj*);
obj* l_Array_toList___rarg___boxed(obj*);
obj* l_Array_empty___closed__1;
@ -29,7 +28,6 @@ obj* l_Array_update___boxed(obj*, obj*, obj*, obj*);
obj* l___private_init_data_array_basic_1__revIterateAux___main___at_Array_toList___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Array_revFoldl(obj*, obj*);
obj* l_Array_miterate___boxed(obj*, obj*, obj*);
obj* l_Array_mkArray(obj*);
obj* l_Array_isEmpty___boxed(obj*);
obj* l_Array_mfoldl___rarg(obj*, obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_Array_iterate___spec__1(obj*, obj*);
@ -64,7 +62,7 @@ obj* l_List_toArrayAux___main___boxed(obj*);
obj* l_List_toArrayAux(obj*);
obj* l_Array_miterateAux___main___at_Array_map___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Array_mforeach___rarg___closed__1;
obj* l_Array_mkArray___boxed(obj*);
obj* l_Array_mkArray___boxed(obj*, obj*, obj*);
obj* l___private_init_data_array_basic_1__revIterateAux___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_Array_toList___boxed(obj*);
obj* l_Array_map___rarg(obj*, obj*);
@ -111,7 +109,6 @@ uint8 l_Array_isEmpty___rarg(obj*);
obj* l_Array_push___boxed(obj*, obj*, obj*);
obj* l_Array_map(obj*);
obj* l_Array_map___boxed(obj*);
obj* l_Array_mkArray___rarg(obj*, obj*);
obj* l_Array_miterateAux___main___at_Array_foldl___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Array_mmap___rarg(obj*, obj*, obj*);
obj* l___private_init_data_array_basic_1__revIterateAux___boxed(obj*, obj*);
@ -133,7 +130,6 @@ obj* l_Array_updt___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_List_toArray___boxed(obj*);
obj* l_Array_isEmpty___rarg___boxed(obj*);
obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1___boxed(obj*, obj*);
obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___boxed(obj*);
obj* l_Array_iterate___rarg(obj*, obj*, obj*);
obj* l_List_toArray___rarg(obj*);
obj* l_Array_empty___boxed(obj*);
@ -163,7 +159,6 @@ uint8 nat_dec_le(obj*, obj*);
obj* l_Array_miterateAux___main___at_Array_foreach___spec__1(obj*);
obj* l_Array_revIterate___rarg___boxed(obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_Array_foldl___spec__1___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg(obj*, obj*, obj*);
obj* l_Array_getOpt___boxed(obj*);
obj* l___private_init_data_array_basic_1__revIterateAux___main___boxed(obj*, obj*);
obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*);
@ -224,75 +219,14 @@ x_3 = lean::array_push(x_1, x_2);
return x_3;
}
}
obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Array_mkArray___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; uint8 x_4;
x_3 = lean::mk_nat_obj(0ul);
x_4 = lean::nat_dec_eq(x_1, x_3);
if (x_4 == 0)
{
obj* x_5; obj* x_6; obj* x_9;
x_5 = lean::mk_nat_obj(1ul);
x_6 = lean::nat_sub(x_1, x_5);
lean::dec(x_1);
lean::inc(x_0);
x_9 = lean::array_push(x_2, x_0);
x_1 = x_6;
x_2 = x_9;
goto _start;
}
else
{
lean::dec(x_1);
lean::dec(x_0);
return x_2;
}
}
}
obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg), 3, 0);
return x_1;
}
}
obj* l_Array_mkArray___rarg(obj* x_0, obj* x_1) {
_start:
{
obj* x_2; obj* x_3;
x_2 = lean::mk_empty_array(x_0);
x_3 = l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg(x_1, x_0, x_2);
obj* x_3;
x_3 = lean::mk_array(x_1, x_2);
return x_3;
}
}
obj* l_Array_mkArray(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Array_mkArray___rarg), 2, 0);
return x_1;
}
}
obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_Nat_repeatCore___main___at_Array_mkArray___spec__1(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l_Array_mkArray___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_Array_mkArray(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* _init_l_Array_empty___closed__1() {
_start:
{
@ -396,7 +330,7 @@ _start:
{
obj* x_1; obj* x_2;
x_1 = lean::mk_nat_obj(1ul);
x_2 = l_Array_mkArray___rarg(x_1, x_0);
x_2 = lean::mk_array(x_1, x_0);
return x_2;
}
}

393
src/stage0/init/data/hashmap/basic.cpp generated
View file

@ -24,30 +24,38 @@ obj* nat_sub(obj*, obj*);
}
obj* l_HashMap_find___rarg(obj*, obj*, obj*, obj*);
obj* l_HashMapImp_find___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_HashMapImp_expand(obj*, obj*);
obj* l_mkHashMap(obj*, obj*, obj*, obj*);
obj* l_HashMap_contains___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_HashMap_find___boxed(obj*, obj*);
obj* l_HashMapImp_erase___boxed(obj*, obj*);
obj* l_HashMapImp_foldBuckets(obj*, obj*, obj*);
usize l_HashMapImp_mkIdx(obj*, obj*, usize);
obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___rarg(obj*, obj*, obj*);
uint8 l_HashMapImp_contains___rarg(obj*, obj*, obj*, obj*);
obj* l_HashMap_Inhabited___boxed(obj*, obj*, obj*, obj*);
obj* l_HashMap_HasEmptyc___boxed(obj*, obj*, obj*, obj*);
obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1(obj*, obj*);
obj* l_HashMap_size___boxed(obj*, obj*, obj*, obj*);
obj* l_HashMap_erase___rarg(obj*, obj*, obj*, obj*);
obj* l_HashMap_insert___boxed(obj*, obj*);
obj* l_HashMapBucket_update___rarg(obj*, usize, obj*, obj*);
obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_HashMapImp_contains___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_HashMapImp_contains___boxed(obj*, obj*);
obj* l_HashMap_size___rarg(obj*);
obj* l_HashMap_empty___boxed(obj*, obj*, obj*, obj*);
obj* l_HashMap_insert___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_AssocList_erase___main___rarg(obj*, obj*, obj*);
obj* l_HashMapImp_moveEntries___rarg(obj*, obj*, obj*, obj*);
obj* l_HashMap_empty___rarg___boxed(obj*);
obj* l_HashMap_contains(obj*, obj*);
obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_HashMapImp_moveEntries___main(obj*, obj*);
obj* l_mkHashMapImp(obj*, obj*);
obj* l_AssocList_find___main___rarg(obj*, obj*, obj*);
obj* l_HashMapImp_reinsertAux___rarg(obj*, obj*, obj*, obj*);
obj* l_HashMapImp_expand___boxed(obj*, obj*);
obj* l_HashMap_fold(obj*, obj*, obj*, obj*, obj*);
obj* l_HashMapImp_erase(obj*, obj*);
uint8 l_AssocList_contains___main___rarg(obj*, obj*, obj*);
@ -55,6 +63,7 @@ obj* l_HashMap_insert(obj*, obj*);
namespace lean {
uint8 nat_dec_lt(obj*, obj*);
}
obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_HashMapBucket_update___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_HashMapImp_foldBuckets___boxed(obj*, obj*, obj*);
obj* l_HashMapImp_erase___rarg(obj*, obj*, obj*, obj*);
@ -67,8 +76,8 @@ obj* l_HashMapImp_insert___rarg(obj*, obj*, obj*, obj*, obj*);
namespace lean {
uint8 nat_dec_eq(obj*, obj*);
}
obj* l_HashMapImp_moveEntries___boxed(obj*, obj*);
obj* l_HashMap_find(obj*, obj*);
obj* l_Array_mkArray___rarg(obj*, obj*);
obj* l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_mkHashMapImp___boxed(obj*, obj*);
obj* l_mkHashMap___boxed(obj*, obj*, obj*, obj*);
@ -78,19 +87,27 @@ obj* l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1(obj*, obj*
obj* l_HashMapImp_find___boxed(obj*, obj*);
obj* l_mkHashMapImp___rarg___closed__1;
obj* l_HashMapImp_reinsertAux(obj*, obj*);
obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___boxed(obj*, obj*, obj*);
obj* l_HashMapImp_moveEntries___main___rarg(obj*, obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1(obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___boxed(obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___boxed(obj*, obj*, obj*);
namespace lean {
usize usize_modn(usize, obj*);
}
obj* l_mkHashMap___rarg(obj*);
obj* l_HashMapImp_foldBuckets___rarg(obj*, obj*, obj*);
obj* l_HashMapImp_moveEntries(obj*, obj*);
obj* l_HashMap_empty(obj*, obj*, obj*, obj*);
obj* l_HashMapImp_contains(obj*, obj*);
obj* l_HashMapImp_moveEntries___main___boxed(obj*, obj*);
obj* l_HashMapBucket_update(obj*, obj*);
obj* l_mkHashMapImp___rarg(obj*);
obj* l_HashMapImp_insert(obj*, obj*);
obj* l_HashMap_erase(obj*, obj*);
obj* l_HashMap_fold___rarg(obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1(obj*, obj*, obj*);
obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___boxed(obj*, obj*);
obj* l_HashMapImp_fold___boxed(obj*, obj*, obj*);
obj* l_HashMap_erase___boxed(obj*, obj*);
obj* l_HashMap_Inhabited(obj*, obj*, obj*, obj*);
@ -101,6 +118,7 @@ uint8 nat_dec_le(obj*, obj*);
obj* l_HashMapImp_mkIdx___boxed(obj*, obj*, obj*);
obj* l_HashMapImp_find(obj*, obj*);
obj* l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_HashMap_find___rarg___boxed(obj*, obj*, obj*, obj*);
namespace lean {
obj* nat_mul(obj*, obj*);
@ -110,6 +128,7 @@ obj* l_HashMap_fold___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_HashMapImp_insert___boxed(obj*, obj*);
obj* l_HashMap_HasEmptyc(obj*, obj*, obj*, obj*);
obj* l_AssocList_foldl___main___rarg(obj*, obj*, obj*);
obj* l_HashMapImp_expand___rarg(obj*, obj*, obj*);
obj* l_HashMapBucket_update___rarg(obj* x_0, usize x_1, obj* x_2, obj* x_3) {
_start:
{
@ -152,7 +171,7 @@ _start:
obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4;
x_0 = lean::box(0);
x_1 = lean::mk_nat_obj(8ul);
x_2 = l_Array_mkArray___rarg(x_1, x_0);
x_2 = lean::mk_array(x_1, x_0);
x_3 = lean::mk_nat_obj(0ul);
x_4 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_4, 0, x_3);
@ -170,7 +189,7 @@ if (x_2 == 0)
{
obj* x_3; obj* x_4; obj* x_5;
x_3 = lean::box(0);
x_4 = l_Array_mkArray___rarg(x_0, x_3);
x_4 = lean::mk_array(x_0, x_3);
x_5 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_5, 0, x_1);
lean::cnstr_set(x_5, 1, x_4);
@ -435,18 +454,54 @@ lean::dec(x_1);
return x_2;
}
}
obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_6; uint8 x_7;
lean::inc(x_2);
x_6 = lean::array_sz(x_2);
x_7 = lean::nat_dec_lt(x_3, x_6);
lean::dec(x_6);
if (x_7 == 0)
{
lean::dec(x_3);
lean::dec(x_0);
lean::dec(x_2);
return x_4;
}
else
{
obj* x_12; obj* x_14; obj* x_15; obj* x_16;
x_12 = lean::array_index(x_2, x_3);
lean::inc(x_0);
x_14 = l_AssocList_foldl___main___rarg(x_0, x_4, x_12);
x_15 = lean::mk_nat_obj(1ul);
x_16 = lean::nat_add(x_3, x_15);
lean::dec(x_3);
x_3 = x_16;
x_4 = x_14;
goto _start;
}
}
}
obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg___boxed), 5, 0);
return x_3;
}
}
obj* l_HashMapImp_fold___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_6; obj* x_8;
x_3 = lean::cnstr_get(x_0, 1);
obj* x_3; obj* x_5; obj* x_6;
x_3 = lean::cnstr_get(x_2, 1);
lean::inc(x_3);
lean::dec(x_0);
x_6 = lean::mk_nat_obj(0ul);
lean::inc(x_3);
x_8 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_3, x_2, x_3, x_6, x_1);
lean::dec(x_3);
return x_8;
x_5 = lean::mk_nat_obj(0ul);
x_6 = l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg(x_0, x_2, x_3, x_5, x_1);
lean::dec(x_2);
return x_6;
}
}
obj* l_HashMapImp_fold(obj* x_0, obj* x_1, obj* x_2) {
@ -457,6 +512,26 @@ x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_HashMapImp_fold___rarg), 3,
return x_3;
}
}
obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5;
x_5 = l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg(x_0, x_1, x_2, x_3, x_4);
lean::dec(x_1);
return x_5;
}
}
obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_Array_miterateAux___main___at_HashMapImp_fold___spec__1(x_0, x_1, x_2);
lean::dec(x_0);
lean::dec(x_1);
lean::dec(x_2);
return x_3;
}
}
obj* l_HashMapImp_fold___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
@ -468,6 +543,182 @@ lean::dec(x_2);
return x_3;
}
}
obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_2) == 0)
{
lean::dec(x_0);
return x_1;
}
else
{
obj* x_4; obj* x_6; obj* x_8; obj* x_10; obj* x_11; obj* x_14; usize x_15; usize x_16; obj* x_18; obj* x_19; obj* x_20;
x_4 = lean::cnstr_get(x_2, 0);
x_6 = lean::cnstr_get(x_2, 1);
x_8 = lean::cnstr_get(x_2, 2);
if (lean::is_exclusive(x_2)) {
x_10 = x_2;
} else {
lean::inc(x_4);
lean::inc(x_6);
lean::inc(x_8);
lean::dec(x_2);
x_10 = lean::box(0);
}
x_11 = lean::array_get_size(x_1);
lean::inc(x_4);
lean::inc(x_0);
x_14 = lean::apply_1(x_0, x_4);
x_15 = lean::unbox_size_t(x_14);
x_16 = lean::usize_modn(x_15, x_11);
lean::dec(x_11);
x_18 = lean::array_idx(x_1, x_16);
if (lean::is_scalar(x_10)) {
x_19 = lean::alloc_cnstr(1, 3, 0);
} else {
x_19 = x_10;
}
lean::cnstr_set(x_19, 0, x_4);
lean::cnstr_set(x_19, 1, x_6);
lean::cnstr_set(x_19, 2, x_18);
x_20 = lean::array_updt(x_1, x_16, x_19);
x_1 = x_20;
x_2 = x_8;
goto _start;
}
}
}
obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___rarg), 3, 0);
return x_2;
}
}
obj* l_HashMapImp_moveEntries___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4; uint8 x_5;
x_4 = lean::array_get_size(x_2);
x_5 = lean::nat_dec_lt(x_1, x_4);
lean::dec(x_4);
if (x_5 == 0)
{
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
return x_3;
}
else
{
obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16;
x_10 = lean::array_index(x_2, x_1);
x_11 = lean::box(0);
x_12 = lean::array_update(x_2, x_1, x_11);
lean::inc(x_0);
x_14 = l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___rarg(x_0, x_3, x_10);
x_15 = lean::mk_nat_obj(1ul);
x_16 = lean::nat_add(x_1, x_15);
lean::dec(x_1);
x_1 = x_16;
x_2 = x_12;
x_3 = x_14;
goto _start;
}
}
}
obj* l_HashMapImp_moveEntries___main(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_HashMapImp_moveEntries___main___rarg), 4, 0);
return x_2;
}
}
obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_HashMapImp_moveEntries___main___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_HashMapImp_moveEntries___main(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_HashMapImp_moveEntries___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = l_HashMapImp_moveEntries___main___rarg(x_0, x_1, x_2, x_3);
return x_4;
}
}
obj* l_HashMapImp_moveEntries(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_HashMapImp_moveEntries___rarg), 4, 0);
return x_2;
}
}
obj* l_HashMapImp_moveEntries___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_HashMapImp_moveEntries(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_HashMapImp_expand___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_4; obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11;
x_3 = lean::array_get_size(x_2);
x_4 = lean::mk_nat_obj(2ul);
x_5 = lean::nat_mul(x_3, x_4);
lean::dec(x_3);
x_7 = lean::box(0);
x_8 = lean::mk_array(x_5, x_7);
x_9 = lean::mk_nat_obj(0ul);
x_10 = l_HashMapImp_moveEntries___main___rarg(x_0, x_9, x_2, x_8);
x_11 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_11, 0, x_1);
lean::cnstr_set(x_11, 1, x_10);
return x_11;
}
}
obj* l_HashMapImp_expand(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_HashMapImp_expand___rarg), 3, 0);
return x_2;
}
}
obj* l_HashMapImp_expand___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_HashMapImp_expand(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_HashMapImp_insert___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
@ -508,59 +759,43 @@ lean::cnstr_set(x_25, 1, x_4);
lean::cnstr_set(x_25, 2, x_16);
x_26 = lean::array_updt(x_7, x_15, x_25);
x_27 = lean::nat_dec_le(x_23, x_10);
lean::dec(x_10);
if (x_27 == 0)
{
obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_38;
x_28 = lean::mk_nat_obj(2ul);
x_29 = lean::nat_mul(x_10, x_28);
lean::dec(x_10);
x_31 = lean::box(0);
x_32 = l_Array_mkArray___rarg(x_29, x_31);
x_33 = lean::alloc_closure(reinterpret_cast<void*>(l_HashMapImp_reinsertAux___rarg), 4, 1);
lean::closure_set(x_33, 0, x_1);
x_34 = lean::mk_nat_obj(0ul);
lean::inc(x_26);
x_36 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_26, x_33, x_26, x_34, x_32);
lean::dec(x_26);
if (lean::is_scalar(x_9)) {
x_38 = lean::alloc_cnstr(0, 2, 0);
} else {
x_38 = x_9;
}
lean::cnstr_set(x_38, 0, x_23);
lean::cnstr_set(x_38, 1, x_36);
return x_38;
obj* x_30;
lean::dec(x_9);
x_30 = l_HashMapImp_expand___rarg(x_1, x_23, x_26);
return x_30;
}
else
{
obj* x_41;
lean::dec(x_10);
obj* x_32;
lean::dec(x_1);
if (lean::is_scalar(x_9)) {
x_41 = lean::alloc_cnstr(0, 2, 0);
x_32 = lean::alloc_cnstr(0, 2, 0);
} else {
x_41 = x_9;
x_32 = x_9;
}
lean::cnstr_set(x_41, 0, x_23);
lean::cnstr_set(x_41, 1, x_26);
return x_41;
lean::cnstr_set(x_32, 0, x_23);
lean::cnstr_set(x_32, 1, x_26);
return x_32;
}
}
else
{
obj* x_44; obj* x_45; obj* x_46;
obj* x_35; obj* x_36; obj* x_37;
lean::dec(x_10);
lean::dec(x_1);
x_44 = l_AssocList_replace___main___rarg(x_0, x_3, x_4, x_16);
x_45 = lean::array_updt(x_7, x_15, x_44);
x_35 = l_AssocList_replace___main___rarg(x_0, x_3, x_4, x_16);
x_36 = lean::array_updt(x_7, x_15, x_35);
if (lean::is_scalar(x_9)) {
x_46 = lean::alloc_cnstr(0, 2, 0);
x_37 = lean::alloc_cnstr(0, 2, 0);
} else {
x_46 = x_9;
x_37 = x_9;
}
lean::cnstr_set(x_46, 0, x_5);
lean::cnstr_set(x_46, 1, x_45);
return x_46;
lean::cnstr_set(x_37, 0, x_5);
lean::cnstr_set(x_37, 1, x_36);
return x_37;
}
}
}
@ -848,14 +1083,56 @@ lean::dec(x_1);
return x_2;
}
}
obj* l_HashMap_fold___rarg(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_6; uint8 x_7;
lean::inc(x_2);
x_6 = lean::array_sz(x_2);
x_7 = lean::nat_dec_lt(x_3, x_6);
lean::dec(x_6);
if (x_7 == 0)
{
lean::dec(x_3);
lean::dec(x_0);
lean::dec(x_2);
return x_4;
}
else
{
obj* x_12; obj* x_14; obj* x_15; obj* x_16;
x_12 = lean::array_index(x_2, x_3);
lean::inc(x_0);
x_14 = l_AssocList_foldl___main___rarg(x_0, x_4, x_12);
x_15 = lean::mk_nat_obj(1ul);
x_16 = lean::nat_add(x_3, x_15);
lean::dec(x_3);
x_3 = x_16;
x_4 = x_14;
goto _start;
}
}
}
obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_HashMapImp_fold___rarg(x_0, x_1, x_2);
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg___boxed), 5, 0);
return x_3;
}
}
obj* l_HashMap_fold___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_5; obj* x_6;
x_3 = lean::cnstr_get(x_2, 1);
lean::inc(x_3);
x_5 = lean::mk_nat_obj(0ul);
x_6 = l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg(x_0, x_2, x_3, x_5, x_1);
lean::dec(x_2);
return x_6;
}
}
obj* l_HashMap_fold(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
@ -864,6 +1141,26 @@ x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_HashMap_fold___rarg), 3, 0);
return x_5;
}
}
obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5;
x_5 = l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg(x_0, x_1, x_2, x_3, x_4);
lean::dec(x_1);
return x_5;
}
}
obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_Array_miterateAux___main___at_HashMap_fold___spec__1(x_0, x_1, x_2);
lean::dec(x_0);
lean::dec(x_1);
lean::dec(x_2);
return x_3;
}
}
obj* l_HashMap_fold___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{

294
src/stage0/init/data/rbmap/basic.cpp generated
View file

@ -31,6 +31,7 @@ obj* l_RBNode_lowerBound(obj*, obj*);
obj* l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(obj*, obj*);
obj* l_RBNode_revFold___rarg(obj*, obj*, obj*);
obj* l_RBNode_findCore___main___rarg(obj*, obj*, obj*);
obj* l_RBNode_mfold___main___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBNode_findCore___main___boxed(obj*, obj*);
obj* l_RBMap_find___rarg(obj*, obj*, obj*);
obj* l_RBNode_insert___boxed(obj*, obj*);
@ -38,6 +39,7 @@ obj* l_RBMap_any___main(obj*, obj*, obj*);
obj* l_RBMap_contains___boxed(obj*, obj*);
obj* l_RBMap_any___main___rarg___boxed(obj*, obj*);
obj* l_RBNode_setBlack(obj*, obj*);
obj* l_List_foldl___main___at_rbmapOf___spec__1(obj*, obj*);
obj* l_RBNode_isRed___boxed(obj*, obj*);
obj* l_RBNode_ins___main(obj*, obj*);
obj* l_RBNode_balance2___main___boxed(obj*, obj*);
@ -66,6 +68,7 @@ obj* l_RBNode_mfold___boxed(obj*, obj*, obj*, obj*);
obj* l_RBMap_revFold___boxed(obj*, obj*, obj*, obj*);
obj* l_RBMap_insert___rarg(obj*, obj*, obj*, obj*);
obj* l_RBMap_findCore___main___boxed(obj*, obj*);
obj* l_List_foldl___main___at_rbmapOf___spec__1___rarg(obj*, obj*, obj*);
obj* l_rbmapOf(obj*, obj*);
obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*);
obj* l_RBMap_toList___boxed(obj*, obj*, obj*);
@ -111,6 +114,7 @@ obj* l_RBMap_ofList___main___rarg(obj*, obj*);
obj* l_RBNode_balance2___main(obj*, obj*);
obj* l_RBNode_all___main___rarg___boxed(obj*, obj*);
obj* l_RBMap_revFold___main___boxed(obj*, obj*, obj*, obj*);
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
extern obj* l_List_repr___main___rarg___closed__3;
obj* l_RBNode_singleton(obj*, obj*);
obj* l_RBMap_ofList___rarg(obj*, obj*);
@ -203,7 +207,7 @@ obj* l_RBNode_setBlack___main(obj*, obj*);
obj* l_RBMap_find___boxed(obj*, obj*);
extern obj* l_List_repr___main___rarg___closed__1;
obj* l_RBMap_any___boxed(obj*, obj*, obj*);
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*);
obj* l_RBMap_fromList___boxed(obj*, obj*);
uint8 l_RBMap_all___rarg(obj*, obj*);
obj* l_RBMap_any___rarg___boxed(obj*, obj*);
@ -214,10 +218,10 @@ obj* l_RBMap_revFold(obj*, obj*, obj*, obj*);
obj* l_RBNode_revFold___main(obj*, obj*, obj*);
obj* l_RBNode_revFold___main___at_RBMap_toList___main___spec__1(obj*, obj*);
obj* l_List_foldl___main___at_RBMap_fromList___spec__1___rarg(obj*, obj*, obj*);
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBMap_lowerBound___main___rarg(obj*, obj*, obj*);
obj* l_RBMap_isEmpty___boxed(obj*, obj*, obj*);
uint8 l_RBMap_all___main___rarg(obj*, obj*);
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBNode_balance1___boxed(obj*, obj*);
obj* l_RBNode_depth___main___boxed(obj*, obj*);
obj* l_RBMap_revFold___main(obj*, obj*, obj*, obj*);
@ -246,6 +250,7 @@ obj* l_RBNode_ins___rarg(obj*, obj*, obj*, obj*);
obj* l_RBMap_all___rarg___boxed(obj*, obj*);
obj* l_RBNode_fold___boxed(obj*, obj*, obj*);
obj* l_RBNode_fold___main(obj*, obj*, obj*);
obj* l_List_foldl___main___at_rbmapOf___spec__1___boxed(obj*, obj*);
obj* l_RBNode_fold(obj*, obj*, obj*);
obj* l_RBNode_depth(obj*, obj*);
obj* l_RBMap_min___main___boxed(obj*, obj*, obj*);
@ -266,7 +271,7 @@ obj* l_RBMap_max___main___rarg(obj*);
uint8 l_RBMap_isEmpty___rarg(obj*);
obj* l_List_foldl___main___at_RBMap_fromList___spec__1(obj*, obj*);
obj* l_List_repr___main___at_RBMap_HasRepr___spec__1___rarg(obj*, obj*, obj*);
obj* l_RBNode_mfold___main___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBNode_mfold___main___rarg___lambda__1(obj*, obj*, obj*, obj*);
obj* l_RBNode_revFold(obj*, obj*, obj*);
uint8 l_RBMap_contains___rarg(obj*, obj*, obj*);
obj* l_RBNode_revFold___boxed(obj*, obj*, obj*);
@ -529,29 +534,29 @@ return x_2;
obj* l_RBNode_fold___main___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_1) == 0)
if (lean::obj_tag(x_2) == 0)
{
lean::dec(x_0);
return x_2;
return x_1;
}
else
{
obj* x_4; obj* x_6; obj* x_8; obj* x_10; obj* x_14; obj* x_16;
x_4 = lean::cnstr_get(x_1, 0);
x_4 = lean::cnstr_get(x_2, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_1, 1);
x_6 = lean::cnstr_get(x_2, 1);
lean::inc(x_6);
x_8 = lean::cnstr_get(x_1, 2);
x_8 = lean::cnstr_get(x_2, 2);
lean::inc(x_8);
x_10 = lean::cnstr_get(x_1, 3);
x_10 = lean::cnstr_get(x_2, 3);
lean::inc(x_10);
lean::dec(x_1);
lean::dec(x_2);
lean::inc(x_0);
x_14 = l_RBNode_fold___main___rarg(x_0, x_4, x_2);
x_14 = l_RBNode_fold___main___rarg(x_0, x_1, x_4);
lean::inc(x_0);
x_16 = lean::apply_3(x_0, x_6, x_8, x_14);
x_1 = x_10;
x_2 = x_16;
x_16 = lean::apply_3(x_0, x_14, x_6, x_8);
x_1 = x_16;
x_2 = x_10;
goto _start;
}
}
@ -602,13 +607,21 @@ lean::dec(x_2);
return x_3;
}
}
obj* l_RBNode_mfold___main___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
obj* l_RBNode_mfold___main___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = l_RBNode_mfold___main___rarg(x_0, x_1, x_3, x_2);
return x_4;
}
}
obj* l_RBNode_mfold___main___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
_start:
{
obj* x_8; obj* x_9; obj* x_10;
lean::inc(x_0);
x_8 = lean::apply_3(x_0, x_1, x_2, x_6);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___rarg), 4, 3);
x_8 = lean::apply_3(x_0, x_6, x_1, x_2);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___rarg___lambda__1), 4, 3);
lean::closure_set(x_9, 0, x_3);
lean::closure_set(x_9, 1, x_0);
lean::closure_set(x_9, 2, x_4);
@ -619,7 +632,7 @@ return x_10;
obj* l_RBNode_mfold___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
if (lean::obj_tag(x_2) == 0)
if (lean::obj_tag(x_3) == 0)
{
obj* x_5; obj* x_8; obj* x_11;
lean::dec(x_1);
@ -629,28 +642,28 @@ lean::dec(x_0);
x_8 = lean::cnstr_get(x_5, 1);
lean::inc(x_8);
lean::dec(x_5);
x_11 = lean::apply_2(x_8, lean::box(0), x_3);
x_11 = lean::apply_2(x_8, lean::box(0), x_2);
return x_11;
}
else
{
obj* x_12; obj* x_14; obj* x_16; obj* x_18; obj* x_21; obj* x_25; obj* x_27; obj* x_28;
x_12 = lean::cnstr_get(x_2, 0);
x_12 = lean::cnstr_get(x_3, 0);
lean::inc(x_12);
x_14 = lean::cnstr_get(x_2, 1);
x_14 = lean::cnstr_get(x_3, 1);
lean::inc(x_14);
x_16 = lean::cnstr_get(x_2, 2);
x_16 = lean::cnstr_get(x_3, 2);
lean::inc(x_16);
x_18 = lean::cnstr_get(x_2, 3);
x_18 = lean::cnstr_get(x_3, 3);
lean::inc(x_18);
lean::dec(x_2);
lean::dec(x_3);
x_21 = lean::cnstr_get(x_0, 1);
lean::inc(x_21);
lean::inc(x_1);
lean::inc(x_0);
x_25 = l_RBNode_mfold___main___rarg(x_0, x_1, x_12, x_3);
x_25 = l_RBNode_mfold___main___rarg(x_0, x_1, x_2, x_12);
lean::inc(x_21);
x_27 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___rarg___lambda__1), 7, 6);
x_27 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___rarg___lambda__2), 7, 6);
lean::closure_set(x_27, 0, x_1);
lean::closure_set(x_27, 1, x_14);
lean::closure_set(x_27, 2, x_16);
@ -713,29 +726,29 @@ return x_4;
obj* l_RBNode_revFold___main___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_1) == 0)
if (lean::obj_tag(x_2) == 0)
{
lean::dec(x_0);
return x_2;
return x_1;
}
else
{
obj* x_4; obj* x_6; obj* x_8; obj* x_10; obj* x_14; obj* x_16;
x_4 = lean::cnstr_get(x_1, 0);
x_4 = lean::cnstr_get(x_2, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_1, 1);
x_6 = lean::cnstr_get(x_2, 1);
lean::inc(x_6);
x_8 = lean::cnstr_get(x_1, 2);
x_8 = lean::cnstr_get(x_2, 2);
lean::inc(x_8);
x_10 = lean::cnstr_get(x_1, 3);
x_10 = lean::cnstr_get(x_2, 3);
lean::inc(x_10);
lean::dec(x_1);
lean::dec(x_2);
lean::inc(x_0);
x_14 = l_RBNode_revFold___main___rarg(x_0, x_10, x_2);
x_14 = l_RBNode_revFold___main___rarg(x_0, x_1, x_10);
lean::inc(x_0);
x_16 = lean::apply_3(x_0, x_6, x_8, x_14);
x_1 = x_4;
x_2 = x_16;
x_16 = lean::apply_3(x_0, x_14, x_6, x_8);
x_1 = x_16;
x_2 = x_4;
goto _start;
}
}
@ -3308,7 +3321,15 @@ lean::dec(x_4);
return x_5;
}
}
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(x_0, x_1, x_3, x_2);
return x_4;
}
}
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
_start:
{
obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20;
@ -3324,7 +3345,7 @@ lean::dec(x_7);
x_16 = lean::box(0);
x_17 = lean::apply_2(x_13, lean::box(0), x_16);
x_18 = lean::apply_4(x_9, lean::box(0), lean::box(0), x_12, x_17);
x_19 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg), 4, 3);
x_19 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1), 4, 3);
lean::closure_set(x_19, 0, x_0);
lean::closure_set(x_19, 1, x_1);
lean::closure_set(x_19, 2, x_4);
@ -3335,7 +3356,7 @@ return x_20;
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
if (lean::obj_tag(x_2) == 0)
if (lean::obj_tag(x_3) == 0)
{
obj* x_5; obj* x_8; obj* x_11;
lean::dec(x_1);
@ -3345,28 +3366,28 @@ lean::dec(x_0);
x_8 = lean::cnstr_get(x_5, 1);
lean::inc(x_8);
lean::dec(x_5);
x_11 = lean::apply_2(x_8, lean::box(0), x_3);
x_11 = lean::apply_2(x_8, lean::box(0), x_2);
return x_11;
}
else
{
obj* x_12; obj* x_14; obj* x_16; obj* x_18; obj* x_21; obj* x_25; obj* x_27; obj* x_28;
x_12 = lean::cnstr_get(x_2, 0);
x_12 = lean::cnstr_get(x_3, 0);
lean::inc(x_12);
x_14 = lean::cnstr_get(x_2, 1);
x_14 = lean::cnstr_get(x_3, 1);
lean::inc(x_14);
x_16 = lean::cnstr_get(x_2, 2);
x_16 = lean::cnstr_get(x_3, 2);
lean::inc(x_16);
x_18 = lean::cnstr_get(x_2, 3);
x_18 = lean::cnstr_get(x_3, 3);
lean::inc(x_18);
lean::dec(x_2);
lean::dec(x_3);
x_21 = lean::cnstr_get(x_0, 1);
lean::inc(x_21);
lean::inc(x_1);
lean::inc(x_0);
x_25 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(x_0, x_1, x_12, x_3);
x_25 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(x_0, x_1, x_2, x_12);
lean::inc(x_21);
x_27 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1___boxed), 7, 6);
x_27 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2___boxed), 7, 6);
lean::closure_set(x_27, 0, x_0);
lean::closure_set(x_27, 1, x_1);
lean::closure_set(x_27, 2, x_14);
@ -3391,7 +3412,7 @@ _start:
{
obj* x_3; obj* x_4;
x_3 = lean::box(0);
x_4 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(x_0, x_1, x_2, x_3);
x_4 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(x_0, x_1, x_3, x_2);
return x_4;
}
}
@ -3403,11 +3424,11 @@ x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_RBMap_mfor___rarg), 3, 0);
return x_5;
}
}
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
_start:
{
obj* x_7;
x_7 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4, x_5, x_6);
x_7 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5, x_6);
lean::dec(x_6);
return x_7;
}
@ -3532,31 +3553,31 @@ return x_3;
obj* l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
if (lean::obj_tag(x_1) == 0)
{
return x_1;
return x_0;
}
else
{
obj* x_2; obj* x_4; obj* x_6; obj* x_8; obj* x_11; obj* x_12; obj* x_13;
x_2 = lean::cnstr_get(x_0, 0);
x_2 = lean::cnstr_get(x_1, 0);
lean::inc(x_2);
x_4 = lean::cnstr_get(x_0, 1);
x_4 = lean::cnstr_get(x_1, 1);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_0, 2);
x_6 = lean::cnstr_get(x_1, 2);
lean::inc(x_6);
x_8 = lean::cnstr_get(x_0, 3);
x_8 = lean::cnstr_get(x_1, 3);
lean::inc(x_8);
lean::dec(x_0);
x_11 = l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(x_8, x_1);
lean::dec(x_1);
x_11 = l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(x_0, x_8);
x_12 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_12, 0, x_4);
lean::cnstr_set(x_12, 1, x_6);
x_13 = lean::alloc_cnstr(1, 2, 0);
lean::cnstr_set(x_13, 0, x_12);
lean::cnstr_set(x_13, 1, x_11);
x_0 = x_2;
x_1 = x_13;
x_0 = x_13;
x_1 = x_2;
goto _start;
}
}
@ -3574,7 +3595,7 @@ _start:
{
obj* x_1; obj* x_2;
x_1 = lean::box(0);
x_2 = l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(x_0, x_1);
x_2 = l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(x_1, x_0);
return x_2;
}
}
@ -4074,9 +4095,21 @@ return x_3;
obj* l_RBMap_insert___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = l_RBNode_insert___rarg(x_0, x_1, x_2, x_3);
return x_4;
uint8 x_4;
x_4 = l_RBNode_isRed___main___rarg(x_1);
if (x_4 == 0)
{
obj* x_5;
x_5 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_3);
return x_5;
}
else
{
obj* x_6; obj* x_7;
x_6 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_3);
x_7 = l_RBNode_setBlack___main___rarg(x_6);
return x_7;
}
}
}
obj* l_RBMap_insert___main(obj* x_0, obj* x_1) {
@ -4100,9 +4133,21 @@ return x_2;
obj* l_RBMap_insert___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = l_RBNode_insert___rarg(x_0, x_1, x_2, x_3);
return x_4;
uint8 x_4;
x_4 = l_RBNode_isRed___main___rarg(x_1);
if (x_4 == 0)
{
obj* x_5;
x_5 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_3);
return x_5;
}
else
{
obj* x_6; obj* x_7;
x_6 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_3);
x_7 = l_RBNode_setBlack___main___rarg(x_6);
return x_7;
}
}
}
obj* l_RBMap_insert(obj* x_0, obj* x_1) {
@ -4135,7 +4180,7 @@ return x_3;
}
else
{
obj* x_4; obj* x_6; obj* x_9; obj* x_11; obj* x_15; obj* x_16;
obj* x_4; obj* x_6; obj* x_9; obj* x_11; obj* x_15; uint8 x_16;
x_4 = lean::cnstr_get(x_1, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_1, 1);
@ -4148,8 +4193,20 @@ lean::inc(x_11);
lean::dec(x_4);
lean::inc(x_0);
x_15 = l_RBMap_ofList___main___rarg(x_0, x_6);
x_16 = l_RBNode_insert___rarg(x_0, x_15, x_9, x_11);
return x_16;
x_16 = l_RBNode_isRed___main___rarg(x_15);
if (x_16 == 0)
{
obj* x_17;
x_17 = l_RBNode_ins___main___rarg(x_0, x_15, x_9, x_11);
return x_17;
}
else
{
obj* x_18; obj* x_19;
x_18 = l_RBNode_ins___main___rarg(x_0, x_15, x_9, x_11);
x_19 = l_RBNode_setBlack___main___rarg(x_18);
return x_19;
}
}
}
}
@ -4331,9 +4388,10 @@ return x_2;
obj* l_RBMap_lowerBound___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_RBMap_lowerBound___main___rarg(x_0, x_1, x_2);
return x_3;
obj* x_3; obj* x_4;
x_3 = lean::box(0);
x_4 = l_RBNode_lowerBound___main___rarg(x_0, x_1, x_2, x_3);
return x_4;
}
}
obj* l_RBMap_lowerBound(obj* x_0, obj* x_1) {
@ -4411,7 +4469,7 @@ return x_1;
}
else
{
obj* x_4; obj* x_6; obj* x_9; obj* x_11; obj* x_15;
obj* x_4; obj* x_6; obj* x_9; obj* x_11; uint8 x_14;
x_4 = lean::cnstr_get(x_2, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_2, 1);
@ -4422,12 +4480,27 @@ lean::inc(x_9);
x_11 = lean::cnstr_get(x_4, 1);
lean::inc(x_11);
lean::dec(x_4);
x_14 = l_RBNode_isRed___main___rarg(x_1);
if (x_14 == 0)
{
obj* x_16;
lean::inc(x_0);
x_15 = l_RBNode_insert___rarg(x_0, x_1, x_9, x_11);
x_1 = x_15;
x_16 = l_RBNode_ins___main___rarg(x_0, x_1, x_9, x_11);
x_1 = x_16;
x_2 = x_6;
goto _start;
}
else
{
obj* x_19; obj* x_20;
lean::inc(x_0);
x_19 = l_RBNode_ins___main___rarg(x_0, x_1, x_9, x_11);
x_20 = l_RBNode_setBlack___main___rarg(x_19);
x_1 = x_20;
x_2 = x_6;
goto _start;
}
}
}
}
obj* l_List_foldl___main___at_RBMap_fromList___spec__1(obj* x_0, obj* x_1) {
@ -4619,14 +4692,67 @@ lean::dec(x_2);
return x_3;
}
}
obj* l_rbmapOf___rarg(obj* x_0, obj* x_1) {
obj* l_List_foldl___main___at_rbmapOf___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_2) == 0)
{
lean::dec(x_0);
return x_1;
}
else
{
obj* x_4; obj* x_6; obj* x_9; obj* x_11; uint8 x_14;
x_4 = lean::cnstr_get(x_2, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_2, 1);
lean::inc(x_6);
lean::dec(x_2);
x_9 = lean::cnstr_get(x_4, 0);
lean::inc(x_9);
x_11 = lean::cnstr_get(x_4, 1);
lean::inc(x_11);
lean::dec(x_4);
x_14 = l_RBNode_isRed___main___rarg(x_1);
if (x_14 == 0)
{
obj* x_16;
lean::inc(x_0);
x_16 = l_RBNode_ins___main___rarg(x_0, x_1, x_9, x_11);
x_1 = x_16;
x_2 = x_6;
goto _start;
}
else
{
obj* x_19; obj* x_20;
lean::inc(x_0);
x_19 = l_RBNode_ins___main___rarg(x_0, x_1, x_9, x_11);
x_20 = l_RBNode_setBlack___main___rarg(x_19);
x_1 = x_20;
x_2 = x_6;
goto _start;
}
}
}
}
obj* l_List_foldl___main___at_rbmapOf___spec__1(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBMap_fromList___rarg(x_0, x_1);
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_List_foldl___main___at_rbmapOf___spec__1___rarg), 3, 0);
return x_2;
}
}
obj* l_rbmapOf___rarg(obj* x_0, obj* x_1) {
_start:
{
obj* x_2; obj* x_3;
x_2 = lean::box(0);
x_3 = l_List_foldl___main___at_rbmapOf___spec__1___rarg(x_1, x_2, x_0);
return x_3;
}
}
obj* l_rbmapOf(obj* x_0, obj* x_1) {
_start:
{
@ -4635,6 +4761,16 @@ x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_rbmapOf___rarg), 2, 0);
return x_2;
}
}
obj* l_List_foldl___main___at_rbmapOf___spec__1___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_List_foldl___main___at_rbmapOf___spec__1(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_rbmapOf___boxed(obj* x_0, obj* x_1) {
_start:
{

206
src/stage0/init/data/rbtree/basic.cpp generated
View file

@ -15,9 +15,11 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
obj* l_RBTree_min___boxed(obj*, obj*);
obj* l_RBNode_setBlack___main___rarg(obj*);
obj* l_RBTree_HasEmptyc___boxed(obj*, obj*);
obj* l_RBNode_any___main___at_RBTree_any___spec__1(obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___boxed(obj*, obj*, obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBTree_find___boxed(obj*);
obj* l_RBNode_revFold___main___at_RBTree_revFold___spec__1___boxed(obj*, obj*);
obj* l_RBNode_findCore___main___rarg(obj*, obj*, obj*);
@ -30,7 +32,7 @@ obj* l_RBTree_ofList___main(obj*);
obj* l_RBNode_fold___main___at_RBTree_fold___spec__1(obj*, obj*);
obj* l_RBTree_seteq___rarg___boxed(obj*, obj*, obj*);
obj* l_RBTree_toList(obj*, obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*);
obj* l_RBTree_any___rarg___boxed(obj*, obj*);
obj* l_RBTree_isEmpty___rarg___boxed(obj*);
uint8 l_RBTree_all___rarg(obj*, obj*);
@ -40,9 +42,9 @@ obj* l_RBTree_all___boxed(obj*, obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1(obj*, obj*, obj*);
obj* l_RBTree_depth___rarg___boxed(obj*, obj*);
obj* l_RBTree_fromList___rarg(obj*, obj*);
obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*);
obj* l_RBNode_min___main___rarg(obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBNode_ins___main___rarg(obj*, obj*, obj*, obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*);
obj* l_RBNode_max___main___rarg(obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg(obj*, obj*, obj*, obj*);
obj* l_RBTree_contains___boxed(obj*);
@ -77,6 +79,7 @@ obj* l_RBTree_mfold___boxed(obj*, obj*, obj*, obj*);
obj* l_RBNode_revFold___main___at_RBTree_revFold___spec__1(obj*, obj*);
obj* l_RBTree_mfor___boxed(obj*, obj*, obj*, obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___boxed(obj*, obj*, obj*);
uint8 l_RBNode_isRed___main___rarg(obj*);
obj* l_RBTree_HasRepr(obj*, obj*);
uint8 l_RBNode_all___main___at_RBTree_all___spec__1___rarg(obj*, obj*);
obj* l_RBTree_revFold(obj*, obj*, obj*);
@ -120,11 +123,12 @@ obj* l_RBTree_ofList___main___boxed(obj*);
obj* l_RBTree_depth(obj*, obj*);
obj* l_RBTree_fold___boxed(obj*, obj*, obj*);
obj* l_RBTree_toList___boxed(obj*, obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBTree_ofList___rarg(obj*, obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBTree_ofList___boxed(obj*);
obj* l_RBTree_mfor___rarg(obj*, obj*, obj*);
obj* l_RBTree_insert___boxed(obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBTree_all(obj*, obj*);
obj* l_List_foldl___main___at_RBTree_fromList___spec__1___boxed(obj*);
obj* l_List_repr___main___rarg(obj*, obj*);
@ -205,27 +209,27 @@ return x_2;
obj* l_RBNode_fold___main___at_RBTree_fold___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_1) == 0)
if (lean::obj_tag(x_2) == 0)
{
lean::dec(x_0);
return x_2;
return x_1;
}
else
{
obj* x_4; obj* x_6; obj* x_8; obj* x_12; obj* x_14;
x_4 = lean::cnstr_get(x_1, 0);
x_4 = lean::cnstr_get(x_2, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_1, 1);
x_6 = lean::cnstr_get(x_2, 1);
lean::inc(x_6);
x_8 = lean::cnstr_get(x_1, 3);
x_8 = lean::cnstr_get(x_2, 3);
lean::inc(x_8);
lean::dec(x_1);
lean::dec(x_2);
lean::inc(x_0);
x_12 = l_RBNode_fold___main___at_RBTree_fold___spec__1___rarg(x_0, x_4, x_2);
x_12 = l_RBNode_fold___main___at_RBTree_fold___spec__1___rarg(x_0, x_1, x_4);
lean::inc(x_0);
x_14 = lean::apply_2(x_0, x_6, x_12);
x_1 = x_8;
x_2 = x_14;
x_14 = lean::apply_2(x_0, x_12, x_6);
x_1 = x_14;
x_2 = x_8;
goto _start;
}
}
@ -278,27 +282,27 @@ return x_3;
obj* l_RBNode_revFold___main___at_RBTree_revFold___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_1) == 0)
if (lean::obj_tag(x_2) == 0)
{
lean::dec(x_0);
return x_2;
return x_1;
}
else
{
obj* x_4; obj* x_6; obj* x_8; obj* x_12; obj* x_14;
x_4 = lean::cnstr_get(x_1, 0);
x_4 = lean::cnstr_get(x_2, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_1, 1);
x_6 = lean::cnstr_get(x_2, 1);
lean::inc(x_6);
x_8 = lean::cnstr_get(x_1, 3);
x_8 = lean::cnstr_get(x_2, 3);
lean::inc(x_8);
lean::dec(x_1);
lean::dec(x_2);
lean::inc(x_0);
x_12 = l_RBNode_revFold___main___at_RBTree_revFold___spec__1___rarg(x_0, x_8, x_2);
x_12 = l_RBNode_revFold___main___at_RBTree_revFold___spec__1___rarg(x_0, x_1, x_8);
lean::inc(x_0);
x_14 = lean::apply_2(x_0, x_6, x_12);
x_1 = x_4;
x_2 = x_14;
x_14 = lean::apply_2(x_0, x_12, x_6);
x_1 = x_14;
x_2 = x_4;
goto _start;
}
}
@ -348,13 +352,21 @@ lean::dec(x_2);
return x_3;
}
}
obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg(x_0, x_1, x_3, x_2);
return x_4;
}
}
obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_7; obj* x_8; obj* x_9;
lean::inc(x_0);
x_7 = lean::apply_2(x_0, x_1, x_5);
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg), 4, 3);
x_7 = lean::apply_2(x_0, x_5, x_1);
x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1), 4, 3);
lean::closure_set(x_8, 0, x_2);
lean::closure_set(x_8, 1, x_0);
lean::closure_set(x_8, 2, x_3);
@ -365,7 +377,7 @@ return x_9;
obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
if (lean::obj_tag(x_2) == 0)
if (lean::obj_tag(x_3) == 0)
{
obj* x_5; obj* x_8; obj* x_11;
lean::dec(x_1);
@ -375,26 +387,26 @@ lean::dec(x_0);
x_8 = lean::cnstr_get(x_5, 1);
lean::inc(x_8);
lean::dec(x_5);
x_11 = lean::apply_2(x_8, lean::box(0), x_3);
x_11 = lean::apply_2(x_8, lean::box(0), x_2);
return x_11;
}
else
{
obj* x_12; obj* x_14; obj* x_16; obj* x_19; obj* x_23; obj* x_25; obj* x_26;
x_12 = lean::cnstr_get(x_2, 0);
x_12 = lean::cnstr_get(x_3, 0);
lean::inc(x_12);
x_14 = lean::cnstr_get(x_2, 1);
x_14 = lean::cnstr_get(x_3, 1);
lean::inc(x_14);
x_16 = lean::cnstr_get(x_2, 3);
x_16 = lean::cnstr_get(x_3, 3);
lean::inc(x_16);
lean::dec(x_2);
lean::dec(x_3);
x_19 = lean::cnstr_get(x_0, 1);
lean::inc(x_19);
lean::inc(x_1);
lean::inc(x_0);
x_23 = l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg(x_0, x_1, x_12, x_3);
x_23 = l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg(x_0, x_1, x_2, x_12);
lean::inc(x_19);
x_25 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1), 6, 5);
x_25 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__2), 6, 5);
lean::closure_set(x_25, 0, x_1);
lean::closure_set(x_25, 1, x_14);
lean::closure_set(x_25, 2, x_0);
@ -452,7 +464,15 @@ lean::dec(x_3);
return x_4;
}
}
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(x_0, x_1, x_3, x_2);
return x_4;
}
}
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_8; obj* x_11; obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19;
@ -468,7 +488,7 @@ lean::dec(x_6);
x_15 = lean::box(0);
x_16 = lean::apply_2(x_12, lean::box(0), x_15);
x_17 = lean::apply_4(x_8, lean::box(0), lean::box(0), x_11, x_16);
x_18 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg), 4, 3);
x_18 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1), 4, 3);
lean::closure_set(x_18, 0, x_0);
lean::closure_set(x_18, 1, x_1);
lean::closure_set(x_18, 2, x_3);
@ -479,7 +499,7 @@ return x_19;
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
if (lean::obj_tag(x_2) == 0)
if (lean::obj_tag(x_3) == 0)
{
obj* x_5; obj* x_8; obj* x_11;
lean::dec(x_1);
@ -489,26 +509,26 @@ lean::dec(x_0);
x_8 = lean::cnstr_get(x_5, 1);
lean::inc(x_8);
lean::dec(x_5);
x_11 = lean::apply_2(x_8, lean::box(0), x_3);
x_11 = lean::apply_2(x_8, lean::box(0), x_2);
return x_11;
}
else
{
obj* x_12; obj* x_14; obj* x_16; obj* x_19; obj* x_23; obj* x_25; obj* x_26;
x_12 = lean::cnstr_get(x_2, 0);
x_12 = lean::cnstr_get(x_3, 0);
lean::inc(x_12);
x_14 = lean::cnstr_get(x_2, 1);
x_14 = lean::cnstr_get(x_3, 1);
lean::inc(x_14);
x_16 = lean::cnstr_get(x_2, 3);
x_16 = lean::cnstr_get(x_3, 3);
lean::inc(x_16);
lean::dec(x_2);
lean::dec(x_3);
x_19 = lean::cnstr_get(x_0, 1);
lean::inc(x_19);
lean::inc(x_1);
lean::inc(x_0);
x_23 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(x_0, x_1, x_12, x_3);
x_23 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(x_0, x_1, x_2, x_12);
lean::inc(x_19);
x_25 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1___boxed), 6, 5);
x_25 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2___boxed), 6, 5);
lean::closure_set(x_25, 0, x_0);
lean::closure_set(x_25, 1, x_1);
lean::closure_set(x_25, 2, x_14);
@ -532,7 +552,7 @@ _start:
{
obj* x_3; obj* x_4;
x_3 = lean::box(0);
x_4 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(x_0, x_1, x_2, x_3);
x_4 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(x_0, x_1, x_3, x_2);
return x_4;
}
}
@ -544,11 +564,11 @@ x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_RBTree_mfor___rarg), 3, 0);
return x_4;
}
}
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4, x_5);
x_6 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5);
lean::dec(x_5);
return x_6;
}
@ -624,26 +644,26 @@ return x_2;
obj* l_RBNode_revFold___main___at_RBTree_toList___spec__1___rarg(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
if (lean::obj_tag(x_1) == 0)
{
return x_1;
return x_0;
}
else
{
obj* x_2; obj* x_4; obj* x_6; obj* x_9; obj* x_10;
x_2 = lean::cnstr_get(x_0, 0);
x_2 = lean::cnstr_get(x_1, 0);
lean::inc(x_2);
x_4 = lean::cnstr_get(x_0, 1);
x_4 = lean::cnstr_get(x_1, 1);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_0, 3);
x_6 = lean::cnstr_get(x_1, 3);
lean::inc(x_6);
lean::dec(x_0);
x_9 = l_RBNode_revFold___main___at_RBTree_toList___spec__1___rarg(x_6, x_1);
lean::dec(x_1);
x_9 = l_RBNode_revFold___main___at_RBTree_toList___spec__1___rarg(x_0, x_6);
x_10 = lean::alloc_cnstr(1, 2, 0);
lean::cnstr_set(x_10, 0, x_4);
lean::cnstr_set(x_10, 1, x_9);
x_0 = x_2;
x_1 = x_10;
x_0 = x_10;
x_1 = x_2;
goto _start;
}
}
@ -661,7 +681,7 @@ _start:
{
obj* x_1; obj* x_2;
x_1 = lean::box(0);
x_2 = l_RBNode_revFold___main___at_RBTree_toList___spec__1___rarg(x_0, x_1);
x_2 = l_RBNode_revFold___main___at_RBTree_toList___spec__1___rarg(x_1, x_0);
return x_2;
}
}
@ -839,10 +859,23 @@ return x_2;
obj* l_RBTree_insert___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_4;
x_3 = lean::box(0);
x_4 = l_RBNode_insert___rarg(x_0, x_1, x_2, x_3);
return x_4;
uint8 x_3;
x_3 = l_RBNode_isRed___main___rarg(x_1);
if (x_3 == 0)
{
obj* x_4; obj* x_5;
x_4 = lean::box(0);
x_5 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_4);
return x_5;
}
else
{
obj* x_6; obj* x_7; obj* x_8;
x_6 = lean::box(0);
x_7 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_6);
x_8 = l_RBNode_setBlack___main___rarg(x_7);
return x_8;
}
}
}
obj* l_RBTree_insert(obj* x_0) {
@ -874,7 +907,7 @@ return x_3;
}
else
{
obj* x_4; obj* x_6; obj* x_10; obj* x_11; obj* x_12;
obj* x_4; obj* x_6; obj* x_10; uint8 x_11;
x_4 = lean::cnstr_get(x_1, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_1, 1);
@ -882,9 +915,22 @@ lean::inc(x_6);
lean::dec(x_1);
lean::inc(x_0);
x_10 = l_RBTree_ofList___main___rarg(x_0, x_6);
x_11 = lean::box(0);
x_12 = l_RBNode_insert___rarg(x_0, x_10, x_4, x_11);
return x_12;
x_11 = l_RBNode_isRed___main___rarg(x_10);
if (x_11 == 0)
{
obj* x_12; obj* x_13;
x_12 = lean::box(0);
x_13 = l_RBNode_ins___main___rarg(x_0, x_10, x_4, x_12);
return x_13;
}
else
{
obj* x_14; obj* x_15; obj* x_16;
x_14 = lean::box(0);
x_15 = l_RBNode_ins___main___rarg(x_0, x_10, x_4, x_14);
x_16 = l_RBNode_setBlack___main___rarg(x_15);
return x_16;
}
}
}
}
@ -986,7 +1032,7 @@ uint8 l_RBTree_contains___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_RBTree_find___rarg(x_0, x_1, x_2);
x_3 = l_RBNode_findCore___main___rarg(x_0, x_1, x_2);
if (lean::obj_tag(x_3) == 0)
{
uint8 x_4;
@ -1038,19 +1084,35 @@ return x_1;
}
else
{
obj* x_4; obj* x_6; obj* x_9; obj* x_11;
obj* x_4; obj* x_6; uint8 x_9;
x_4 = lean::cnstr_get(x_2, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_2, 1);
lean::inc(x_6);
lean::dec(x_2);
x_9 = lean::box(0);
x_9 = l_RBNode_isRed___main___rarg(x_1);
if (x_9 == 0)
{
obj* x_10; obj* x_12;
x_10 = lean::box(0);
lean::inc(x_0);
x_11 = l_RBNode_insert___rarg(x_0, x_1, x_4, x_9);
x_1 = x_11;
x_12 = l_RBNode_ins___main___rarg(x_0, x_1, x_4, x_10);
x_1 = x_12;
x_2 = x_6;
goto _start;
}
else
{
obj* x_14; obj* x_16; obj* x_17;
x_14 = lean::box(0);
lean::inc(x_0);
x_16 = l_RBNode_ins___main___rarg(x_0, x_1, x_4, x_14);
x_17 = l_RBNode_setBlack___main___rarg(x_16);
x_1 = x_17;
x_2 = x_6;
goto _start;
}
}
}
}
obj* l_List_foldl___main___at_RBTree_fromList___spec__1(obj* x_0) {
@ -1349,7 +1411,7 @@ lean::inc(x_10);
lean::dec(x_2);
lean::inc(x_1);
lean::inc(x_0);
x_15 = l_RBTree_find___rarg(x_0, x_1, x_8);
x_15 = l_RBNode_findCore___main___rarg(x_0, x_1, x_8);
if (lean::obj_tag(x_15) == 0)
{
uint8 x_20;

2861
src/stage0/init/lean/compiler/ir.cpp generated
View file

File diff suppressed because it is too large Load diff

223
src/stage0/init/lean/disjoint_set.cpp generated
View file

@ -41,7 +41,6 @@ obj* l_Lean_DisjointSet_find___main(obj*);
obj* l_Lean_DisjointSet_find(obj*);
obj* l_HashMapImp_find___at___private_init_lean_disjoint__set_1__findAux___main___spec__1___boxed(obj*);
uint8 l_AssocList_contains___main___at_Lean_DisjointSet_merge___main___spec__11___rarg(obj*, obj*, obj*);
obj* l_HashMapImp_reinsertAux___rarg(obj*, obj*, obj*, obj*);
obj* l___private_init_lean_disjoint__set_1__findAux___main___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_DisjointSet_find___main___rarg(obj*, obj*, obj*, obj*);
obj* l_Lean_DisjointSet_merge___rarg(obj*, obj*, obj*, obj*, obj*);
@ -64,8 +63,6 @@ uint8 nat_dec_eq(obj*, obj*);
}
obj* l_AssocList_contains___main___at_Lean_DisjointSet_merge___main___spec__2(obj*);
obj* l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__12___rarg(obj*, obj*, obj*, obj*);
obj* l_Array_mkArray___rarg(obj*, obj*);
obj* l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_DisjointSet_find___rarg(obj*, obj*, obj*, obj*);
obj* l_Lean_DisjointSet_merge___main___boxed(obj*);
obj* l_AssocList_contains___main___at_Lean_DisjointSet_merge___main___spec__2___rarg___boxed(obj*, obj*, obj*);
@ -107,13 +104,11 @@ obj* l___private_init_lean_disjoint__set_1__findAux___rarg(obj*, obj*, obj*, obj
uint8 l_AssocList_contains___main___at_Lean_DisjointSet_merge___main___spec__8___rarg(obj*, obj*, obj*);
obj* l_HashMapImp_insert___at_Lean_DisjointSet_merge___main___spec__10___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_HashMapImp_find___at___private_init_lean_disjoint__set_1__findAux___main___spec__1___rarg(obj*, obj*, obj*, obj*);
namespace lean {
obj* nat_mul(obj*, obj*);
}
obj* l_Lean_DisjointSet_find___boxed(obj*);
obj* l___private_init_lean_disjoint__set_1__findAux___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__9___boxed(obj*);
obj* l_HashMapImp_find___at___private_init_lean_disjoint__set_1__findAux___main___spec__1___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_HashMapImp_expand___rarg(obj*, obj*, obj*);
obj* l_Lean_mkDisjointSet(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
@ -641,59 +636,43 @@ lean::cnstr_set(x_25, 1, x_4);
lean::cnstr_set(x_25, 2, x_16);
x_26 = lean::array_updt(x_7, x_15, x_25);
x_27 = lean::nat_dec_le(x_23, x_10);
lean::dec(x_10);
if (x_27 == 0)
{
obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_38;
x_28 = lean::mk_nat_obj(2ul);
x_29 = lean::nat_mul(x_10, x_28);
lean::dec(x_10);
x_31 = lean::box(0);
x_32 = l_Array_mkArray___rarg(x_29, x_31);
x_33 = lean::alloc_closure(reinterpret_cast<void*>(l_HashMapImp_reinsertAux___rarg), 4, 1);
lean::closure_set(x_33, 0, x_1);
x_34 = lean::mk_nat_obj(0ul);
lean::inc(x_26);
x_36 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_26, x_33, x_26, x_34, x_32);
lean::dec(x_26);
if (lean::is_scalar(x_9)) {
x_38 = lean::alloc_cnstr(0, 2, 0);
} else {
x_38 = x_9;
}
lean::cnstr_set(x_38, 0, x_23);
lean::cnstr_set(x_38, 1, x_36);
return x_38;
obj* x_30;
lean::dec(x_9);
x_30 = l_HashMapImp_expand___rarg(x_1, x_23, x_26);
return x_30;
}
else
{
obj* x_41;
lean::dec(x_10);
obj* x_32;
lean::dec(x_1);
if (lean::is_scalar(x_9)) {
x_41 = lean::alloc_cnstr(0, 2, 0);
x_32 = lean::alloc_cnstr(0, 2, 0);
} else {
x_41 = x_9;
x_32 = x_9;
}
lean::cnstr_set(x_41, 0, x_23);
lean::cnstr_set(x_41, 1, x_26);
return x_41;
lean::cnstr_set(x_32, 0, x_23);
lean::cnstr_set(x_32, 1, x_26);
return x_32;
}
}
else
{
obj* x_44; obj* x_45; obj* x_46;
obj* x_35; obj* x_36; obj* x_37;
lean::dec(x_10);
lean::dec(x_1);
x_44 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__3___rarg(x_0, x_3, x_4, x_16);
x_45 = lean::array_updt(x_7, x_15, x_44);
x_35 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__3___rarg(x_0, x_3, x_4, x_16);
x_36 = lean::array_updt(x_7, x_15, x_35);
if (lean::is_scalar(x_9)) {
x_46 = lean::alloc_cnstr(0, 2, 0);
x_37 = lean::alloc_cnstr(0, 2, 0);
} else {
x_46 = x_9;
x_37 = x_9;
}
lean::cnstr_set(x_46, 0, x_5);
lean::cnstr_set(x_46, 1, x_45);
return x_46;
lean::cnstr_set(x_37, 0, x_5);
lean::cnstr_set(x_37, 1, x_36);
return x_37;
}
}
}
@ -867,59 +846,43 @@ lean::cnstr_set(x_25, 1, x_4);
lean::cnstr_set(x_25, 2, x_16);
x_26 = lean::array_updt(x_7, x_15, x_25);
x_27 = lean::nat_dec_le(x_23, x_10);
lean::dec(x_10);
if (x_27 == 0)
{
obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_38;
x_28 = lean::mk_nat_obj(2ul);
x_29 = lean::nat_mul(x_10, x_28);
lean::dec(x_10);
x_31 = lean::box(0);
x_32 = l_Array_mkArray___rarg(x_29, x_31);
x_33 = lean::alloc_closure(reinterpret_cast<void*>(l_HashMapImp_reinsertAux___rarg), 4, 1);
lean::closure_set(x_33, 0, x_1);
x_34 = lean::mk_nat_obj(0ul);
lean::inc(x_26);
x_36 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_26, x_33, x_26, x_34, x_32);
lean::dec(x_26);
if (lean::is_scalar(x_9)) {
x_38 = lean::alloc_cnstr(0, 2, 0);
} else {
x_38 = x_9;
}
lean::cnstr_set(x_38, 0, x_23);
lean::cnstr_set(x_38, 1, x_36);
return x_38;
obj* x_30;
lean::dec(x_9);
x_30 = l_HashMapImp_expand___rarg(x_1, x_23, x_26);
return x_30;
}
else
{
obj* x_41;
lean::dec(x_10);
obj* x_32;
lean::dec(x_1);
if (lean::is_scalar(x_9)) {
x_41 = lean::alloc_cnstr(0, 2, 0);
x_32 = lean::alloc_cnstr(0, 2, 0);
} else {
x_41 = x_9;
x_32 = x_9;
}
lean::cnstr_set(x_41, 0, x_23);
lean::cnstr_set(x_41, 1, x_26);
return x_41;
lean::cnstr_set(x_32, 0, x_23);
lean::cnstr_set(x_32, 1, x_26);
return x_32;
}
}
else
{
obj* x_44; obj* x_45; obj* x_46;
obj* x_35; obj* x_36; obj* x_37;
lean::dec(x_10);
lean::dec(x_1);
x_44 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__6___rarg(x_0, x_3, x_4, x_16);
x_45 = lean::array_updt(x_7, x_15, x_44);
x_35 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__6___rarg(x_0, x_3, x_4, x_16);
x_36 = lean::array_updt(x_7, x_15, x_35);
if (lean::is_scalar(x_9)) {
x_46 = lean::alloc_cnstr(0, 2, 0);
x_37 = lean::alloc_cnstr(0, 2, 0);
} else {
x_46 = x_9;
x_37 = x_9;
}
lean::cnstr_set(x_46, 0, x_5);
lean::cnstr_set(x_46, 1, x_45);
return x_46;
lean::cnstr_set(x_37, 0, x_5);
lean::cnstr_set(x_37, 1, x_36);
return x_37;
}
}
}
@ -1093,59 +1056,43 @@ lean::cnstr_set(x_25, 1, x_4);
lean::cnstr_set(x_25, 2, x_16);
x_26 = lean::array_updt(x_7, x_15, x_25);
x_27 = lean::nat_dec_le(x_23, x_10);
lean::dec(x_10);
if (x_27 == 0)
{
obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_38;
x_28 = lean::mk_nat_obj(2ul);
x_29 = lean::nat_mul(x_10, x_28);
lean::dec(x_10);
x_31 = lean::box(0);
x_32 = l_Array_mkArray___rarg(x_29, x_31);
x_33 = lean::alloc_closure(reinterpret_cast<void*>(l_HashMapImp_reinsertAux___rarg), 4, 1);
lean::closure_set(x_33, 0, x_1);
x_34 = lean::mk_nat_obj(0ul);
lean::inc(x_26);
x_36 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_26, x_33, x_26, x_34, x_32);
lean::dec(x_26);
if (lean::is_scalar(x_9)) {
x_38 = lean::alloc_cnstr(0, 2, 0);
} else {
x_38 = x_9;
}
lean::cnstr_set(x_38, 0, x_23);
lean::cnstr_set(x_38, 1, x_36);
return x_38;
obj* x_30;
lean::dec(x_9);
x_30 = l_HashMapImp_expand___rarg(x_1, x_23, x_26);
return x_30;
}
else
{
obj* x_41;
lean::dec(x_10);
obj* x_32;
lean::dec(x_1);
if (lean::is_scalar(x_9)) {
x_41 = lean::alloc_cnstr(0, 2, 0);
x_32 = lean::alloc_cnstr(0, 2, 0);
} else {
x_41 = x_9;
x_32 = x_9;
}
lean::cnstr_set(x_41, 0, x_23);
lean::cnstr_set(x_41, 1, x_26);
return x_41;
lean::cnstr_set(x_32, 0, x_23);
lean::cnstr_set(x_32, 1, x_26);
return x_32;
}
}
else
{
obj* x_44; obj* x_45; obj* x_46;
obj* x_35; obj* x_36; obj* x_37;
lean::dec(x_10);
lean::dec(x_1);
x_44 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__9___rarg(x_0, x_3, x_4, x_16);
x_45 = lean::array_updt(x_7, x_15, x_44);
x_35 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__9___rarg(x_0, x_3, x_4, x_16);
x_36 = lean::array_updt(x_7, x_15, x_35);
if (lean::is_scalar(x_9)) {
x_46 = lean::alloc_cnstr(0, 2, 0);
x_37 = lean::alloc_cnstr(0, 2, 0);
} else {
x_46 = x_9;
x_37 = x_9;
}
lean::cnstr_set(x_46, 0, x_5);
lean::cnstr_set(x_46, 1, x_45);
return x_46;
lean::cnstr_set(x_37, 0, x_5);
lean::cnstr_set(x_37, 1, x_36);
return x_37;
}
}
}
@ -1319,59 +1266,43 @@ lean::cnstr_set(x_25, 1, x_4);
lean::cnstr_set(x_25, 2, x_16);
x_26 = lean::array_updt(x_7, x_15, x_25);
x_27 = lean::nat_dec_le(x_23, x_10);
lean::dec(x_10);
if (x_27 == 0)
{
obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_38;
x_28 = lean::mk_nat_obj(2ul);
x_29 = lean::nat_mul(x_10, x_28);
lean::dec(x_10);
x_31 = lean::box(0);
x_32 = l_Array_mkArray___rarg(x_29, x_31);
x_33 = lean::alloc_closure(reinterpret_cast<void*>(l_HashMapImp_reinsertAux___rarg), 4, 1);
lean::closure_set(x_33, 0, x_1);
x_34 = lean::mk_nat_obj(0ul);
lean::inc(x_26);
x_36 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_26, x_33, x_26, x_34, x_32);
lean::dec(x_26);
if (lean::is_scalar(x_9)) {
x_38 = lean::alloc_cnstr(0, 2, 0);
} else {
x_38 = x_9;
}
lean::cnstr_set(x_38, 0, x_23);
lean::cnstr_set(x_38, 1, x_36);
return x_38;
obj* x_30;
lean::dec(x_9);
x_30 = l_HashMapImp_expand___rarg(x_1, x_23, x_26);
return x_30;
}
else
{
obj* x_41;
lean::dec(x_10);
obj* x_32;
lean::dec(x_1);
if (lean::is_scalar(x_9)) {
x_41 = lean::alloc_cnstr(0, 2, 0);
x_32 = lean::alloc_cnstr(0, 2, 0);
} else {
x_41 = x_9;
x_32 = x_9;
}
lean::cnstr_set(x_41, 0, x_23);
lean::cnstr_set(x_41, 1, x_26);
return x_41;
lean::cnstr_set(x_32, 0, x_23);
lean::cnstr_set(x_32, 1, x_26);
return x_32;
}
}
else
{
obj* x_44; obj* x_45; obj* x_46;
obj* x_35; obj* x_36; obj* x_37;
lean::dec(x_10);
lean::dec(x_1);
x_44 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__12___rarg(x_0, x_3, x_4, x_16);
x_45 = lean::array_updt(x_7, x_15, x_44);
x_35 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__12___rarg(x_0, x_3, x_4, x_16);
x_36 = lean::array_updt(x_7, x_15, x_35);
if (lean::is_scalar(x_9)) {
x_46 = lean::alloc_cnstr(0, 2, 0);
x_37 = lean::alloc_cnstr(0, 2, 0);
} else {
x_46 = x_9;
x_37 = x_9;
}
lean::cnstr_set(x_46, 0, x_5);
lean::cnstr_set(x_46, 1, x_45);
return x_46;
lean::cnstr_set(x_37, 0, x_5);
lean::cnstr_set(x_37, 1, x_36);
return x_37;
}
}
}

20703
src/stage0/init/lean/elaborator.cpp generated
View file

File diff suppressed because it is too large Load diff

5837
src/stage0/init/lean/expander.cpp generated
View file

File diff suppressed because it is too large Load diff

1074
src/stage0/init/lean/name.cpp generated
View file

File diff suppressed because it is too large Load diff

222
src/stage0/init/lean/options.cpp generated
View file

@ -14,14 +14,12 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
extern obj* l_Lean_NameMap_contains___rarg___closed__1;
obj* l___private_init_lean_options_1__initOptionDeclsRef(obj*);
obj* l_Lean_setOptionFromString___closed__2;
obj* l_Lean_KVMap_setBool(obj*, obj*, uint8);
obj* l_String_toNat(obj*);
obj* l_Lean_setOptionFromString___closed__5;
obj* l_Lean_Options_HasEmptyc;
obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*);
obj* l_Lean_KVMap_setNat(obj*, obj*, obj*);
obj* l_List_map___main___at_Lean_setOptionFromString___spec__1(obj*);
obj* l_Lean_Name_toStringWithSep___main(obj*, obj*);
@ -31,25 +29,28 @@ obj* l_Lean_Options_empty;
obj* l_Lean_registerOption___closed__1;
extern obj* l_Bool_HasRepr___closed__2;
obj* l_Lean_setOptionFromString___closed__1;
obj* l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(obj*, obj*);
obj* l_Lean_KVMap_setInt(obj*, obj*, obj*);
namespace lean {
obj* string_append(obj*, obj*);
}
obj* l_Lean_KVMap_setName(obj*, obj*, obj*);
obj* l_RBNode_find___main___at_Lean_getOptionDecl___spec__1___boxed(obj*, obj*);
extern obj* l_Char_HasRepr___closed__1;
extern "C" obj* lean_name_mk_string(obj*, obj*);
obj* l_Lean_registerOption(obj*, obj*, obj*);
uint8 l_Lean_NameMap_contains___rarg(obj*, obj*);
obj* l_Lean_setOptionFromString___closed__4;
uint8 l_String_isInt(obj*);
obj* l_Lean_NameMap_insert___rarg(obj*, obj*, obj*);
namespace lean {
uint8 string_dec_eq(obj*, obj*);
}
obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*);
obj* l_String_trim(obj*);
obj* l_String_split(obj*, obj*);
obj* l___private_init_lean_options_2__optionDeclsRef;
obj* l_Lean_getOptionDescr(obj*, obj*);
uint8 l_Lean_Name_quickLt(obj*, obj*);
obj* l_Lean_getOptionDecls(obj*);
uint8 l_String_isNat(obj*);
obj* l_String_toName(obj*);
@ -111,7 +112,7 @@ x_3 = l___private_init_lean_options_2__optionDeclsRef;
x_4 = lean::io_ref_get(x_3, x_2);
if (lean::obj_tag(x_4) == 0)
{
obj* x_5; obj* x_7; obj* x_9; uint8 x_12;
obj* x_5; obj* x_7; obj* x_9; uint8 x_11;
x_5 = lean::cnstr_get(x_4, 0);
x_7 = lean::cnstr_get(x_4, 1);
if (lean::is_exclusive(x_4)) {
@ -124,71 +125,69 @@ if (lean::is_exclusive(x_4)) {
lean::dec(x_4);
x_9 = lean::box(0);
}
lean::inc(x_0);
lean::inc(x_5);
x_12 = l_Lean_NameMap_contains___rarg(x_5, x_0);
if (x_12 == 0)
x_11 = l_Lean_NameMap_contains___rarg(x_5, x_0);
if (x_11 == 0)
{
obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17;
x_13 = lean::box(0);
obj* x_12; obj* x_13; obj* x_14; obj* x_15;
x_12 = lean::box(0);
if (lean::is_scalar(x_9)) {
x_14 = lean::alloc_cnstr(0, 2, 0);
x_13 = lean::alloc_cnstr(0, 2, 0);
} else {
x_14 = x_9;
x_13 = x_9;
}
lean::cnstr_set(x_14, 0, x_13);
lean::cnstr_set(x_14, 1, x_7);
x_15 = l_Lean_NameMap_contains___rarg___closed__1;
x_16 = l_RBNode_insert___rarg(x_15, x_5, x_0, x_1);
x_17 = lean::io_ref_set(x_3, x_16, x_14);
return x_17;
lean::cnstr_set(x_13, 0, x_12);
lean::cnstr_set(x_13, 1, x_7);
x_14 = l_Lean_NameMap_insert___rarg(x_5, x_0, x_1);
x_15 = lean::io_ref_set(x_3, x_14, x_13);
return x_15;
}
else
{
obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27;
obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25;
lean::dec(x_5);
lean::dec(x_1);
x_20 = l_Lean_Name_toString___closed__1;
x_21 = l_Lean_Name_toStringWithSep___main(x_20, x_0);
x_22 = l_Lean_registerOption___closed__1;
x_23 = lean::string_append(x_22, x_21);
lean::dec(x_21);
x_25 = l_Lean_registerOption___closed__2;
x_26 = lean::string_append(x_23, x_25);
x_18 = l_Lean_Name_toString___closed__1;
x_19 = l_Lean_Name_toStringWithSep___main(x_18, x_0);
x_20 = l_Lean_registerOption___closed__1;
x_21 = lean::string_append(x_20, x_19);
lean::dec(x_19);
x_23 = l_Lean_registerOption___closed__2;
x_24 = lean::string_append(x_21, x_23);
if (lean::is_scalar(x_9)) {
x_27 = lean::alloc_cnstr(1, 2, 0);
x_25 = lean::alloc_cnstr(1, 2, 0);
} else {
x_27 = x_9;
x_25 = x_9;
lean::cnstr_set_tag(x_9, 1);
}
lean::cnstr_set(x_27, 0, x_26);
lean::cnstr_set(x_27, 1, x_7);
return x_27;
lean::cnstr_set(x_25, 0, x_24);
lean::cnstr_set(x_25, 1, x_7);
return x_25;
}
}
else
{
obj* x_30; obj* x_32; obj* x_34; obj* x_35;
obj* x_28; obj* x_30; obj* x_32; obj* x_33;
lean::dec(x_1);
lean::dec(x_0);
x_30 = lean::cnstr_get(x_4, 0);
x_32 = lean::cnstr_get(x_4, 1);
x_28 = lean::cnstr_get(x_4, 0);
x_30 = lean::cnstr_get(x_4, 1);
if (lean::is_exclusive(x_4)) {
x_34 = x_4;
x_32 = x_4;
} else {
lean::inc(x_28);
lean::inc(x_30);
lean::inc(x_32);
lean::dec(x_4);
x_34 = lean::box(0);
x_32 = lean::box(0);
}
if (lean::is_scalar(x_34)) {
x_35 = lean::alloc_cnstr(1, 2, 0);
if (lean::is_scalar(x_32)) {
x_33 = lean::alloc_cnstr(1, 2, 0);
} else {
x_35 = x_34;
x_33 = x_32;
}
lean::cnstr_set(x_35, 0, x_30);
lean::cnstr_set(x_35, 1, x_32);
return x_35;
lean::cnstr_set(x_33, 0, x_28);
lean::cnstr_set(x_33, 1, x_30);
return x_33;
}
}
}
@ -201,6 +200,60 @@ x_2 = lean::io_ref_get(x_1, x_0);
return x_2;
}
}
obj* l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_2;
x_2 = lean::box(0);
return x_2;
}
else
{
obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::cnstr_get(x_0, 2);
lean::inc(x_7);
x_9 = lean::cnstr_get(x_0, 3);
lean::inc(x_9);
lean::dec(x_0);
x_12 = l_Lean_Name_quickLt(x_1, x_5);
if (x_12 == 0)
{
uint8 x_14;
lean::dec(x_3);
x_14 = l_Lean_Name_quickLt(x_5, x_1);
lean::dec(x_5);
if (x_14 == 0)
{
obj* x_17;
lean::dec(x_9);
x_17 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_17, 0, x_7);
return x_17;
}
else
{
lean::dec(x_7);
x_0 = x_9;
goto _start;
}
}
else
{
lean::dec(x_7);
lean::dec(x_9);
lean::dec(x_5);
x_0 = x_3;
goto _start;
}
}
}
}
obj* _init_l_Lean_getOptionDecl___closed__1() {
_start:
{
@ -217,7 +270,7 @@ x_2 = l___private_init_lean_options_2__optionDeclsRef;
x_3 = lean::io_ref_get(x_2, x_1);
if (lean::obj_tag(x_3) == 0)
{
obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_11;
obj* x_4; obj* x_6; obj* x_8; obj* x_9;
x_4 = lean::cnstr_get(x_3, 0);
x_6 = lean::cnstr_get(x_3, 1);
if (lean::is_exclusive(x_3)) {
@ -230,71 +283,78 @@ if (lean::is_exclusive(x_3)) {
lean::dec(x_3);
x_8 = lean::box(0);
}
x_9 = l_Lean_NameMap_contains___rarg___closed__1;
lean::inc(x_0);
x_11 = l_RBNode_find___main___rarg(x_9, lean::box(0), x_4, x_0);
if (lean::obj_tag(x_11) == 0)
x_9 = l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(x_4, x_0);
if (lean::obj_tag(x_9) == 0)
{
obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_18; obj* x_19;
x_12 = l_Lean_Name_toString___closed__1;
x_13 = l_Lean_Name_toStringWithSep___main(x_12, x_0);
x_14 = l_Lean_getOptionDecl___closed__1;
x_15 = lean::string_append(x_14, x_13);
lean::dec(x_13);
x_17 = l_Char_HasRepr___closed__1;
x_18 = lean::string_append(x_15, x_17);
obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_17;
x_10 = l_Lean_Name_toString___closed__1;
x_11 = l_Lean_Name_toStringWithSep___main(x_10, x_0);
x_12 = l_Lean_getOptionDecl___closed__1;
x_13 = lean::string_append(x_12, x_11);
lean::dec(x_11);
x_15 = l_Char_HasRepr___closed__1;
x_16 = lean::string_append(x_13, x_15);
if (lean::is_scalar(x_8)) {
x_19 = lean::alloc_cnstr(1, 2, 0);
x_17 = lean::alloc_cnstr(1, 2, 0);
} else {
x_19 = x_8;
x_17 = x_8;
lean::cnstr_set_tag(x_8, 1);
}
lean::cnstr_set(x_19, 0, x_18);
lean::cnstr_set(x_19, 1, x_6);
return x_19;
lean::cnstr_set(x_17, 0, x_16);
lean::cnstr_set(x_17, 1, x_6);
return x_17;
}
else
{
obj* x_21; obj* x_24;
obj* x_19; obj* x_22;
lean::dec(x_0);
x_21 = lean::cnstr_get(x_11, 0);
lean::inc(x_21);
lean::dec(x_11);
x_19 = lean::cnstr_get(x_9, 0);
lean::inc(x_19);
lean::dec(x_9);
if (lean::is_scalar(x_8)) {
x_24 = lean::alloc_cnstr(0, 2, 0);
x_22 = lean::alloc_cnstr(0, 2, 0);
} else {
x_24 = x_8;
x_22 = x_8;
}
lean::cnstr_set(x_24, 0, x_21);
lean::cnstr_set(x_24, 1, x_6);
return x_24;
lean::cnstr_set(x_22, 0, x_19);
lean::cnstr_set(x_22, 1, x_6);
return x_22;
}
}
else
{
obj* x_26; obj* x_28; obj* x_30; obj* x_31;
obj* x_24; obj* x_26; obj* x_28; obj* x_29;
lean::dec(x_0);
x_26 = lean::cnstr_get(x_3, 0);
x_28 = lean::cnstr_get(x_3, 1);
x_24 = lean::cnstr_get(x_3, 0);
x_26 = lean::cnstr_get(x_3, 1);
if (lean::is_exclusive(x_3)) {
x_30 = x_3;
x_28 = x_3;
} else {
lean::inc(x_24);
lean::inc(x_26);
lean::inc(x_28);
lean::dec(x_3);
x_30 = lean::box(0);
x_28 = lean::box(0);
}
if (lean::is_scalar(x_30)) {
x_31 = lean::alloc_cnstr(1, 2, 0);
if (lean::is_scalar(x_28)) {
x_29 = lean::alloc_cnstr(1, 2, 0);
} else {
x_31 = x_30;
x_29 = x_28;
}
lean::cnstr_set(x_31, 0, x_26);
lean::cnstr_set(x_31, 1, x_28);
return x_31;
lean::cnstr_set(x_29, 0, x_24);
lean::cnstr_set(x_29, 1, x_26);
return x_29;
}
}
}
obj* l_RBNode_find___main___at_Lean_getOptionDecl___spec__1___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_getOptionDefaulValue(obj* x_0, obj* x_1) {
_start:
{

1429
src/stage0/init/lean/parser/basic.cpp generated
View file

File diff suppressed because it is too large Load diff

642
src/stage0/init/lean/parser/command.cpp generated
View file

@ -14,9 +14,9 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___boxed(obj*);
obj* l_Lean_Parser_command_namespace_Parser(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_command_openSpec_only_HasView_x_27___lambda__2(obj*);
extern obj* l_Lean_NameMap_contains___rarg___closed__1;
obj* l_Lean_Parser_command_export_HasView_x_27___lambda__1___closed__1;
extern obj* l_Lean_Parser_Term_bracketedBinders_Parser_Lean_Parser_HasTokens;
obj* l_Lean_Parser_command_Parser___rarg___closed__1;
@ -42,10 +42,10 @@ obj* l_Lean_Parser_command_reserveNotation_Parser(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_commandParser_run(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_symbol_tokens___rarg(obj*, obj*);
obj* l_Lean_Parser_command_attribute_HasView_x_27___lambda__1___closed__1;
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg___boxed(obj*, obj*);
obj* l_Lean_Parser_command_openSpec_renaming;
extern obj* l_Lean_Parser_command_notation_Parser_Lean_Parser_HasTokens;
obj* l_Lean_Parser_command_initQuot_HasView_x_27;
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_command_export_HasView_x_27___lambda__2(obj*);
extern obj* l_Lean_Parser_command_declAttributes_HasView_x_27___lambda__1___closed__2;
obj* l___private_init_lean_parser_combinators_3__sepBy_viewAux___main___at_Lean_Parser_command_attribute_HasView_x_27___spec__1(obj*, obj*, obj*);
@ -61,11 +61,13 @@ obj* l_Lean_Parser_command_variables_HasView_x_27___lambda__2(obj*);
obj* l_Lean_Parser_command_namespace_HasView_x_27;
extern obj* l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1;
obj* l_Lean_Parser_command_omit_HasView;
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3(obj*);
obj* l_Lean_Parser_command_variables_HasView_x_27___lambda__1___closed__1;
obj* l_Lean_Parser_command_openSpec_hiding_HasView_x_27___lambda__1(obj*);
extern obj* l_Lean_Parser_finishCommentBlock___closed__2;
extern obj* l_Lean_Parser_command_NotationSpec_HasView_x_27___lambda__1___closed__4;
obj* l_Lean_Parser_termParser_run(obj*, obj*, obj*, obj*, obj*);
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___boxed(obj*);
obj* l_Lean_Parser_command_universe_HasView_x_27___lambda__1___closed__1;
obj* l_ReaderT_orelse___at_Lean_Parser_command_universe_Parser___spec__2___boxed(obj*);
obj* l_Lean_Parser_command_setOption_HasView_x_27___lambda__1___closed__2;
@ -83,6 +85,7 @@ obj* l_Lean_Parser_command_end_HasView_x_27___lambda__1(obj*);
obj* l_List_map___main___at_Lean_Parser_command_structBinderContent_HasView_x_27___spec__1(obj*);
obj* l_Lean_Parser_command_boolOptionValue;
extern obj* l_Lean_Parser_indexed___rarg___lambda__1___closed__1;
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(obj*, obj*);
uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*);
obj* l_Lean_Parser_command_variables;
obj* l_Lean_Parser_command_openSpec_hiding;
@ -94,6 +97,7 @@ obj* l_List_map___main___rarg(obj*, obj*);
obj* l_Lean_Parser_command_open_HasView_x_27___lambda__1___closed__1;
obj* l_Lean_Parser_Combinators_node_view___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_command_openSpec_renaming_item_HasView_x_27___lambda__2(obj*);
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed(obj*, obj*);
obj* l_Lean_Parser_commandParser_run___closed__1;
obj* l_Lean_Parser_command_include_Parser___closed__1;
obj* l_Lean_Parser_Combinators_anyOf___at_Lean_Parser_command_universe_Parser___spec__1(obj*, obj*, obj*, obj*, obj*);
@ -115,8 +119,10 @@ obj* l_Lean_Parser_command_attribute_HasView;
obj* l_Lean_Parser_command_Parser___rarg(obj*, obj*, obj*);
obj* l_Lean_Parser_command_openSpec_renaming_item_HasView_x_27___lambda__1___closed__1;
obj* l_Lean_Parser_command_namespace_HasView_x_27___lambda__2(obj*);
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5(obj*);
extern obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1;
obj* l_Lean_Parser_command_export_HasView;
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg___boxed(obj*, obj*);
obj* l_Lean_Parser_command_section_HasView_x_27___lambda__1(obj*);
obj* l_Lean_Parser_command_openSpec_HasView_x_27___lambda__1(obj*);
obj* l_Lean_Parser_Combinators_many___at_Lean_Parser_command_attrInstance_Parser_Lean_Parser_HasTokens___spec__2(obj*, obj*, obj*, obj*, obj*);
@ -141,6 +147,7 @@ obj* l_Lean_Parser_command_end_HasView_x_27;
obj* l_Lean_Parser_command_open_HasView_x_27;
obj* l_Lean_Parser_command_openSpec_as_HasView_x_27___lambda__1(obj*);
obj* l_Lean_Parser_command_variable_HasView_x_27___lambda__1___closed__1;
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg(obj*, obj*);
obj* l_Lean_Parser_command_end;
obj* l_Lean_Parser_command_variable_HasView;
obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*);
@ -157,6 +164,7 @@ obj* l_Lean_Parser_command_optionValue_HasView_x_27;
obj* l_Lean_Parser_Term_Parser(obj*, obj*, obj*, obj*, obj*, obj*);
extern obj* l_Lean_Parser_command_declAttributes_HasView_x_27___lambda__1___closed__1;
obj* l_Lean_Parser_command_check_HasView_x_27___lambda__1___closed__1;
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg(obj*, obj*);
obj* l_Lean_Parser_symbolCore___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1___boxed(obj*);
obj* l_Lean_Parser_command_openSpec_renaming_HasView_x_27;
@ -167,6 +175,7 @@ obj* l_Lean_Parser_RecT_recurse___at_Lean_Parser_command_Parser_Lean_Parser_HasV
obj* l_Lean_Parser_command_omit_Parser___closed__1;
obj* l_Lean_Parser_command_universe_HasView_x_27___lambda__2(obj*);
obj* l_Lean_Parser_command_setOption_HasView;
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg(obj*, obj*);
extern obj* l_Lean_Parser_command_reserveMixfix_Parser_Lean_Parser_HasTokens;
extern obj* l_Lean_Parser_CommandParserM_MonadExcept___closed__1;
obj* l_Lean_Parser_command_variables_HasView_x_27___lambda__1___closed__3;
@ -188,9 +197,11 @@ extern obj* l_Lean_Parser_Term_binder_Parser_Lean_Parser_HasTokens;
obj* l_Lean_Parser_command_check;
obj* l_Lean_Parser_command_openSpec_hiding_HasView;
obj* l_Lean_Parser_command_end_HasView_x_27___lambda__2___closed__1;
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___boxed(obj*);
obj* l_Lean_Parser_command_include_HasView;
obj* l_Lean_Parser_command_end_HasView_x_27___lambda__2(obj*);
obj* l_Lean_Parser_command_boolOptionValue_HasView_x_27___lambda__1(obj*);
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___boxed(obj*);
obj* l_Lean_Parser_command_variables_HasView_x_27___lambda__1(obj*);
extern obj* l_Lean_Parser_noKind;
obj* l_Lean_Parser_command_setOption_HasView_x_27___lambda__1(obj*);
@ -255,6 +266,7 @@ obj* l_Lean_Parser_command_namespace_Parser___closed__1;
extern obj* l_Lean_Parser_command_Declaration_Parser_Lean_Parser_HasTokens;
obj* l_Lean_Parser_command_Declaration_Parser(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_command_end_HasView_x_27___lambda__1___closed__1;
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg___boxed(obj*, obj*);
obj* l_Lean_Parser_number_Parser___at_Lean_Parser_command_setOption_Parser_Lean_Parser_HasTokens___spec__3(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_Term_bracketedBinders_Parser(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_command_optionValue;
@ -268,7 +280,6 @@ obj* l_Lean_Parser_command_openSpec_hiding_HasView_x_27___lambda__1___closed__1;
obj* l_Lean_Parser_command_openSpec_Parser_Lean_Parser_HasTokens;
obj* l_Lean_Parser_command_variables_Parser_Lean_Parser_HasTokens;
obj* l_Lean_Parser_command_openSpec_renaming_item_HasView_x_27;
obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_command_openSpec_renaming_item;
obj* l_Lean_Parser_command_universes_HasView_x_27___lambda__2(obj*);
obj* l_String_trim(obj*);
@ -285,6 +296,7 @@ obj* l_Lean_Parser_command_check_Parser___closed__1;
obj* l_Lean_Parser_command_openSpec_renaming_HasView_x_27___lambda__2(obj*);
obj* l_Lean_Parser_command_variables_Parser(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_command_section_Parser___closed__1;
uint8 l_Lean_Name_quickLt(obj*, obj*);
extern obj* l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2;
extern obj* l_Lean_Parser_CommandParserM_Lean_Parser_MonadRec___closed__1;
obj* l_Lean_Parser_command_openSpec_only_HasView_x_27;
@ -325,8 +337,10 @@ obj* l_ReaderT_orelse___at_Lean_Parser_command_universe_Parser___spec__2(obj*);
obj* l_Lean_Parser_command_section_HasView_x_27___lambda__1___closed__1;
obj* l_Lean_Parser_command_attribute_Parser_Lean_Parser_HasTokens;
obj* l_Lean_Parser_command_open_HasView_x_27___lambda__1___closed__3;
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_command_optionValue_HasView;
obj* l_Lean_Parser_command_Declaration_Parser_Lean_Parser_HasView___lambda__1(obj*, obj*, obj*, obj*, obj*);
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6(obj*);
obj* l_Lean_Parser_Term_binder_Parser(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_stringLit_Parser___at_Lean_Parser_command_setOption_Parser_Lean_Parser_HasTokens___spec__2(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_command_attribute_Parser_Lean_Parser_HasView;
@ -346,6 +360,7 @@ obj* l_Lean_Parser_symbolOrIdent___at_Lean_Parser_command_setOption_Parser_Lean_
obj* l_Lean_Parser_command_universes_HasView_x_27___lambda__1(obj*);
obj* l_Lean_Parser_command_attribute_HasView_x_27___lambda__1(obj*);
extern obj* l_Lean_Parser_command_mixfix_Parser_Lean_Parser_HasTokens;
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4(obj*);
obj* l_Lean_Parser_command_setOption_HasView_x_27___lambda__1___closed__1;
obj* l_Lean_Parser_command_open_HasView_x_27___lambda__2___closed__1;
obj* l_Lean_Parser_command_boolOptionValue_HasView;
@ -12732,6 +12747,254 @@ x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_MonadParsec_erro
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_2;
x_2 = lean::box(0);
return x_2;
}
else
{
obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::cnstr_get(x_0, 2);
lean::inc(x_7);
x_9 = lean::cnstr_get(x_0, 3);
lean::inc(x_9);
lean::dec(x_0);
x_12 = l_Lean_Name_quickLt(x_1, x_5);
if (x_12 == 0)
{
uint8 x_14;
lean::dec(x_3);
x_14 = l_Lean_Name_quickLt(x_5, x_1);
lean::dec(x_5);
if (x_14 == 0)
{
obj* x_17;
lean::dec(x_9);
x_17 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_17, 0, x_7);
return x_17;
}
else
{
lean::dec(x_7);
x_0 = x_9;
goto _start;
}
}
else
{
lean::dec(x_7);
lean::dec(x_9);
lean::dec(x_5);
x_0 = x_3;
goto _start;
}
}
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg___boxed), 2, 0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_2;
x_2 = lean::box(0);
return x_2;
}
else
{
obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::cnstr_get(x_0, 2);
lean::inc(x_7);
x_9 = lean::cnstr_get(x_0, 3);
lean::inc(x_9);
lean::dec(x_0);
x_12 = l_Lean_Name_quickLt(x_1, x_5);
if (x_12 == 0)
{
uint8 x_14;
lean::dec(x_3);
x_14 = l_Lean_Name_quickLt(x_5, x_1);
lean::dec(x_5);
if (x_14 == 0)
{
obj* x_17;
lean::dec(x_9);
x_17 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_17, 0, x_7);
return x_17;
}
else
{
lean::dec(x_7);
x_0 = x_9;
goto _start;
}
}
else
{
lean::dec(x_7);
lean::dec(x_9);
lean::dec(x_5);
x_0 = x_3;
goto _start;
}
}
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg___boxed), 2, 0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_2;
x_2 = lean::box(0);
return x_2;
}
else
{
obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::cnstr_get(x_0, 2);
lean::inc(x_7);
x_9 = lean::cnstr_get(x_0, 3);
lean::inc(x_9);
lean::dec(x_0);
x_12 = l_Lean_Name_quickLt(x_1, x_5);
if (x_12 == 0)
{
uint8 x_14;
lean::dec(x_3);
x_14 = l_Lean_Name_quickLt(x_5, x_1);
lean::dec(x_5);
if (x_14 == 0)
{
obj* x_17;
lean::dec(x_9);
x_17 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_17, 0, x_7);
return x_17;
}
else
{
lean::dec(x_7);
x_0 = x_9;
goto _start;
}
}
else
{
lean::dec(x_7);
lean::dec(x_9);
lean::dec(x_5);
x_0 = x_3;
goto _start;
}
}
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg___boxed), 2, 0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_2;
x_2 = lean::box(0);
return x_2;
}
else
{
obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::cnstr_get(x_0, 2);
lean::inc(x_7);
x_9 = lean::cnstr_get(x_0, 3);
lean::inc(x_9);
lean::dec(x_0);
x_12 = l_Lean_Name_quickLt(x_1, x_5);
if (x_12 == 0)
{
uint8 x_14;
lean::dec(x_3);
x_14 = l_Lean_Name_quickLt(x_5, x_1);
lean::dec(x_5);
if (x_14 == 0)
{
obj* x_17;
lean::dec(x_9);
x_17 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_17, 0, x_7);
return x_17;
}
else
{
lean::dec(x_7);
x_0 = x_9;
goto _start;
}
}
else
{
lean::dec(x_7);
lean::dec(x_9);
lean::dec(x_5);
x_0 = x_3;
goto _start;
}
}
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed), 2, 0);
return x_1;
}
}
obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
@ -12796,7 +13059,7 @@ lean::dec(x_13);
switch (lean::obj_tag(x_37)) {
case 0:
{
obj* x_40; obj* x_43; obj* x_46; obj* x_48; obj* x_51; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68;
obj* x_40; obj* x_43; obj* x_46; obj* x_48; obj* x_51; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68;
x_40 = lean::cnstr_get(x_37, 0);
lean::inc(x_40);
lean::dec(x_37);
@ -12813,9 +13076,9 @@ lean::inc(x_51);
lean::dec(x_40);
x_54 = lean::box(0);
x_55 = lean_name_mk_string(x_54, x_51);
x_56 = l_Lean_NameMap_contains___rarg___closed__1;
x_57 = l_RBNode_find___main___rarg(x_56, lean::box(0), x_0, x_55);
x_58 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_57, x_5, x_46, x_43);
x_56 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg(x_0, x_55);
lean::dec(x_55);
x_58 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_56, x_5, x_46, x_43);
lean::dec(x_5);
x_60 = lean::cnstr_get(x_58, 0);
x_62 = lean::cnstr_get(x_58, 1);
@ -12841,7 +13104,7 @@ return x_68;
}
case 1:
{
obj* x_70; obj* x_73; obj* x_75; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_83; obj* x_85; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91;
obj* x_70; obj* x_73; obj* x_75; obj* x_78; obj* x_79; obj* x_80; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90;
lean::dec(x_37);
x_70 = lean::cnstr_get(x_10, 1);
lean::inc(x_70);
@ -12851,171 +13114,170 @@ lean::inc(x_73);
x_75 = lean::cnstr_get(x_11, 2);
lean::inc(x_75);
lean::dec(x_11);
x_78 = l_Lean_NameMap_contains___rarg___closed__1;
x_79 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1;
x_80 = l_RBNode_find___main___rarg(x_78, lean::box(0), x_0, x_79);
x_81 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_80, x_5, x_73, x_70);
x_78 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1;
x_79 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg(x_0, x_78);
x_80 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_79, x_5, x_73, x_70);
lean::dec(x_5);
x_83 = lean::cnstr_get(x_81, 0);
x_85 = lean::cnstr_get(x_81, 1);
if (lean::is_exclusive(x_81)) {
x_87 = x_81;
x_82 = lean::cnstr_get(x_80, 0);
x_84 = lean::cnstr_get(x_80, 1);
if (lean::is_exclusive(x_80)) {
x_86 = x_80;
} else {
lean::inc(x_83);
lean::inc(x_85);
lean::dec(x_81);
x_87 = lean::box(0);
lean::inc(x_82);
lean::inc(x_84);
lean::dec(x_80);
x_86 = lean::box(0);
}
x_88 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1;
x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_88, x_83);
x_90 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_89);
if (lean::is_scalar(x_87)) {
x_91 = lean::alloc_cnstr(0, 2, 0);
x_87 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1;
x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_87, x_82);
x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_88);
if (lean::is_scalar(x_86)) {
x_90 = lean::alloc_cnstr(0, 2, 0);
} else {
x_91 = x_87;
x_90 = x_86;
}
lean::cnstr_set(x_91, 0, x_90);
lean::cnstr_set(x_91, 1, x_85);
return x_91;
lean::cnstr_set(x_90, 0, x_89);
lean::cnstr_set(x_90, 1, x_84);
return x_90;
}
case 2:
{
obj* x_92; obj* x_95; obj* x_97; obj* x_100; obj* x_103; obj* x_106; obj* x_107; obj* x_108; obj* x_110; obj* x_112; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118;
x_92 = lean::cnstr_get(x_10, 1);
lean::inc(x_92);
obj* x_91; obj* x_94; obj* x_96; obj* x_99; obj* x_102; obj* x_105; obj* x_107; obj* x_109; obj* x_111; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117;
x_91 = lean::cnstr_get(x_10, 1);
lean::inc(x_91);
lean::dec(x_10);
x_95 = lean::cnstr_get(x_11, 1);
lean::inc(x_95);
x_97 = lean::cnstr_get(x_11, 2);
lean::inc(x_97);
x_94 = lean::cnstr_get(x_11, 1);
lean::inc(x_94);
x_96 = lean::cnstr_get(x_11, 2);
lean::inc(x_96);
lean::dec(x_11);
x_100 = lean::cnstr_get(x_37, 0);
lean::inc(x_100);
x_99 = lean::cnstr_get(x_37, 0);
lean::inc(x_99);
lean::dec(x_37);
x_103 = lean::cnstr_get(x_100, 0);
lean::inc(x_103);
lean::dec(x_100);
x_106 = l_Lean_NameMap_contains___rarg___closed__1;
x_107 = l_RBNode_find___main___rarg(x_106, lean::box(0), x_0, x_103);
x_108 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_107, x_5, x_95, x_92);
x_102 = lean::cnstr_get(x_99, 0);
lean::inc(x_102);
lean::dec(x_99);
x_105 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg(x_0, x_102);
lean::dec(x_102);
x_107 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_105, x_5, x_94, x_91);
lean::dec(x_5);
x_110 = lean::cnstr_get(x_108, 0);
x_112 = lean::cnstr_get(x_108, 1);
if (lean::is_exclusive(x_108)) {
x_114 = x_108;
x_109 = lean::cnstr_get(x_107, 0);
x_111 = lean::cnstr_get(x_107, 1);
if (lean::is_exclusive(x_107)) {
x_113 = x_107;
} else {
lean::inc(x_110);
lean::inc(x_112);
lean::dec(x_108);
x_114 = lean::box(0);
lean::inc(x_109);
lean::inc(x_111);
lean::dec(x_107);
x_113 = lean::box(0);
}
x_115 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1;
x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_115, x_110);
x_117 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_97, x_116);
if (lean::is_scalar(x_114)) {
x_118 = lean::alloc_cnstr(0, 2, 0);
x_114 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1;
x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_109);
x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_96, x_115);
if (lean::is_scalar(x_113)) {
x_117 = lean::alloc_cnstr(0, 2, 0);
} else {
x_118 = x_114;
x_117 = x_113;
}
lean::cnstr_set(x_118, 0, x_117);
lean::cnstr_set(x_118, 1, x_112);
return x_118;
lean::cnstr_set(x_117, 0, x_116);
lean::cnstr_set(x_117, 1, x_111);
return x_117;
}
default:
{
obj* x_119; obj* x_122; obj* x_124; obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131;
x_119 = lean::cnstr_get(x_10, 1);
lean::inc(x_119);
obj* x_118; obj* x_121; obj* x_123; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130;
x_118 = lean::cnstr_get(x_10, 1);
lean::inc(x_118);
lean::dec(x_10);
x_122 = lean::cnstr_get(x_11, 1);
lean::inc(x_122);
x_124 = lean::cnstr_get(x_11, 2);
lean::inc(x_124);
x_121 = lean::cnstr_get(x_11, 1);
lean::inc(x_121);
x_123 = lean::cnstr_get(x_11, 2);
lean::inc(x_123);
lean::dec(x_11);
x_127 = lean::box(0);
x_128 = l_String_splitAux___main___closed__1;
x_129 = l_mjoin___rarg___closed__1;
x_130 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_128, x_129, x_127, x_127, x_5, x_122, x_119);
x_131 = lean::cnstr_get(x_130, 0);
lean::inc(x_131);
if (lean::obj_tag(x_131) == 0)
x_126 = lean::box(0);
x_127 = l_String_splitAux___main___closed__1;
x_128 = l_mjoin___rarg___closed__1;
x_129 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_127, x_128, x_126, x_126, x_5, x_121, x_118);
x_130 = lean::cnstr_get(x_129, 0);
lean::inc(x_130);
if (lean::obj_tag(x_130) == 0)
{
obj* x_133; obj* x_136; obj* x_138; obj* x_140; obj* x_143; obj* x_144; obj* x_145; obj* x_147; obj* x_149; obj* x_151; obj* x_152; obj* x_153; obj* x_154;
x_133 = lean::cnstr_get(x_130, 1);
lean::inc(x_133);
obj* x_132; obj* x_135; obj* x_137; obj* x_139; obj* x_142; obj* x_144; obj* x_146; obj* x_148; obj* x_150; obj* x_151; obj* x_152; obj* x_153;
x_132 = lean::cnstr_get(x_129, 1);
lean::inc(x_132);
lean::dec(x_129);
x_135 = lean::cnstr_get(x_130, 0);
lean::inc(x_135);
x_137 = lean::cnstr_get(x_130, 1);
lean::inc(x_137);
x_139 = lean::cnstr_get(x_130, 2);
lean::inc(x_139);
lean::dec(x_130);
x_136 = lean::cnstr_get(x_131, 0);
lean::inc(x_136);
x_138 = lean::cnstr_get(x_131, 1);
lean::inc(x_138);
x_140 = lean::cnstr_get(x_131, 2);
lean::inc(x_140);
lean::dec(x_131);
x_143 = l_Lean_NameMap_contains___rarg___closed__1;
x_144 = l_RBNode_find___main___rarg(x_143, lean::box(0), x_0, x_136);
x_145 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_144, x_5, x_138, x_133);
x_142 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(x_0, x_135);
lean::dec(x_135);
x_144 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_142, x_5, x_137, x_132);
lean::dec(x_5);
x_147 = lean::cnstr_get(x_145, 0);
x_149 = lean::cnstr_get(x_145, 1);
if (lean::is_exclusive(x_145)) {
x_151 = x_145;
x_146 = lean::cnstr_get(x_144, 0);
x_148 = lean::cnstr_get(x_144, 1);
if (lean::is_exclusive(x_144)) {
x_150 = x_144;
} else {
lean::inc(x_147);
lean::inc(x_149);
lean::dec(x_145);
x_151 = lean::box(0);
lean::inc(x_146);
lean::inc(x_148);
lean::dec(x_144);
x_150 = lean::box(0);
}
x_152 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_140, x_147);
x_153 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_124, x_152);
if (lean::is_scalar(x_151)) {
x_154 = lean::alloc_cnstr(0, 2, 0);
x_151 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_139, x_146);
x_152 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_123, x_151);
if (lean::is_scalar(x_150)) {
x_153 = lean::alloc_cnstr(0, 2, 0);
} else {
x_154 = x_151;
x_153 = x_150;
}
lean::cnstr_set(x_154, 0, x_153);
lean::cnstr_set(x_154, 1, x_149);
return x_154;
lean::cnstr_set(x_153, 0, x_152);
lean::cnstr_set(x_153, 1, x_148);
return x_153;
}
else
{
obj* x_157; obj* x_159; obj* x_160; uint8 x_162; obj* x_163; obj* x_164; obj* x_165; obj* x_166; obj* x_167;
obj* x_156; obj* x_158; obj* x_159; uint8 x_161; obj* x_162; obj* x_163; obj* x_164; obj* x_165; obj* x_166;
lean::dec(x_5);
lean::dec(x_0);
x_157 = lean::cnstr_get(x_130, 1);
x_156 = lean::cnstr_get(x_129, 1);
if (lean::is_exclusive(x_129)) {
lean::cnstr_release(x_129, 0);
x_158 = x_129;
} else {
lean::inc(x_156);
lean::dec(x_129);
x_158 = lean::box(0);
}
x_159 = lean::cnstr_get(x_130, 0);
x_161 = lean::cnstr_get_scalar<uint8>(x_130, sizeof(void*)*1);
if (lean::is_exclusive(x_130)) {
lean::cnstr_release(x_130, 0);
x_159 = x_130;
x_162 = x_130;
} else {
lean::inc(x_157);
lean::inc(x_159);
lean::dec(x_130);
x_159 = lean::box(0);
x_162 = lean::box(0);
}
x_160 = lean::cnstr_get(x_131, 0);
x_162 = lean::cnstr_get_scalar<uint8>(x_131, sizeof(void*)*1);
if (lean::is_exclusive(x_131)) {
x_163 = x_131;
if (lean::is_scalar(x_162)) {
x_163 = lean::alloc_cnstr(1, 1, 1);
} else {
lean::inc(x_160);
lean::dec(x_131);
x_163 = lean::box(0);
x_163 = x_162;
}
if (lean::is_scalar(x_163)) {
x_164 = lean::alloc_cnstr(1, 1, 1);
lean::cnstr_set(x_163, 0, x_159);
lean::cnstr_set_scalar(x_163, sizeof(void*)*1, x_161);
x_164 = x_163;
x_165 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_123, x_164);
if (lean::is_scalar(x_158)) {
x_166 = lean::alloc_cnstr(0, 2, 0);
} else {
x_164 = x_163;
x_166 = x_158;
}
lean::cnstr_set(x_164, 0, x_160);
lean::cnstr_set_scalar(x_164, sizeof(void*)*1, x_162);
x_165 = x_164;
x_166 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_124, x_165);
if (lean::is_scalar(x_159)) {
x_167 = lean::alloc_cnstr(0, 2, 0);
} else {
x_167 = x_159;
}
lean::cnstr_set(x_167, 0, x_166);
lean::cnstr_set(x_167, 1, x_157);
return x_167;
lean::cnstr_set(x_166, 0, x_165);
lean::cnstr_set(x_166, 1, x_156);
return x_166;
}
}
}
@ -13023,43 +13285,43 @@ return x_167;
}
else
{
obj* x_170; obj* x_172; obj* x_173; uint8 x_175; obj* x_176; obj* x_177; obj* x_178; obj* x_179;
obj* x_169; obj* x_171; obj* x_172; uint8 x_174; obj* x_175; obj* x_176; obj* x_177; obj* x_178;
lean::dec(x_5);
lean::dec(x_0);
x_170 = lean::cnstr_get(x_10, 1);
x_169 = lean::cnstr_get(x_10, 1);
if (lean::is_exclusive(x_10)) {
lean::cnstr_release(x_10, 0);
x_172 = x_10;
x_171 = x_10;
} else {
lean::inc(x_170);
lean::inc(x_169);
lean::dec(x_10);
x_172 = lean::box(0);
x_171 = lean::box(0);
}
x_173 = lean::cnstr_get(x_11, 0);
x_175 = lean::cnstr_get_scalar<uint8>(x_11, sizeof(void*)*1);
x_172 = lean::cnstr_get(x_11, 0);
x_174 = lean::cnstr_get_scalar<uint8>(x_11, sizeof(void*)*1);
if (lean::is_exclusive(x_11)) {
x_176 = x_11;
x_175 = x_11;
} else {
lean::inc(x_173);
lean::inc(x_172);
lean::dec(x_11);
x_176 = lean::box(0);
x_175 = lean::box(0);
}
if (lean::is_scalar(x_176)) {
x_177 = lean::alloc_cnstr(1, 1, 1);
if (lean::is_scalar(x_175)) {
x_176 = lean::alloc_cnstr(1, 1, 1);
} else {
x_177 = x_176;
x_176 = x_175;
}
lean::cnstr_set(x_177, 0, x_173);
lean::cnstr_set_scalar(x_177, sizeof(void*)*1, x_175);
x_178 = x_177;
if (lean::is_scalar(x_172)) {
x_179 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_176, 0, x_172);
lean::cnstr_set_scalar(x_176, sizeof(void*)*1, x_174);
x_177 = x_176;
if (lean::is_scalar(x_171)) {
x_178 = lean::alloc_cnstr(0, 2, 0);
} else {
x_179 = x_172;
x_178 = x_171;
}
lean::cnstr_set(x_179, 0, x_178);
lean::cnstr_set(x_179, 1, x_170);
return x_179;
lean::cnstr_set(x_178, 0, x_177);
lean::cnstr_set(x_178, 1, x_169);
return x_178;
}
}
}
@ -13199,6 +13461,78 @@ lean::dec(x_0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{

133
src/stage0/init/lean/parser/module.cpp generated
View file

@ -31,6 +31,7 @@ obj* l_Lean_Parser_symbol_tokens___rarg(obj*, obj*);
namespace lean {
obj* nat_sub(obj*, obj*);
}
obj* l_Id_map___boxed(obj*, obj*);
obj* l_Lean_Parser_ModuleParserM_Monad;
obj* l_Lean_Parser_ModuleParserM_liftParserT___boxed(obj*);
obj* l_Lean_Parser_resumeModuleParser___boxed(obj*);
@ -248,20 +249,20 @@ return x_1;
obj* _init_l_Lean_Parser_ModuleParserM_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);
obj* x_0; obj* x_1; obj* x_3; 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_map___boxed), 2, 0);
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__1___boxed), 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_pure___boxed), 1, 0);
x_3 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_3, 0, x_0);
lean::cnstr_set(x_3, 1, x_1);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_pure___boxed), 1, 0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__2___boxed), 4, 0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__3___boxed), 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, 0, x_3);
lean::cnstr_set(x_7, 1, x_4);
lean::cnstr_set(x_7, 2, x_5);
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);
@ -276,20 +277,20 @@ return x_11;
obj* _init_l_Lean_Parser_ModuleParserM_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_11; obj* x_12; obj* x_13;
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);
obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_map___boxed), 2, 0);
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__1___boxed), 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_pure___boxed), 1, 0);
x_3 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_3, 0, x_0);
lean::cnstr_set(x_3, 1, x_1);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_pure___boxed), 1, 0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__2___boxed), 4, 0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__3___boxed), 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, 0, x_3);
lean::cnstr_set(x_7, 1, x_4);
lean::cnstr_set(x_7, 2, x_5);
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);
@ -306,20 +307,20 @@ return x_13;
obj* _init_l_Lean_Parser_ModuleParserM_MonadReader() {
_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_12; obj* x_13;
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);
obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_map___boxed), 2, 0);
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__1___boxed), 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_pure___boxed), 1, 0);
x_3 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_3, 0, x_0);
lean::cnstr_set(x_3, 1, x_1);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_pure___boxed), 1, 0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__2___boxed), 4, 0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__3___boxed), 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, 0, x_3);
lean::cnstr_set(x_7, 1, x_4);
lean::cnstr_set(x_7, 2, x_5);
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);
@ -339,20 +340,20 @@ return x_13;
obj* _init_l_Lean_Parser_ModuleParserM_MonadState() {
_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);
obj* x_0; obj* x_1; obj* x_3; 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_map___boxed), 2, 0);
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__1___boxed), 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_pure___boxed), 1, 0);
x_3 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_3, 0, x_0);
lean::cnstr_set(x_3, 1, x_1);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_pure___boxed), 1, 0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__2___boxed), 4, 0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__3___boxed), 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, 0, x_3);
lean::cnstr_set(x_7, 1, x_4);
lean::cnstr_set(x_7, 2, x_5);
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);
@ -367,20 +368,20 @@ return x_11;
obj* _init_l_Lean_Parser_ModuleParserM_Lean_Parser_MonadParsec() {
_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_16; obj* x_17;
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);
obj* x_0; obj* x_1; obj* x_3; 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_16; obj* x_17;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_map___boxed), 2, 0);
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__1___boxed), 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_pure___boxed), 1, 0);
x_3 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_3, 0, x_0);
lean::cnstr_set(x_3, 1, x_1);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_pure___boxed), 1, 0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__2___boxed), 4, 0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__3___boxed), 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, 0, x_3);
lean::cnstr_set(x_7, 1, x_4);
lean::cnstr_set(x_7, 2, x_5);
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);
@ -407,20 +408,20 @@ return x_17;
obj* _init_l_Lean_Parser_ModuleParserM_MonadExcept() {
_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_12; obj* x_13;
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);
obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_map___boxed), 2, 0);
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__1___boxed), 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_pure___boxed), 1, 0);
x_3 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_3, 0, x_0);
lean::cnstr_set(x_3, 1, x_1);
x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_pure___boxed), 1, 0);
x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__2___boxed), 4, 0);
x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Id_Monad___lambda__3___boxed), 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, 0, x_3);
lean::cnstr_set(x_7, 1, x_4);
lean::cnstr_set(x_7, 2, x_5);
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);

25
src/stage0/init/lean/parser/parsec.cpp generated
View file

@ -165,7 +165,6 @@ obj* l___private_init_lean_parser_parsec_1__oldLineColumnAux___main(obj*, obj*,
obj* l_Lean_Parser_MonadParsec_takeWhile_x_27___rarg(obj*, obj*);
obj* l___private_init_lean_parser_parsec_5__takeWhileAux(obj*);
obj* l_Lean_Parser_MonadParsec_try___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1;
obj* l_Lean_Parser_MonadParsec_lower(obj*, obj*);
obj* l_Lean_Parser_MonadParsec_takeWhile1___at_Lean_Parser_MonadParsec_takeUntil1___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_MonadParsec_ensure___rarg___lambda__1___closed__1;
@ -176,7 +175,6 @@ obj* l_Lean_Parser_ParsecT_parseWithEoi___rarg___lambda__1(obj*, obj*, obj*);
obj* l_Lean_Parser_ParsecT_Alternative___rarg___lambda__2___boxed(obj*, obj*, obj*);
obj* l_Lean_Parser_ParsecT_Monad___rarg___lambda__6(obj*, obj*, obj*, obj*);
obj* l_id___rarg___boxed(obj*);
obj* l_Lean_Parser_MonadParsec_sepBy1___rarg___lambda__1(obj*, obj*);
obj* l_Lean_Parser_MonadParsec_many1Aux(obj*, obj*);
obj* l_String_OldIterator_remaining___main(obj*);
obj* l_Lean_Parser_MonadParsec_upper___boxed(obj*, obj*);
@ -623,6 +621,7 @@ obj* string_utf8_extract(obj*, obj*, obj*);
}
obj* l_Lean_Parser_MonadParsec_whitespace(obj*, obj*);
obj* l_Lean_Parser_Parsec_parse___rarg___boxed(obj*, obj*, obj*);
extern obj* l_List_mmap___main___rarg___closed__1;
obj* l_Lean_Parser_ParsecT_expect___boxed(obj*);
obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser_MonadParsec_num___spec__3(obj*);
obj* l_Lean_Parser_MonadParsec_foldl(obj*, obj*);
@ -9151,24 +9150,6 @@ lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_Parser_MonadParsec_sepBy1___rarg___lambda__1(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_cnstr(1, 2, 0);
lean::cnstr_set(x_2, 0, x_0);
lean::cnstr_set(x_2, 1, x_1);
return x_2;
}
}
obj* _init_l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1() {
_start:
{
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_MonadParsec_sepBy1___rarg___lambda__1), 2, 0);
return x_0;
}
}
obj* l_Lean_Parser_MonadParsec_sepBy1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
_start:
{
@ -9182,7 +9163,7 @@ lean::inc(x_11);
x_13 = lean::cnstr_get(x_11, 0);
lean::inc(x_13);
lean::dec(x_11);
x_16 = l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1;
x_16 = l_List_mmap___main___rarg___closed__1;
lean::inc(x_5);
x_18 = lean::apply_4(x_13, lean::box(0), lean::box(0), x_16, x_5);
x_19 = lean::cnstr_get(x_7, 4);
@ -11412,8 +11393,6 @@ lean::mark_persistent(l_Lean_Parser_MonadParsec_ensure___rarg___lambda__1___clos
lean::mark_persistent(l_Lean_Parser_MonadParsec_pos___rarg___closed__1);
l_Lean_Parser_MonadParsec_eoi___rarg___lambda__1___closed__1 = _init_l_Lean_Parser_MonadParsec_eoi___rarg___lambda__1___closed__1();
lean::mark_persistent(l_Lean_Parser_MonadParsec_eoi___rarg___lambda__1___closed__1);
l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1 = _init_l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1();
lean::mark_persistent(l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1);
l_Lean_Parser_MonadParsec_fixAux___main___rarg___closed__1 = _init_l_Lean_Parser_MonadParsec_fixAux___main___rarg___closed__1();
lean::mark_persistent(l_Lean_Parser_MonadParsec_fixAux___main___rarg___closed__1);
l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__1 = _init_l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__1();

99
src/stage0/init/lean/parser/pratt.cpp generated
View file

@ -31,7 +31,6 @@ obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__2;
obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___boxed(obj*);
obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_String_OldIterator_remaining___main(obj*);
obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___boxed(obj*, obj*);
obj* l_Lean_Parser_currLbp(obj*);
obj* l___private_init_lean_parser_pratt_1__trailingLoop___main(obj*);
@ -40,12 +39,11 @@ obj* l_Lean_Parser_currLbp___rarg___lambda__1___closed__1;
obj* l_Lean_Parser_prattParser_View___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_MonadParsec_error___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*);
obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(obj*, obj*);
obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_currLbp___boxed(obj*);
obj* l___private_init_lean_parser_pratt_1__trailingLoop(obj*);
extern obj* l_Lean_Parser_MonadParsec_remaining___rarg___closed__1;
obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___boxed(obj*, obj*);
obj* l_Lean_Parser_prattParser___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_prattParser___rarg___lambda__4(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__1;
namespace lean {
uint8 nat_dec_lt(obj*, obj*);
@ -54,7 +52,7 @@ extern obj* l___private_init_lean_parser_combinators_1__many1Aux___main___rarg__
obj* l_List_append___rarg(obj*, obj*);
obj* l_Lean_Parser_currLbp___rarg(obj*, obj*, obj*, obj*, obj*);
extern "C" obj* lean_name_mk_string(obj*, obj*);
obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
namespace lean {
obj* nat_add(obj*, obj*);
}
@ -86,7 +84,7 @@ obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___boxed(
obj* l_Lean_Parser_prattParser___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
extern obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__6;
obj* l_Lean_Parser_currLbp___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_prattParser___rarg___lambda__1(obj*, obj*);
obj* l_Lean_Parser_prattParser___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
@ -735,22 +733,7 @@ lean::dec(x_0);
return x_1;
}
}
obj* l_Lean_Parser_prattParser___rarg___lambda__1(obj* x_0, obj* x_1) {
_start:
{
obj* x_2; obj* x_3; obj* x_6; obj* x_9;
x_2 = l_String_OldIterator_remaining___main(x_1);
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
lean::dec(x_0);
x_6 = lean::cnstr_get(x_3, 1);
lean::inc(x_6);
lean::dec(x_3);
x_9 = lean::apply_2(x_6, lean::box(0), x_2);
return x_9;
}
}
obj* l_Lean_Parser_prattParser___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) {
obj* l_Lean_Parser_prattParser___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) {
_start:
{
obj* x_9; obj* x_10; obj* x_11;
@ -761,33 +744,38 @@ lean::dec(x_10);
return x_11;
}
}
obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) {
obj* l_Lean_Parser_prattParser___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) {
_start:
{
obj* x_9; obj* x_11; obj* x_12; obj* x_14; obj* x_16; obj* x_17; obj* x_18;
obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24;
x_9 = lean::cnstr_get(x_0, 0);
lean::inc(x_9);
x_11 = l_Lean_Parser_MonadParsec_leftOver___rarg___closed__1;
x_12 = lean::apply_2(x_9, lean::box(0), x_11);
lean::inc(x_1);
x_14 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___rarg___lambda__1___boxed), 2, 1);
lean::closure_set(x_14, 0, x_1);
lean::inc(x_2);
x_16 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_12, x_14);
x_17 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___rarg___lambda__2___boxed), 9, 8);
lean::closure_set(x_17, 0, x_1);
lean::closure_set(x_17, 1, x_3);
lean::closure_set(x_17, 2, x_0);
lean::closure_set(x_17, 3, x_4);
lean::closure_set(x_17, 4, x_5);
lean::closure_set(x_17, 5, x_6);
lean::closure_set(x_17, 6, x_8);
lean::closure_set(x_17, 7, x_7);
x_18 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_16, x_17);
return x_18;
x_13 = lean::cnstr_get(x_1, 0);
lean::inc(x_13);
x_15 = lean::cnstr_get(x_13, 0);
lean::inc(x_15);
lean::dec(x_13);
x_18 = lean::cnstr_get(x_15, 0);
lean::inc(x_18);
lean::dec(x_15);
x_21 = l_Lean_Parser_MonadParsec_remaining___rarg___closed__1;
x_22 = lean::apply_4(x_18, lean::box(0), lean::box(0), x_21, x_12);
x_23 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___rarg___lambda__1___boxed), 9, 8);
lean::closure_set(x_23, 0, x_1);
lean::closure_set(x_23, 1, x_2);
lean::closure_set(x_23, 2, x_0);
lean::closure_set(x_23, 3, x_3);
lean::closure_set(x_23, 4, x_4);
lean::closure_set(x_23, 5, x_5);
lean::closure_set(x_23, 6, x_8);
lean::closure_set(x_23, 7, x_6);
x_24 = lean::apply_4(x_7, lean::box(0), lean::box(0), x_22, x_23);
return x_24;
}
}
obj* l_Lean_Parser_prattParser___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) {
obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) {
_start:
{
obj* x_8; obj* x_11; obj* x_13; obj* x_14;
@ -796,15 +784,15 @@ lean::inc(x_8);
lean::inc(x_6);
x_11 = lean::apply_1(x_1, x_6);
lean::inc(x_8);
x_13 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___rarg___lambda__3), 9, 8);
x_13 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___rarg___lambda__2), 9, 8);
lean::closure_set(x_13, 0, x_2);
lean::closure_set(x_13, 1, x_0);
lean::closure_set(x_13, 2, x_8);
lean::closure_set(x_13, 3, x_3);
lean::closure_set(x_13, 4, x_4);
lean::closure_set(x_13, 5, x_5);
lean::closure_set(x_13, 6, x_7);
lean::closure_set(x_13, 7, x_6);
lean::closure_set(x_13, 2, x_3);
lean::closure_set(x_13, 3, x_4);
lean::closure_set(x_13, 4, x_5);
lean::closure_set(x_13, 5, x_7);
lean::closure_set(x_13, 6, x_6);
lean::closure_set(x_13, 7, x_8);
x_14 = lean::apply_4(x_8, lean::box(0), lean::box(0), x_11, x_13);
return x_14;
}
@ -816,7 +804,7 @@ obj* x_10; obj* x_11; obj* x_12; obj* x_13;
lean::inc(x_2);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed), 2, 1);
lean::closure_set(x_10, 0, x_2);
x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___rarg___lambda__4), 8, 6);
x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___rarg___lambda__3), 8, 6);
lean::closure_set(x_11, 0, x_0);
lean::closure_set(x_11, 1, x_6);
lean::closure_set(x_11, 2, x_2);
@ -838,20 +826,11 @@ x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___ra
return x_1;
}
}
obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Parser_prattParser___rarg___lambda__1(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_Parser_prattParser___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) {
obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) {
_start:
{
obj* x_9;
x_9 = l_Lean_Parser_prattParser___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8);
x_9 = l_Lean_Parser_prattParser___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8);
lean::dec(x_8);
return x_9;
}

275
src/stage0/init/lean/parser/syntax.cpp generated
View file

@ -17,13 +17,14 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
obj* l_Lean_Parser_Syntax_replace(obj*, obj*);
uint8 l_List_foldr___main___at_Lean_Parser_Syntax_reprint___main___spec__2(obj*, uint8, obj*);
obj* l_Lean_Parser_MacroScope_Lean_HasToFormat;
obj* l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__2(obj*, obj*, obj*);
obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___boxed(obj*, obj*);
obj* l_Lean_Format_joinSep___main___at_Lean_Parser_Syntax_toFormat___main___spec__9(obj*, obj*);
obj* l_Lean_Parser_macroScopes_flip___main___boxed(obj*, obj*);
extern "C" uint8 lean_name_dec_eq(obj*, obj*);
obj* l_Lean_Parser_Syntax_flipScopes___main(obj*, obj*);
obj* l_Lean_Parser_macroScopes_flip___main(obj*, obj*);
obj* l_Lean_Parser_Syntax_mreplace___main___rarg(obj*, obj*, obj*);
obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3___boxed(obj*);
obj* l_Lean_Parser_Syntax_toFormat___main___closed__8;
obj* l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_replace___spec__1(obj*, obj*);
namespace lean {
@ -41,11 +42,11 @@ obj* l_Lean_Parser_Syntax_toFormat___main___closed__9;
obj* l_Lean_Parser_Syntax_isOfKind___main___boxed(obj*, obj*);
obj* l_Lean_Parser_choice;
obj* l_Lean_Parser_Syntax_toFormat___main___closed__4;
obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2(obj*, obj*);
obj* l_Lean_Parser_Substring_HasToString;
obj* l_Function_comp___rarg(obj*, obj*, obj*);
obj* l_List_reverse___rarg(obj*);
obj* l_Lean_Format_joinSep___main___at_Lean_Parser_Syntax_toFormat___main___spec__6(obj*, obj*);
obj* l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*);
uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*);
obj* l_List_foldr___main___at_Lean_Parser_Syntax_reprint___main___spec__2___boxed(obj*, obj*, obj*);
obj* l_Lean_Name_toStringWithSep___main(obj*, obj*);
@ -67,7 +68,6 @@ obj* l_Lean_Parser_Syntax_getHeadInfo___main___boxed(obj*);
obj* l_List_mmap___main___at_Lean_Parser_Syntax_replace___spec__2(obj*, obj*);
obj* l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1(obj*);
obj* l_Lean_natHasToFormat(obj*);
obj* l_List_mmap___main___rarg___lambda__1(obj*, obj*, obj*);
obj* l_Lean_toFmt___at_Lean_Parser_Syntax_toFormat___main___spec__1(obj*);
obj* l_List_mmap___main___at_Lean_Parser_Syntax_reprint___main___spec__1(obj*);
namespace lean {
@ -82,6 +82,7 @@ obj* l_Lean_Parser_Syntax_kind(obj*);
obj* l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_Syntax_toFormat___main___closed__2;
obj* l_Lean_Parser_Syntax_getPos(obj*);
obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3(obj*);
obj* l_Lean_Parser_Syntax_toFormat___main___closed__1;
obj* l_Lean_Parser_noKind;
obj* l_Lean_Parser_Syntax_reprintAtom___main(obj*);
@ -100,6 +101,7 @@ obj* l_Lean_Parser_Syntax_reprint___main___closed__1;
obj* l_Lean_Parser_Syntax_reprintAtom(obj*);
obj* l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_updateLeading___spec__1(obj*, obj*, obj*);
obj* l_Lean_Parser_Syntax_reprint(obj*);
obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___rarg(obj*, obj*, obj*);
namespace lean {
uint8 string_dec_eq(obj*, obj*);
}
@ -107,6 +109,7 @@ obj* l_Lean_HasRepr___lambda__1(obj*);
obj* l_Lean_Parser_Syntax_updateLeading(obj*, obj*);
obj* l___private_init_lean_parser_syntax_1__updateLeadingAux(obj*, obj*);
obj* l_Lean_Parser_Syntax_Lean_HasToFormat;
obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3___rarg(obj*, obj*);
obj* l_Lean_Name_replacePrefix___main(obj*, obj*, obj*);
extern obj* l_Lean_Format_sbracket___closed__3;
obj* l_Lean_Parser_Syntax_HasToString;
@ -125,6 +128,7 @@ obj* l_Lean_Parser_Syntax_toFormat___main___closed__3;
extern obj* l_Lean_Name_toString___closed__1;
obj* l_Lean_Parser_Syntax_flipScopes(obj*, obj*);
obj* l_Lean_toFmt___at_Lean_Parser_Syntax_toFormat___main___spec__2(obj*);
extern obj* l_List_mmap___main___rarg___closed__1;
obj* l_Lean_Parser_Syntax_kind___main(obj*);
obj* l_Lean_Parser_Syntax_toFormat___main___closed__6;
obj* l_Lean_Parser_macroScopes_flip___boxed(obj*, obj*);
@ -137,6 +141,7 @@ obj* l_String_quote(obj*);
obj* l_Lean_Parser_Syntax_toFormat___main___closed__7;
obj* l_Lean_Parser_Substring_ofString(obj*);
uint8 l_Lean_Parser_Syntax_isOfKind(obj*, obj*);
obj* l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__4(obj*, obj*, obj*);
obj* l_Lean_Parser_Syntax_toFormat___main(obj*);
obj* l_List_mmap___main___at_Lean_Parser_Syntax_reprint___main___spec__1___closed__1;
obj* l_List_map___main___at_Lean_Parser_Syntax_toFormat___main___spec__5(obj*);
@ -628,19 +633,6 @@ lean::dec(x_1);
return x_3;
}
}
obj* l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_6; obj* x_7; obj* x_8;
lean::inc(x_0);
x_6 = l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg(x_0, x_1, x_2);
x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_List_mmap___main___rarg___lambda__1), 3, 2);
lean::closure_set(x_7, 0, x_0);
lean::closure_set(x_7, 1, x_4);
x_8 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_6, x_7);
return x_8;
}
}
obj* l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
@ -660,25 +652,30 @@ return x_11;
}
else
{
obj* x_12; obj* x_14; obj* x_17; obj* x_21; obj* x_23; obj* x_24;
x_12 = lean::cnstr_get(x_2, 0);
obj* x_12; obj* x_14; obj* x_16; obj* x_19; obj* x_21; obj* x_24; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33;
x_12 = lean::cnstr_get(x_0, 0);
lean::inc(x_12);
x_14 = lean::cnstr_get(x_2, 1);
x_14 = lean::cnstr_get(x_2, 0);
lean::inc(x_14);
x_16 = lean::cnstr_get(x_2, 1);
lean::inc(x_16);
lean::dec(x_2);
x_17 = lean::cnstr_get(x_0, 1);
lean::inc(x_17);
x_19 = lean::cnstr_get(x_12, 2);
lean::inc(x_19);
x_21 = lean::cnstr_get(x_12, 0);
lean::inc(x_21);
lean::dec(x_12);
x_24 = lean::cnstr_get(x_21, 0);
lean::inc(x_24);
lean::dec(x_21);
lean::inc(x_1);
lean::inc(x_0);
x_21 = l_Lean_Parser_Syntax_mreplace___main___rarg(x_0, x_1, x_12);
lean::inc(x_17);
x_23 = lean::alloc_closure(reinterpret_cast<void*>(l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg___lambda__1), 5, 4);
lean::closure_set(x_23, 0, x_0);
lean::closure_set(x_23, 1, x_1);
lean::closure_set(x_23, 2, x_14);
lean::closure_set(x_23, 3, x_17);
x_24 = lean::apply_4(x_17, lean::box(0), lean::box(0), x_21, x_23);
return x_24;
x_29 = l_Lean_Parser_Syntax_mreplace___main___rarg(x_0, x_1, x_14);
x_30 = l_List_mmap___main___rarg___closed__1;
x_31 = lean::apply_4(x_24, lean::box(0), lean::box(0), x_30, x_29);
x_32 = l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg(x_0, x_1, x_16);
x_33 = lean::apply_4(x_19, lean::box(0), lean::box(0), x_31, x_32);
return x_33;
}
}
}
@ -726,26 +723,23 @@ return x_20;
obj* l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_6; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16;
x_3 = lean::cnstr_get(x_0, 0);
obj* x_3; obj* x_6; obj* x_8; obj* x_11; obj* x_12; obj* x_13;
x_3 = lean::cnstr_get(x_0, 1);
lean::inc(x_3);
lean::dec(x_0);
x_6 = lean::cnstr_get(x_3, 1);
x_6 = lean::cnstr_get(x_1, 0);
lean::inc(x_6);
lean::dec(x_3);
x_9 = lean::cnstr_get(x_1, 0);
lean::inc(x_9);
x_11 = lean::cnstr_get(x_1, 2);
lean::inc(x_11);
x_8 = lean::cnstr_get(x_1, 2);
lean::inc(x_8);
lean::dec(x_1);
x_14 = lean::alloc_cnstr(0, 3, 0);
lean::cnstr_set(x_14, 0, x_9);
lean::cnstr_set(x_14, 1, x_2);
lean::cnstr_set(x_14, 2, x_11);
x_15 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_15, 0, x_14);
x_16 = lean::apply_2(x_6, lean::box(0), x_15);
return x_16;
x_11 = lean::alloc_cnstr(0, 3, 0);
lean::cnstr_set(x_11, 0, x_6);
lean::cnstr_set(x_11, 1, x_2);
lean::cnstr_set(x_11, 2, x_8);
x_12 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_12, 0, x_11);
x_13 = lean::apply_2(x_3, lean::box(0), x_12);
return x_13;
}
}
obj* l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
@ -753,34 +747,35 @@ _start:
{
if (lean::obj_tag(x_4) == 0)
{
obj* x_5; obj* x_8; obj* x_9; obj* x_10;
x_5 = lean::cnstr_get(x_0, 1);
obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_11;
x_5 = lean::cnstr_get(x_0, 0);
lean::inc(x_5);
lean::inc(x_1);
x_8 = l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg(x_1, x_2, x_5);
x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__2), 3, 2);
lean::closure_set(x_9, 0, x_1);
lean::closure_set(x_9, 1, x_0);
x_10 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_8, x_9);
return x_10;
x_7 = lean::cnstr_get(x_1, 1);
lean::inc(x_7);
x_9 = l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg(x_0, x_2, x_7);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__2), 3, 2);
lean::closure_set(x_10, 0, x_5);
lean::closure_set(x_10, 1, x_1);
x_11 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_9, x_10);
return x_11;
}
else
{
obj* x_14; obj* x_17; obj* x_20; obj* x_23;
lean::dec(x_3);
lean::dec(x_0);
lean::dec(x_2);
x_14 = lean::cnstr_get(x_4, 0);
lean::inc(x_14);
lean::dec(x_4);
x_17 = lean::cnstr_get(x_1, 0);
lean::inc(x_17);
obj* x_15; obj* x_18; obj* x_21; obj* x_24;
lean::dec(x_1);
x_20 = lean::cnstr_get(x_17, 1);
lean::inc(x_20);
lean::dec(x_17);
x_23 = lean::apply_2(x_20, lean::box(0), x_14);
return x_23;
lean::dec(x_3);
lean::dec(x_2);
x_15 = lean::cnstr_get(x_4, 0);
lean::inc(x_15);
lean::dec(x_4);
x_18 = lean::cnstr_get(x_0, 0);
lean::inc(x_18);
lean::dec(x_0);
x_21 = lean::cnstr_get(x_18, 1);
lean::inc(x_21);
lean::dec(x_18);
x_24 = lean::apply_2(x_21, lean::box(0), x_15);
return x_24;
}
}
}
@ -800,8 +795,8 @@ lean::inc(x_1);
x_10 = lean::apply_1(x_1, x_2);
lean::inc(x_7);
x_12 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__3), 5, 4);
lean::closure_set(x_12, 0, x_5);
lean::closure_set(x_12, 1, x_0);
lean::closure_set(x_12, 0, x_0);
lean::closure_set(x_12, 1, x_5);
lean::closure_set(x_12, 2, x_1);
lean::closure_set(x_12, 3, x_7);
x_13 = lean::apply_4(x_7, lean::box(0), lean::box(0), x_10, x_12);
@ -1239,7 +1234,59 @@ x_2 = l___private_init_lean_parser_syntax_1__updateLeadingAux___main(x_0, x_1);
return x_2;
}
}
obj* l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__2(obj* x_0, obj* x_1, obj* x_2) {
obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_10;
x_3 = lean::apply_1(x_1, x_2);
x_4 = lean::cnstr_get(x_3, 0);
x_6 = lean::cnstr_get(x_3, 1);
if (lean::is_exclusive(x_3)) {
x_8 = x_3;
} else {
lean::inc(x_4);
lean::inc(x_6);
lean::dec(x_3);
x_8 = lean::box(0);
}
x_9 = lean::apply_1(x_0, x_4);
if (lean::is_scalar(x_8)) {
x_10 = lean::alloc_cnstr(0, 2, 0);
} else {
x_10 = x_8;
}
lean::cnstr_set(x_10, 0, x_9);
lean::cnstr_set(x_10, 1, x_6);
return x_10;
}
}
obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___rarg), 3, 0);
return x_2;
}
}
obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3___rarg(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_2, 0, x_0);
lean::cnstr_set(x_2, 1, x_1);
return x_2;
}
}
obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3___rarg), 2, 0);
return x_1;
}
}
obj* l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__4(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_1) == 0)
@ -1254,50 +1301,43 @@ return x_5;
}
else
{
obj* x_6; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_15; obj* x_18; obj* x_19; obj* x_21; obj* x_23; obj* x_24; obj* x_25;
obj* x_6; obj* x_8; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_20; obj* x_21; obj* x_23; obj* x_25; obj* x_26; obj* x_27;
x_6 = lean::cnstr_get(x_1, 0);
lean::inc(x_6);
x_8 = lean::cnstr_get(x_1, 1);
if (lean::is_exclusive(x_1)) {
x_10 = x_1;
} else {
lean::inc(x_6);
lean::inc(x_8);
lean::dec(x_1);
x_10 = lean::box(0);
}
lean::inc(x_8);
lean::dec(x_1);
lean::inc(x_0);
x_12 = l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_updateLeading___spec__1(x_0, x_6, x_2);
x_13 = lean::cnstr_get(x_12, 0);
lean::inc(x_13);
x_15 = lean::cnstr_get(x_12, 1);
x_12 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_updateLeading___spec__1), 3, 2);
lean::closure_set(x_12, 0, x_0);
lean::closure_set(x_12, 1, x_6);
x_13 = l_List_mmap___main___rarg___closed__1;
x_14 = l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___rarg(x_13, x_12, x_2);
x_15 = lean::cnstr_get(x_14, 0);
lean::inc(x_15);
lean::dec(x_12);
x_18 = l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__2(x_0, x_8, x_15);
x_19 = lean::cnstr_get(x_18, 0);
x_21 = lean::cnstr_get(x_18, 1);
if (lean::is_exclusive(x_18)) {
x_23 = x_18;
x_17 = lean::cnstr_get(x_14, 1);
lean::inc(x_17);
lean::dec(x_14);
x_20 = l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__4(x_0, x_8, x_17);
x_21 = lean::cnstr_get(x_20, 0);
x_23 = lean::cnstr_get(x_20, 1);
if (lean::is_exclusive(x_20)) {
x_25 = x_20;
} else {
lean::inc(x_19);
lean::inc(x_21);
lean::dec(x_18);
x_23 = lean::box(0);
lean::inc(x_23);
lean::dec(x_20);
x_25 = lean::box(0);
}
if (lean::is_scalar(x_10)) {
x_24 = lean::alloc_cnstr(1, 2, 0);
x_26 = lean::apply_1(x_15, x_21);
if (lean::is_scalar(x_25)) {
x_27 = lean::alloc_cnstr(0, 2, 0);
} else {
x_24 = x_10;
x_27 = x_25;
}
lean::cnstr_set(x_24, 0, x_13);
lean::cnstr_set(x_24, 1, x_19);
if (lean::is_scalar(x_23)) {
x_25 = lean::alloc_cnstr(0, 2, 0);
} else {
x_25 = x_23;
}
lean::cnstr_set(x_25, 0, x_24);
lean::cnstr_set(x_25, 1, x_21);
return x_25;
lean::cnstr_set(x_27, 0, x_26);
lean::cnstr_set(x_27, 1, x_23);
return x_27;
}
}
}
@ -1331,7 +1371,7 @@ lean::inc(x_13);
lean::dec(x_9);
x_16 = lean::cnstr_get(x_5, 1);
lean::inc(x_16);
x_18 = l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__2(x_0, x_16, x_13);
x_18 = l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__4(x_0, x_16, x_13);
x_19 = lean::cnstr_get(x_18, 0);
x_21 = lean::cnstr_get(x_18, 1);
if (lean::is_exclusive(x_18)) {
@ -1484,6 +1524,25 @@ lean::dec(x_5);
return x_6;
}
}
obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l_List_foldr___main___at_Lean_Parser_Syntax_getHeadInfo___main___spec__1(obj* x_0, obj* x_1) {
_start:
{

1676
src/stage0/init/lean/parser/term.cpp generated
View file

File diff suppressed because it is too large Load diff

586
src/stage0/init/lean/parser/token.cpp generated
View file

@ -22,7 +22,6 @@ obj* l_Lean_Parser_withTrailing___rarg___lambda__1(obj*, obj*);
obj* l_Lean_Parser_rawStr_Lean_Parser_HasTokens___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_number_Parser_view___rarg___closed__2;
obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___boxed(obj*);
extern obj* l_Lean_NameMap_contains___rarg___closed__1;
obj* l___private_init_lean_parser_parsec_4__mkStringResult___rarg(obj*, obj*);
obj* l_Lean_Parser_indexed___rarg___closed__1;
obj* l_Lean_Parser_raw_view___rarg(obj*, obj*, obj*, obj*, obj*, uint8);
@ -67,7 +66,9 @@ obj* l___private_init_lean_parser_token_4__ident_x_27(obj*, obj*, obj*);
obj* l___private_init_lean_parser_token_4__ident_x_27___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_MonadParsec_many1Aux_x_27___main___at_Lean_Parser_parseBinLit___spec__2(obj*, obj*, obj*, obj*, obj*);
obj* l_List_map___main___at_Lean_Parser_number_x_27___spec__5(obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg___boxed(obj*, obj*);
obj* l_Lean_Parser_rawStr(obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___boxed(obj*);
uint8 l_Lean_isIdEndEscape(uint32);
obj* l_Lean_Parser_stringLit_Parser_tokens(obj*, obj*);
obj* l_Lean_Parser_MonadParsec_curr___at___private_init_lean_parser_token_4__ident_x_27___spec__2___rarg(obj*, obj*);
@ -76,7 +77,6 @@ obj* l_Lean_Parser_symbolOrIdent_View___rarg___boxed(obj*, obj*);
obj* l_Lean_Parser_unicodeSymbol_Lean_Parser_HasTokens___boxed(obj*, obj*);
uint8 l_String_isEmpty(obj*);
obj* l_Lean_Parser_detailIdent_HasView_x_27___lambda__1___closed__1;
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(obj*, obj*, obj*, obj*);
obj* l___private_init_lean_parser_token_2__whitespaceAux___main___boxed(obj*, obj*, obj*, obj*);
obj* l___private_init_lean_parser_token_7__toNatCore___boxed(obj*, obj*, obj*, obj*);
extern obj* l_Lean_Parser_parseHexDigit___rarg___lambda__3___closed__1;
@ -124,6 +124,7 @@ obj* l___private_init_lean_parser_token_2__whitespaceAux(obj*, obj*, obj*, obj*)
obj* l_Lean_Parser_stringLit_x_27___closed__1;
obj* l_Lean_Parser_number_Parser_tokens(obj*, obj*);
obj* l_Lean_Parser_number_HasView_x_27___lambda__2(obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg(obj*, obj*);
uint8 l_Char_isAlpha(uint32);
obj* l_Lean_Parser_rawIdent_Parser___rarg___closed__1;
obj* l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_View_value___spec__7___rarg(obj*, obj*, obj*);
@ -142,6 +143,7 @@ obj* l_Lean_Parser_indexed___rarg___lambda__1___closed__1;
obj* l_Lean_Parser_raw___rarg___lambda__2(obj*, uint8, obj*, obj*, obj*, obj*, obj*, obj*);
uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*);
obj* l_ReaderT_orelse___at_Lean_Parser_parseBinLit___spec__1___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4(obj*);
obj* l_Lean_Parser_detailIdent_HasView_x_27___lambda__1___closed__2;
obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_stringLit_Parser_View___boxed(obj*);
@ -156,6 +158,7 @@ obj* l_String_OldIterator_remaining___main(obj*);
obj* l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_number_x_27___spec__2___boxed(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_parseStringLiteralAux___main___at_Lean_Parser_stringLit_x_27___spec__2___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_lift___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__4___boxed(obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg___boxed(obj*, obj*);
obj* l_Lean_Parser_Combinators_node_view___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l___private_init_lean_parser_token_2__whitespaceAux___boxed(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_number_x_27___lambda__4___boxed(obj*, obj*, obj*, obj*);
@ -163,6 +166,7 @@ obj* l_Lean_Parser_withTrailing___rarg(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_raw_view___boxed(obj*);
obj* l_Lean_Parser_number_HasView;
obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__2;
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___boxed(obj*);
obj* l_Lean_Parser_unicodeSymbol___boxed(obj*);
obj* l_Lean_Parser_parseStringLiteralAux___main___at_Lean_Parser_stringLit_View_value___spec__4___boxed(obj*, obj*, obj*);
obj* l_Lean_Parser_unicodeSymbol_viewDefault___rarg___boxed(obj*, obj*, obj*, obj*);
@ -173,7 +177,6 @@ obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_token_4__id
obj* l_Lean_Parser_detailIdentPart_Parser(obj*, obj*, obj*);
obj* l_Lean_Parser_indexed___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_parseStringLiteral___at_Lean_Parser_stringLit_x_27___spec__1(obj*, obj*, obj*);
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___boxed(obj*);
obj* l_Lean_Parser_MonadParsec_curr___at___private_init_lean_parser_token_4__ident_x_27___spec__2(obj*);
obj* l_Lean_Parser_MonadParsec_digit___at_Lean_Parser_stringLit_x_27___spec__6___boxed(obj*, obj*, obj*);
obj* l_Lean_Parser_asSubstring___rarg(obj*, obj*, obj*, obj*);
@ -205,6 +208,7 @@ obj* l_Lean_Parser_parseStringLiteralAux___main___at_Lean_Parser_stringLit_View_
obj* l_Lean_Parser_matchToken(obj*, obj*, obj*);
obj* l_Lean_Parser_finishCommentBlock___boxed(obj*, obj*, obj*, obj*);
obj* l_Nat_repr(obj*);
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2(obj*);
obj* l_Lean_Parser_unicodeSymbol_Lean_Parser_HasTokens___rarg___boxed(obj*, obj*, obj*);
obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__7(obj*, obj*, obj*);
obj* l_Lean_Parser_ParsecT_lookahead___at_Lean_Parser_detailIdentSuffix_Parser___spec__1___boxed(obj*, obj*, obj*, obj*, obj*);
@ -236,6 +240,7 @@ obj* l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Pa
obj* l_Lean_Parser_ident_Parser___boxed(obj*);
obj* l_Lean_Parser_MonadParsec_takeWhile_x_27___at___private_init_lean_parser_token_2__whitespaceAux___main___spec__2(obj*);
obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__8___boxed(obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg(obj*, obj*);
obj* l_ReaderT_Monad___rarg(obj*);
obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser_number_x_27___spec__3(obj*, obj*, obj*);
obj* l_Lean_Parser_Combinators_anyOf_view___rarg(obj*, obj*, obj*);
@ -262,6 +267,7 @@ obj* l_Lean_Parser_symbolCore___boxed(obj*);
obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__2;
obj* l___private_init_lean_parser_token_3__updateTrailing(obj*, obj*);
obj* l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__4(obj*, obj*, obj*, obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg(obj*, obj*);
obj* l_Lean_Parser_stringLit_Parser_View___rarg___boxed(obj*);
obj* l_Lean_Parser_tryView___at_Lean_Parser_stringLit_Parser___spec__1(obj*, obj*);
namespace lean {
@ -269,6 +275,7 @@ obj* string_append(obj*, obj*);
}
obj* l_Lean_Parser_rawStr_viewDefault(obj*);
obj* l_String_OldIterator_next___main(obj*);
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_unicodeSymbol(obj*);
obj* l_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasView___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l___private_init_lean_parser_token_1__finishCommentBlockAux___main___closed__1;
@ -352,7 +359,6 @@ obj* l_Lean_Parser_ident_Parser_tokens___boxed(obj*, obj*);
obj* l_Lean_Parser_symbol_tokens___rarg___boxed(obj*, obj*);
obj* l_Lean_Parser_peekToken___closed__1;
obj* l_Lean_Parser_ParsecT_lookahead___at_Lean_Parser_token___spec__1___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_symbol___boxed(obj*);
obj* l_Lean_Parser_ParsecT_tryMkRes___rarg(obj*);
obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__6___boxed(obj*);
@ -419,7 +425,6 @@ obj* l___private_init_lean_parser_token_7__toNatCore___main(obj*, obj*, obj*, ob
obj* l___private_init_lean_parser_token_8__toNatBase___boxed(obj*, obj*);
obj* l_Lean_Parser_ident_Parser_View___rarg___boxed(obj*);
obj* l_Lean_Parser_stringLit_Parser___boxed(obj*);
obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_parseOctLit(obj*, obj*, obj*);
obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__1___closed__3;
obj* l_Lean_Parser_withTrailing___rarg___lambda__2(obj*, obj*, obj*, obj*);
@ -445,6 +450,7 @@ extern obj* l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__
obj* l_Lean_Parser_MonadParsec_foldlAux___main___at___private_init_lean_parser_token_4__ident_x_27___spec__9(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_symbol___rarg___boxed(obj*, obj*, obj*);
obj* l_Lean_Parser_detailIdentSuffix_HasView_x_27___lambda__1___closed__1;
uint8 l_Lean_Name_quickLt(obj*, obj*);
obj* l_Lean_Parser_symbol_viewDefault___boxed(obj*);
obj* l___private_init_lean_parser_parsec_7__takeWhileAux_x_27___main___at___private_init_lean_parser_token_2__whitespaceAux___main___spec__3___boxed(obj*, obj*, obj*);
obj* l_ReaderT_MonadExcept___rarg(obj*);
@ -468,11 +474,11 @@ obj* l___private_init_lean_parser_token_2__whitespaceAux___main___closed__2;
obj* l_Lean_Parser_MonadParsec_takeWhile1___at_Lean_Parser_parseHexLit___spec__1___boxed(obj*, obj*, obj*);
obj* l_Lean_Parser_stringLit_Parser___rarg___lambda__1(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_List_cons_tokens___rarg(obj*, obj*);
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1(obj*);
obj* l_Lean_Parser_raw___rarg___lambda__3(uint8, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_withTrailing___at_Lean_Parser_token___spec__3___boxed(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_number_View_ofNat(obj*);
uint8 l_Char_isWhitespace(uint32);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___boxed(obj*);
obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2(obj*);
obj* l_Lean_Parser_number_x_27(obj*, obj*, obj*);
obj* l_DList_singleton___rarg(obj*, obj*);
@ -482,10 +488,14 @@ obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__1___closed__2;
obj* l___private_init_lean_parser_token_1__finishCommentBlockAux___main___closed__4;
obj* l_Lean_Parser_detailIdent_Parser(obj*, obj*, obj*);
obj* l_Lean_Parser_peekToken(obj*, obj*, obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___boxed(obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg___boxed(obj*, obj*);
obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1(obj*);
obj* l_Lean_Parser_detailIdentSuffix_Parser___closed__1;
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg___boxed(obj*, obj*);
obj* l_Lean_Parser_MonadParsec_takeWhile1___at_Lean_Parser_number_x_27___spec__1___boxed(obj*, obj*, obj*);
obj* l_Lean_Parser_MonadParsec_ch___at___private_init_lean_parser_token_4__ident_x_27___spec__6___boxed(obj*, obj*, obj*, obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg(obj*, obj*);
obj* l_Lean_Parser_number_HasView_x_27;
obj* l_Lean_Parser_MonadParsec_strCore___rarg(obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_symbolCore___rarg___boxed(obj*, obj*, obj*, obj*);
@ -517,6 +527,7 @@ obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__3;
namespace lean {
uint8 nat_dec_le(obj*, obj*);
}
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___boxed(obj*);
obj* l___private_init_lean_parser_token_2__whitespaceAux___main___closed__3;
obj* l___private_init_lean_parser_token_1__finishCommentBlockAux___main___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_ReaderT_Alternative___rarg(obj*, obj*);
@ -526,6 +537,7 @@ obj* l_List_map___main___at_Lean_Parser_number_x_27___spec__5___lambda__1(obj*,
obj* l_ReaderT_lift___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__4___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_x_27___spec__4___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_MonadParsec_strCore___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__3___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(obj*, obj*, obj*, obj*);
obj* l___private_init_lean_parser_parsec_7__takeWhileAux_x_27___main___at___private_init_lean_parser_token_2__whitespaceAux___main___spec__3(obj*, uint8, obj*);
obj* l_Lean_Parser_raw___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Parser_detailIdentSuffix_HasView_x_27___lambda__1(obj*);
@ -578,11 +590,13 @@ obj* l_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___lambda__1(obj*,
obj* l_Lean_Parser_symbolOrIdent_tokens(obj*, obj*, obj*);
obj* l_Lean_Parser_idPartEscaped___at___private_init_lean_parser_token_4__ident_x_27___spec__5(obj*, obj*, obj*);
obj* l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_parseHexLit___spec__2(obj*, obj*, obj*, obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5(obj*);
extern obj* l_Lean_Parser_BasicParserM_MonadExcept;
obj* l_Lean_Parser_asSubstring___rarg___lambda__1(obj*, obj*, obj*);
obj* l_ReaderT_lift___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__4___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
extern obj* l_Lean_Parser_ParsecT_failure___rarg___closed__1;
uint8 l_Lean_isIdFirst(uint32);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1(obj*);
namespace lean {
obj* nat_mul(obj*, obj*);
}
@ -606,6 +620,7 @@ obj* l_Lean_Parser_number_HasView_x_27___lambda__1(obj*);
obj* l_Lean_Parser_withTrailing(obj*);
obj* l_Lean_Parser_rawStr_Lean_Parser_HasTokens(obj*, obj*, obj*, obj*, obj*, uint8);
obj* l_Lean_Parser_parseStringLiteral___at_Lean_Parser_stringLit_View_value___spec__1(obj*);
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3(obj*);
obj* l_Lean_Parser_MonadParsec_digit___at_Lean_Parser_stringLit_x_27___spec__6(obj*, obj*, obj*);
obj* l___private_init_lean_parser_token_1__finishCommentBlockAux___main___closed__2;
obj* l_Lean_Parser_MonadParsec_ch___at_Lean_Parser_stringLit_View_value___spec__2___boxed(obj*, obj*);
@ -22640,7 +22655,69 @@ lean::dec(x_0);
return x_1;
}
}
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_2;
x_2 = lean::box(0);
return x_2;
}
else
{
obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::cnstr_get(x_0, 2);
lean::inc(x_7);
x_9 = lean::cnstr_get(x_0, 3);
lean::inc(x_9);
lean::dec(x_0);
x_12 = l_Lean_Name_quickLt(x_1, x_5);
if (x_12 == 0)
{
uint8 x_14;
lean::dec(x_3);
x_14 = l_Lean_Name_quickLt(x_5, x_1);
lean::dec(x_5);
if (x_14 == 0)
{
obj* x_17;
lean::dec(x_9);
x_17 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_17, 0, x_7);
return x_17;
}
else
{
lean::dec(x_7);
x_0 = x_9;
goto _start;
}
}
else
{
lean::dec(x_7);
lean::dec(x_9);
lean::dec(x_5);
x_0 = x_3;
goto _start;
}
}
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg___boxed), 2, 0);
return x_1;
}
}
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
if (lean::obj_tag(x_0) == 0)
@ -22667,11 +22744,197 @@ return x_10;
}
}
}
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1(obj* x_0) {
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg___boxed), 4, 0);
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg___boxed), 4, 0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_2;
x_2 = lean::box(0);
return x_2;
}
else
{
obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::cnstr_get(x_0, 2);
lean::inc(x_7);
x_9 = lean::cnstr_get(x_0, 3);
lean::inc(x_9);
lean::dec(x_0);
x_12 = l_Lean_Name_quickLt(x_1, x_5);
if (x_12 == 0)
{
uint8 x_14;
lean::dec(x_3);
x_14 = l_Lean_Name_quickLt(x_5, x_1);
lean::dec(x_5);
if (x_14 == 0)
{
obj* x_17;
lean::dec(x_9);
x_17 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_17, 0, x_7);
return x_17;
}
else
{
lean::dec(x_7);
x_0 = x_9;
goto _start;
}
}
else
{
lean::dec(x_7);
lean::dec(x_9);
lean::dec(x_5);
x_0 = x_3;
goto _start;
}
}
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg___boxed), 2, 0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_2;
x_2 = lean::box(0);
return x_2;
}
else
{
obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::cnstr_get(x_0, 2);
lean::inc(x_7);
x_9 = lean::cnstr_get(x_0, 3);
lean::inc(x_9);
lean::dec(x_0);
x_12 = l_Lean_Name_quickLt(x_1, x_5);
if (x_12 == 0)
{
uint8 x_14;
lean::dec(x_3);
x_14 = l_Lean_Name_quickLt(x_5, x_1);
lean::dec(x_5);
if (x_14 == 0)
{
obj* x_17;
lean::dec(x_9);
x_17 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_17, 0, x_7);
return x_17;
}
else
{
lean::dec(x_7);
x_0 = x_9;
goto _start;
}
}
else
{
lean::dec(x_7);
lean::dec(x_9);
lean::dec(x_5);
x_0 = x_3;
goto _start;
}
}
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg___boxed), 2, 0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_2;
x_2 = lean::box(0);
return x_2;
}
else
{
obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::cnstr_get(x_0, 2);
lean::inc(x_7);
x_9 = lean::cnstr_get(x_0, 3);
lean::inc(x_9);
lean::dec(x_0);
x_12 = l_Lean_Name_quickLt(x_1, x_5);
if (x_12 == 0)
{
uint8 x_14;
lean::dec(x_3);
x_14 = l_Lean_Name_quickLt(x_5, x_1);
lean::dec(x_5);
if (x_14 == 0)
{
obj* x_17;
lean::dec(x_9);
x_17 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_17, 0, x_7);
return x_17;
}
else
{
lean::dec(x_7);
x_0 = x_9;
goto _start;
}
}
else
{
lean::dec(x_7);
lean::dec(x_9);
lean::dec(x_5);
x_0 = x_3;
goto _start;
}
}
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg___boxed), 2, 0);
return x_1;
}
}
@ -22708,7 +22971,7 @@ lean::dec(x_1);
switch (lean::obj_tag(x_11)) {
case 0:
{
obj* x_14; obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32;
obj* x_14; obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32;
x_14 = lean::cnstr_get(x_11, 0);
lean::inc(x_14);
lean::dec(x_11);
@ -22717,9 +22980,9 @@ lean::inc(x_17);
lean::dec(x_14);
x_20 = lean::box(0);
x_21 = lean_name_mk_string(x_20, x_17);
x_22 = l_Lean_NameMap_contains___rarg___closed__1;
x_23 = l_RBNode_find___main___rarg(x_22, lean::box(0), x_0, x_21);
x_24 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_23, x_2, x_3, x_4);
x_22 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg(x_0, x_21);
lean::dec(x_21);
x_24 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_22, x_2, x_3, x_4);
x_25 = lean::cnstr_get(x_24, 0);
x_27 = lean::cnstr_get(x_24, 1);
if (lean::is_exclusive(x_24)) {
@ -22743,149 +23006,148 @@ return x_32;
}
case 1:
{
obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_42; obj* x_43; obj* x_44; obj* x_45;
obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44;
lean::dec(x_11);
x_34 = l_Lean_NameMap_contains___rarg___closed__1;
x_35 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1;
x_36 = l_RBNode_find___main___rarg(x_34, lean::box(0), x_0, x_35);
x_37 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_36, x_2, x_3, x_4);
x_38 = lean::cnstr_get(x_37, 0);
x_40 = lean::cnstr_get(x_37, 1);
if (lean::is_exclusive(x_37)) {
x_42 = x_37;
x_34 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1;
x_35 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg(x_0, x_34);
x_36 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_35, x_2, x_3, x_4);
x_37 = lean::cnstr_get(x_36, 0);
x_39 = lean::cnstr_get(x_36, 1);
if (lean::is_exclusive(x_36)) {
x_41 = x_36;
} else {
lean::inc(x_38);
lean::inc(x_40);
lean::dec(x_37);
x_42 = lean::box(0);
lean::inc(x_37);
lean::inc(x_39);
lean::dec(x_36);
x_41 = lean::box(0);
}
x_43 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1;
x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_43, x_38);
if (lean::is_scalar(x_42)) {
x_45 = lean::alloc_cnstr(0, 2, 0);
x_42 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1;
x_43 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_42, x_37);
if (lean::is_scalar(x_41)) {
x_44 = lean::alloc_cnstr(0, 2, 0);
} else {
x_45 = x_42;
x_44 = x_41;
}
lean::cnstr_set(x_45, 0, x_44);
lean::cnstr_set(x_45, 1, x_40);
return x_45;
lean::cnstr_set(x_44, 0, x_43);
lean::cnstr_set(x_44, 1, x_39);
return x_44;
}
case 2:
{
obj* x_46; obj* x_49; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62;
x_46 = lean::cnstr_get(x_11, 0);
lean::inc(x_46);
obj* x_45; obj* x_48; obj* x_51; obj* x_53; obj* x_54; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61;
x_45 = lean::cnstr_get(x_11, 0);
lean::inc(x_45);
lean::dec(x_11);
x_49 = lean::cnstr_get(x_46, 0);
lean::inc(x_49);
lean::dec(x_46);
x_52 = l_Lean_NameMap_contains___rarg___closed__1;
x_53 = l_RBNode_find___main___rarg(x_52, lean::box(0), x_0, x_49);
x_54 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_53, x_2, x_3, x_4);
x_55 = lean::cnstr_get(x_54, 0);
x_57 = lean::cnstr_get(x_54, 1);
if (lean::is_exclusive(x_54)) {
x_59 = x_54;
x_48 = lean::cnstr_get(x_45, 0);
lean::inc(x_48);
lean::dec(x_45);
x_51 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg(x_0, x_48);
lean::dec(x_48);
x_53 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_51, x_2, x_3, x_4);
x_54 = lean::cnstr_get(x_53, 0);
x_56 = lean::cnstr_get(x_53, 1);
if (lean::is_exclusive(x_53)) {
x_58 = x_53;
} else {
lean::inc(x_55);
lean::inc(x_57);
lean::dec(x_54);
x_59 = lean::box(0);
lean::inc(x_54);
lean::inc(x_56);
lean::dec(x_53);
x_58 = lean::box(0);
}
x_60 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1;
x_61 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_55);
if (lean::is_scalar(x_59)) {
x_62 = lean::alloc_cnstr(0, 2, 0);
x_59 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1;
x_60 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_59, x_54);
if (lean::is_scalar(x_58)) {
x_61 = lean::alloc_cnstr(0, 2, 0);
} else {
x_62 = x_59;
x_61 = x_58;
}
lean::cnstr_set(x_62, 0, x_61);
lean::cnstr_set(x_62, 1, x_57);
return x_62;
lean::cnstr_set(x_61, 0, x_60);
lean::cnstr_set(x_61, 1, x_56);
return x_61;
}
default:
{
obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67;
x_63 = lean::box(0);
x_64 = l_String_splitAux___main___closed__1;
x_65 = l_mjoin___rarg___closed__1;
x_66 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_64, x_65, x_63, x_63, x_2, x_3, x_4);
x_67 = lean::cnstr_get(x_66, 0);
lean::inc(x_67);
if (lean::obj_tag(x_67) == 0)
obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66;
x_62 = lean::box(0);
x_63 = l_String_splitAux___main___closed__1;
x_64 = l_mjoin___rarg___closed__1;
x_65 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_63, x_64, x_62, x_62, x_2, x_3, x_4);
x_66 = lean::cnstr_get(x_65, 0);
lean::inc(x_66);
if (lean::obj_tag(x_66) == 0)
{
obj* x_69; obj* x_72; obj* x_74; obj* x_76; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88;
x_69 = lean::cnstr_get(x_66, 1);
lean::inc(x_69);
obj* x_68; obj* x_71; obj* x_73; obj* x_75; obj* x_78; obj* x_80; obj* x_81; obj* x_83; obj* x_85; obj* x_86; obj* x_87;
x_68 = lean::cnstr_get(x_65, 1);
lean::inc(x_68);
lean::dec(x_65);
x_71 = lean::cnstr_get(x_66, 0);
lean::inc(x_71);
x_73 = lean::cnstr_get(x_66, 1);
lean::inc(x_73);
x_75 = lean::cnstr_get(x_66, 2);
lean::inc(x_75);
lean::dec(x_66);
x_72 = lean::cnstr_get(x_67, 0);
lean::inc(x_72);
x_74 = lean::cnstr_get(x_67, 1);
lean::inc(x_74);
x_76 = lean::cnstr_get(x_67, 2);
lean::inc(x_76);
lean::dec(x_67);
x_79 = l_Lean_NameMap_contains___rarg___closed__1;
x_80 = l_RBNode_find___main___rarg(x_79, lean::box(0), x_0, x_72);
x_81 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_80, x_2, x_74, x_69);
x_82 = lean::cnstr_get(x_81, 0);
x_84 = lean::cnstr_get(x_81, 1);
if (lean::is_exclusive(x_81)) {
x_86 = x_81;
x_78 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg(x_0, x_71);
lean::dec(x_71);
x_80 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_78, x_2, x_73, x_68);
x_81 = lean::cnstr_get(x_80, 0);
x_83 = lean::cnstr_get(x_80, 1);
if (lean::is_exclusive(x_80)) {
x_85 = x_80;
} else {
lean::inc(x_82);
lean::inc(x_84);
lean::dec(x_81);
x_86 = lean::box(0);
lean::inc(x_81);
lean::inc(x_83);
lean::dec(x_80);
x_85 = lean::box(0);
}
x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_76, x_82);
if (lean::is_scalar(x_86)) {
x_88 = lean::alloc_cnstr(0, 2, 0);
x_86 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_81);
if (lean::is_scalar(x_85)) {
x_87 = lean::alloc_cnstr(0, 2, 0);
} else {
x_88 = x_86;
x_87 = x_85;
}
lean::cnstr_set(x_88, 0, x_87);
lean::cnstr_set(x_88, 1, x_84);
return x_88;
lean::cnstr_set(x_87, 0, x_86);
lean::cnstr_set(x_87, 1, x_83);
return x_87;
}
else
{
obj* x_90; obj* x_92; obj* x_93; uint8 x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99;
obj* x_89; obj* x_91; obj* x_92; uint8 x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98;
lean::dec(x_0);
x_90 = lean::cnstr_get(x_66, 1);
x_89 = lean::cnstr_get(x_65, 1);
if (lean::is_exclusive(x_65)) {
lean::cnstr_release(x_65, 0);
x_91 = x_65;
} else {
lean::inc(x_89);
lean::dec(x_65);
x_91 = lean::box(0);
}
x_92 = lean::cnstr_get(x_66, 0);
x_94 = lean::cnstr_get_scalar<uint8>(x_66, sizeof(void*)*1);
if (lean::is_exclusive(x_66)) {
lean::cnstr_release(x_66, 0);
x_92 = x_66;
x_95 = x_66;
} else {
lean::inc(x_90);
lean::inc(x_92);
lean::dec(x_66);
x_92 = lean::box(0);
x_95 = lean::box(0);
}
x_93 = lean::cnstr_get(x_67, 0);
x_95 = lean::cnstr_get_scalar<uint8>(x_67, sizeof(void*)*1);
if (lean::is_exclusive(x_67)) {
x_96 = x_67;
if (lean::is_scalar(x_95)) {
x_96 = lean::alloc_cnstr(1, 1, 1);
} else {
lean::inc(x_93);
lean::dec(x_67);
x_96 = lean::box(0);
x_96 = x_95;
}
if (lean::is_scalar(x_96)) {
x_97 = lean::alloc_cnstr(1, 1, 1);
lean::cnstr_set(x_96, 0, x_92);
lean::cnstr_set_scalar(x_96, sizeof(void*)*1, x_94);
x_97 = x_96;
if (lean::is_scalar(x_91)) {
x_98 = lean::alloc_cnstr(0, 2, 0);
} else {
x_97 = x_96;
x_98 = x_91;
}
lean::cnstr_set(x_97, 0, x_93);
lean::cnstr_set_scalar(x_97, sizeof(void*)*1, x_95);
x_98 = x_97;
if (lean::is_scalar(x_92)) {
x_99 = lean::alloc_cnstr(0, 2, 0);
} else {
x_99 = x_92;
}
lean::cnstr_set(x_99, 0, x_98);
lean::cnstr_set(x_99, 1, x_90);
return x_99;
lean::cnstr_set(x_98, 0, x_97);
lean::cnstr_set(x_98, 1, x_89);
return x_98;
}
}
}
@ -22922,20 +23184,92 @@ x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_indexed___rarg__
return x_1;
}
}
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__1(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4;
x_4 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_0, x_1, x_2, x_3);
x_4 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_0, x_1, x_2, x_3);
lean::dec(x_1);
return x_4;
}
}
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___boxed(obj* x_0) {
obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1(x_0);
x_1 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__3(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__4(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__5(x_0);
lean::dec(x_0);
return x_1;
}

1682
src/stage0/init/lean/parser/trie.cpp generated
View file

File diff suppressed because it is too large Load diff

381
src/stage0/init/lean/position.cpp generated
View file

@ -14,21 +14,27 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
obj* l_RBNode_setBlack___main___rarg(obj*);
uint8 l_Lean_Position_lt(obj*, obj*);
namespace lean {
obj* nat_sub(obj*, obj*);
}
obj* l_Lean_Position_DecidableEq___boxed(obj*, obj*);
uint32 l_String_OldIterator_curr___main(obj*);
obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*);
obj* l___private_init_lean_position_1__fromStringAux___main___boxed(obj*, obj*, obj*);
obj* l_Lean_Position_Lean_HasToFormat___closed__3;
obj* l_Nat_decEq___boxed(obj*, obj*);
obj* l_Lean_Position_Inhabited;
obj* l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1___boxed(obj*, obj*, obj*);
obj* l_RBNode_balance2___main___rarg(obj*, obj*);
obj* l_Lean_Position_lt___boxed(obj*, obj*);
obj* l_Lean_Position_lt___main___boxed(obj*, obj*);
obj* l_Nat_repr(obj*);
obj* l_String_OldIterator_next___main(obj*);
namespace lean {
uint8 nat_dec_lt(obj*, obj*);
}
obj* l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(obj*, obj*, obj*);
obj* l_Lean_Position_lt___main___closed__1;
obj* l_Lean_Position_Lean_HasToFormat___closed__1;
obj* l___private_init_lean_position_1__fromStringAux___boxed(obj*, obj*, obj*);
@ -36,11 +42,13 @@ uint8 l_String_OldIterator_hasNext___main(obj*);
namespace lean {
obj* nat_add(obj*, obj*);
}
obj* l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1(obj*, obj*, obj*);
namespace lean {
uint8 nat_dec_eq(obj*, obj*);
}
obj* l_RBMap_ofList___main___at_Lean_FileMap_fromString___spec__1(obj*);
obj* l_Lean_toFmt___at_Lean_Position_Lean_HasToFormat___spec__1(obj*);
uint8 l_RBNode_isRed___main___rarg(obj*);
obj* l_Lean_Position_Lean_HasToFormat___closed__2;
obj* l___private_init_lean_position_1__fromStringAux(obj*, obj*, obj*);
obj* l___private_init_lean_position_1__fromStringAux___main(obj*, obj*, obj*);
@ -49,7 +57,7 @@ obj* l_Lean_Position_Lean_HasToFormat(obj*);
obj* l_Lean_Position_lt___main___closed__2;
obj* l_Nat_decLt___boxed(obj*, obj*);
uint8 l_Lean_Position_lt___main(obj*, obj*);
obj* l_RBMap_lowerBound___main___rarg(obj*, obj*, obj*);
obj* l_RBNode_balance1___main___rarg(obj*, obj*);
namespace lean {
uint32 uint32_of_nat(obj*);
}
@ -353,6 +361,237 @@ lean::dec(x_2);
return x_3;
}
}
obj* l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
uint8 x_3; obj* x_4; obj* x_5;
x_3 = 0;
x_4 = lean::alloc_cnstr(1, 4, 1);
lean::cnstr_set(x_4, 0, x_0);
lean::cnstr_set(x_4, 1, x_1);
lean::cnstr_set(x_4, 2, x_2);
lean::cnstr_set(x_4, 3, x_0);
lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3);
x_5 = x_4;
return x_5;
}
else
{
uint8 x_6;
x_6 = lean::cnstr_get_scalar<uint8>(x_0, sizeof(void*)*4);
if (x_6 == 0)
{
obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_16;
x_7 = lean::cnstr_get(x_0, 0);
x_9 = lean::cnstr_get(x_0, 1);
x_11 = lean::cnstr_get(x_0, 2);
x_13 = lean::cnstr_get(x_0, 3);
if (lean::is_exclusive(x_0)) {
lean::cnstr_set(x_0, 0, lean::box(0));
lean::cnstr_set(x_0, 1, lean::box(0));
lean::cnstr_set(x_0, 2, lean::box(0));
lean::cnstr_set(x_0, 3, lean::box(0));
x_15 = x_0;
} else {
lean::inc(x_7);
lean::inc(x_9);
lean::inc(x_11);
lean::inc(x_13);
lean::dec(x_0);
x_15 = lean::box(0);
}
x_16 = lean::nat_dec_lt(x_1, x_9);
if (x_16 == 0)
{
uint8 x_17;
x_17 = lean::nat_dec_lt(x_9, x_1);
if (x_17 == 0)
{
obj* x_20; obj* x_21;
lean::dec(x_9);
lean::dec(x_11);
if (lean::is_scalar(x_15)) {
x_20 = lean::alloc_cnstr(1, 4, 1);
} else {
x_20 = x_15;
}
lean::cnstr_set(x_20, 0, x_7);
lean::cnstr_set(x_20, 1, x_1);
lean::cnstr_set(x_20, 2, x_2);
lean::cnstr_set(x_20, 3, x_13);
lean::cnstr_set_scalar(x_20, sizeof(void*)*4, x_6);
x_21 = x_20;
return x_21;
}
else
{
obj* x_22; obj* x_23; obj* x_24;
x_22 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_13, x_1, x_2);
if (lean::is_scalar(x_15)) {
x_23 = lean::alloc_cnstr(1, 4, 1);
} else {
x_23 = x_15;
}
lean::cnstr_set(x_23, 0, x_7);
lean::cnstr_set(x_23, 1, x_9);
lean::cnstr_set(x_23, 2, x_11);
lean::cnstr_set(x_23, 3, x_22);
lean::cnstr_set_scalar(x_23, sizeof(void*)*4, x_6);
x_24 = x_23;
return x_24;
}
}
else
{
obj* x_25; obj* x_26; obj* x_27;
x_25 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_7, x_1, x_2);
if (lean::is_scalar(x_15)) {
x_26 = lean::alloc_cnstr(1, 4, 1);
} else {
x_26 = x_15;
}
lean::cnstr_set(x_26, 0, x_25);
lean::cnstr_set(x_26, 1, x_9);
lean::cnstr_set(x_26, 2, x_11);
lean::cnstr_set(x_26, 3, x_13);
lean::cnstr_set_scalar(x_26, sizeof(void*)*4, x_6);
x_27 = x_26;
return x_27;
}
}
else
{
obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; uint8 x_37;
x_28 = lean::cnstr_get(x_0, 0);
x_30 = lean::cnstr_get(x_0, 1);
x_32 = lean::cnstr_get(x_0, 2);
x_34 = lean::cnstr_get(x_0, 3);
if (lean::is_exclusive(x_0)) {
lean::cnstr_set(x_0, 0, lean::box(0));
lean::cnstr_set(x_0, 1, lean::box(0));
lean::cnstr_set(x_0, 2, lean::box(0));
lean::cnstr_set(x_0, 3, lean::box(0));
x_36 = x_0;
} else {
lean::inc(x_28);
lean::inc(x_30);
lean::inc(x_32);
lean::inc(x_34);
lean::dec(x_0);
x_36 = lean::box(0);
}
x_37 = lean::nat_dec_lt(x_1, x_30);
if (x_37 == 0)
{
uint8 x_38;
x_38 = lean::nat_dec_lt(x_30, x_1);
if (x_38 == 0)
{
obj* x_41; obj* x_42;
lean::dec(x_32);
lean::dec(x_30);
if (lean::is_scalar(x_36)) {
x_41 = lean::alloc_cnstr(1, 4, 1);
} else {
x_41 = x_36;
}
lean::cnstr_set(x_41, 0, x_28);
lean::cnstr_set(x_41, 1, x_1);
lean::cnstr_set(x_41, 2, x_2);
lean::cnstr_set(x_41, 3, x_34);
lean::cnstr_set_scalar(x_41, sizeof(void*)*4, x_6);
x_42 = x_41;
return x_42;
}
else
{
uint8 x_43;
x_43 = l_RBNode_isRed___main___rarg(x_34);
if (x_43 == 0)
{
obj* x_44; obj* x_45; obj* x_46;
x_44 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_34, x_1, x_2);
if (lean::is_scalar(x_36)) {
x_45 = lean::alloc_cnstr(1, 4, 1);
} else {
x_45 = x_36;
}
lean::cnstr_set(x_45, 0, x_28);
lean::cnstr_set(x_45, 1, x_30);
lean::cnstr_set(x_45, 2, x_32);
lean::cnstr_set(x_45, 3, x_44);
lean::cnstr_set_scalar(x_45, sizeof(void*)*4, x_6);
x_46 = x_45;
return x_46;
}
else
{
obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51;
x_47 = lean::box(0);
if (lean::is_scalar(x_36)) {
x_48 = lean::alloc_cnstr(1, 4, 1);
} else {
x_48 = x_36;
}
lean::cnstr_set(x_48, 0, x_28);
lean::cnstr_set(x_48, 1, x_30);
lean::cnstr_set(x_48, 2, x_32);
lean::cnstr_set(x_48, 3, x_47);
lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_6);
x_49 = x_48;
x_50 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_34, x_1, x_2);
x_51 = l_RBNode_balance2___main___rarg(x_49, x_50);
return x_51;
}
}
}
else
{
uint8 x_52;
x_52 = l_RBNode_isRed___main___rarg(x_28);
if (x_52 == 0)
{
obj* x_53; obj* x_54; obj* x_55;
x_53 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_28, x_1, x_2);
if (lean::is_scalar(x_36)) {
x_54 = lean::alloc_cnstr(1, 4, 1);
} else {
x_54 = x_36;
}
lean::cnstr_set(x_54, 0, x_53);
lean::cnstr_set(x_54, 1, x_30);
lean::cnstr_set(x_54, 2, x_32);
lean::cnstr_set(x_54, 3, x_34);
lean::cnstr_set_scalar(x_54, sizeof(void*)*4, x_6);
x_55 = x_54;
return x_55;
}
else
{
obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60;
x_56 = lean::box(0);
if (lean::is_scalar(x_36)) {
x_57 = lean::alloc_cnstr(1, 4, 1);
} else {
x_57 = x_36;
}
lean::cnstr_set(x_57, 0, x_56);
lean::cnstr_set(x_57, 1, x_30);
lean::cnstr_set(x_57, 2, x_32);
lean::cnstr_set(x_57, 3, x_34);
lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_6);
x_58 = x_57;
x_59 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_28, x_1, x_2);
x_60 = l_RBNode_balance1___main___rarg(x_58, x_59);
return x_60;
}
}
}
}
}
}
obj* l_RBMap_ofList___main___at_Lean_FileMap_fromString___spec__1(obj* x_0) {
_start:
{
@ -364,7 +603,7 @@ return x_1;
}
else
{
obj* x_2; obj* x_4; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14;
obj* x_2; obj* x_4; obj* x_7; obj* x_9; obj* x_12; uint8 x_13;
x_2 = lean::cnstr_get(x_0, 0);
lean::inc(x_2);
x_4 = lean::cnstr_get(x_0, 1);
@ -376,10 +615,21 @@ x_9 = lean::cnstr_get(x_2, 1);
lean::inc(x_9);
lean::dec(x_2);
x_12 = l_RBMap_ofList___main___at_Lean_FileMap_fromString___spec__1(x_4);
x_13 = l_Lean_Position_lt___main___closed__2;
x_14 = l_RBNode_insert___rarg(x_13, x_12, x_7, x_9);
x_13 = l_RBNode_isRed___main___rarg(x_12);
if (x_13 == 0)
{
obj* x_14;
x_14 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_12, x_7, x_9);
return x_14;
}
else
{
obj* x_15; obj* x_16;
x_15 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_12, x_7, x_9);
x_16 = l_RBNode_setBlack___main___rarg(x_15);
return x_16;
}
}
}
}
obj* l_Lean_FileMap_fromString(obj* x_0) {
@ -398,41 +648,110 @@ x_6 = l_RBMap_ofList___main___at_Lean_FileMap_fromString___spec__1(x_5);
return x_6;
}
}
obj* l_Lean_FileMap_toPosition(obj* x_0, obj* x_1) {
obj* l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_2; obj* x_4;
x_2 = l_Lean_Position_lt___main___closed__2;
lean::inc(x_1);
x_4 = l_RBMap_lowerBound___main___rarg(x_2, x_0, x_1);
if (lean::obj_tag(x_4) == 0)
if (lean::obj_tag(x_0) == 0)
{
obj* x_5; obj* x_6;
x_5 = lean::mk_nat_obj(1ul);
x_6 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_6, 0, x_5);
lean::cnstr_set(x_6, 1, x_1);
return x_6;
return x_2;
}
else
{
obj* x_7; obj* x_10; obj* x_12; obj* x_15; obj* x_18;
x_7 = lean::cnstr_get(x_4, 0);
obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::cnstr_get(x_0, 2);
lean::inc(x_7);
lean::dec(x_4);
x_10 = lean::cnstr_get(x_7, 0);
lean::inc(x_10);
x_12 = lean::cnstr_get(x_7, 1);
lean::inc(x_12);
lean::dec(x_7);
x_15 = lean::nat_sub(x_1, x_10);
lean::dec(x_10);
lean::dec(x_1);
x_18 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_18, 0, x_12);
lean::cnstr_set(x_18, 1, x_15);
x_9 = lean::cnstr_get(x_0, 3);
lean::inc(x_9);
lean::dec(x_0);
x_12 = lean::nat_dec_lt(x_1, x_5);
if (x_12 == 0)
{
uint8 x_15;
lean::dec(x_3);
lean::dec(x_2);
x_15 = lean::nat_dec_lt(x_5, x_1);
if (x_15 == 0)
{
obj* x_17; obj* x_18;
lean::dec(x_9);
x_17 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_17, 0, x_5);
lean::cnstr_set(x_17, 1, x_7);
x_18 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_18, 0, x_17);
return x_18;
}
else
{
obj* x_19; obj* x_20;
x_19 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_19, 0, x_5);
lean::cnstr_set(x_19, 1, x_7);
x_20 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_20, 0, x_19);
x_0 = x_9;
x_2 = x_20;
goto _start;
}
}
else
{
lean::dec(x_7);
lean::dec(x_9);
lean::dec(x_5);
x_0 = x_3;
goto _start;
}
}
}
}
obj* l_Lean_FileMap_toPosition(obj* x_0, obj* x_1) {
_start:
{
obj* x_2; obj* x_3;
x_2 = lean::box(0);
x_3 = l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1(x_0, x_1, x_2);
if (lean::obj_tag(x_3) == 0)
{
obj* x_4; obj* x_5;
x_4 = lean::mk_nat_obj(1ul);
x_5 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_5, 0, x_4);
lean::cnstr_set(x_5, 1, x_1);
return x_5;
}
else
{
obj* x_6; obj* x_9; obj* x_11; obj* x_14; obj* x_17;
x_6 = lean::cnstr_get(x_3, 0);
lean::inc(x_6);
lean::dec(x_3);
x_9 = lean::cnstr_get(x_6, 0);
lean::inc(x_9);
x_11 = lean::cnstr_get(x_6, 1);
lean::inc(x_11);
lean::dec(x_6);
x_14 = lean::nat_sub(x_1, x_9);
lean::dec(x_9);
lean::dec(x_1);
x_17 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_17, 0, x_11);
lean::cnstr_set(x_17, 1, x_14);
return x_17;
}
}
}
obj* l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1(x_0, x_1, x_2);
lean::dec(x_1);
return x_3;
}
}
obj* initialize_init_data_nat_default(obj*);

380
src/stage0/init/lean/trace.cpp generated
View file

@ -14,29 +14,29 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
obj* l_RBNode_setBlack___main___rarg(obj*);
obj* l_Lean_Trace_Monad(obj*);
obj* l_List_map___main___at_Lean_Trace_pp___main___spec__1(obj*);
obj* l_Lean_Trace_Trace___rarg___lambda__1___boxed(obj*, obj*);
obj* l_StateT_Monad___rarg(obj*);
obj* l_Lean_Trace_pp___main(obj*);
obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*);
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2(obj*);
obj* l_Lean_HasCoe(obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__8(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Trace_Trace___rarg(obj*, obj*, obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__12___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___boxed(obj*);
obj* l_Lean_Trace_TraceT_run___rarg___lambda__1(obj*, obj*);
obj* l_Lean_Trace_pp(obj*);
obj* l_Lean_Trace_Monad___boxed(obj*);
extern obj* l_Lean_Format_join___closed__1;
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__10(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer(obj*);
obj* l_Lean_Position_lt___boxed(obj*, obj*);
obj* l_RBNode_balance2___main___rarg(obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__6___boxed(obj*, obj*, obj*);
uint8 l_Lean_KVMap_getBool(obj*, obj*, uint8);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___boxed(obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___boxed(obj*);
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Trace_TraceT_run(obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__6(obj*, obj*, obj*);
@ -47,22 +47,25 @@ obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__4___boxed(obj*, obj*,
obj* l_Lean_HasCoe___boxed(obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg(obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__9(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*);
uint8 l_RBNode_isRed___main___rarg(obj*);
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___lambda__1(obj*, obj*, obj*);
obj* l_Lean_Trace_Trace___rarg___lambda__1(obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__12(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Trace_Trace___boxed(obj*);
obj* l_Lean_Trace_Trace(obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__9___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___lambda__1(obj*, obj*, obj*);
obj* l_List_foldl___main___at_Lean_Format_join___spec__1(obj*, obj*);
uint8 l_Lean_Position_lt___main(obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__4(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1;
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Trace_Monad___rarg(obj*);
obj* l_RBNode_balance1___main___rarg(obj*, obj*);
obj* l_Lean_Trace_TraceT_run___rarg(obj*, obj*, obj*);
obj* l_Lean_Trace_TraceT_run___boxed(obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__3___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__11(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(obj*);
obj* l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(obj*, obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__5___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__7(obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__10___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
@ -237,7 +240,246 @@ lean::dec(x_0);
return x_1;
}
}
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) {
obj* l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
uint8 x_3; obj* x_4; obj* x_5;
x_3 = 0;
x_4 = lean::alloc_cnstr(1, 4, 1);
lean::cnstr_set(x_4, 0, x_0);
lean::cnstr_set(x_4, 1, x_1);
lean::cnstr_set(x_4, 2, x_2);
lean::cnstr_set(x_4, 3, x_0);
lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3);
x_5 = x_4;
return x_5;
}
else
{
uint8 x_6;
x_6 = lean::cnstr_get_scalar<uint8>(x_0, sizeof(void*)*4);
if (x_6 == 0)
{
obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_18;
x_7 = lean::cnstr_get(x_0, 0);
x_9 = lean::cnstr_get(x_0, 1);
x_11 = lean::cnstr_get(x_0, 2);
x_13 = lean::cnstr_get(x_0, 3);
if (lean::is_exclusive(x_0)) {
lean::cnstr_set(x_0, 0, lean::box(0));
lean::cnstr_set(x_0, 1, lean::box(0));
lean::cnstr_set(x_0, 2, lean::box(0));
lean::cnstr_set(x_0, 3, lean::box(0));
x_15 = x_0;
} else {
lean::inc(x_7);
lean::inc(x_9);
lean::inc(x_11);
lean::inc(x_13);
lean::dec(x_0);
x_15 = lean::box(0);
}
lean::inc(x_9);
lean::inc(x_1);
x_18 = l_Lean_Position_lt___main(x_1, x_9);
if (x_18 == 0)
{
uint8 x_21;
lean::inc(x_1);
lean::inc(x_9);
x_21 = l_Lean_Position_lt___main(x_9, x_1);
if (x_21 == 0)
{
obj* x_24; obj* x_25;
lean::dec(x_9);
lean::dec(x_11);
if (lean::is_scalar(x_15)) {
x_24 = lean::alloc_cnstr(1, 4, 1);
} else {
x_24 = x_15;
}
lean::cnstr_set(x_24, 0, x_7);
lean::cnstr_set(x_24, 1, x_1);
lean::cnstr_set(x_24, 2, x_2);
lean::cnstr_set(x_24, 3, x_13);
lean::cnstr_set_scalar(x_24, sizeof(void*)*4, x_6);
x_25 = x_24;
return x_25;
}
else
{
obj* x_26; obj* x_27; obj* x_28;
x_26 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_13, x_1, x_2);
if (lean::is_scalar(x_15)) {
x_27 = lean::alloc_cnstr(1, 4, 1);
} else {
x_27 = x_15;
}
lean::cnstr_set(x_27, 0, x_7);
lean::cnstr_set(x_27, 1, x_9);
lean::cnstr_set(x_27, 2, x_11);
lean::cnstr_set(x_27, 3, x_26);
lean::cnstr_set_scalar(x_27, sizeof(void*)*4, x_6);
x_28 = x_27;
return x_28;
}
}
else
{
obj* x_29; obj* x_30; obj* x_31;
x_29 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_7, x_1, x_2);
if (lean::is_scalar(x_15)) {
x_30 = lean::alloc_cnstr(1, 4, 1);
} else {
x_30 = x_15;
}
lean::cnstr_set(x_30, 0, x_29);
lean::cnstr_set(x_30, 1, x_9);
lean::cnstr_set(x_30, 2, x_11);
lean::cnstr_set(x_30, 3, x_13);
lean::cnstr_set_scalar(x_30, sizeof(void*)*4, x_6);
x_31 = x_30;
return x_31;
}
}
else
{
obj* x_32; obj* x_34; obj* x_36; obj* x_38; obj* x_40; uint8 x_43;
x_32 = lean::cnstr_get(x_0, 0);
x_34 = lean::cnstr_get(x_0, 1);
x_36 = lean::cnstr_get(x_0, 2);
x_38 = lean::cnstr_get(x_0, 3);
if (lean::is_exclusive(x_0)) {
lean::cnstr_set(x_0, 0, lean::box(0));
lean::cnstr_set(x_0, 1, lean::box(0));
lean::cnstr_set(x_0, 2, lean::box(0));
lean::cnstr_set(x_0, 3, lean::box(0));
x_40 = x_0;
} else {
lean::inc(x_32);
lean::inc(x_34);
lean::inc(x_36);
lean::inc(x_38);
lean::dec(x_0);
x_40 = lean::box(0);
}
lean::inc(x_34);
lean::inc(x_1);
x_43 = l_Lean_Position_lt___main(x_1, x_34);
if (x_43 == 0)
{
uint8 x_46;
lean::inc(x_1);
lean::inc(x_34);
x_46 = l_Lean_Position_lt___main(x_34, x_1);
if (x_46 == 0)
{
obj* x_49; obj* x_50;
lean::dec(x_34);
lean::dec(x_36);
if (lean::is_scalar(x_40)) {
x_49 = lean::alloc_cnstr(1, 4, 1);
} else {
x_49 = x_40;
}
lean::cnstr_set(x_49, 0, x_32);
lean::cnstr_set(x_49, 1, x_1);
lean::cnstr_set(x_49, 2, x_2);
lean::cnstr_set(x_49, 3, x_38);
lean::cnstr_set_scalar(x_49, sizeof(void*)*4, x_6);
x_50 = x_49;
return x_50;
}
else
{
uint8 x_51;
x_51 = l_RBNode_isRed___main___rarg(x_38);
if (x_51 == 0)
{
obj* x_52; obj* x_53; obj* x_54;
x_52 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_38, x_1, x_2);
if (lean::is_scalar(x_40)) {
x_53 = lean::alloc_cnstr(1, 4, 1);
} else {
x_53 = x_40;
}
lean::cnstr_set(x_53, 0, x_32);
lean::cnstr_set(x_53, 1, x_34);
lean::cnstr_set(x_53, 2, x_36);
lean::cnstr_set(x_53, 3, x_52);
lean::cnstr_set_scalar(x_53, sizeof(void*)*4, x_6);
x_54 = x_53;
return x_54;
}
else
{
obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59;
x_55 = lean::box(0);
if (lean::is_scalar(x_40)) {
x_56 = lean::alloc_cnstr(1, 4, 1);
} else {
x_56 = x_40;
}
lean::cnstr_set(x_56, 0, x_32);
lean::cnstr_set(x_56, 1, x_34);
lean::cnstr_set(x_56, 2, x_36);
lean::cnstr_set(x_56, 3, x_55);
lean::cnstr_set_scalar(x_56, sizeof(void*)*4, x_6);
x_57 = x_56;
x_58 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_38, x_1, x_2);
x_59 = l_RBNode_balance2___main___rarg(x_57, x_58);
return x_59;
}
}
}
else
{
uint8 x_60;
x_60 = l_RBNode_isRed___main___rarg(x_32);
if (x_60 == 0)
{
obj* x_61; obj* x_62; obj* x_63;
x_61 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_32, x_1, x_2);
if (lean::is_scalar(x_40)) {
x_62 = lean::alloc_cnstr(1, 4, 1);
} else {
x_62 = x_40;
}
lean::cnstr_set(x_62, 0, x_61);
lean::cnstr_set(x_62, 1, x_34);
lean::cnstr_set(x_62, 2, x_36);
lean::cnstr_set(x_62, 3, x_38);
lean::cnstr_set_scalar(x_62, sizeof(void*)*4, x_6);
x_63 = x_62;
return x_63;
}
else
{
obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68;
x_64 = lean::box(0);
if (lean::is_scalar(x_40)) {
x_65 = lean::alloc_cnstr(1, 4, 1);
} else {
x_65 = x_40;
}
lean::cnstr_set(x_65, 0, x_64);
lean::cnstr_set(x_65, 1, x_34);
lean::cnstr_set(x_65, 2, x_36);
lean::cnstr_set(x_65, 3, x_38);
lean::cnstr_set_scalar(x_65, sizeof(void*)*4, x_6);
x_66 = x_65;
x_67 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_32, x_1, x_2);
x_68 = l_RBNode_balance1___main___rarg(x_66, x_67);
return x_68;
}
}
}
}
}
}
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_5; obj* x_7; obj* x_8; obj* x_11; obj* x_14; obj* x_15; obj* x_16;
@ -269,7 +511,7 @@ x_16 = lean::apply_2(x_11, lean::box(0), x_15);
return x_16;
}
}
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6; obj* x_7; obj* x_9; obj* x_10; obj* x_11;
@ -277,18 +519,18 @@ x_6 = lean::apply_1(x_2, x_5);
x_7 = lean::cnstr_get(x_0, 1);
lean::inc(x_7);
x_9 = lean::apply_1(x_4, x_6);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___lambda__1), 3, 2);
x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___lambda__1), 3, 2);
lean::closure_set(x_10, 0, x_0);
lean::closure_set(x_10, 1, x_3);
x_11 = lean::apply_4(x_7, lean::box(0), lean::box(0), x_9, x_10);
return x_11;
}
}
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(obj* x_0) {
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___boxed), 6, 0);
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___boxed), 6, 0);
return x_1;
}
}
@ -316,21 +558,15 @@ x_7 = lean::apply_2(x_1, lean::box(0), x_6);
return x_7;
}
}
obj* _init_l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1() {
_start:
{
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Position_lt___boxed), 2, 0);
return x_0;
}
}
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_12; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29;
obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_12; obj* x_15; obj* x_16; obj* x_18; obj* x_22; uint8 x_23;
x_5 = lean::cnstr_get(x_4, 0);
x_7 = lean::cnstr_get(x_4, 1);
if (lean::is_exclusive(x_4)) {
lean::cnstr_set(x_4, 0, lean::box(0));
lean::cnstr_set(x_4, 1, lean::box(0));
x_9 = x_4;
} else {
lean::inc(x_5);
@ -338,42 +574,68 @@ if (lean::is_exclusive(x_4)) {
lean::dec(x_4);
x_9 = lean::box(0);
}
x_10 = lean::cnstr_get(x_7, 0);
x_10 = lean::cnstr_get(x_7, 1);
lean::inc(x_10);
x_12 = lean::cnstr_get(x_7, 1);
x_12 = lean::cnstr_get(x_7, 2);
lean::inc(x_12);
x_14 = lean::cnstr_get(x_7, 3);
lean::inc(x_14);
lean::inc(x_14);
x_17 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_17, 0, x_0);
lean::cnstr_set(x_17, 1, x_14);
x_18 = l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1;
x_19 = l_RBNode_insert___rarg(x_18, x_12, x_1, x_17);
x_20 = lean::cnstr_get(x_7, 2);
lean::inc(x_20);
lean::inc(x_0);
x_15 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__1), 3, 2);
lean::closure_set(x_15, 0, x_5);
lean::closure_set(x_15, 1, x_0);
x_16 = lean::cnstr_get(x_7, 0);
lean::inc(x_16);
x_18 = lean::cnstr_get(x_7, 3);
lean::inc(x_18);
lean::dec(x_7);
x_23 = lean::alloc_cnstr(0, 4, 0);
lean::cnstr_set(x_23, 0, x_10);
lean::cnstr_set(x_23, 1, x_19);
lean::cnstr_set(x_23, 2, x_20);
lean::cnstr_set(x_23, 3, x_14);
x_24 = lean::box(0);
lean::inc(x_18);
x_22 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_22, 0, x_1);
lean::cnstr_set(x_22, 1, x_18);
x_23 = l_RBNode_isRed___main___rarg(x_10);
if (x_23 == 0)
{
obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29;
x_24 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_10, x_2, x_22);
x_25 = lean::alloc_cnstr(0, 4, 0);
lean::cnstr_set(x_25, 0, x_16);
lean::cnstr_set(x_25, 1, x_24);
lean::cnstr_set(x_25, 2, x_12);
lean::cnstr_set(x_25, 3, x_18);
x_26 = lean::box(0);
if (lean::is_scalar(x_9)) {
x_25 = lean::alloc_cnstr(0, 2, 0);
x_27 = lean::alloc_cnstr(0, 2, 0);
} else {
x_25 = x_9;
x_27 = x_9;
}
lean::cnstr_set(x_25, 0, x_24);
lean::cnstr_set(x_25, 1, x_23);
lean::inc(x_2);
x_27 = lean::apply_2(x_2, lean::box(0), x_25);
x_28 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__1), 3, 2);
lean::closure_set(x_28, 0, x_5);
lean::closure_set(x_28, 1, x_2);
x_29 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_27, x_28);
lean::cnstr_set(x_27, 0, x_26);
lean::cnstr_set(x_27, 1, x_25);
x_28 = lean::apply_2(x_0, lean::box(0), x_27);
x_29 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_28, x_15);
return x_29;
}
else
{
obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36;
x_30 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_10, x_2, x_22);
x_31 = l_RBNode_setBlack___main___rarg(x_30);
x_32 = lean::alloc_cnstr(0, 4, 0);
lean::cnstr_set(x_32, 0, x_16);
lean::cnstr_set(x_32, 1, x_31);
lean::cnstr_set(x_32, 2, x_12);
lean::cnstr_set(x_32, 3, x_18);
x_33 = lean::box(0);
if (lean::is_scalar(x_9)) {
x_34 = lean::alloc_cnstr(0, 2, 0);
} else {
x_34 = x_9;
}
lean::cnstr_set(x_34, 0, x_33);
lean::cnstr_set(x_34, 1, x_32);
x_35 = lean::apply_2(x_0, lean::box(0), x_34);
x_36 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_35, x_15);
return x_36;
}
}
}
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
@ -458,9 +720,9 @@ x_37 = lean::apply_2(x_3, lean::box(0), x_35);
lean::inc(x_5);
x_39 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__3___boxed), 6, 5);
lean::closure_set(x_39, 0, x_1);
lean::closure_set(x_39, 1, x_4);
lean::closure_set(x_39, 2, x_2);
lean::closure_set(x_39, 3, x_3);
lean::closure_set(x_39, 1, x_3);
lean::closure_set(x_39, 2, x_4);
lean::closure_set(x_39, 3, x_2);
lean::closure_set(x_39, 4, x_5);
x_40 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_37, x_39);
return x_40;
@ -665,7 +927,7 @@ x_37 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Trace_Lean_Trace_Monad
lean::closure_set(x_37, 0, x_3);
x_38 = lean::thunk_get_own(x_0);
lean::dec(x_0);
x_40 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg(x_4, lean::box(0), x_36, x_37, x_38, x_24);
x_40 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg(x_4, lean::box(0), x_36, x_37, x_38, x_24);
return x_40;
}
else
@ -797,20 +1059,20 @@ x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Trace_Lean_Trace_MonadT
return x_1;
}
}
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg(x_0, x_1, x_2, x_3, x_4, x_5);
x_6 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5);
lean::dec(x_1);
return x_6;
}
}
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___boxed(obj* x_0) {
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_0);
x_1 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2(x_0);
lean::dec(x_0);
return x_1;
}
@ -979,7 +1241,5 @@ if (io_result_is_error(w)) return w;
w = initialize_init_lean_name(w);
if (io_result_is_error(w)) return w;
w = initialize_init_lean_options(w);
l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1 = _init_l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1();
lean::mark_persistent(l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1);
return w;
}