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

chore(stage0): update

Browse source 
Make sure the new IR checker is used to validate generated code.
This commit is contained in:
Leonardo de Moura 2019-05-21 13:45:18 -07:00
parent 9f604ee0a1
commit db6933e3a4
17 changed files with 15768 additions and 3199 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/stage0/CMakeLists.txt
View file

@ -1 +1 @@
add_library (stage0 OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/conditional.cpp ./init/control/default.cpp ./init/control/estate.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monadfail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/binsearch.cpp ./init/data/array/default.cpp ./init/data/array/qsort.cpp ./init/data/assoclist.cpp ./init/data/basic.cpp ./init/data/bytearray/basic.cpp ./init/data/bytearray/default.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/hashmap/default.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/bitwise.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/random.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/tostring.cpp ./init/data/uint.cpp ./init/default.cpp ./init/env_ext.cpp ./init/fix.cpp ./init/io.cpp ./init/lean/compiler/closedtermcache.cpp ./init/lean/compiler/constfolding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/ir/basic.cpp ./init/lean/compiler/ir/borrow.cpp ./init/lean/compiler/ir/boxing.cpp ./init/lean/compiler/ir/checker.cpp ./init/lean/compiler/ir/compilerm.cpp ./init/lean/compiler/ir/default.cpp ./init/lean/compiler/ir/elimdead.cpp ./init/lean/compiler/ir/emitcpp.cpp ./init/lean/compiler/ir/emitutil.cpp ./init/lean/compiler/ir/format.cpp ./init/lean/compiler/ir/freevars.cpp ./init/lean/compiler/ir/livevars.cpp ./init/lean/compiler/ir/normids.cpp ./init/lean/compiler/ir/pushproj.cpp ./init/lean/compiler/ir/rc.cpp ./init/lean/compiler/ir/resetreuse.cpp ./init/lean/compiler/ir/simpcase.cpp ./init/lean/compiler/util.cpp ./init/lean/config.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/elaborator.cpp ./init/lean/environment.cpp ./init/lean/expander.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/frontend.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/modifiers.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/parser/basic.cpp ./init/lean/parser/combinators.cpp ./init/lean/parser/command.cpp ./init/lean/parser/declaration.cpp ./init/lean/parser/identifier.cpp ./init/lean/parser/level.cpp ./init/lean/parser/module.cpp ./init/lean/parser/notation.cpp ./init/lean/parser/parsec.cpp ./init/lean/parser/pratt.cpp ./init/lean/parser/rec.cpp ./init/lean/parser/stringliteral.cpp ./init/lean/parser/syntax.cpp ./init/lean/parser/term.cpp ./init/lean/parser/token.cpp ./init/lean/parser/trie.cpp ./init/lean/position.cpp ./init/lean/smap.cpp ./init/lean/trace.cpp ./init/lean/util.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp)
add_library (stage0 OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/conditional.cpp ./init/control/default.cpp ./init/control/estate.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monadfail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/binsearch.cpp ./init/data/array/default.cpp ./init/data/array/qsort.cpp ./init/data/assoclist.cpp ./init/data/basic.cpp ./init/data/bytearray/basic.cpp ./init/data/bytearray/default.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/hashmap/default.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/bitwise.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/random.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/tostring.cpp ./init/data/uint.cpp ./init/default.cpp ./init/env_ext.cpp ./init/fix.cpp ./init/io.cpp ./init/lean/compiler/closedtermcache.cpp ./init/lean/compiler/constfolding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/initattr.cpp ./init/lean/compiler/ir/basic.cpp ./init/lean/compiler/ir/borrow.cpp ./init/lean/compiler/ir/boxing.cpp ./init/lean/compiler/ir/checker.cpp ./init/lean/compiler/ir/compilerm.cpp ./init/lean/compiler/ir/default.cpp ./init/lean/compiler/ir/elimdead.cpp ./init/lean/compiler/ir/emitcpp.cpp ./init/lean/compiler/ir/emitutil.cpp ./init/lean/compiler/ir/format.cpp ./init/lean/compiler/ir/freevars.cpp ./init/lean/compiler/ir/livevars.cpp ./init/lean/compiler/ir/normids.cpp ./init/lean/compiler/ir/pushproj.cpp ./init/lean/compiler/ir/rc.cpp ./init/lean/compiler/ir/resetreuse.cpp ./init/lean/compiler/ir/simpcase.cpp ./init/lean/compiler/util.cpp ./init/lean/config.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/elaborator.cpp ./init/lean/environment.cpp ./init/lean/expander.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/frontend.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/modifiers.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/parser/basic.cpp ./init/lean/parser/combinators.cpp ./init/lean/parser/command.cpp ./init/lean/parser/declaration.cpp ./init/lean/parser/identifier.cpp ./init/lean/parser/level.cpp ./init/lean/parser/module.cpp ./init/lean/parser/notation.cpp ./init/lean/parser/parsec.cpp ./init/lean/parser/pratt.cpp ./init/lean/parser/rec.cpp ./init/lean/parser/stringliteral.cpp ./init/lean/parser/syntax.cpp ./init/lean/parser/term.cpp ./init/lean/parser/token.cpp ./init/lean/parser/trie.cpp ./init/lean/position.cpp ./init/lean/smap.cpp ./init/lean/trace.cpp ./init/lean/util.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp)

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

@ -212,6 +212,7 @@ obj* mk_uset_core(obj*, obj*, obj*, obj*);
}}
obj* l_Lean_IR_LocalContext_getType(obj*, obj*);
obj* l_Lean_IR_FnBody_body___boxed(obj*);
obj* l_Lean_IR_VarId_Hashable___boxed(obj*);
obj* l_Lean_IR_IRType_HasBeq;
obj* l_Lean_IR_altInh;
obj* l_Lean_IR_FnBody_body___main___boxed(obj*);
@ -296,6 +297,7 @@ obj* l_RBNode_find___main___at_Lean_IR_LocalContext_isJP___spec__1___boxed(obj*,
namespace lean {
usize usize_of_nat(obj*);
}
usize l_Lean_IR_VarId_Hashable(obj*);
obj* l_Lean_IR_push(obj*, obj*);
namespace lean {
namespace ir {
@ -413,6 +415,24 @@ lean::cnstr_set(x_5, 0, x_3);
return x_5;
}
}
usize l_Lean_IR_VarId_Hashable(obj* x_0) {
_start:
{
usize x_1;
x_1 = lean::usize_of_nat(x_0);
return x_1;
}
}
obj* l_Lean_IR_VarId_Hashable___boxed(obj* x_0) {
_start:
{
usize x_1; obj* x_2;
x_1 = l_Lean_IR_VarId_Hashable(x_0);
x_2 = lean::box_size_t(x_1);
lean::dec(x_0);
return x_2;
}
}
uint8 l_Lean_IR_JoinPointId_HasBeq(obj* x_0, obj* x_1) {
_start:
{
@ -5207,77 +5227,64 @@ case 1:
switch (lean::obj_tag(x_2)) {
case 1:
{
obj* x_13; obj* x_14; uint8 x_15;
obj* x_13; obj* x_14; obj* x_15; obj* x_16; uint8 x_17;
x_13 = lean::cnstr_get(x_1, 0);
x_14 = lean::cnstr_get(x_2, 0);
x_15 = l_Lean_IR_VarId_alphaEqv(x_0, x_13, x_14);
return x_15;
x_14 = lean::cnstr_get(x_1, 1);
x_15 = lean::cnstr_get(x_2, 0);
x_16 = lean::cnstr_get(x_2, 1);
x_17 = lean::nat_dec_eq(x_13, x_15);
if (x_17 == 0)
{
uint8 x_19;
lean::dec(x_0);
x_19 = 0;
return x_19;
}
else
{
uint8 x_20;
x_20 = l_Lean_IR_VarId_alphaEqv(x_0, x_14, x_16);
return x_20;
}
}
default:
{
uint8 x_17;
uint8 x_22;
lean::dec(x_0);
x_17 = 0;
return x_17;
x_22 = 0;
return x_22;
}
}
}
case 2:
{
uint8 x_18;
x_18 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*3);
uint8 x_23;
x_23 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*3);
switch (lean::obj_tag(x_2)) {
case 2:
{
obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; uint8 x_24; obj* x_25; uint8 x_27;
x_19 = lean::cnstr_get(x_1, 0);
x_20 = lean::cnstr_get(x_1, 1);
x_21 = lean::cnstr_get(x_1, 2);
x_22 = lean::cnstr_get(x_2, 0);
x_23 = lean::cnstr_get(x_2, 1);
x_24 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*3);
x_25 = lean::cnstr_get(x_2, 2);
obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; uint8 x_29; obj* x_30; uint8 x_32;
x_24 = lean::cnstr_get(x_1, 0);
x_25 = lean::cnstr_get(x_1, 1);
x_26 = lean::cnstr_get(x_1, 2);
x_27 = lean::cnstr_get(x_2, 0);
x_28 = lean::cnstr_get(x_2, 1);
x_29 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*3);
x_30 = lean::cnstr_get(x_2, 2);
lean::inc(x_0);
x_27 = l_Lean_IR_VarId_alphaEqv(x_0, x_19, x_22);
if (x_27 == 0)
x_32 = l_Lean_IR_VarId_alphaEqv(x_0, x_24, x_27);
if (x_32 == 0)
{
uint8 x_29;
uint8 x_34;
lean::dec(x_0);
x_29 = 0;
return x_29;
}
else
{
uint8 x_30;
x_30 = l_Lean_IR_CtorInfo_beq___main(x_20, x_23);
if (x_30 == 0)
{
uint8 x_32;
lean::dec(x_0);
x_32 = 0;
return x_32;
}
else
{
if (x_18 == 0)
{
if (x_24 == 0)
{
uint8 x_33;
x_33 = l_Array_isEqv___at_Lean_IR_args_alphaEqv___spec__1(x_0, x_21, x_25);
return x_33;
x_34 = 0;
return x_34;
}
else
{
uint8 x_35;
lean::dec(x_0);
x_35 = 0;
return x_35;
}
}
else
{
if (x_24 == 0)
x_35 = l_Lean_IR_CtorInfo_beq___main(x_25, x_28);
if (x_35 == 0)
{
uint8 x_37;
lean::dec(x_0);
@ -5286,15 +5293,15 @@ return x_37;
}
else
{
if (x_23 == 0)
{
if (x_29 == 0)
{
uint8 x_38;
x_38 = l_Array_isEqv___at_Lean_IR_args_alphaEqv___spec__1(x_0, x_21, x_25);
x_38 = l_Array_isEqv___at_Lean_IR_args_alphaEqv___spec__1(x_0, x_26, x_30);
return x_38;
}
}
}
}
}
default:
else
{
uint8 x_40;
lean::dec(x_0);
@ -5302,38 +5309,65 @@ x_40 = 0;
return x_40;
}
}
else
{
if (x_29 == 0)
{
uint8 x_42;
lean::dec(x_0);
x_42 = 0;
return x_42;
}
else
{
uint8 x_43;
x_43 = l_Array_isEqv___at_Lean_IR_args_alphaEqv___spec__1(x_0, x_26, x_30);
return x_43;
}
}
}
}
}
default:
{
uint8 x_45;
lean::dec(x_0);
x_45 = 0;
return x_45;
}
}
}
case 3:
{
switch (lean::obj_tag(x_2)) {
case 3:
{
obj* x_41; obj* x_42; obj* x_43; obj* x_44; uint8 x_45;
x_41 = lean::cnstr_get(x_1, 0);
x_42 = lean::cnstr_get(x_1, 1);
x_43 = lean::cnstr_get(x_2, 0);
x_44 = lean::cnstr_get(x_2, 1);
x_45 = lean::nat_dec_eq(x_41, x_43);
if (x_45 == 0)
obj* x_46; obj* x_47; obj* x_48; obj* x_49; uint8 x_50;
x_46 = lean::cnstr_get(x_1, 0);
x_47 = lean::cnstr_get(x_1, 1);
x_48 = lean::cnstr_get(x_2, 0);
x_49 = lean::cnstr_get(x_2, 1);
x_50 = lean::nat_dec_eq(x_46, x_48);
if (x_50 == 0)
{
uint8 x_47;
uint8 x_52;
lean::dec(x_0);
x_47 = 0;
return x_47;
x_52 = 0;
return x_52;
}
else
{
uint8 x_48;
x_48 = l_Lean_IR_VarId_alphaEqv(x_0, x_42, x_44);
return x_48;
uint8 x_53;
x_53 = l_Lean_IR_VarId_alphaEqv(x_0, x_47, x_49);
return x_53;
}
}
default:
{
uint8 x_50;
uint8 x_55;
lean::dec(x_0);
x_50 = 0;
return x_50;
x_55 = 0;
return x_55;
}
}
}
@ -5342,32 +5376,32 @@ case 4:
switch (lean::obj_tag(x_2)) {
case 4:
{
obj* x_51; obj* x_52; obj* x_53; obj* x_54; uint8 x_55;
x_51 = lean::cnstr_get(x_1, 0);
x_52 = lean::cnstr_get(x_1, 1);
x_53 = lean::cnstr_get(x_2, 0);
x_54 = lean::cnstr_get(x_2, 1);
x_55 = lean::nat_dec_eq(x_51, x_53);
if (x_55 == 0)
obj* x_56; obj* x_57; obj* x_58; obj* x_59; uint8 x_60;
x_56 = lean::cnstr_get(x_1, 0);
x_57 = lean::cnstr_get(x_1, 1);
x_58 = lean::cnstr_get(x_2, 0);
x_59 = lean::cnstr_get(x_2, 1);
x_60 = lean::nat_dec_eq(x_56, x_58);
if (x_60 == 0)
{
uint8 x_57;
uint8 x_62;
lean::dec(x_0);
x_57 = 0;
return x_57;
x_62 = 0;
return x_62;
}
else
{
uint8 x_58;
x_58 = l_Lean_IR_VarId_alphaEqv(x_0, x_52, x_54);
return x_58;
uint8 x_63;
x_63 = l_Lean_IR_VarId_alphaEqv(x_0, x_57, x_59);
return x_63;
}
}
default:
{
uint8 x_60;
uint8 x_65;
lean::dec(x_0);
x_60 = 0;
return x_60;
x_65 = 0;
return x_65;
}
}
}
@ -5376,46 +5410,46 @@ case 5:
switch (lean::obj_tag(x_2)) {
case 5:
{
obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; uint8 x_67;
x_61 = lean::cnstr_get(x_1, 0);
x_62 = lean::cnstr_get(x_1, 1);
x_63 = lean::cnstr_get(x_1, 2);
x_64 = lean::cnstr_get(x_2, 0);
x_65 = lean::cnstr_get(x_2, 1);
x_66 = lean::cnstr_get(x_2, 2);
x_67 = lean::nat_dec_eq(x_61, x_64);
if (x_67 == 0)
obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; uint8 x_72;
x_66 = lean::cnstr_get(x_1, 0);
x_67 = lean::cnstr_get(x_1, 1);
x_68 = lean::cnstr_get(x_1, 2);
x_69 = lean::cnstr_get(x_2, 0);
x_70 = lean::cnstr_get(x_2, 1);
x_71 = lean::cnstr_get(x_2, 2);
x_72 = lean::nat_dec_eq(x_66, x_69);
if (x_72 == 0)
{
uint8 x_69;
uint8 x_74;
lean::dec(x_0);
x_69 = 0;
return x_69;
x_74 = 0;
return x_74;
}
else
{
uint8 x_70;
x_70 = lean::nat_dec_eq(x_62, x_65);
if (x_70 == 0)
{
uint8 x_72;
lean::dec(x_0);
x_72 = 0;
return x_72;
}
else
{
uint8 x_73;
x_73 = l_Lean_IR_VarId_alphaEqv(x_0, x_63, x_66);
return x_73;
}
}
}
default:
{
uint8 x_75;
x_75 = lean::nat_dec_eq(x_67, x_70);
if (x_75 == 0)
{
uint8 x_77;
lean::dec(x_0);
x_75 = 0;
return x_75;
x_77 = 0;
return x_77;
}
else
{
uint8 x_78;
x_78 = l_Lean_IR_VarId_alphaEqv(x_0, x_68, x_71);
return x_78;
}
}
}
default:
{
uint8 x_80;
lean::dec(x_0);
x_80 = 0;
return x_80;
}
}
}
@ -5424,32 +5458,32 @@ case 6:
switch (lean::obj_tag(x_2)) {
case 6:
{
obj* x_76; obj* x_77; obj* x_78; obj* x_79; uint8 x_80;
x_76 = lean::cnstr_get(x_1, 0);
x_77 = lean::cnstr_get(x_1, 1);
x_78 = lean::cnstr_get(x_2, 0);
x_79 = lean::cnstr_get(x_2, 1);
x_80 = lean_name_dec_eq(x_76, x_78);
if (x_80 == 0)
obj* x_81; obj* x_82; obj* x_83; obj* x_84; uint8 x_85;
x_81 = lean::cnstr_get(x_1, 0);
x_82 = lean::cnstr_get(x_1, 1);
x_83 = lean::cnstr_get(x_2, 0);
x_84 = lean::cnstr_get(x_2, 1);
x_85 = lean_name_dec_eq(x_81, x_83);
if (x_85 == 0)
{
uint8 x_82;
uint8 x_87;
lean::dec(x_0);
x_82 = 0;
return x_82;
x_87 = 0;
return x_87;
}
else
{
uint8 x_83;
x_83 = l_Array_isEqv___at_Lean_IR_args_alphaEqv___spec__1(x_0, x_77, x_79);
return x_83;
uint8 x_88;
x_88 = l_Array_isEqv___at_Lean_IR_args_alphaEqv___spec__1(x_0, x_82, x_84);
return x_88;
}
}
default:
{
uint8 x_85;
uint8 x_90;
lean::dec(x_0);
x_85 = 0;
return x_85;
x_90 = 0;
return x_90;
}
}
}
@ -5458,31 +5492,31 @@ case 7:
switch (lean::obj_tag(x_2)) {
case 7:
{
obj* x_86; obj* x_87; obj* x_88; uint8 x_89;
x_86 = lean::cnstr_get(x_1, 0);
x_87 = lean::cnstr_get(x_2, 0);
x_88 = lean::cnstr_get(x_2, 1);
x_89 = lean_name_dec_eq(x_86, x_87);
if (x_89 == 0)
obj* x_91; obj* x_92; obj* x_93; uint8 x_94;
x_91 = lean::cnstr_get(x_1, 0);
x_92 = lean::cnstr_get(x_2, 0);
x_93 = lean::cnstr_get(x_2, 1);
x_94 = lean_name_dec_eq(x_91, x_92);
if (x_94 == 0)
{
uint8 x_91;
uint8 x_96;
lean::dec(x_0);
x_91 = 0;
return x_91;
x_96 = 0;
return x_96;
}
else
{
uint8 x_92;
x_92 = l_Array_isEqv___at_Lean_IR_args_alphaEqv___spec__1(x_0, x_88, x_88);
return x_92;
uint8 x_97;
x_97 = l_Array_isEqv___at_Lean_IR_args_alphaEqv___spec__1(x_0, x_93, x_93);
return x_97;
}
}
default:
{
uint8 x_94;
uint8 x_99;
lean::dec(x_0);
x_94 = 0;
return x_94;
x_99 = 0;
return x_99;
}
}
}
@ -5491,82 +5525,62 @@ case 8:
switch (lean::obj_tag(x_2)) {
case 8:
{
obj* x_95; obj* x_96; obj* x_97; obj* x_98; uint8 x_100;
x_95 = lean::cnstr_get(x_1, 0);
x_96 = lean::cnstr_get(x_1, 1);
x_97 = lean::cnstr_get(x_2, 0);
x_98 = lean::cnstr_get(x_2, 1);
obj* x_100; obj* x_101; obj* x_102; obj* x_103; uint8 x_105;
x_100 = lean::cnstr_get(x_1, 0);
x_101 = lean::cnstr_get(x_1, 1);
x_102 = lean::cnstr_get(x_2, 0);
x_103 = lean::cnstr_get(x_2, 1);
lean::inc(x_0);
x_100 = l_Lean_IR_VarId_alphaEqv(x_0, x_95, x_97);
if (x_100 == 0)
x_105 = l_Lean_IR_VarId_alphaEqv(x_0, x_100, x_102);
if (x_105 == 0)
{
uint8 x_102;
uint8 x_107;
lean::dec(x_0);
x_102 = 0;
return x_102;
x_107 = 0;
return x_107;
}
else
{
uint8 x_103;
x_103 = l_Array_isEqv___at_Lean_IR_args_alphaEqv___spec__1(x_0, x_96, x_98);
return x_103;
uint8 x_108;
x_108 = l_Array_isEqv___at_Lean_IR_args_alphaEqv___spec__1(x_0, x_101, x_103);
return x_108;
}
}
default:
{
uint8 x_105;
uint8 x_110;
lean::dec(x_0);
x_105 = 0;
return x_105;
x_110 = 0;
return x_110;
}
}
}
case 9:
{
uint8 x_106;
x_106 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*1);
uint8 x_111;
x_111 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*1);
switch (lean::obj_tag(x_2)) {
case 9:
{
obj* x_107; uint8 x_108; obj* x_109; uint8 x_110;
x_107 = lean::cnstr_get(x_1, 0);
x_108 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*1);
x_109 = lean::cnstr_get(x_2, 0);
x_110 = l_Lean_IR_IRType_beq___main(x_106, x_108);
if (x_110 == 0)
obj* x_112; uint8 x_113; obj* x_114; uint8 x_115;
x_112 = lean::cnstr_get(x_1, 0);
x_113 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*1);
x_114 = lean::cnstr_get(x_2, 0);
x_115 = l_Lean_IR_IRType_beq___main(x_111, x_113);
if (x_115 == 0)
{
uint8 x_112;
uint8 x_117;
lean::dec(x_0);
x_112 = 0;
return x_112;
x_117 = 0;
return x_117;
}
else
{
uint8 x_113;
x_113 = l_Lean_IR_VarId_alphaEqv(x_0, x_107, x_109);
return x_113;
}
}
default:
{
uint8 x_115;
lean::dec(x_0);
x_115 = 0;
return x_115;
}
}
}
case 10:
{
switch (lean::obj_tag(x_2)) {
case 10:
{
obj* x_116; obj* x_117; uint8 x_118;
x_116 = lean::cnstr_get(x_1, 0);
x_117 = lean::cnstr_get(x_2, 0);
x_118 = l_Lean_IR_VarId_alphaEqv(x_0, x_116, x_117);
uint8 x_118;
x_118 = l_Lean_IR_VarId_alphaEqv(x_0, x_112, x_114);
return x_118;
}
}
default:
{
uint8 x_120;
@ -5576,50 +5590,50 @@ return x_120;
}
}
}
case 11:
case 10:
{
lean::dec(x_0);
switch (lean::obj_tag(x_2)) {
case 11:
case 10:
{
obj* x_122; obj* x_123; uint8 x_124;
x_122 = lean::cnstr_get(x_1, 0);
x_123 = lean::cnstr_get(x_2, 0);
x_124 = l_Lean_IR_LitVal_beq___main(x_122, x_123);
return x_124;
obj* x_121; obj* x_122; uint8 x_123;
x_121 = lean::cnstr_get(x_1, 0);
x_122 = lean::cnstr_get(x_2, 0);
x_123 = l_Lean_IR_VarId_alphaEqv(x_0, x_121, x_122);
return x_123;
}
default:
{
uint8 x_125;
lean::dec(x_0);
x_125 = 0;
return x_125;
}
}
}
case 12:
case 11:
{
lean::dec(x_0);
switch (lean::obj_tag(x_2)) {
case 12:
case 11:
{
obj* x_126; obj* x_127; uint8 x_128;
x_126 = lean::cnstr_get(x_1, 0);
x_127 = lean::cnstr_get(x_2, 0);
x_128 = l_Lean_IR_VarId_alphaEqv(x_0, x_126, x_127);
return x_128;
obj* x_127; obj* x_128; uint8 x_129;
x_127 = lean::cnstr_get(x_1, 0);
x_128 = lean::cnstr_get(x_2, 0);
x_129 = l_Lean_IR_LitVal_beq___main(x_127, x_128);
return x_129;
}
default:
{
uint8 x_130;
lean::dec(x_0);
x_130 = 0;
return x_130;
}
}
}
default:
case 12:
{
switch (lean::obj_tag(x_2)) {
case 13:
case 12:
{
obj* x_131; obj* x_132; uint8 x_133;
x_131 = lean::cnstr_get(x_1, 0);
@ -5636,6 +5650,26 @@ return x_135;
}
}
}
default:
{
switch (lean::obj_tag(x_2)) {
case 13:
{
obj* x_136; obj* x_137; uint8 x_138;
x_136 = lean::cnstr_get(x_1, 0);
x_137 = lean::cnstr_get(x_2, 0);
x_138 = l_Lean_IR_VarId_alphaEqv(x_0, x_136, x_137);
return x_138;
}
default:
{
uint8 x_140;
lean::dec(x_0);
x_140 = 0;
return x_140;
}
}
}
}
}
}

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

@ -2283,7 +2283,7 @@ return x_13;
case 1:
{
obj* x_16; obj* x_19; obj* x_20; obj* x_23;
x_16 = lean::cnstr_get(x_1, 0);
x_16 = lean::cnstr_get(x_1, 1);
lean::inc(x_16);
lean::dec(x_1);
x_19 = l_Lean_IR_Borrow_ownVar(x_0, x_2, x_3);
@ -2331,8 +2331,8 @@ x_50 = lean::unbox(x_48);
if (x_50 == 0)
{
obj* x_53; obj* x_55; obj* x_56; obj* x_57;
lean::dec(x_43);
lean::dec(x_2);
lean::dec(x_43);
x_53 = lean::cnstr_get(x_46, 1);
if (lean::is_exclusive(x_46)) {
lean::cnstr_release(x_46, 0);

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

@ -42,6 +42,7 @@ obj* l_Lean_IR_ExplicitBoxing_withJDecl___boxed(obj*);
obj* l_Lean_IR_ExplicitBoxing_unboxResultIfNeeded___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_Lean_IR_ExplicitBoxing_castArgsIfNeeded___spec__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_Lean_IR_ExplicitBoxing_visitVDeclExpr___spec__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_IR_findEnvDecl_x_27(obj*, obj*, obj*);
obj* l_Lean_IR_LocalContext_addJP(obj*, obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_Lean_IR_LocalContext_addParams___spec__1(obj*, obj*, obj*, obj*);
obj* l_Lean_IR_reshape(obj*, obj*);
@ -94,7 +95,6 @@ obj* l_Lean_IR_ExplicitBoxing_getVarType___boxed(obj*, obj*, obj*);
obj* l_Lean_IR_ExplicitBoxing_getDecl___boxed(obj*, obj*, obj*);
obj* l_Lean_IR_ExplicitBoxing_getJPParams(obj*, obj*, obj*);
obj* l_Lean_IR_ExplicitBoxing_castArgsIfNeededAux___at_Lean_IR_ExplicitBoxing_boxArgsIfNeeded___spec__1___boxed(obj*, obj*, obj*);
obj* l_Lean_IR_findDeclAux_x_27(obj*, obj*, obj*);
obj* l_Lean_IR_ExplicitBoxing_boxArgsIfNeeded___boxed(obj*, obj*, obj*, obj*);
obj* l_Lean_IR_ExplicitBoxing_castArgsIfNeededAux___at_Lean_IR_ExplicitBoxing_visitVDeclExpr___spec__1(obj*, obj*, obj*, obj*);
obj* l_Lean_IR_ExplicitBoxing_visitVDeclExpr___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
@ -511,7 +511,7 @@ _start:
obj* x_3; obj* x_4; obj* x_5;
x_3 = lean::cnstr_get(x_1, 2);
x_4 = lean::cnstr_get(x_1, 1);
x_5 = l_Lean_IR_findDeclAux_x_27(x_3, x_0, x_4);
x_5 = l_Lean_IR_findEnvDecl_x_27(x_3, x_0, x_4);
if (lean::obj_tag(x_5) == 0)
{
obj* x_6; obj* x_7;

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

File diff suppressed because it is too large Load diff

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

@ -34,14 +34,12 @@ obj* l_Lean_IR_mkDeclMapExtension___closed__1;
extern obj* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__2;
obj* l___private_init_lean_compiler_ir_compilerm_3__logMessageIfAux___boxed(obj*);
obj* l_Lean_IR_formatDecl___main(obj*, obj*);
obj* l_Array_mfindAux___main___at_Lean_IR_findDeclAux_x_27___spec__1___boxed(obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at___private_init_lean_compiler_ir_compilerm_4__mkEntryArray___spec__10(obj*, obj*, obj*, obj*);
obj* l_Lean_IR_getEnv___boxed(obj*);
obj* l_HashMapImp_find___at_Lean_IR_findEnvDecl___spec__3(obj*, obj*);
obj* l_Lean_Format_group___main(obj*);
uint8 l_Array_anyMAux___main___at_Lean_IR_mkDeclMapExtension___spec__7(obj*, obj*, obj*);
obj* l_HashMapImp_contains___at_Lean_IR_containsDecl___spec__2___boxed(obj*, obj*);
obj* l_Lean_IR_findDeclAux_x_27___boxed(obj*, obj*, obj*);
obj* l_Lean_KVMap_findCore___main(obj*, obj*);
obj* l_HashMapImp_insert___at___private_init_lean_compiler_ir_compilerm_4__mkEntryArray___spec__2(obj*, obj*, obj*);
obj* l_Lean_PersistentEnvExtension_getEntries___rarg(obj*, obj*);
@ -63,11 +61,11 @@ obj* l_Lean_SMap_find___main___at_Lean_IR_findEnvDecl___spec__1(obj*, obj*);
obj* l_Array_miterateAux___main___at_Lean_IR_Log_format___spec__1(obj*, obj*, obj*, obj*);
obj* l_RBNode_find___main___at_Lean_IR_findEnvDecl___spec__2(obj*, obj*);
uint8 l_Lean_SMap_contains___main___at_Lean_IR_containsDecl___spec__1(obj*, obj*);
obj* l_Array_mfindAux___main___at_Lean_IR_findDeclAux_x_27___spec__1(obj*, obj*, obj*);
obj* l_HashMapImp_expand___at___private_init_lean_compiler_ir_compilerm_4__mkEntryArray___spec__4(obj*, obj*);
obj* l_Lean_IR_getDecls___boxed(obj*);
extern obj* l___private_init_lean_environment_9__persistentEnvExtensionsRef;
uint8 l_Lean_KVMap_getBool(obj*, obj*, uint8);
obj* l_Lean_IR_findEnvDecl_x_27(obj*, obj*, obj*);
extern obj* l_Lean_Format_sbracket___closed__2;
obj* l_Lean_IR_addDecl___boxed(obj*, obj*, obj*);
obj* l_Lean_SMap_insert___main___at_Lean_IR_mkDeclMapExtension___spec__3(obj*, obj*, obj*);
@ -80,6 +78,7 @@ obj* l_Array_anyMAux___main___at_Lean_IR_containsDecl_x_27___spec__1___boxed(obj
extern "C" usize lean_name_hash_usize(obj*);
extern obj* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__3;
obj* l_Lean_PersistentEnvExtension_getState___rarg(obj*, obj*);
obj* l_Lean_IR_findEnvDecl_x_27___boxed(obj*, obj*, obj*);
obj* l_HashMapImp_moveEntries___main___at___private_init_lean_compiler_ir_compilerm_4__mkEntryArray___spec__5(obj*, obj*, obj*);
obj* l_Lean_SMap_contains___main___at_Lean_IR_containsDecl___spec__1___boxed(obj*, obj*);
obj* l_HashMapImp_find___at_Lean_IR_findEnvDecl___spec__3___boxed(obj*, obj*);
@ -128,6 +127,7 @@ uint8 l___private_init_lean_compiler_ir_compilerm_1__isLogEnabledFor(obj*, obj*)
obj* l_RBNode_ins___main___at_Lean_IR_mkDeclMapExtension___spec__5(obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_Lean_IR_Log_format___spec__1___boxed(obj*, obj*, obj*, obj*);
obj* l_Lean_IR_declMapExt___elambda__1(obj*);
obj* l_Array_mfindAux___main___at_Lean_IR_findEnvDecl_x_27___spec__1___boxed(obj*, obj*, obj*);
extern obj* l_Lean_SMap_insert___main___at_Lean_Environment_add___spec__1___closed__2;
obj* l_Lean_IR_getDecl_x_27(obj*, obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_compilerm_4__mkEntryArray(obj*);
@ -165,9 +165,9 @@ obj* l_RBNode_find___main___at_Lean_IR_findEnvDecl___spec__2___boxed(obj*, obj*)
obj* l_Lean_IR_logMessageIf___rarg(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_IR_declMapExt___elambda__2___boxed(obj*);
obj* l_List_foldl___main___at___private_init_lean_compiler_ir_compilerm_4__mkEntryArray___spec__8___boxed(obj*, obj*, obj*);
obj* l_Lean_IR_findDeclAux_x_27(obj*, obj*, obj*);
obj* l_Lean_IR_findDecl_x_27___boxed(obj*, obj*, obj*, obj*);
uint8 l_Array_anyMAux___main___at_Lean_IR_containsDecl_x_27___spec__1(obj*, obj*, obj*);
obj* l_Array_mfindAux___main___at_Lean_IR_findEnvDecl_x_27___spec__1(obj*, obj*, obj*);
obj* l_Lean_IR_addDecl(obj*, obj*, obj*);
obj* l_Lean_Name_append___main(obj*, obj*);
namespace lean {
@ -3535,7 +3535,7 @@ lean::dec(x_1);
return x_3;
}
}
obj* l_Array_mfindAux___main___at_Lean_IR_findDeclAux_x_27___spec__1(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Array_mfindAux___main___at_Lean_IR_findEnvDecl_x_27___spec__1(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; uint8 x_4;
@ -3577,12 +3577,12 @@ return x_18;
}
}
}
obj* l_Lean_IR_findDeclAux_x_27(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Lean_IR_findEnvDecl_x_27(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_4;
x_3 = lean::mk_nat_obj(0ul);
x_4 = l_Array_mfindAux___main___at_Lean_IR_findDeclAux_x_27___spec__1(x_1, x_2, x_3);
x_4 = l_Array_mfindAux___main___at_Lean_IR_findEnvDecl_x_27___spec__1(x_1, x_2, x_3);
if (lean::obj_tag(x_4) == 0)
{
obj* x_5; obj* x_6; obj* x_7;
@ -3597,21 +3597,21 @@ return x_4;
}
}
}
obj* l_Array_mfindAux___main___at_Lean_IR_findDeclAux_x_27___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Array_mfindAux___main___at_Lean_IR_findEnvDecl_x_27___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_Array_mfindAux___main___at_Lean_IR_findDeclAux_x_27___spec__1(x_0, x_1, x_2);
x_3 = l_Array_mfindAux___main___at_Lean_IR_findEnvDecl_x_27___spec__1(x_0, x_1, x_2);
lean::dec(x_0);
lean::dec(x_1);
return x_3;
}
}
obj* l_Lean_IR_findDeclAux_x_27___boxed(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Lean_IR_findEnvDecl_x_27___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_Lean_IR_findDeclAux_x_27(x_0, x_1, x_2);
x_3 = l_Lean_IR_findEnvDecl_x_27(x_0, x_1, x_2);
lean::dec(x_0);
lean::dec(x_1);
lean::dec(x_2);
@ -3633,7 +3633,7 @@ if (lean::is_exclusive(x_3)) {
}
x_7 = lean::cnstr_get(x_4, 0);
lean::inc(x_7);
x_9 = l_Lean_IR_findDeclAux_x_27(x_7, x_0, x_1);
x_9 = l_Lean_IR_findEnvDecl_x_27(x_7, x_0, x_1);
lean::dec(x_7);
if (lean::is_scalar(x_6)) {
x_11 = lean::alloc_cnstr(0, 2, 0);

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

File diff suppressed because it is too large Load diff

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

File diff suppressed because it is too large Load diff

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

File diff suppressed because it is too large Load diff

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

@ -630,7 +630,7 @@ obj* _init_l___private_init_lean_compiler_ir_format_5__formatExpr___main___close
_start:
{
obj* x_0; obj* x_1;
x_0 = lean::mk_string("reset ");
x_0 = lean::mk_string("reset_");
x_1 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_1, 0, x_0);
return x_1;
@ -827,409 +827,425 @@ return x_13;
}
case 1:
{
obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_21; uint8 x_22; obj* x_23; obj* x_24; obj* x_25;
obj* x_14; obj* x_16; obj* x_19; obj* x_20; uint8 x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34;
x_14 = lean::cnstr_get(x_0, 0);
lean::inc(x_14);
x_16 = lean::cnstr_get(x_0, 1);
lean::inc(x_16);
lean::dec(x_0);
x_17 = l_Nat_repr(x_14);
x_18 = l_Lean_IR_VarId_HasToString___closed__1;
x_19 = lean::string_append(x_18, x_17);
lean::dec(x_17);
x_21 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_21, 0, x_19);
x_22 = 0;
x_23 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__1;
x_24 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_24, 0, x_23);
lean::cnstr_set(x_24, 1, x_21);
lean::cnstr_set_scalar(x_24, sizeof(void*)*2, x_22);
x_25 = x_24;
return x_25;
x_19 = l_Nat_repr(x_14);
x_20 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_20, 0, x_19);
x_21 = 0;
x_22 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__1;
x_23 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_23, 0, x_22);
lean::cnstr_set(x_23, 1, x_20);
lean::cnstr_set_scalar(x_23, sizeof(void*)*2, x_21);
x_24 = x_23;
x_25 = l_Lean_Format_flatten___main___closed__1;
x_26 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_26, 0, x_24);
lean::cnstr_set(x_26, 1, x_25);
lean::cnstr_set_scalar(x_26, sizeof(void*)*2, x_21);
x_27 = x_26;
x_28 = l_Nat_repr(x_16);
x_29 = l_Lean_IR_VarId_HasToString___closed__1;
x_30 = lean::string_append(x_29, x_28);
lean::dec(x_28);
x_32 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_32, 0, x_30);
x_33 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_33, 0, x_27);
lean::cnstr_set(x_33, 1, x_32);
lean::cnstr_set_scalar(x_33, sizeof(void*)*2, x_21);
x_34 = x_33;
return x_34;
}
case 2:
{
obj* x_26; obj* x_28; uint8 x_30; obj* x_31; obj* x_34; obj* x_35; obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42;
x_26 = lean::cnstr_get(x_0, 0);
lean::inc(x_26);
x_28 = lean::cnstr_get(x_0, 1);
lean::inc(x_28);
x_30 = lean::cnstr_get_scalar<uint8>(x_0, sizeof(void*)*3);
x_31 = lean::cnstr_get(x_0, 2);
lean::inc(x_31);
obj* x_35; obj* x_37; uint8 x_39; obj* x_40; obj* x_43; obj* x_44; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51;
x_35 = lean::cnstr_get(x_0, 0);
lean::inc(x_35);
x_37 = lean::cnstr_get(x_0, 1);
lean::inc(x_37);
x_39 = lean::cnstr_get_scalar<uint8>(x_0, sizeof(void*)*3);
x_40 = lean::cnstr_get(x_0, 2);
lean::inc(x_40);
lean::dec(x_0);
x_34 = l_Nat_repr(x_26);
x_35 = l_Lean_IR_VarId_HasToString___closed__1;
x_36 = lean::string_append(x_35, x_34);
lean::dec(x_34);
x_38 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_38, 0, x_36);
x_39 = l___private_init_lean_compiler_ir_format_4__formatCtorInfo___main(x_28);
x_40 = lean::mk_nat_obj(0ul);
x_41 = lean::box(0);
x_42 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_format_5__formatExpr___main___spec__2(x_31, x_31, x_40, x_41);
lean::dec(x_31);
if (x_30 == 0)
x_43 = l_Nat_repr(x_35);
x_44 = l_Lean_IR_VarId_HasToString___closed__1;
x_45 = lean::string_append(x_44, x_43);
lean::dec(x_43);
x_47 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_47, 0, x_45);
x_48 = l___private_init_lean_compiler_ir_format_4__formatCtorInfo___main(x_37);
x_49 = lean::mk_nat_obj(0ul);
x_50 = lean::box(0);
x_51 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_format_5__formatExpr___main___spec__2(x_40, x_40, x_49, x_50);
lean::dec(x_40);
if (x_39 == 0)
{
uint8 x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54;
x_44 = 0;
x_45 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__2;
x_46 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_46, 0, x_45);
lean::cnstr_set(x_46, 1, x_38);
lean::cnstr_set_scalar(x_46, sizeof(void*)*2, x_44);
x_47 = x_46;
x_48 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__3;
x_49 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_49, 0, x_47);
lean::cnstr_set(x_49, 1, x_48);
lean::cnstr_set_scalar(x_49, sizeof(void*)*2, x_44);
x_50 = x_49;
x_51 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_51, 0, x_50);
lean::cnstr_set(x_51, 1, x_39);
lean::cnstr_set_scalar(x_51, sizeof(void*)*2, x_44);
x_52 = x_51;
x_53 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_53, 0, x_52);
lean::cnstr_set(x_53, 1, x_42);
lean::cnstr_set_scalar(x_53, sizeof(void*)*2, x_44);
x_54 = x_53;
return x_54;
}
else
{
uint8 x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65;
x_55 = 0;
x_56 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__4;
x_57 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_57, 0, x_56);
lean::cnstr_set(x_57, 1, x_38);
lean::cnstr_set_scalar(x_57, sizeof(void*)*2, x_55);
x_58 = x_57;
x_59 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__3;
uint8 x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63;
x_53 = 0;
x_54 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__2;
x_55 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_55, 0, x_54);
lean::cnstr_set(x_55, 1, x_47);
lean::cnstr_set_scalar(x_55, sizeof(void*)*2, x_53);
x_56 = x_55;
x_57 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__3;
x_58 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_58, 0, x_56);
lean::cnstr_set(x_58, 1, x_57);
lean::cnstr_set_scalar(x_58, sizeof(void*)*2, x_53);
x_59 = x_58;
x_60 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_60, 0, x_58);
lean::cnstr_set(x_60, 1, x_59);
lean::cnstr_set_scalar(x_60, sizeof(void*)*2, x_55);
lean::cnstr_set(x_60, 0, x_59);
lean::cnstr_set(x_60, 1, x_48);
lean::cnstr_set_scalar(x_60, sizeof(void*)*2, x_53);
x_61 = x_60;
x_62 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_62, 0, x_61);
lean::cnstr_set(x_62, 1, x_39);
lean::cnstr_set_scalar(x_62, sizeof(void*)*2, x_55);
lean::cnstr_set(x_62, 1, x_51);
lean::cnstr_set_scalar(x_62, sizeof(void*)*2, x_53);
x_63 = x_62;
x_64 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_64, 0, x_63);
lean::cnstr_set(x_64, 1, x_42);
lean::cnstr_set_scalar(x_64, sizeof(void*)*2, x_55);
x_65 = x_64;
return x_65;
return x_63;
}
else
{
uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74;
x_64 = 0;
x_65 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__4;
x_66 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_66, 0, x_65);
lean::cnstr_set(x_66, 1, x_47);
lean::cnstr_set_scalar(x_66, sizeof(void*)*2, x_64);
x_67 = x_66;
x_68 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__3;
x_69 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_69, 0, x_67);
lean::cnstr_set(x_69, 1, x_68);
lean::cnstr_set_scalar(x_69, sizeof(void*)*2, x_64);
x_70 = x_69;
x_71 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_71, 0, x_70);
lean::cnstr_set(x_71, 1, x_48);
lean::cnstr_set_scalar(x_71, sizeof(void*)*2, x_64);
x_72 = x_71;
x_73 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_73, 0, x_72);
lean::cnstr_set(x_73, 1, x_51);
lean::cnstr_set_scalar(x_73, sizeof(void*)*2, x_64);
x_74 = x_73;
return x_74;
}
}
case 3:
{
obj* x_66; obj* x_68; obj* x_71; obj* x_72; uint8 x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_84; obj* x_85; obj* x_86;
x_66 = lean::cnstr_get(x_0, 0);
lean::inc(x_66);
x_68 = lean::cnstr_get(x_0, 1);
lean::inc(x_68);
obj* x_75; obj* x_77; obj* x_80; obj* x_81; uint8 x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_93; obj* x_94; obj* x_95;
x_75 = lean::cnstr_get(x_0, 0);
lean::inc(x_75);
x_77 = lean::cnstr_get(x_0, 1);
lean::inc(x_77);
lean::dec(x_0);
x_71 = l_Nat_repr(x_66);
x_72 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_72, 0, x_71);
x_73 = 0;
x_74 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__5;
x_75 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_75, 0, x_74);
lean::cnstr_set(x_75, 1, x_72);
lean::cnstr_set_scalar(x_75, sizeof(void*)*2, x_73);
x_76 = x_75;
x_77 = l_Lean_Format_flatten___main___closed__1;
x_78 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_78, 0, x_76);
lean::cnstr_set(x_78, 1, x_77);
lean::cnstr_set_scalar(x_78, sizeof(void*)*2, x_73);
x_79 = x_78;
x_80 = l_Nat_repr(x_68);
x_81 = l_Lean_IR_VarId_HasToString___closed__1;
x_82 = lean::string_append(x_81, x_80);
lean::dec(x_80);
x_84 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_84, 0, x_82);
x_85 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_85, 0, x_79);
lean::cnstr_set(x_85, 1, x_84);
lean::cnstr_set_scalar(x_85, sizeof(void*)*2, x_73);
x_86 = x_85;
return x_86;
x_80 = l_Nat_repr(x_75);
x_81 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_81, 0, x_80);
x_82 = 0;
x_83 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__5;
x_84 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_84, 0, x_83);
lean::cnstr_set(x_84, 1, x_81);
lean::cnstr_set_scalar(x_84, sizeof(void*)*2, x_82);
x_85 = x_84;
x_86 = l_Lean_Format_flatten___main___closed__1;
x_87 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_87, 0, x_85);
lean::cnstr_set(x_87, 1, x_86);
lean::cnstr_set_scalar(x_87, sizeof(void*)*2, x_82);
x_88 = x_87;
x_89 = l_Nat_repr(x_77);
x_90 = l_Lean_IR_VarId_HasToString___closed__1;
x_91 = lean::string_append(x_90, x_89);
lean::dec(x_89);
x_93 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_93, 0, x_91);
x_94 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_94, 0, x_88);
lean::cnstr_set(x_94, 1, x_93);
lean::cnstr_set_scalar(x_94, sizeof(void*)*2, x_82);
x_95 = x_94;
return x_95;
}
case 4:
{
obj* x_87; obj* x_89; obj* x_92; obj* x_93; uint8 x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_105; obj* x_106; obj* x_107;
x_87 = lean::cnstr_get(x_0, 0);
lean::inc(x_87);
x_89 = lean::cnstr_get(x_0, 1);
lean::inc(x_89);
obj* x_96; obj* x_98; obj* x_101; obj* x_102; uint8 x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_114; obj* x_115; obj* x_116;
x_96 = lean::cnstr_get(x_0, 0);
lean::inc(x_96);
x_98 = lean::cnstr_get(x_0, 1);
lean::inc(x_98);
lean::dec(x_0);
x_92 = l_Nat_repr(x_87);
x_93 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_93, 0, x_92);
x_94 = 0;
x_95 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__6;
x_96 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_96, 0, x_95);
lean::cnstr_set(x_96, 1, x_93);
lean::cnstr_set_scalar(x_96, sizeof(void*)*2, x_94);
x_97 = x_96;
x_98 = l_Lean_Format_flatten___main___closed__1;
x_99 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_99, 0, x_97);
lean::cnstr_set(x_99, 1, x_98);
lean::cnstr_set_scalar(x_99, sizeof(void*)*2, x_94);
x_100 = x_99;
x_101 = l_Nat_repr(x_89);
x_102 = l_Lean_IR_VarId_HasToString___closed__1;
x_103 = lean::string_append(x_102, x_101);
lean::dec(x_101);
x_105 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_105, 0, x_103);
x_106 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_106, 0, x_100);
lean::cnstr_set(x_106, 1, x_105);
lean::cnstr_set_scalar(x_106, sizeof(void*)*2, x_94);
x_107 = x_106;
return x_107;
x_101 = l_Nat_repr(x_96);
x_102 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_102, 0, x_101);
x_103 = 0;
x_104 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__6;
x_105 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_105, 0, x_104);
lean::cnstr_set(x_105, 1, x_102);
lean::cnstr_set_scalar(x_105, sizeof(void*)*2, x_103);
x_106 = x_105;
x_107 = l_Lean_Format_flatten___main___closed__1;
x_108 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_108, 0, x_106);
lean::cnstr_set(x_108, 1, x_107);
lean::cnstr_set_scalar(x_108, sizeof(void*)*2, x_103);
x_109 = x_108;
x_110 = l_Nat_repr(x_98);
x_111 = l_Lean_IR_VarId_HasToString___closed__1;
x_112 = lean::string_append(x_111, x_110);
lean::dec(x_110);
x_114 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_114, 0, x_112);
x_115 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_115, 0, x_109);
lean::cnstr_set(x_115, 1, x_114);
lean::cnstr_set_scalar(x_115, sizeof(void*)*2, x_103);
x_116 = x_115;
return x_116;
}
case 5:
{
obj* x_108; obj* x_110; obj* x_112; obj* x_115; obj* x_116; uint8 x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; obj* x_133; obj* x_135; obj* x_136; obj* x_137;
x_108 = lean::cnstr_get(x_0, 0);
lean::inc(x_108);
x_110 = lean::cnstr_get(x_0, 1);
lean::inc(x_110);
x_112 = lean::cnstr_get(x_0, 2);
lean::inc(x_112);
obj* x_117; obj* x_119; obj* x_121; obj* x_124; obj* x_125; uint8 x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; obj* x_133; obj* x_134; obj* x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; obj* x_140; obj* x_141; obj* x_142; obj* x_144; obj* x_145; obj* x_146;
x_117 = lean::cnstr_get(x_0, 0);
lean::inc(x_117);
x_119 = lean::cnstr_get(x_0, 1);
lean::inc(x_119);
x_121 = lean::cnstr_get(x_0, 2);
lean::inc(x_121);
lean::dec(x_0);
x_115 = l_Nat_repr(x_108);
x_116 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_116, 0, x_115);
x_117 = 0;
x_118 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__7;
x_119 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_119, 0, x_118);
lean::cnstr_set(x_119, 1, x_116);
lean::cnstr_set_scalar(x_119, sizeof(void*)*2, x_117);
x_120 = x_119;
x_121 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__8;
x_122 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_122, 0, x_120);
lean::cnstr_set(x_122, 1, x_121);
lean::cnstr_set_scalar(x_122, sizeof(void*)*2, x_117);
x_123 = x_122;
x_124 = l_Nat_repr(x_110);
x_124 = l_Nat_repr(x_117);
x_125 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_125, 0, x_124);
x_126 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_126, 0, x_123);
lean::cnstr_set(x_126, 1, x_125);
lean::cnstr_set_scalar(x_126, sizeof(void*)*2, x_117);
x_127 = x_126;
x_128 = l_Lean_Format_flatten___main___closed__1;
x_129 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_129, 0, x_127);
lean::cnstr_set(x_129, 1, x_128);
lean::cnstr_set_scalar(x_129, sizeof(void*)*2, x_117);
x_130 = x_129;
x_131 = l_Nat_repr(x_112);
x_132 = l_Lean_IR_VarId_HasToString___closed__1;
x_133 = lean::string_append(x_132, x_131);
lean::dec(x_131);
x_135 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_135, 0, x_133);
x_136 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_136, 0, x_130);
lean::cnstr_set(x_136, 1, x_135);
lean::cnstr_set_scalar(x_136, sizeof(void*)*2, x_117);
x_137 = x_136;
return x_137;
x_126 = 0;
x_127 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__7;
x_128 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_128, 0, x_127);
lean::cnstr_set(x_128, 1, x_125);
lean::cnstr_set_scalar(x_128, sizeof(void*)*2, x_126);
x_129 = x_128;
x_130 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__8;
x_131 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_131, 0, x_129);
lean::cnstr_set(x_131, 1, x_130);
lean::cnstr_set_scalar(x_131, sizeof(void*)*2, x_126);
x_132 = x_131;
x_133 = l_Nat_repr(x_119);
x_134 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_134, 0, x_133);
x_135 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_135, 0, x_132);
lean::cnstr_set(x_135, 1, x_134);
lean::cnstr_set_scalar(x_135, sizeof(void*)*2, x_126);
x_136 = x_135;
x_137 = l_Lean_Format_flatten___main___closed__1;
x_138 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_138, 0, x_136);
lean::cnstr_set(x_138, 1, x_137);
lean::cnstr_set_scalar(x_138, sizeof(void*)*2, x_126);
x_139 = x_138;
x_140 = l_Nat_repr(x_121);
x_141 = l_Lean_IR_VarId_HasToString___closed__1;
x_142 = lean::string_append(x_141, x_140);
lean::dec(x_140);
x_144 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_144, 0, x_142);
x_145 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_145, 0, x_139);
lean::cnstr_set(x_145, 1, x_144);
lean::cnstr_set_scalar(x_145, sizeof(void*)*2, x_126);
x_146 = x_145;
return x_146;
}
case 6:
{
obj* x_138; obj* x_140; obj* x_143; obj* x_144; obj* x_145; obj* x_146; obj* x_147; obj* x_148; uint8 x_150; obj* x_151; obj* x_152;
x_138 = lean::cnstr_get(x_0, 0);
lean::inc(x_138);
x_140 = lean::cnstr_get(x_0, 1);
lean::inc(x_140);
obj* x_147; obj* x_149; obj* x_152; obj* x_153; obj* x_154; obj* x_155; obj* x_156; obj* x_157; uint8 x_159; obj* x_160; obj* x_161;
x_147 = lean::cnstr_get(x_0, 0);
lean::inc(x_147);
x_149 = lean::cnstr_get(x_0, 1);
lean::inc(x_149);
lean::dec(x_0);
x_143 = l_Lean_Name_toString___closed__1;
x_144 = l_Lean_Name_toStringWithSep___main(x_143, x_138);
x_145 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_145, 0, x_144);
x_146 = lean::mk_nat_obj(0ul);
x_147 = lean::box(0);
x_148 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_format_5__formatExpr___main___spec__2(x_140, x_140, x_146, x_147);
lean::dec(x_140);
x_150 = 0;
x_151 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_151, 0, x_145);
lean::cnstr_set(x_151, 1, x_148);
lean::cnstr_set_scalar(x_151, sizeof(void*)*2, x_150);
x_152 = x_151;
return x_152;
x_152 = l_Lean_Name_toString___closed__1;
x_153 = l_Lean_Name_toStringWithSep___main(x_152, x_147);
x_154 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_154, 0, x_153);
x_155 = lean::mk_nat_obj(0ul);
x_156 = lean::box(0);
x_157 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_format_5__formatExpr___main___spec__2(x_149, x_149, x_155, x_156);
lean::dec(x_149);
x_159 = 0;
x_160 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_160, 0, x_154);
lean::cnstr_set(x_160, 1, x_157);
lean::cnstr_set_scalar(x_160, sizeof(void*)*2, x_159);
x_161 = x_160;
return x_161;
}
case 7:
{
obj* x_153; obj* x_155; obj* x_158; obj* x_159; obj* x_160; uint8 x_161; obj* x_162; obj* x_163; obj* x_164; obj* x_165; obj* x_166; obj* x_167; obj* x_169; obj* x_170;
x_153 = lean::cnstr_get(x_0, 0);
lean::inc(x_153);
x_155 = lean::cnstr_get(x_0, 1);
lean::inc(x_155);
obj* x_162; obj* x_164; obj* x_167; obj* x_168; obj* x_169; uint8 x_170; obj* x_171; obj* x_172; obj* x_173; obj* x_174; obj* x_175; obj* x_176; obj* x_178; obj* x_179;
x_162 = lean::cnstr_get(x_0, 0);
lean::inc(x_162);
x_164 = lean::cnstr_get(x_0, 1);
lean::inc(x_164);
lean::dec(x_0);
x_158 = l_Lean_Name_toString___closed__1;
x_159 = l_Lean_Name_toStringWithSep___main(x_158, x_153);
x_160 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_160, 0, x_159);
x_161 = 0;
x_162 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__9;
x_163 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_163, 0, x_162);
lean::cnstr_set(x_163, 1, x_160);
lean::cnstr_set_scalar(x_163, sizeof(void*)*2, x_161);
x_164 = x_163;
x_165 = lean::mk_nat_obj(0ul);
x_166 = lean::box(0);
x_167 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_format_5__formatExpr___main___spec__2(x_155, x_155, x_165, x_166);
lean::dec(x_155);
x_169 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_169, 0, x_164);
lean::cnstr_set(x_169, 1, x_167);
lean::cnstr_set_scalar(x_169, sizeof(void*)*2, x_161);
x_170 = x_169;
return x_170;
x_167 = l_Lean_Name_toString___closed__1;
x_168 = l_Lean_Name_toStringWithSep___main(x_167, x_162);
x_169 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_169, 0, x_168);
x_170 = 0;
x_171 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__9;
x_172 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_172, 0, x_171);
lean::cnstr_set(x_172, 1, x_169);
lean::cnstr_set_scalar(x_172, sizeof(void*)*2, x_170);
x_173 = x_172;
x_174 = lean::mk_nat_obj(0ul);
x_175 = lean::box(0);
x_176 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_format_5__formatExpr___main___spec__2(x_164, x_164, x_174, x_175);
lean::dec(x_164);
x_178 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_178, 0, x_173);
lean::cnstr_set(x_178, 1, x_176);
lean::cnstr_set_scalar(x_178, sizeof(void*)*2, x_170);
x_179 = x_178;
return x_179;
}
case 8:
{
obj* x_171; obj* x_173; obj* x_176; obj* x_177; obj* x_178; obj* x_180; uint8 x_181; obj* x_182; obj* x_183; obj* x_184; obj* x_185; obj* x_186; obj* x_187; obj* x_189; obj* x_190;
x_171 = lean::cnstr_get(x_0, 0);
lean::inc(x_171);
x_173 = lean::cnstr_get(x_0, 1);
lean::inc(x_173);
obj* x_180; obj* x_182; obj* x_185; obj* x_186; obj* x_187; obj* x_189; uint8 x_190; obj* x_191; obj* x_192; obj* x_193; obj* x_194; obj* x_195; obj* x_196; obj* x_198; obj* x_199;
x_180 = lean::cnstr_get(x_0, 0);
lean::inc(x_180);
x_182 = lean::cnstr_get(x_0, 1);
lean::inc(x_182);
lean::dec(x_0);
x_176 = l_Nat_repr(x_171);
x_177 = l_Lean_IR_VarId_HasToString___closed__1;
x_178 = lean::string_append(x_177, x_176);
lean::dec(x_176);
x_180 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_180, 0, x_178);
x_181 = 0;
x_182 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__10;
x_183 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_183, 0, x_182);
lean::cnstr_set(x_183, 1, x_180);
lean::cnstr_set_scalar(x_183, sizeof(void*)*2, x_181);
x_184 = x_183;
x_185 = lean::mk_nat_obj(0ul);
x_186 = lean::box(0);
x_187 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_format_5__formatExpr___main___spec__2(x_173, x_173, x_185, x_186);
lean::dec(x_173);
x_189 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_189, 0, x_184);
lean::cnstr_set(x_189, 1, x_187);
lean::cnstr_set_scalar(x_189, sizeof(void*)*2, x_181);
x_190 = x_189;
return x_190;
x_185 = l_Nat_repr(x_180);
x_186 = l_Lean_IR_VarId_HasToString___closed__1;
x_187 = lean::string_append(x_186, x_185);
lean::dec(x_185);
x_189 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_189, 0, x_187);
x_190 = 0;
x_191 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__10;
x_192 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_192, 0, x_191);
lean::cnstr_set(x_192, 1, x_189);
lean::cnstr_set_scalar(x_192, sizeof(void*)*2, x_190);
x_193 = x_192;
x_194 = lean::mk_nat_obj(0ul);
x_195 = lean::box(0);
x_196 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_format_5__formatExpr___main___spec__2(x_182, x_182, x_194, x_195);
lean::dec(x_182);
x_198 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_198, 0, x_193);
lean::cnstr_set(x_198, 1, x_196);
lean::cnstr_set_scalar(x_198, sizeof(void*)*2, x_190);
x_199 = x_198;
return x_199;
}
case 9:
{
obj* x_191; obj* x_194; obj* x_195; obj* x_196; obj* x_198; uint8 x_199; obj* x_200; obj* x_201; obj* x_202;
x_191 = lean::cnstr_get(x_0, 0);
lean::inc(x_191);
obj* x_200; obj* x_203; obj* x_204; obj* x_205; obj* x_207; uint8 x_208; obj* x_209; obj* x_210; obj* x_211;
x_200 = lean::cnstr_get(x_0, 0);
lean::inc(x_200);
lean::dec(x_0);
x_194 = l_Nat_repr(x_191);
x_195 = l_Lean_IR_VarId_HasToString___closed__1;
x_196 = lean::string_append(x_195, x_194);
lean::dec(x_194);
x_198 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_198, 0, x_196);
x_199 = 0;
x_200 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__11;
x_201 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_201, 0, x_200);
lean::cnstr_set(x_201, 1, x_198);
lean::cnstr_set_scalar(x_201, sizeof(void*)*2, x_199);
x_202 = x_201;
return x_202;
x_203 = l_Nat_repr(x_200);
x_204 = l_Lean_IR_VarId_HasToString___closed__1;
x_205 = lean::string_append(x_204, x_203);
lean::dec(x_203);
x_207 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_207, 0, x_205);
x_208 = 0;
x_209 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__11;
x_210 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_210, 0, x_209);
lean::cnstr_set(x_210, 1, x_207);
lean::cnstr_set_scalar(x_210, sizeof(void*)*2, x_208);
x_211 = x_210;
return x_211;
}
case 10:
{
obj* x_203; obj* x_206; obj* x_207; obj* x_208; obj* x_210; uint8 x_211; obj* x_212; obj* x_213; obj* x_214;
x_203 = lean::cnstr_get(x_0, 0);
lean::inc(x_203);
obj* x_212; obj* x_215; obj* x_216; obj* x_217; obj* x_219; uint8 x_220; obj* x_221; obj* x_222; obj* x_223;
x_212 = lean::cnstr_get(x_0, 0);
lean::inc(x_212);
lean::dec(x_0);
x_206 = l_Nat_repr(x_203);
x_207 = l_Lean_IR_VarId_HasToString___closed__1;
x_208 = lean::string_append(x_207, x_206);
lean::dec(x_206);
x_210 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_210, 0, x_208);
x_211 = 0;
x_212 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__12;
x_213 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_213, 0, x_212);
lean::cnstr_set(x_213, 1, x_210);
lean::cnstr_set_scalar(x_213, sizeof(void*)*2, x_211);
x_214 = x_213;
return x_214;
x_215 = l_Nat_repr(x_212);
x_216 = l_Lean_IR_VarId_HasToString___closed__1;
x_217 = lean::string_append(x_216, x_215);
lean::dec(x_215);
x_219 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_219, 0, x_217);
x_220 = 0;
x_221 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__12;
x_222 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_222, 0, x_221);
lean::cnstr_set(x_222, 1, x_219);
lean::cnstr_set_scalar(x_222, sizeof(void*)*2, x_220);
x_223 = x_222;
return x_223;
}
case 11:
{
obj* x_215; obj* x_218;
x_215 = lean::cnstr_get(x_0, 0);
lean::inc(x_215);
obj* x_224; obj* x_227;
x_224 = lean::cnstr_get(x_0, 0);
lean::inc(x_224);
lean::dec(x_0);
x_218 = l___private_init_lean_compiler_ir_format_3__formatLitVal___main(x_215);
return x_218;
x_227 = l___private_init_lean_compiler_ir_format_3__formatLitVal___main(x_224);
return x_227;
}
case 12:
{
obj* x_219; obj* x_222; obj* x_223; obj* x_224; obj* x_226; uint8 x_227; obj* x_228; obj* x_229; obj* x_230;
x_219 = lean::cnstr_get(x_0, 0);
lean::inc(x_219);
obj* x_228; obj* x_231; obj* x_232; obj* x_233; obj* x_235; uint8 x_236; obj* x_237; obj* x_238; obj* x_239;
x_228 = lean::cnstr_get(x_0, 0);
lean::inc(x_228);
lean::dec(x_0);
x_222 = l_Nat_repr(x_219);
x_223 = l_Lean_IR_VarId_HasToString___closed__1;
x_224 = lean::string_append(x_223, x_222);
lean::dec(x_222);
x_226 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_226, 0, x_224);
x_227 = 0;
x_228 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__13;
x_229 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_229, 0, x_228);
lean::cnstr_set(x_229, 1, x_226);
lean::cnstr_set_scalar(x_229, sizeof(void*)*2, x_227);
x_230 = x_229;
return x_230;
x_231 = l_Nat_repr(x_228);
x_232 = l_Lean_IR_VarId_HasToString___closed__1;
x_233 = lean::string_append(x_232, x_231);
lean::dec(x_231);
x_235 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_235, 0, x_233);
x_236 = 0;
x_237 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__13;
x_238 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_238, 0, x_237);
lean::cnstr_set(x_238, 1, x_235);
lean::cnstr_set_scalar(x_238, sizeof(void*)*2, x_236);
x_239 = x_238;
return x_239;
}
default:
{
obj* x_231; obj* x_234; obj* x_235; obj* x_236; obj* x_238; uint8 x_239; obj* x_240; obj* x_241; obj* x_242;
x_231 = lean::cnstr_get(x_0, 0);
lean::inc(x_231);
obj* x_240; obj* x_243; obj* x_244; obj* x_245; obj* x_247; uint8 x_248; obj* x_249; obj* x_250; obj* x_251;
x_240 = lean::cnstr_get(x_0, 0);
lean::inc(x_240);
lean::dec(x_0);
x_234 = l_Nat_repr(x_231);
x_235 = l_Lean_IR_VarId_HasToString___closed__1;
x_236 = lean::string_append(x_235, x_234);
lean::dec(x_234);
x_238 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_238, 0, x_236);
x_239 = 0;
x_240 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__14;
x_241 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_241, 0, x_240);
lean::cnstr_set(x_241, 1, x_238);
lean::cnstr_set_scalar(x_241, sizeof(void*)*2, x_239);
x_242 = x_241;
return x_242;
x_243 = l_Nat_repr(x_240);
x_244 = l_Lean_IR_VarId_HasToString___closed__1;
x_245 = lean::string_append(x_244, x_243);
lean::dec(x_243);
x_247 = lean::alloc_cnstr(2, 1, 0);
lean::cnstr_set(x_247, 0, x_245);
x_248 = 0;
x_249 = l___private_init_lean_compiler_ir_format_5__formatExpr___main___closed__14;
x_250 = lean::alloc_cnstr(4, 2, 1);
lean::cnstr_set(x_250, 0, x_249);
lean::cnstr_set(x_250, 1, x_247);
lean::cnstr_set_scalar(x_250, sizeof(void*)*2, x_248);
x_251 = x_250;
return x_251;
}
}
}

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

@ -609,53 +609,53 @@ x_6 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_8
lean::dec(x_2);
return x_6;
}
case 2:
case 1:
{
obj* x_8; obj* x_10; uint8 x_13;
x_8 = lean::cnstr_get(x_0, 0);
obj* x_8; uint8 x_11;
x_8 = lean::cnstr_get(x_0, 1);
lean::inc(x_8);
x_10 = lean::cnstr_get(x_0, 2);
lean::inc(x_10);
lean::dec(x_0);
x_13 = lean::nat_dec_lt(x_1, x_8);
if (x_13 == 0)
x_11 = lean::nat_dec_lt(x_1, x_8);
if (x_11 == 0)
{
obj* x_15; obj* x_16;
lean::dec(x_8);
x_15 = lean::mk_nat_obj(0ul);
x_16 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_8__collectArgs___spec__2(x_10, x_10, x_15, x_1);
lean::dec(x_10);
return x_16;
}
else
{
obj* x_19; obj* x_20;
lean::dec(x_1);
x_19 = lean::mk_nat_obj(0ul);
x_20 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_8__collectArgs___spec__2(x_10, x_10, x_19, x_8);
lean::dec(x_10);
return x_20;
}
}
case 3:
{
obj* x_22; uint8 x_25;
x_22 = lean::cnstr_get(x_0, 1);
lean::inc(x_22);
lean::dec(x_0);
x_25 = lean::nat_dec_lt(x_1, x_22);
if (x_25 == 0)
{
lean::dec(x_22);
return x_1;
}
else
{
lean::dec(x_1);
return x_8;
}
}
case 2:
{
obj* x_14; obj* x_16; uint8 x_19;
x_14 = lean::cnstr_get(x_0, 0);
lean::inc(x_14);
x_16 = lean::cnstr_get(x_0, 2);
lean::inc(x_16);
lean::dec(x_0);
x_19 = lean::nat_dec_lt(x_1, x_14);
if (x_19 == 0)
{
obj* x_21; obj* x_22;
lean::dec(x_14);
x_21 = lean::mk_nat_obj(0ul);
x_22 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_8__collectArgs___spec__2(x_16, x_16, x_21, x_1);
lean::dec(x_16);
return x_22;
}
else
{
obj* x_25; obj* x_26;
lean::dec(x_1);
x_25 = lean::mk_nat_obj(0ul);
x_26 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_8__collectArgs___spec__2(x_16, x_16, x_25, x_14);
lean::dec(x_16);
return x_26;
}
case 4:
}
case 3:
{
obj* x_28; uint8 x_31;
x_28 = lean::cnstr_get(x_0, 1);
@ -673,10 +673,10 @@ lean::dec(x_1);
return x_28;
}
}
case 5:
case 4:
{
obj* x_34; uint8 x_37;
x_34 = lean::cnstr_get(x_0, 2);
x_34 = lean::cnstr_get(x_0, 1);
lean::inc(x_34);
lean::dec(x_0);
x_37 = lean::nat_dec_lt(x_1, x_34);
@ -691,18 +691,25 @@ lean::dec(x_1);
return x_34;
}
}
case 6:
case 5:
{
obj* x_40; obj* x_43; obj* x_44;
x_40 = lean::cnstr_get(x_0, 1);
obj* x_40; uint8 x_43;
x_40 = lean::cnstr_get(x_0, 2);
lean::inc(x_40);
lean::dec(x_0);
x_43 = lean::mk_nat_obj(0ul);
x_44 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_8__collectArgs___spec__2(x_40, x_40, x_43, x_1);
x_43 = lean::nat_dec_lt(x_1, x_40);
if (x_43 == 0)
{
lean::dec(x_40);
return x_44;
return x_1;
}
case 7:
else
{
lean::dec(x_1);
return x_40;
}
}
case 6:
{
obj* x_46; obj* x_49; obj* x_50;
x_46 = lean::cnstr_get(x_0, 1);
@ -713,32 +720,43 @@ x_50 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_
lean::dec(x_46);
return x_50;
}
case 7:
{
obj* x_52; obj* x_55; obj* x_56;
x_52 = lean::cnstr_get(x_0, 1);
lean::inc(x_52);
lean::dec(x_0);
x_55 = lean::mk_nat_obj(0ul);
x_56 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_8__collectArgs___spec__2(x_52, x_52, x_55, x_1);
lean::dec(x_52);
return x_56;
}
case 8:
{
obj* x_52; obj* x_54; uint8 x_57;
x_52 = lean::cnstr_get(x_0, 0);
lean::inc(x_52);
x_54 = lean::cnstr_get(x_0, 1);
lean::inc(x_54);
obj* x_58; obj* x_60; uint8 x_63;
x_58 = lean::cnstr_get(x_0, 0);
lean::inc(x_58);
x_60 = lean::cnstr_get(x_0, 1);
lean::inc(x_60);
lean::dec(x_0);
x_57 = lean::nat_dec_lt(x_1, x_52);
if (x_57 == 0)
x_63 = lean::nat_dec_lt(x_1, x_58);
if (x_63 == 0)
{
obj* x_59; obj* x_60;
lean::dec(x_52);
x_59 = lean::mk_nat_obj(0ul);
x_60 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_8__collectArgs___spec__2(x_54, x_54, x_59, x_1);
lean::dec(x_54);
return x_60;
obj* x_65; obj* x_66;
lean::dec(x_58);
x_65 = lean::mk_nat_obj(0ul);
x_66 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_8__collectArgs___spec__2(x_60, x_60, x_65, x_1);
lean::dec(x_60);
return x_66;
}
else
{
obj* x_63; obj* x_64;
obj* x_69; obj* x_70;
lean::dec(x_1);
x_63 = lean::mk_nat_obj(0ul);
x_64 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_8__collectArgs___spec__2(x_54, x_54, x_63, x_52);
lean::dec(x_54);
return x_64;
x_69 = lean::mk_nat_obj(0ul);
x_70 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_8__collectArgs___spec__2(x_60, x_60, x_69, x_58);
lean::dec(x_60);
return x_70;
}
}
case 11:
@ -748,20 +766,20 @@ return x_1;
}
default:
{
obj* x_67; uint8 x_70;
x_67 = lean::cnstr_get(x_0, 0);
lean::inc(x_67);
obj* x_73; uint8 x_76;
x_73 = lean::cnstr_get(x_0, 0);
lean::inc(x_73);
lean::dec(x_0);
x_70 = lean::nat_dec_lt(x_1, x_67);
if (x_70 == 0)
x_76 = lean::nat_dec_lt(x_1, x_73);
if (x_76 == 0)
{
lean::dec(x_67);
lean::dec(x_73);
return x_1;
}
else
{
lean::dec(x_1);
return x_67;
return x_73;
}
}
}
@ -2806,7 +2824,7 @@ switch (lean::obj_tag(x_0)) {
case 1:
{
obj* x_3; obj* x_6;
x_3 = lean::cnstr_get(x_0, 0);
x_3 = lean::cnstr_get(x_0, 1);
lean::inc(x_3);
lean::dec(x_0);
x_6 = l_RBNode_findCore___main___at___private_init_lean_compiler_ir_freevars_14__collectIndex___spec__1(x_1, x_3);
@ -2819,8 +2837,8 @@ return x_8;
}
else
{
lean::dec(x_3);
lean::dec(x_6);
lean::dec(x_3);
return x_2;
}
}
@ -2871,8 +2889,8 @@ return x_33;
}
else
{
lean::dec(x_28);
lean::dec(x_31);
lean::dec(x_28);
return x_2;
}
}
@ -2941,8 +2959,8 @@ return x_62;
else
{
obj* x_66; obj* x_67;
lean::dec(x_52);
lean::dec(x_58);
lean::dec(x_52);
x_66 = lean::mk_nat_obj(0ul);
x_67 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_freevars_24__collectArgs___spec__2(x_54, x_1, x_54, x_66, x_2);
lean::dec(x_54);
@ -2986,8 +3004,8 @@ return x_82;
}
else
{
lean::dec(x_80);
lean::dec(x_77);
lean::dec(x_80);
return x_2;
}
}
@ -3013,8 +3031,8 @@ return x_92;
}
else
{
lean::dec(x_90);
lean::dec(x_87);
lean::dec(x_90);
return x_2;
}
}
@ -3775,95 +3793,102 @@ x_3 = lean::mk_nat_obj(0ul);
x_4 = l_Array_anyMAux___main___at_Lean_IR_HasIndex_visitArgs___spec__1(x_0, x_2, x_3);
return x_4;
}
case 1:
{
obj* x_5; uint8 x_6;
x_5 = lean::cnstr_get(x_1, 1);
x_6 = lean::nat_dec_eq(x_0, x_5);
return x_6;
}
case 2:
{
obj* x_5; obj* x_6; uint8 x_7;
x_5 = lean::cnstr_get(x_1, 0);
x_6 = lean::cnstr_get(x_1, 2);
x_7 = lean::nat_dec_eq(x_0, x_5);
if (x_7 == 0)
obj* x_7; obj* x_8; uint8 x_9;
x_7 = lean::cnstr_get(x_1, 0);
x_8 = lean::cnstr_get(x_1, 2);
x_9 = lean::nat_dec_eq(x_0, x_7);
if (x_9 == 0)
{
obj* x_8; uint8 x_9;
x_8 = lean::mk_nat_obj(0ul);
x_9 = l_Array_anyMAux___main___at_Lean_IR_HasIndex_visitArgs___spec__1(x_0, x_6, x_8);
return x_9;
obj* x_10; uint8 x_11;
x_10 = lean::mk_nat_obj(0ul);
x_11 = l_Array_anyMAux___main___at_Lean_IR_HasIndex_visitArgs___spec__1(x_0, x_8, x_10);
return x_11;
}
else
{
uint8 x_10;
x_10 = 1;
return x_10;
uint8 x_12;
x_12 = 1;
return x_12;
}
}
case 3:
{
obj* x_11; uint8 x_12;
x_11 = lean::cnstr_get(x_1, 1);
x_12 = lean::nat_dec_eq(x_0, x_11);
return x_12;
}
case 4:
{
obj* x_13; uint8 x_14;
x_13 = lean::cnstr_get(x_1, 1);
x_14 = lean::nat_dec_eq(x_0, x_13);
return x_14;
}
case 5:
case 4:
{
obj* x_15; uint8 x_16;
x_15 = lean::cnstr_get(x_1, 2);
x_15 = lean::cnstr_get(x_1, 1);
x_16 = lean::nat_dec_eq(x_0, x_15);
return x_16;
}
case 5:
{
obj* x_17; uint8 x_18;
x_17 = lean::cnstr_get(x_1, 2);
x_18 = lean::nat_dec_eq(x_0, x_17);
return x_18;
}
case 6:
{
obj* x_17; obj* x_18; uint8 x_19;
x_17 = lean::cnstr_get(x_1, 1);
x_18 = lean::mk_nat_obj(0ul);
x_19 = l_Array_anyMAux___main___at_Lean_IR_HasIndex_visitArgs___spec__1(x_0, x_17, x_18);
return x_19;
obj* x_19; obj* x_20; uint8 x_21;
x_19 = lean::cnstr_get(x_1, 1);
x_20 = lean::mk_nat_obj(0ul);
x_21 = l_Array_anyMAux___main___at_Lean_IR_HasIndex_visitArgs___spec__1(x_0, x_19, x_20);
return x_21;
}
case 7:
{
obj* x_20; obj* x_21; uint8 x_22;
x_20 = lean::cnstr_get(x_1, 1);
x_21 = lean::mk_nat_obj(0ul);
x_22 = l_Array_anyMAux___main___at_Lean_IR_HasIndex_visitArgs___spec__1(x_0, x_20, x_21);
return x_22;
obj* x_22; obj* x_23; uint8 x_24;
x_22 = lean::cnstr_get(x_1, 1);
x_23 = lean::mk_nat_obj(0ul);
x_24 = l_Array_anyMAux___main___at_Lean_IR_HasIndex_visitArgs___spec__1(x_0, x_22, x_23);
return x_24;
}
case 8:
{
obj* x_23; obj* x_24; uint8 x_25;
x_23 = lean::cnstr_get(x_1, 0);
x_24 = lean::cnstr_get(x_1, 1);
x_25 = lean::nat_dec_eq(x_0, x_23);
if (x_25 == 0)
obj* x_25; obj* x_26; uint8 x_27;
x_25 = lean::cnstr_get(x_1, 0);
x_26 = lean::cnstr_get(x_1, 1);
x_27 = lean::nat_dec_eq(x_0, x_25);
if (x_27 == 0)
{
obj* x_26; uint8 x_27;
x_26 = lean::mk_nat_obj(0ul);
x_27 = l_Array_anyMAux___main___at_Lean_IR_HasIndex_visitArgs___spec__1(x_0, x_24, x_26);
return x_27;
obj* x_28; uint8 x_29;
x_28 = lean::mk_nat_obj(0ul);
x_29 = l_Array_anyMAux___main___at_Lean_IR_HasIndex_visitArgs___spec__1(x_0, x_26, x_28);
return x_29;
}
else
{
uint8 x_28;
x_28 = 1;
return x_28;
uint8 x_30;
x_30 = 1;
return x_30;
}
}
case 11:
{
uint8 x_29;
x_29 = 0;
return x_29;
uint8 x_31;
x_31 = 0;
return x_31;
}
default:
{
obj* x_30; uint8 x_31;
x_30 = lean::cnstr_get(x_1, 0);
x_31 = lean::nat_dec_eq(x_0, x_30);
return x_31;
obj* x_32; uint8 x_33;
x_32 = lean::cnstr_get(x_1, 0);
x_33 = lean::nat_dec_eq(x_0, x_32);
return x_33;
}
}
}

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

@ -2375,32 +2375,32 @@ x_6 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_livevars_5
lean::dec(x_2);
return x_6;
}
case 1:
{
obj* x_8; obj* x_11; obj* x_12;
x_8 = lean::cnstr_get(x_0, 1);
lean::inc(x_8);
lean::dec(x_0);
x_11 = lean::box(0);
x_12 = l_RBNode_insert___at___private_init_lean_compiler_ir_livevars_2__collectVar___spec__1(x_1, x_8, x_11);
return x_12;
}
case 2:
{
obj* x_8; obj* x_10; obj* x_13; obj* x_14; obj* x_16; obj* x_17;
x_8 = lean::cnstr_get(x_0, 0);
lean::inc(x_8);
x_10 = lean::cnstr_get(x_0, 2);
lean::inc(x_10);
lean::dec(x_0);
x_13 = lean::mk_nat_obj(0ul);
x_14 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_livevars_5__collectArgs___spec__2(x_10, x_10, x_13, x_1);
lean::dec(x_10);
x_16 = lean::box(0);
x_17 = l_RBNode_insert___at___private_init_lean_compiler_ir_livevars_2__collectVar___spec__1(x_14, x_8, x_16);
return x_17;
}
case 3:
{
obj* x_18; obj* x_21; obj* x_22;
x_18 = lean::cnstr_get(x_0, 1);
lean::inc(x_18);
obj* x_13; obj* x_15; obj* x_18; obj* x_19; obj* x_21; obj* x_22;
x_13 = lean::cnstr_get(x_0, 0);
lean::inc(x_13);
x_15 = lean::cnstr_get(x_0, 2);
lean::inc(x_15);
lean::dec(x_0);
x_18 = lean::mk_nat_obj(0ul);
x_19 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_livevars_5__collectArgs___spec__2(x_15, x_15, x_18, x_1);
lean::dec(x_15);
x_21 = lean::box(0);
x_22 = l_RBNode_insert___at___private_init_lean_compiler_ir_livevars_2__collectVar___spec__1(x_1, x_18, x_21);
x_22 = l_RBNode_insert___at___private_init_lean_compiler_ir_livevars_2__collectVar___spec__1(x_19, x_13, x_21);
return x_22;
}
case 4:
case 3:
{
obj* x_23; obj* x_26; obj* x_27;
x_23 = lean::cnstr_get(x_0, 1);
@ -2410,52 +2410,62 @@ x_26 = lean::box(0);
x_27 = l_RBNode_insert___at___private_init_lean_compiler_ir_livevars_2__collectVar___spec__1(x_1, x_23, x_26);
return x_27;
}
case 5:
case 4:
{
obj* x_28; obj* x_31; obj* x_32;
x_28 = lean::cnstr_get(x_0, 2);
x_28 = lean::cnstr_get(x_0, 1);
lean::inc(x_28);
lean::dec(x_0);
x_31 = lean::box(0);
x_32 = l_RBNode_insert___at___private_init_lean_compiler_ir_livevars_2__collectVar___spec__1(x_1, x_28, x_31);
return x_32;
}
case 6:
case 5:
{
obj* x_33; obj* x_36; obj* x_37;
x_33 = lean::cnstr_get(x_0, 1);
x_33 = lean::cnstr_get(x_0, 2);
lean::inc(x_33);
lean::dec(x_0);
x_36 = lean::mk_nat_obj(0ul);
x_37 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_livevars_5__collectArgs___spec__2(x_33, x_33, x_36, x_1);
lean::dec(x_33);
x_36 = lean::box(0);
x_37 = l_RBNode_insert___at___private_init_lean_compiler_ir_livevars_2__collectVar___spec__1(x_1, x_33, x_36);
return x_37;
}
case 6:
{
obj* x_38; obj* x_41; obj* x_42;
x_38 = lean::cnstr_get(x_0, 1);
lean::inc(x_38);
lean::dec(x_0);
x_41 = lean::mk_nat_obj(0ul);
x_42 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_livevars_5__collectArgs___spec__2(x_38, x_38, x_41, x_1);
lean::dec(x_38);
return x_42;
}
case 7:
{
obj* x_39; obj* x_42; obj* x_43;
x_39 = lean::cnstr_get(x_0, 1);
lean::inc(x_39);
obj* x_44; obj* x_47; obj* x_48;
x_44 = lean::cnstr_get(x_0, 1);
lean::inc(x_44);
lean::dec(x_0);
x_42 = lean::mk_nat_obj(0ul);
x_43 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_livevars_5__collectArgs___spec__2(x_39, x_39, x_42, x_1);
lean::dec(x_39);
return x_43;
x_47 = lean::mk_nat_obj(0ul);
x_48 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_livevars_5__collectArgs___spec__2(x_44, x_44, x_47, x_1);
lean::dec(x_44);
return x_48;
}
case 8:
{
obj* x_45; obj* x_47; obj* x_50; obj* x_51; obj* x_53; obj* x_54;
x_45 = lean::cnstr_get(x_0, 0);
lean::inc(x_45);
x_47 = lean::cnstr_get(x_0, 1);
lean::inc(x_47);
obj* x_50; obj* x_52; obj* x_55; obj* x_56; obj* x_58; obj* x_59;
x_50 = lean::cnstr_get(x_0, 0);
lean::inc(x_50);
x_52 = lean::cnstr_get(x_0, 1);
lean::inc(x_52);
lean::dec(x_0);
x_50 = lean::mk_nat_obj(0ul);
x_51 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_livevars_5__collectArgs___spec__2(x_47, x_47, x_50, x_1);
lean::dec(x_47);
x_53 = lean::box(0);
x_54 = l_RBNode_insert___at___private_init_lean_compiler_ir_livevars_2__collectVar___spec__1(x_51, x_45, x_53);
return x_54;
x_55 = lean::mk_nat_obj(0ul);
x_56 = l_Array_miterateAux___main___at___private_init_lean_compiler_ir_livevars_5__collectArgs___spec__2(x_52, x_52, x_55, x_1);
lean::dec(x_52);
x_58 = lean::box(0);
x_59 = l_RBNode_insert___at___private_init_lean_compiler_ir_livevars_2__collectVar___spec__1(x_56, x_50, x_58);
return x_59;
}
case 11:
{
@ -2464,13 +2474,13 @@ return x_1;
}
default:
{
obj* x_56; obj* x_59; obj* x_60;
x_56 = lean::cnstr_get(x_0, 0);
lean::inc(x_56);
obj* x_61; obj* x_64; obj* x_65;
x_61 = lean::cnstr_get(x_0, 0);
lean::inc(x_61);
lean::dec(x_0);
x_59 = lean::box(0);
x_60 = l_RBNode_insert___at___private_init_lean_compiler_ir_livevars_2__collectVar___spec__1(x_1, x_56, x_59);
return x_60;
x_64 = lean::box(0);
x_65 = l_RBNode_insert___at___private_init_lean_compiler_ir_livevars_2__collectVar___spec__1(x_1, x_61, x_64);
return x_65;
}
}
}

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

@ -1980,252 +1980,255 @@ return x_9;
}
case 1:
{
obj* x_10; obj* x_12; obj* x_13; obj* x_15;
obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_17;
x_10 = lean::cnstr_get(x_0, 0);
x_12 = lean::cnstr_get(x_0, 1);
if (lean::is_exclusive(x_0)) {
x_12 = x_0;
x_14 = x_0;
} else {
lean::inc(x_10);
lean::inc(x_12);
lean::dec(x_0);
x_12 = lean::box(0);
x_14 = lean::box(0);
}
x_13 = l_Lean_IR_NormalizeIds_normIndex(x_10, x_1);
lean::dec(x_10);
if (lean::is_scalar(x_12)) {
x_15 = lean::alloc_cnstr(1, 1, 0);
x_15 = l_Lean_IR_NormalizeIds_normIndex(x_12, x_1);
lean::dec(x_12);
if (lean::is_scalar(x_14)) {
x_17 = lean::alloc_cnstr(1, 2, 0);
} else {
x_15 = x_12;
x_17 = x_14;
}
lean::cnstr_set(x_15, 0, x_13);
return x_15;
lean::cnstr_set(x_17, 0, x_10);
lean::cnstr_set(x_17, 1, x_15);
return x_17;
}
case 2:
{
obj* x_16; obj* x_18; uint8 x_20; obj* x_21; obj* x_23; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30;
x_16 = lean::cnstr_get(x_0, 0);
x_18 = lean::cnstr_get(x_0, 1);
x_20 = lean::cnstr_get_scalar<uint8>(x_0, sizeof(void*)*3);
x_21 = lean::cnstr_get(x_0, 2);
obj* x_18; obj* x_20; uint8 x_22; obj* x_23; obj* x_25; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32;
x_18 = lean::cnstr_get(x_0, 0);
x_20 = lean::cnstr_get(x_0, 1);
x_22 = lean::cnstr_get_scalar<uint8>(x_0, sizeof(void*)*3);
x_23 = lean::cnstr_get(x_0, 2);
if (lean::is_exclusive(x_0)) {
x_23 = x_0;
x_25 = x_0;
} else {
lean::inc(x_16);
lean::inc(x_18);
lean::inc(x_21);
lean::inc(x_20);
lean::inc(x_23);
lean::dec(x_0);
x_23 = lean::box(0);
x_25 = lean::box(0);
}
lean::inc(x_1);
x_25 = l_Lean_IR_NormalizeIds_normIndex(x_16, x_1);
lean::dec(x_16);
x_27 = lean::mk_nat_obj(0ul);
x_28 = l_Array_hmmapAux___main___at_Lean_IR_NormalizeIds_normArgs___spec__1(x_1, x_27, x_21);
if (lean::is_scalar(x_23)) {
x_29 = lean::alloc_cnstr(2, 3, 1);
x_27 = l_Lean_IR_NormalizeIds_normIndex(x_18, x_1);
lean::dec(x_18);
x_29 = lean::mk_nat_obj(0ul);
x_30 = l_Array_hmmapAux___main___at_Lean_IR_NormalizeIds_normArgs___spec__1(x_1, x_29, x_23);
if (lean::is_scalar(x_25)) {
x_31 = lean::alloc_cnstr(2, 3, 1);
} else {
x_29 = x_23;
x_31 = x_25;
}
lean::cnstr_set(x_29, 0, x_25);
lean::cnstr_set(x_29, 1, x_18);
lean::cnstr_set(x_29, 2, x_28);
lean::cnstr_set_scalar(x_29, sizeof(void*)*3, x_20);
x_30 = x_29;
return x_30;
lean::cnstr_set(x_31, 0, x_27);
lean::cnstr_set(x_31, 1, x_20);
lean::cnstr_set(x_31, 2, x_30);
lean::cnstr_set_scalar(x_31, sizeof(void*)*3, x_22);
x_32 = x_31;
return x_32;
}
case 3:
{
obj* x_31; obj* x_33; obj* x_35; obj* x_36; obj* x_38;
x_31 = lean::cnstr_get(x_0, 0);
x_33 = lean::cnstr_get(x_0, 1);
obj* x_33; obj* x_35; obj* x_37; obj* x_38; obj* x_40;
x_33 = lean::cnstr_get(x_0, 0);
x_35 = lean::cnstr_get(x_0, 1);
if (lean::is_exclusive(x_0)) {
x_35 = x_0;
x_37 = x_0;
} else {
lean::inc(x_31);
lean::inc(x_33);
lean::inc(x_35);
lean::dec(x_0);
x_35 = lean::box(0);
x_37 = lean::box(0);
}
x_36 = l_Lean_IR_NormalizeIds_normIndex(x_33, x_1);
lean::dec(x_33);
if (lean::is_scalar(x_35)) {
x_38 = lean::alloc_cnstr(3, 2, 0);
x_38 = l_Lean_IR_NormalizeIds_normIndex(x_35, x_1);
lean::dec(x_35);
if (lean::is_scalar(x_37)) {
x_40 = lean::alloc_cnstr(3, 2, 0);
} else {
x_38 = x_35;
x_40 = x_37;
}
lean::cnstr_set(x_38, 0, x_31);
lean::cnstr_set(x_38, 1, x_36);
return x_38;
lean::cnstr_set(x_40, 0, x_33);
lean::cnstr_set(x_40, 1, x_38);
return x_40;
}
case 4:
{
obj* x_39; obj* x_41; obj* x_43; obj* x_44; obj* x_46;
x_39 = lean::cnstr_get(x_0, 0);
x_41 = lean::cnstr_get(x_0, 1);
obj* x_41; obj* x_43; obj* x_45; obj* x_46; obj* x_48;
x_41 = lean::cnstr_get(x_0, 0);
x_43 = lean::cnstr_get(x_0, 1);
if (lean::is_exclusive(x_0)) {
x_43 = x_0;
x_45 = x_0;
} else {
lean::inc(x_39);
lean::inc(x_41);
lean::inc(x_43);
lean::dec(x_0);
x_43 = lean::box(0);
x_45 = lean::box(0);
}
x_44 = l_Lean_IR_NormalizeIds_normIndex(x_41, x_1);
lean::dec(x_41);
if (lean::is_scalar(x_43)) {
x_46 = lean::alloc_cnstr(4, 2, 0);
x_46 = l_Lean_IR_NormalizeIds_normIndex(x_43, x_1);
lean::dec(x_43);
if (lean::is_scalar(x_45)) {
x_48 = lean::alloc_cnstr(4, 2, 0);
} else {
x_46 = x_43;
x_48 = x_45;
}
lean::cnstr_set(x_46, 0, x_39);
lean::cnstr_set(x_46, 1, x_44);
return x_46;
lean::cnstr_set(x_48, 0, x_41);
lean::cnstr_set(x_48, 1, x_46);
return x_48;
}
case 5:
{
obj* x_47; obj* x_49; obj* x_51; obj* x_53; obj* x_54; obj* x_56;
x_47 = lean::cnstr_get(x_0, 0);
x_49 = lean::cnstr_get(x_0, 1);
x_51 = lean::cnstr_get(x_0, 2);
obj* x_49; obj* x_51; obj* x_53; obj* x_55; obj* x_56; obj* x_58;
x_49 = lean::cnstr_get(x_0, 0);
x_51 = lean::cnstr_get(x_0, 1);
x_53 = lean::cnstr_get(x_0, 2);
if (lean::is_exclusive(x_0)) {
x_53 = x_0;
x_55 = x_0;
} else {
lean::inc(x_47);
lean::inc(x_49);
lean::inc(x_51);
lean::inc(x_53);
lean::dec(x_0);
x_53 = lean::box(0);
x_55 = lean::box(0);
}
x_54 = l_Lean_IR_NormalizeIds_normIndex(x_51, x_1);
lean::dec(x_51);
if (lean::is_scalar(x_53)) {
x_56 = lean::alloc_cnstr(5, 3, 0);
x_56 = l_Lean_IR_NormalizeIds_normIndex(x_53, x_1);
lean::dec(x_53);
if (lean::is_scalar(x_55)) {
x_58 = lean::alloc_cnstr(5, 3, 0);
} else {
x_56 = x_53;
x_58 = x_55;
}
lean::cnstr_set(x_56, 0, x_47);
lean::cnstr_set(x_56, 1, x_49);
lean::cnstr_set(x_56, 2, x_54);
return x_56;
lean::cnstr_set(x_58, 0, x_49);
lean::cnstr_set(x_58, 1, x_51);
lean::cnstr_set(x_58, 2, x_56);
return x_58;
}
case 6:
{
obj* x_57; obj* x_59; obj* x_61; obj* x_62; obj* x_63; obj* x_64;
x_57 = lean::cnstr_get(x_0, 0);
x_59 = lean::cnstr_get(x_0, 1);
obj* x_59; obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66;
x_59 = lean::cnstr_get(x_0, 0);
x_61 = lean::cnstr_get(x_0, 1);
if (lean::is_exclusive(x_0)) {
x_61 = x_0;
x_63 = x_0;
} else {
lean::inc(x_57);
lean::inc(x_59);
lean::inc(x_61);
lean::dec(x_0);
x_61 = lean::box(0);
x_63 = lean::box(0);
}
x_62 = lean::mk_nat_obj(0ul);
x_63 = l_Array_hmmapAux___main___at_Lean_IR_NormalizeIds_normArgs___spec__1(x_1, x_62, x_59);
if (lean::is_scalar(x_61)) {
x_64 = lean::alloc_cnstr(6, 2, 0);
x_64 = lean::mk_nat_obj(0ul);
x_65 = l_Array_hmmapAux___main___at_Lean_IR_NormalizeIds_normArgs___spec__1(x_1, x_64, x_61);
if (lean::is_scalar(x_63)) {
x_66 = lean::alloc_cnstr(6, 2, 0);
} else {
x_64 = x_61;
x_66 = x_63;
}
lean::cnstr_set(x_64, 0, x_57);
lean::cnstr_set(x_64, 1, x_63);
return x_64;
lean::cnstr_set(x_66, 0, x_59);
lean::cnstr_set(x_66, 1, x_65);
return x_66;
}
case 7:
{
obj* x_65; obj* x_67; obj* x_69; obj* x_70; obj* x_71; obj* x_72;
x_65 = lean::cnstr_get(x_0, 0);
x_67 = lean::cnstr_get(x_0, 1);
obj* x_67; obj* x_69; obj* x_71; obj* x_72; obj* x_73; obj* x_74;
x_67 = lean::cnstr_get(x_0, 0);
x_69 = lean::cnstr_get(x_0, 1);
if (lean::is_exclusive(x_0)) {
x_69 = x_0;
x_71 = x_0;
} else {
lean::inc(x_65);
lean::inc(x_67);
lean::inc(x_69);
lean::dec(x_0);
x_69 = lean::box(0);
x_71 = lean::box(0);
}
x_70 = lean::mk_nat_obj(0ul);
x_71 = l_Array_hmmapAux___main___at_Lean_IR_NormalizeIds_normArgs___spec__1(x_1, x_70, x_67);
if (lean::is_scalar(x_69)) {
x_72 = lean::alloc_cnstr(7, 2, 0);
x_72 = lean::mk_nat_obj(0ul);
x_73 = l_Array_hmmapAux___main___at_Lean_IR_NormalizeIds_normArgs___spec__1(x_1, x_72, x_69);
if (lean::is_scalar(x_71)) {
x_74 = lean::alloc_cnstr(7, 2, 0);
} else {
x_72 = x_69;
x_74 = x_71;
}
lean::cnstr_set(x_72, 0, x_65);
lean::cnstr_set(x_72, 1, x_71);
return x_72;
lean::cnstr_set(x_74, 0, x_67);
lean::cnstr_set(x_74, 1, x_73);
return x_74;
}
case 8:
{
obj* x_73; obj* x_75; obj* x_77; obj* x_79; obj* x_81; obj* x_82; obj* x_83;
x_73 = lean::cnstr_get(x_0, 0);
x_75 = lean::cnstr_get(x_0, 1);
obj* x_75; obj* x_77; obj* x_79; obj* x_81; obj* x_83; obj* x_84; obj* x_85;
x_75 = lean::cnstr_get(x_0, 0);
x_77 = lean::cnstr_get(x_0, 1);
if (lean::is_exclusive(x_0)) {
x_77 = x_0;
x_79 = x_0;
} else {
lean::inc(x_73);
lean::inc(x_75);
lean::inc(x_77);
lean::dec(x_0);
x_77 = lean::box(0);
x_79 = lean::box(0);
}
lean::inc(x_1);
x_79 = l_Lean_IR_NormalizeIds_normIndex(x_73, x_1);
lean::dec(x_73);
x_81 = lean::mk_nat_obj(0ul);
x_82 = l_Array_hmmapAux___main___at_Lean_IR_NormalizeIds_normArgs___spec__1(x_1, x_81, x_75);
if (lean::is_scalar(x_77)) {
x_83 = lean::alloc_cnstr(8, 2, 0);
x_81 = l_Lean_IR_NormalizeIds_normIndex(x_75, x_1);
lean::dec(x_75);
x_83 = lean::mk_nat_obj(0ul);
x_84 = l_Array_hmmapAux___main___at_Lean_IR_NormalizeIds_normArgs___spec__1(x_1, x_83, x_77);
if (lean::is_scalar(x_79)) {
x_85 = lean::alloc_cnstr(8, 2, 0);
} else {
x_83 = x_77;
x_85 = x_79;
}
lean::cnstr_set(x_83, 0, x_79);
lean::cnstr_set(x_83, 1, x_82);
return x_83;
lean::cnstr_set(x_85, 0, x_81);
lean::cnstr_set(x_85, 1, x_84);
return x_85;
}
case 9:
{
uint8 x_84; obj* x_85; obj* x_87; obj* x_88; obj* x_90; obj* x_91;
x_84 = lean::cnstr_get_scalar<uint8>(x_0, sizeof(void*)*1);
x_85 = lean::cnstr_get(x_0, 0);
uint8 x_86; obj* x_87; obj* x_89; obj* x_90; obj* x_92; obj* x_93;
x_86 = lean::cnstr_get_scalar<uint8>(x_0, sizeof(void*)*1);
x_87 = lean::cnstr_get(x_0, 0);
if (lean::is_exclusive(x_0)) {
x_87 = x_0;
x_89 = x_0;
} else {
lean::inc(x_85);
lean::inc(x_87);
lean::dec(x_0);
x_87 = lean::box(0);
x_89 = lean::box(0);
}
x_88 = l_Lean_IR_NormalizeIds_normIndex(x_85, x_1);
lean::dec(x_85);
if (lean::is_scalar(x_87)) {
x_90 = lean::alloc_cnstr(9, 1, 1);
x_90 = l_Lean_IR_NormalizeIds_normIndex(x_87, x_1);
lean::dec(x_87);
if (lean::is_scalar(x_89)) {
x_92 = lean::alloc_cnstr(9, 1, 1);
} else {
x_90 = x_87;
x_92 = x_89;
}
lean::cnstr_set(x_90, 0, x_88);
lean::cnstr_set_scalar(x_90, sizeof(void*)*1, x_84);
x_91 = x_90;
return x_91;
lean::cnstr_set(x_92, 0, x_90);
lean::cnstr_set_scalar(x_92, sizeof(void*)*1, x_86);
x_93 = x_92;
return x_93;
}
case 10:
{
obj* x_92; obj* x_94; obj* x_95; obj* x_97;
x_92 = lean::cnstr_get(x_0, 0);
obj* x_94; obj* x_96; obj* x_97; obj* x_99;
x_94 = lean::cnstr_get(x_0, 0);
if (lean::is_exclusive(x_0)) {
x_94 = x_0;
x_96 = x_0;
} else {
lean::inc(x_92);
lean::inc(x_94);
lean::dec(x_0);
x_94 = lean::box(0);
x_96 = lean::box(0);
}
x_95 = l_Lean_IR_NormalizeIds_normIndex(x_92, x_1);
lean::dec(x_92);
if (lean::is_scalar(x_94)) {
x_97 = lean::alloc_cnstr(10, 1, 0);
x_97 = l_Lean_IR_NormalizeIds_normIndex(x_94, x_1);
lean::dec(x_94);
if (lean::is_scalar(x_96)) {
x_99 = lean::alloc_cnstr(10, 1, 0);
} else {
x_97 = x_94;
x_99 = x_96;
}
lean::cnstr_set(x_97, 0, x_95);
return x_97;
lean::cnstr_set(x_99, 0, x_97);
return x_99;
}
case 11:
{
@ -2234,45 +2237,45 @@ return x_0;
}
case 12:
{
obj* x_99; obj* x_101; obj* x_102; obj* x_104;
x_99 = lean::cnstr_get(x_0, 0);
obj* x_101; obj* x_103; obj* x_104; obj* x_106;
x_101 = lean::cnstr_get(x_0, 0);
if (lean::is_exclusive(x_0)) {
x_101 = x_0;
x_103 = x_0;
} else {
lean::inc(x_99);
lean::inc(x_101);
lean::dec(x_0);
x_101 = lean::box(0);
x_103 = lean::box(0);
}
x_102 = l_Lean_IR_NormalizeIds_normIndex(x_99, x_1);
lean::dec(x_99);
if (lean::is_scalar(x_101)) {
x_104 = lean::alloc_cnstr(12, 1, 0);
x_104 = l_Lean_IR_NormalizeIds_normIndex(x_101, x_1);
lean::dec(x_101);
if (lean::is_scalar(x_103)) {
x_106 = lean::alloc_cnstr(12, 1, 0);
} else {
x_104 = x_101;
x_106 = x_103;
}
lean::cnstr_set(x_104, 0, x_102);
return x_104;
lean::cnstr_set(x_106, 0, x_104);
return x_106;
}
default:
{
obj* x_105; obj* x_107; obj* x_108; obj* x_110;
x_105 = lean::cnstr_get(x_0, 0);
obj* x_107; obj* x_109; obj* x_110; obj* x_112;
x_107 = lean::cnstr_get(x_0, 0);
if (lean::is_exclusive(x_0)) {
x_107 = x_0;
x_109 = x_0;
} else {
lean::inc(x_105);
lean::inc(x_107);
lean::dec(x_0);
x_107 = lean::box(0);
x_109 = lean::box(0);
}
x_108 = l_Lean_IR_NormalizeIds_normIndex(x_105, x_1);
lean::dec(x_105);
if (lean::is_scalar(x_107)) {
x_110 = lean::alloc_cnstr(13, 1, 0);
x_110 = l_Lean_IR_NormalizeIds_normIndex(x_107, x_1);
lean::dec(x_107);
if (lean::is_scalar(x_109)) {
x_112 = lean::alloc_cnstr(13, 1, 0);
} else {
x_110 = x_107;
x_112 = x_109;
}
lean::cnstr_set(x_110, 0, x_108);
return x_110;
lean::cnstr_set(x_112, 0, x_110);
return x_112;
}
}
}

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

@ -52,6 +52,7 @@ obj* l_RBNode_fold___main___at___private_init_lean_compiler_ir_rc_2__addDecForAl
obj* l_Array_hmmapAux___main___at_Lean_IR_ExplicitRC_visitFnBody___main___spec__1(obj*, obj*, obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_rc_14__addDecIfNeeded(obj*, obj*, obj*, obj*);
uint8 l_Nat_anyAux___main___at___private_init_lean_compiler_ir_rc_8__addIncBefore___spec__5(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_IR_findEnvDecl_x_27(obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_rc_7__addIncBeforeAux(obj*, obj*, obj*, obj*, obj*);
obj* l_Array_miterateAux___main___at_Lean_IR_ExplicitRC_updateVarInfoWithParams___spec__1(obj*, obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_rc_8__addIncBefore___boxed(obj*, obj*, obj*, obj*, obj*);
@ -129,7 +130,6 @@ obj* l_Nat_foldAux___main___at___private_init_lean_compiler_ir_rc_5__getNumConsu
uint8 l_Nat_anyAux___main___at___private_init_lean_compiler_ir_rc_6__isBorrowParam___spec__1(obj*, obj*, obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_rc_1__updateRefUsingCtorInfo___boxed(obj*, obj*, obj*);
obj* l_RBNode_insert___at___private_init_lean_compiler_ir_rc_1__updateRefUsingCtorInfo___spec__1(obj*, obj*, obj*);
obj* l_Lean_IR_findDeclAux_x_27(obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_rc_5__getNumConsumptions___at___private_init_lean_compiler_ir_rc_9__addIncBeforeConsumeAll___spec__2___boxed(obj*, obj*);
obj* l___private_init_lean_compiler_ir_rc_15__processVDecl___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Nat_foldAux___main___at___private_init_lean_compiler_ir_rc_8__addIncBefore___spec__3(obj*, obj*, obj*, obj*, obj*, obj*);
@ -175,7 +175,7 @@ _start:
obj* x_2; obj* x_3; obj* x_4;
x_2 = lean::cnstr_get(x_0, 0);
x_3 = lean::cnstr_get(x_0, 1);
x_4 = l_Lean_IR_findDeclAux_x_27(x_2, x_1, x_3);
x_4 = l_Lean_IR_findEnvDecl_x_27(x_2, x_1, x_3);
if (lean::obj_tag(x_4) == 0)
{
obj* x_5;

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

@ -500,7 +500,7 @@ return x_1;
obj* l___private_init_lean_compiler_ir_resetreuse_4__tryS(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5; obj* x_6; obj* x_8; obj* x_10; obj* x_13; uint8 x_16;
obj* x_5; obj* x_6; obj* x_8; obj* x_10; obj* x_14; uint8 x_17;
x_5 = l___private_init_lean_compiler_ir_resetreuse_3__mkFresh___rarg(x_4);
x_6 = lean::cnstr_get(x_5, 0);
x_8 = lean::cnstr_get(x_5, 1);
@ -515,48 +515,54 @@ if (lean::is_exclusive(x_5)) {
x_10 = lean::box(0);
}
lean::inc(x_2);
lean::inc(x_1);
lean::inc(x_6);
x_13 = l___private_init_lean_compiler_ir_resetreuse_2__S___main(x_6, x_1, x_2);
lean::inc(x_13);
x_14 = l___private_init_lean_compiler_ir_resetreuse_2__S___main(x_6, x_1, x_2);
lean::inc(x_14);
lean::inc(x_2);
x_16 = l_Lean_IR_FnBody_beq(x_2, x_13);
if (x_16 == 0)
x_17 = l_Lean_IR_FnBody_beq(x_2, x_14);
if (x_17 == 0)
{
obj* x_18; uint8 x_19; obj* x_20; obj* x_21; obj* x_22;
obj* x_19; obj* x_22; uint8 x_23; obj* x_24; obj* x_25; obj* x_26;
lean::dec(x_2);
x_18 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_18, 0, x_0);
x_19 = 7;
x_20 = lean::alloc_cnstr(0, 3, 1);
lean::cnstr_set(x_20, 0, x_6);
lean::cnstr_set(x_20, 1, x_18);
lean::cnstr_set(x_20, 2, x_13);
lean::cnstr_set_scalar(x_20, sizeof(void*)*3, x_19);
x_21 = x_20;
if (lean::is_scalar(x_10)) {
x_22 = lean::alloc_cnstr(0, 2, 0);
} else {
x_22 = x_10;
}
lean::cnstr_set(x_22, 0, x_21);
lean::cnstr_set(x_22, 1, x_8);
return x_22;
}
else
{
obj* x_26;
lean::dec(x_13);
lean::dec(x_6);
lean::dec(x_0);
x_19 = lean::cnstr_get(x_1, 2);
lean::inc(x_19);
lean::dec(x_1);
x_22 = lean::alloc_cnstr(1, 2, 0);
lean::cnstr_set(x_22, 0, x_19);
lean::cnstr_set(x_22, 1, x_0);
x_23 = 7;
x_24 = lean::alloc_cnstr(0, 3, 1);
lean::cnstr_set(x_24, 0, x_6);
lean::cnstr_set(x_24, 1, x_22);
lean::cnstr_set(x_24, 2, x_14);
lean::cnstr_set_scalar(x_24, sizeof(void*)*3, x_23);
x_25 = x_24;
if (lean::is_scalar(x_10)) {
x_26 = lean::alloc_cnstr(0, 2, 0);
} else {
x_26 = x_10;
}
lean::cnstr_set(x_26, 0, x_2);
lean::cnstr_set(x_26, 0, x_25);
lean::cnstr_set(x_26, 1, x_8);
return x_26;
}
else
{
obj* x_31;
lean::dec(x_14);
lean::dec(x_1);
lean::dec(x_6);
lean::dec(x_0);
if (lean::is_scalar(x_10)) {
x_31 = lean::alloc_cnstr(0, 2, 0);
} else {
x_31 = x_10;
}
lean::cnstr_set(x_31, 0, x_2);
lean::cnstr_set(x_31, 1, x_8);
return x_31;
}
}
}
obj* l___private_init_lean_compiler_ir_resetreuse_4__tryS___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {

202
src/stage0/init/lean/extern.cpp generated
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: init.lean.extern
// Imports: init.lean.expr init.data.option.basic
// Imports: init.lean.expr init.data.option.basic init.lean.environment
#include "runtime/object.h"
#include "runtime/apply.h"
typedef lean::object obj; typedef lean::usize usize;
@ -21,6 +21,8 @@ obj* mk_extern_attr_data_core(obj*, obj*);
}
obj* l_Lean_expandExternPatternAux(obj*, obj*, obj*, obj*);
extern obj* l_String_foldlAux___main___at_String_toNat___spec__1___closed__1;
obj* l_Lean_getExternNameFor(obj*, obj*, obj*);
obj* l_Lean_getExternNameFor___boxed(obj*, obj*, obj*);
extern "C" uint8 lean_name_dec_eq(obj*, obj*);
obj* l_Lean_ExternEntry_backend(obj*);
namespace lean {
@ -52,11 +54,13 @@ namespace lean {
obj* expand_extern_pattern_core(obj*, obj*);
}
obj* l_String_Iterator_next___main(obj*);
extern "C" obj* lean_get_extern_attr_data(obj*, obj*);
namespace lean {
obj* string_append(obj*, obj*);
}
extern obj* l_List_reprAux___main___rarg___closed__1;
extern obj* l_Option_HasRepr___rarg___closed__3;
uint8 l_Lean_isExternC(obj*, obj*);
obj* l_Lean_expandExternPatternAux___main(obj*, obj*, obj*, obj*);
extern "C" obj* lean_name_mk_string(obj*, obj*);
namespace lean {
@ -70,6 +74,7 @@ namespace lean {
obj* mk_inline_ext_entry_core(obj*, obj*);
}
obj* l___private_init_lean_extern_1__parseOptNum(obj*, obj*, obj*);
obj* l_Lean_getExternAttrData___boxed(obj*, obj*);
obj* l_Lean_getExternEntryForAux(obj*, obj*);
obj* l_Lean_getExternEntryForAux___main___boxed(obj*, obj*);
obj* l___private_init_lean_extern_1__parseOptNum___main(obj*, obj*, obj*);
@ -91,6 +96,7 @@ namespace lean {
obj* nat_mul(obj*, obj*);
}
obj* l_Lean_ExternEntry_backend___main(obj*);
obj* l_Lean_isExternC___boxed(obj*, obj*);
extern obj* l_String_splitAux___main___closed__1;
obj* l_Lean_mkSimpleFnCall(obj*, obj*);
namespace lean {
@ -610,8 +616,200 @@ return x_9;
}
}
}
obj* l_Lean_getExternAttrData___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean_get_extern_attr_data(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
uint8 l_Lean_isExternC(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean_get_extern_attr_data(x_0, x_1);
if (lean::obj_tag(x_2) == 0)
{
uint8 x_3;
x_3 = 0;
return x_3;
}
else
{
obj* x_4; obj* x_7;
x_4 = lean::cnstr_get(x_2, 0);
lean::inc(x_4);
lean::dec(x_2);
x_7 = lean::cnstr_get(x_4, 1);
lean::inc(x_7);
lean::dec(x_4);
if (lean::obj_tag(x_7) == 0)
{
uint8 x_10;
x_10 = 0;
return x_10;
}
else
{
obj* x_11;
x_11 = lean::cnstr_get(x_7, 0);
lean::inc(x_11);
switch (lean::obj_tag(x_11)) {
case 2:
{
obj* x_13; obj* x_16; obj* x_19; uint8 x_20;
x_13 = lean::cnstr_get(x_7, 1);
lean::inc(x_13);
lean::dec(x_7);
x_16 = lean::cnstr_get(x_11, 0);
lean::inc(x_16);
lean::dec(x_11);
x_19 = l_Lean_getExternEntryForAux___main___closed__1;
x_20 = lean_name_dec_eq(x_16, x_19);
lean::dec(x_16);
if (x_20 == 0)
{
uint8 x_23;
lean::dec(x_13);
x_23 = 0;
return x_23;
}
else
{
if (lean::obj_tag(x_13) == 0)
{
uint8 x_24;
x_24 = 1;
return x_24;
}
else
{
uint8 x_26;
lean::dec(x_13);
x_26 = 0;
return x_26;
}
}
}
default:
{
uint8 x_29;
lean::dec(x_11);
lean::dec(x_7);
x_29 = 0;
return x_29;
}
}
}
}
}
}
obj* l_Lean_isExternC___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; obj* x_3;
x_2 = l_Lean_isExternC(x_0, x_1);
x_3 = lean::box(x_2);
lean::dec(x_0);
lean::dec(x_1);
return x_3;
}
}
obj* l_Lean_getExternNameFor(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = lean_get_extern_attr_data(x_0, x_2);
if (lean::obj_tag(x_3) == 0)
{
obj* x_5;
lean::dec(x_1);
x_5 = lean::box(0);
return x_5;
}
else
{
obj* x_6; obj* x_9;
x_6 = lean::cnstr_get(x_3, 0);
lean::inc(x_6);
lean::dec(x_3);
x_9 = lean::get_extern_entry_for_core(x_6, x_1);
if (lean::obj_tag(x_9) == 0)
{
obj* x_10;
x_10 = lean::box(0);
return x_10;
}
else
{
obj* x_11; obj* x_13;
x_11 = lean::cnstr_get(x_9, 0);
if (lean::is_exclusive(x_9)) {
lean::cnstr_set(x_9, 0, lean::box(0));
x_13 = x_9;
} else {
lean::inc(x_11);
lean::dec(x_9);
x_13 = lean::box(0);
}
switch (lean::obj_tag(x_11)) {
case 2:
{
obj* x_14; obj* x_17;
x_14 = lean::cnstr_get(x_11, 1);
lean::inc(x_14);
lean::dec(x_11);
if (lean::is_scalar(x_13)) {
x_17 = lean::alloc_cnstr(1, 1, 0);
} else {
x_17 = x_13;
}
lean::cnstr_set(x_17, 0, x_14);
return x_17;
}
case 3:
{
obj* x_18; obj* x_21;
x_18 = lean::cnstr_get(x_11, 1);
lean::inc(x_18);
lean::dec(x_11);
if (lean::is_scalar(x_13)) {
x_21 = lean::alloc_cnstr(1, 1, 0);
} else {
x_21 = x_13;
}
lean::cnstr_set(x_21, 0, x_18);
return x_21;
}
default:
{
obj* x_24;
lean::dec(x_11);
lean::dec(x_13);
x_24 = lean::box(0);
return x_24;
}
}
}
}
}
}
obj* l_Lean_getExternNameFor___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_Lean_getExternNameFor(x_0, x_1, x_2);
lean::dec(x_0);
lean::dec(x_2);
return x_3;
}
}
obj* initialize_init_lean_expr(obj*);
obj* initialize_init_data_option_basic(obj*);
obj* initialize_init_lean_environment(obj*);
static bool _G_initialized = false;
obj* initialize_init_lean_extern(obj* w) {
if (_G_initialized) return w;
@ -620,6 +818,8 @@ if (io_result_is_error(w)) return w;
w = initialize_init_lean_expr(w);
if (io_result_is_error(w)) return w;
w = initialize_init_data_option_basic(w);
if (io_result_is_error(w)) return w;
w = initialize_init_lean_environment(w);
if (io_result_is_error(w)) return w;
l_Lean_getExternEntryForAux___main___closed__1 = _init_l_Lean_getExternEntryForAux___main___closed__1();
lean::mark_persistent(l_Lean_getExternEntryForAux___main___closed__1);

144
src/stage0/init/lean/name_mangling.cpp generated
View file

@ -16,12 +16,12 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#endif
obj* l_Lean_Name_mangle(obj*, obj*);
uint32 l_String_Iterator_curr___main(obj*);
extern "C" uint8 lean_name_dec_eq(obj*, obj*);
namespace lean {
obj* nat_sub(obj*, obj*);
}
obj* l_Lean_Name_mangle___boxed(obj*, obj*);
obj* l___private_init_lean_name__mangling_2__Name_mangleAux___main(obj*, obj*);
obj* l___private_init_lean_name__mangling_2__Name_mangleAux(obj*, obj*);
obj* l___private_init_lean_name__mangling_2__Name_mangleAux___main(obj*);
obj* l___private_init_lean_name__mangling_2__Name_mangleAux(obj*);
uint8 l_Char_isAlpha(uint32);
obj* l___private_init_lean_name__mangling_1__String_mangleAux___main___closed__3;
namespace lean {
@ -45,8 +45,6 @@ obj* l_Lean_String_mangle(obj*);
obj* l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__1;
uint8 l_Char_isDigit(uint32);
obj* l___private_init_lean_name__mangling_1__String_mangleAux___main___closed__2;
obj* l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__2;
obj* l___private_init_lean_name__mangling_2__Name_mangleAux___main___boxed(obj*, obj*);
obj* l___private_init_lean_name__mangling_1__String_mangleAux(obj*, obj*, obj*);
obj* l___private_init_lean_name__mangling_1__String_mangleAux___main___closed__1;
namespace lean {
@ -55,7 +53,6 @@ uint32 uint32_of_nat(obj*);
namespace lean {
obj* nat_div(obj*, obj*);
}
obj* l___private_init_lean_name__mangling_2__Name_mangleAux___boxed(obj*, obj*);
namespace lean {
obj* uint32_to_nat(uint32);
}
@ -243,110 +240,83 @@ obj* _init_l___private_init_lean_name__mangling_2__Name_mangleAux___main___close
_start:
{
obj* x_0;
x_0 = lean::mk_string("_s");
return x_0;
}
}
obj* _init_l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__2() {
_start:
{
obj* x_0;
x_0 = lean::mk_string("_");
return x_0;
}
}
obj* l___private_init_lean_name__mangling_2__Name_mangleAux___main(obj* x_0, obj* x_1) {
obj* l___private_init_lean_name__mangling_2__Name_mangleAux___main(obj* x_0) {
_start:
{
switch (lean::obj_tag(x_1)) {
switch (lean::obj_tag(x_0)) {
case 0:
{
lean::inc(x_0);
return x_0;
obj* x_1;
x_1 = l_String_splitAux___main___closed__1;
return x_1;
}
case 1:
{
obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18;
x_3 = lean::cnstr_get(x_1, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_1, 1);
lean::inc(x_5);
lean::dec(x_1);
x_8 = l___private_init_lean_name__mangling_2__Name_mangleAux___main(x_0, x_3);
x_9 = l_Lean_String_mangle(x_5);
x_10 = l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__1;
x_11 = lean::string_append(x_8, x_10);
x_12 = lean::string_length(x_9);
x_13 = l_Nat_repr(x_12);
x_14 = lean::string_append(x_11, x_13);
lean::dec(x_13);
x_16 = l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__2;
x_17 = lean::string_append(x_14, x_16);
x_18 = lean::string_append(x_17, x_9);
lean::dec(x_9);
return x_18;
obj* x_2; obj* x_4; obj* x_7; obj* x_8; uint8 x_9;
x_2 = lean::cnstr_get(x_0, 0);
lean::inc(x_2);
x_4 = lean::cnstr_get(x_0, 1);
lean::inc(x_4);
lean::dec(x_0);
x_7 = l_Lean_String_mangle(x_4);
x_8 = lean::box(0);
x_9 = lean_name_dec_eq(x_2, x_8);
if (x_9 == 0)
{
obj* x_10; obj* x_11; obj* x_12; obj* x_13;
x_10 = l___private_init_lean_name__mangling_2__Name_mangleAux___main(x_2);
x_11 = l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__1;
x_12 = lean::string_append(x_10, x_11);
x_13 = lean::string_append(x_12, x_7);
lean::dec(x_7);
return x_13;
}
else
{
lean::dec(x_2);
return x_7;
}
}
default:
{
obj* x_20; obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31;
x_20 = lean::cnstr_get(x_1, 0);
lean::inc(x_20);
x_22 = lean::cnstr_get(x_1, 1);
lean::inc(x_22);
lean::dec(x_1);
x_25 = l___private_init_lean_name__mangling_2__Name_mangleAux___main(x_0, x_20);
x_26 = l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__2;
x_27 = lean::string_append(x_25, x_26);
x_28 = l_Nat_repr(x_22);
x_29 = lean::string_append(x_27, x_28);
lean::dec(x_28);
x_31 = lean::string_append(x_29, x_26);
return x_31;
}
}
}
}
obj* l___private_init_lean_name__mangling_2__Name_mangleAux___main___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l___private_init_lean_name__mangling_2__Name_mangleAux___main(x_0, x_1);
obj* x_16; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27;
x_16 = lean::cnstr_get(x_0, 0);
lean::inc(x_16);
x_18 = lean::cnstr_get(x_0, 1);
lean::inc(x_18);
lean::dec(x_0);
return x_2;
x_21 = l___private_init_lean_name__mangling_2__Name_mangleAux___main(x_16);
x_22 = l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__1;
x_23 = lean::string_append(x_21, x_22);
x_24 = l_Nat_repr(x_18);
x_25 = lean::string_append(x_23, x_24);
lean::dec(x_24);
x_27 = lean::string_append(x_25, x_22);
return x_27;
}
}
obj* l___private_init_lean_name__mangling_2__Name_mangleAux(obj* x_0, obj* x_1) {
}
}
obj* l___private_init_lean_name__mangling_2__Name_mangleAux(obj* x_0) {
_start:
{
obj* x_2;
x_2 = l___private_init_lean_name__mangling_2__Name_mangleAux___main(x_0, x_1);
return x_2;
}
}
obj* l___private_init_lean_name__mangling_2__Name_mangleAux___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l___private_init_lean_name__mangling_2__Name_mangleAux(x_0, x_1);
lean::dec(x_0);
return x_2;
obj* x_1;
x_1 = l___private_init_lean_name__mangling_2__Name_mangleAux___main(x_0);
return x_1;
}
}
obj* l_Lean_Name_mangle(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l___private_init_lean_name__mangling_2__Name_mangleAux___main(x_1, x_0);
return x_2;
}
}
obj* l_Lean_Name_mangle___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Name_mangle(x_0, x_1);
lean::dec(x_1);
return x_2;
obj* x_2; obj* x_3;
x_2 = l___private_init_lean_name__mangling_2__Name_mangleAux___main(x_0);
x_3 = lean::string_append(x_1, x_2);
lean::dec(x_2);
return x_3;
}
}
obj* initialize_init_lean_name(obj*);
@ -368,7 +338,5 @@ lean::mark_persistent(l___private_init_lean_name__mangling_1__String_mangleAux__
lean::mark_persistent(l___private_init_lean_name__mangling_1__String_mangleAux___main___closed__3);
l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__1 = _init_l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__1();
lean::mark_persistent(l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__1);
l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__2 = _init_l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__2();
lean::mark_persistent(l___private_init_lean_name__mangling_2__Name_mangleAux___main___closed__2);
return w;
}