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

chore: update stage0

Browse source
This commit is contained in:
Lean stage0 autoupdater 2025-08-14 10:47:52 +00:00
parent 6e1451dbd8
commit 49cd03bc29
511 changed files with 112170 additions and 96961 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
stage0/src/stdlib_flags.h
View file

@ -1,7 +1,5 @@
#include "util/options.h"
// Dear CI, please update stage 0
namespace lean {
options get_default_options() {
options opts;

69
stage0/stdlib/Init/Data/Array/Basic.c generated
View file

@ -145,6 +145,7 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe
LEAN_EXPORT lean_object* l_Array_filter___redArg___lam__0(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldrMUnsafe_fold___redArg___lam__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_swapIfInBounds___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_flatMapM___redArg(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_unzip(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_findSomeRevM_x3f_find___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -434,6 +435,7 @@ LEAN_EXPORT lean_object* l_Array_mapFinIdxM_map___redArg___boxed(lean_object*, l
LEAN_EXPORT lean_object* l_Array_idxOf_x3f___redArg___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_findSome_x3f(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_findRev_x3f___redArg___lam__0(lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_eraseIdx_x21(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_instInhabited(lean_object*);
LEAN_EXPORT lean_object* l_Array_range_x27(lean_object*, lean_object*, lean_object*);
@ -660,7 +662,6 @@ lean_object* l_Id_instMonad___lam__0(lean_object*, lean_object*, lean_object*, l
lean_object* l_Lean_mkAtom(lean_object*);
static lean_object* l_term_x23_x5b___x2c_x5d___closed__3;
LEAN_EXPORT uint8_t l_Array_all___redArg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_count(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_findM_x3f(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
@ -1672,9 +1673,11 @@ lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_ob
x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_4, x_7);
lean_dec(x_4);
x_9 = lean_array_fget(x_1, x_8);
x_10 = lean_array_fget(x_2, x_8);
x_9 = lean_array_fget_borrowed(x_1, x_8);
x_10 = lean_array_fget_borrowed(x_2, x_8);
lean_inc_ref(x_3);
lean_inc(x_10);
lean_inc(x_9);
x_11 = lean_apply_2(x_3, x_9, x_10);
x_12 = lean_unbox(x_11);
if (x_12 == 0)
@ -2006,8 +2009,9 @@ x_3 = lean_array_get_size(x_2);
x_4 = lean_unsigned_to_nat(1u);
x_5 = lean_nat_sub(x_3, x_4);
lean_dec(x_3);
x_6 = lean_array_get(x_1, x_2, x_5);
x_6 = lean_array_get_borrowed(x_1, x_2, x_5);
lean_dec(x_5);
lean_inc(x_6);
return x_6;
}
}
@ -2053,8 +2057,9 @@ x_2 = lean_array_get_size(x_1);
x_3 = lean_unsigned_to_nat(1u);
x_4 = lean_nat_sub(x_2, x_3);
lean_dec(x_2);
x_5 = lean_array_fget(x_1, x_4);
x_5 = lean_array_fget_borrowed(x_1, x_4);
lean_dec(x_4);
lean_inc(x_5);
return x_5;
}
}
@ -2103,8 +2108,9 @@ return x_6;
else
{
lean_object* x_7; lean_object* x_8;
x_7 = lean_array_fget(x_1, x_4);
x_7 = lean_array_fget_borrowed(x_1, x_4);
lean_dec(x_4);
lean_inc(x_7);
x_8 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_8, 0, x_7);
return x_8;
@ -2153,7 +2159,8 @@ return x_5;
else
{
lean_object* x_6; lean_object* x_7;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
lean_inc(x_6);
x_7 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_7, 0, x_6);
return x_7;
@ -6593,8 +6600,9 @@ lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_o
x_8 = lean_unsigned_to_nat(1u);
x_9 = lean_nat_sub(x_3, x_8);
lean_dec(x_3);
x_10 = lean_array_fget(x_2, x_4);
x_10 = lean_array_fget_borrowed(x_2, x_4);
x_11 = lean_nat_add(x_1, x_4);
lean_inc(x_10);
x_12 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_12, 0, x_10);
lean_ctor_set(x_12, 1, x_11);
@ -7110,8 +7118,9 @@ return x_6;
else
{
lean_object* x_7; lean_object* x_8; uint8_t x_9;
x_7 = lean_array_fget(x_2, x_3);
x_7 = lean_array_fget_borrowed(x_2, x_3);
lean_inc_ref(x_1);
lean_inc(x_7);
x_8 = lean_apply_1(x_1, x_7);
x_9 = lean_unbox(x_8);
if (x_9 == 0)
@ -7214,8 +7223,9 @@ return x_6;
else
{
lean_object* x_7; lean_object* x_8; uint8_t x_9;
x_7 = lean_array_fget(x_2, x_3);
x_7 = lean_array_fget_borrowed(x_2, x_3);
lean_inc_ref(x_1);
lean_inc(x_7);
x_8 = lean_apply_1(x_1, x_7);
x_9 = lean_unbox(x_8);
if (x_9 == 0)
@ -7381,9 +7391,10 @@ return x_7;
else
{
lean_object* x_8; lean_object* x_9; uint8_t x_10;
x_8 = lean_array_fget(x_2, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
lean_inc_ref(x_1);
lean_inc(x_3);
lean_inc(x_8);
x_9 = lean_apply_2(x_1, x_8, x_3);
x_10 = lean_unbox(x_9);
if (x_10 == 0)
@ -9743,9 +9754,10 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_4, x_6);
lean_dec(x_4);
x_8 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_2, x_7);
lean_dec(x_7);
lean_inc_ref(x_1);
lean_inc(x_8);
x_9 = lean_apply_1(x_1, x_8);
x_10 = lean_unbox(x_9);
if (x_10 == 0)
@ -9787,14 +9799,13 @@ return x_4;
else
{
lean_object* x_7; lean_object* x_8; uint8_t x_9;
x_7 = lean_array_fget(x_2, x_3);
x_7 = lean_array_fget_borrowed(x_2, x_3);
lean_inc_ref(x_1);
lean_inc(x_7);
x_8 = lean_apply_1(x_1, x_7);
x_9 = lean_unbox(x_8);
if (x_9 == 0)
{
lean_dec(x_7);
lean_dec(x_3);
lean_dec_ref(x_1);
return x_4;
@ -9805,6 +9816,7 @@ lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_10 = lean_unsigned_to_nat(1u);
x_11 = lean_nat_add(x_3, x_10);
lean_dec(x_3);
lean_inc(x_7);
x_12 = lean_array_push(x_4, x_7);
x_3 = x_11;
x_4 = x_12;
@ -10314,9 +10326,11 @@ return x_7;
else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
lean_inc_ref(x_1);
lean_inc(x_9);
lean_inc(x_8);
x_10 = lean_apply_2(x_1, x_8, x_9);
x_11 = lean_unbox(x_10);
if (x_11 == 0)
@ -10575,8 +10589,10 @@ return x_4;
else
{
lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14;
x_9 = lean_array_fget(x_1, x_3);
x_10 = lean_array_fget(x_2, x_3);
x_9 = lean_array_fget_borrowed(x_1, x_3);
x_10 = lean_array_fget_borrowed(x_2, x_3);
lean_inc(x_10);
lean_inc(x_9);
x_11 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_11, 0, x_9);
lean_ctor_set(x_11, 1, x_10);
@ -10715,7 +10731,8 @@ goto block_13;
else
{
lean_object* x_18; lean_object* x_19;
x_18 = lean_array_fget(x_3, x_4);
x_18 = lean_array_fget_borrowed(x_3, x_4);
lean_inc(x_18);
x_19 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_19, 0, x_18);
x_6 = x_14;
@ -10750,7 +10767,8 @@ goto block_20;
else
{
lean_object* x_26; lean_object* x_27;
x_26 = lean_array_fget(x_2, x_4);
x_26 = lean_array_fget_borrowed(x_2, x_4);
lean_inc(x_26);
x_27 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_27, 0, x_26);
x_14 = x_27;
@ -11239,12 +11257,13 @@ return x_6;
else
{
lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_7 = lean_array_fget(x_2, x_3);
x_7 = lean_array_fget_borrowed(x_2, x_3);
x_8 = l_Array_filter___redArg___closed__0;
x_9 = l_Array_foldl___redArg___closed__9;
if (x_5 == 0)
{
lean_object* x_10;
lean_inc(x_7);
lean_dec(x_4);
lean_dec_ref(x_2);
lean_dec_ref(x_1);
@ -11258,6 +11277,7 @@ x_11 = lean_nat_dec_le(x_4, x_4);
if (x_11 == 0)
{
lean_object* x_12;
lean_inc(x_7);
lean_dec(x_4);
lean_dec_ref(x_2);
lean_dec_ref(x_1);
@ -11269,6 +11289,7 @@ else
lean_object* x_13; lean_object* x_14; size_t x_15; size_t x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20;
x_13 = lean_alloc_closure((void*)(l_Array_eraseReps___redArg___lam__0), 3, 1);
lean_closure_set(x_13, 0, x_1);
lean_inc(x_7);
x_14 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_14, 0, x_7);
lean_ctor_set(x_14, 1, x_8);
@ -11315,8 +11336,9 @@ lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t
x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_4, x_7);
lean_dec(x_4);
x_9 = lean_array_fget(x_2, x_8);
x_9 = lean_array_fget_borrowed(x_2, x_8);
lean_inc_ref(x_1);
lean_inc(x_9);
lean_inc(x_3);
x_10 = lean_apply_2(x_1, x_3, x_9);
x_11 = lean_unbox(x_10);
@ -11381,8 +11403,9 @@ return x_6;
else
{
lean_object* x_7; uint8_t x_8;
x_7 = lean_array_fget(x_2, x_3);
x_7 = lean_array_fget_borrowed(x_2, x_3);
lean_inc(x_3);
lean_inc(x_7);
lean_inc_ref(x_1);
x_8 = l___private_Init_Data_Array_Basic_0__Array_allDiffAuxAux___redArg(x_1, x_2, x_7, x_3);
if (x_8 == 0)

29
stage0/stdlib/Init/Data/Array/BinSearch.c generated
View file

@ -23,6 +23,7 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_BinSearch_0__Array_binInser
LEAN_EXPORT lean_object* l_Array_binInsert___redArg___lam__0(lean_object*, lean_object*);
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_binInsertM___redArg___lam__0(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Array_binInsert___redArg___closed__6;
static lean_object* l_Array_binSearchContains___redArg___closed__0;
@ -50,7 +51,6 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_BinSearch_0__Array_binInser
LEAN_EXPORT lean_object* l___private_Init_Data_Array_BinSearch_0__Array_binInsertAux___redArg___lam__1(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_BinSearch_0__Array_binInsertAux___redArg___lam__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_BinSearch_0__Array_binInsertAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_binInsertM___redArg___lam__3(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_binSearch___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Id_instMonad___lam__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -90,7 +90,7 @@ x_10 = lean_nat_add(x_5, x_6);
x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_shiftr(x_10, x_11);
lean_dec(x_10);
x_13 = lean_array_fget(x_3, x_12);
x_13 = lean_array_fget_borrowed(x_3, x_12);
lean_inc_ref(x_1);
lean_inc(x_4);
lean_inc(x_13);
@ -112,6 +112,7 @@ lean_dec(x_12);
lean_dec(x_5);
lean_dec(x_4);
lean_dec_ref(x_1);
lean_inc(x_13);
x_18 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_18, 0, x_13);
x_19 = lean_apply_1(x_2, x_18);
@ -120,7 +121,6 @@ return x_19;
else
{
lean_object* x_20; uint8_t x_21;
lean_dec(x_13);
x_20 = lean_unsigned_to_nat(0u);
x_21 = lean_nat_dec_eq(x_12, x_20);
if (x_21 == 0)
@ -156,7 +156,6 @@ goto block_9;
else
{
lean_object* x_25; uint8_t x_26;
lean_dec(x_13);
lean_dec(x_5);
x_25 = lean_nat_add(x_12, x_11);
lean_dec(x_12);
@ -575,7 +574,7 @@ x_9 = lean_nat_add(x_7, x_8);
x_10 = lean_unsigned_to_nat(1u);
x_11 = lean_nat_shiftr(x_9, x_10);
lean_dec(x_9);
x_12 = lean_array_fget(x_5, x_11);
x_12 = lean_array_fget_borrowed(x_5, x_11);
lean_inc_ref(x_2);
lean_inc(x_6);
lean_inc(x_12);
@ -603,7 +602,6 @@ lean_dec(x_17);
if (x_18 == 0)
{
lean_object* x_19; lean_object* x_20; lean_object* x_21;
lean_dec(x_12);
lean_dec(x_11);
lean_dec_ref(x_3);
x_19 = lean_ctor_get(x_1, 0);
@ -618,6 +616,7 @@ return x_21;
else
{
lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28;
lean_inc(x_12);
x_22 = lean_ctor_get(x_1, 0);
lean_inc_ref(x_22);
x_23 = lean_ctor_get(x_1, 1);
@ -636,7 +635,6 @@ return x_28;
}
else
{
lean_dec(x_12);
x_8 = x_11;
goto _start;
}
@ -644,7 +642,6 @@ goto _start;
else
{
uint8_t x_30;
lean_dec(x_12);
x_30 = lean_nat_dec_eq(x_11, x_7);
if (x_30 == 0)
{
@ -777,7 +774,7 @@ x_9 = lean_nat_dec_eq(x_7, x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11; uint8_t x_12;
x_10 = lean_array_fget(x_5, x_8);
x_10 = lean_array_fget_borrowed(x_5, x_8);
lean_inc_ref(x_2);
lean_inc(x_10);
lean_inc(x_6);
@ -802,7 +799,6 @@ lean_dec(x_7);
if (x_15 == 0)
{
lean_object* x_16; lean_object* x_17; lean_object* x_18;
lean_dec(x_10);
lean_dec_ref(x_3);
x_16 = lean_ctor_get(x_1, 0);
lean_inc_ref(x_16);
@ -816,6 +812,7 @@ return x_18;
else
{
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25;
lean_inc(x_10);
x_19 = lean_ctor_get(x_1, 0);
lean_inc_ref(x_19);
x_20 = lean_ctor_get(x_1, 1);
@ -839,10 +836,9 @@ x_26 = lean_unbox(x_11);
if (x_26 == 0)
{
lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31;
lean_dec(x_10);
x_27 = lean_unsigned_to_nat(1u);
x_28 = lean_nat_sub(x_7, x_27);
x_29 = lean_array_fget(x_5, x_28);
x_29 = lean_array_fget_borrowed(x_5, x_28);
lean_inc_ref(x_2);
lean_inc(x_6);
lean_inc(x_29);
@ -867,7 +863,6 @@ lean_dec(x_7);
if (x_34 == 0)
{
lean_object* x_35; lean_object* x_36; lean_object* x_37;
lean_dec(x_29);
lean_dec(x_28);
lean_dec_ref(x_3);
x_35 = lean_ctor_get(x_1, 0);
@ -882,6 +877,7 @@ return x_37;
else
{
lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44;
lean_inc(x_29);
x_38 = lean_ctor_get(x_1, 0);
lean_inc_ref(x_38);
x_39 = lean_ctor_get(x_1, 1);
@ -905,7 +901,6 @@ x_45 = lean_unbox(x_30);
if (x_45 == 0)
{
lean_object* x_46;
lean_dec(x_29);
lean_dec(x_7);
x_46 = l___private_Init_Data_Array_BinSearch_0__Array_binInsertAux___redArg(x_1, x_2, x_3, x_4, x_5, x_6, x_8, x_28);
return x_46;
@ -921,7 +916,6 @@ lean_dec(x_7);
if (x_47 == 0)
{
lean_object* x_48; lean_object* x_49; lean_object* x_50;
lean_dec(x_29);
lean_dec(x_28);
lean_dec_ref(x_3);
x_48 = lean_ctor_get(x_1, 0);
@ -936,6 +930,7 @@ return x_50;
else
{
lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57;
lean_inc(x_29);
x_51 = lean_ctor_get(x_1, 0);
lean_inc_ref(x_51);
x_52 = lean_ctor_get(x_1, 1);
@ -957,7 +952,6 @@ return x_57;
else
{
lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63;
lean_dec(x_29);
lean_dec(x_28);
lean_dec(x_7);
lean_dec(x_6);
@ -988,7 +982,6 @@ lean_dec(x_7);
if (x_64 == 0)
{
lean_object* x_65; lean_object* x_66; lean_object* x_67;
lean_dec(x_10);
lean_dec_ref(x_3);
x_65 = lean_ctor_get(x_1, 0);
lean_inc_ref(x_65);
@ -1002,6 +995,7 @@ return x_67;
else
{
lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74;
lean_inc(x_10);
x_68 = lean_ctor_get(x_1, 0);
lean_inc_ref(x_68);
x_69 = lean_ctor_get(x_1, 1);
@ -1023,7 +1017,6 @@ return x_74;
else
{
lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80;
lean_dec(x_10);
lean_dec(x_6);
lean_dec_ref(x_3);
lean_dec_ref(x_2);

5
stage0/stdlib/Init/Data/Array/Bootstrap.c generated
View file

@ -17,12 +17,12 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Bootstrap_0__Array_foldlM_l
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Bootstrap_0__Array_forIn_x27_loop_match__3_splitter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_get_x21___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_get(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_get_x21___redArg(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Bootstrap_0__Array_foldlM_loop_match__1_splitter___redArg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_to_list(lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Bootstrap_0__Array_foldlM_loop_match__1_splitter___redArg(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Bootstrap_0__Array_forIn_x27_loop_match__3_splitter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_List_get___redArg(lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
@ -67,7 +67,8 @@ return x_1;
else
{
lean_object* x_6;
x_6 = lean_array_fget(x_2, x_3);
x_6 = lean_array_fget_borrowed(x_2, x_3);
lean_inc(x_6);
return x_6;
}
}

11
stage0/stdlib/Init/Data/Array/GetLit.c generated
View file

@ -16,6 +16,7 @@ extern "C" {
LEAN_EXPORT lean_object* l___private_Init_Data_Array_GetLit_0__Array_toListLitAux_match__1_splitter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_GetLit_0__Array_toListLitAux_match__1_splitter___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_GetLit_0__List_take_match__1_splitter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_toArrayLit___redArg___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_getLit(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_toListLitAux___redArg(lean_object*, lean_object*, lean_object*);
@ -26,7 +27,6 @@ LEAN_EXPORT lean_object* l_Array_toListLitAux___redArg___boxed(lean_object*, lea
LEAN_EXPORT lean_object* l___private_Init_Data_Array_GetLit_0__Array_toListLitAux_match__1_splitter___redArg(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_getLit___redArg___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_toArrayLit(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_getLit___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_GetLit_0__List_take_match__1_splitter___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
@ -41,7 +41,8 @@ LEAN_EXPORT lean_object* l_Array_getLit___redArg(lean_object* x_1, lean_object*
_start:
{
lean_object* x_3;
x_3 = lean_array_fget(x_1, x_2);
x_3 = lean_array_fget_borrowed(x_1, x_2);
lean_inc(x_3);
return x_3;
}
}
@ -49,7 +50,8 @@ LEAN_EXPORT lean_object* l_Array_getLit(lean_object* x_1, lean_object* x_2, lean
_start:
{
lean_object* x_7;
x_7 = lean_array_fget(x_3, x_4);
x_7 = lean_array_fget_borrowed(x_3, x_4);
lean_inc(x_7);
return x_7;
}
}
@ -91,7 +93,8 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_2, x_6);
lean_dec(x_2);
x_8 = lean_array_fget(x_1, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
lean_inc(x_8);
x_9 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_9, 0, x_8);
lean_ctor_set(x_9, 1, x_3);

8
stage0/stdlib/Init/Data/Array/InsertionSort.c generated
View file

@ -28,6 +28,7 @@ static lean_object* l___auto___closed__46____x40_Init_Data_Array_InsertionSort__
static lean_object* l___auto___closed__34____x40_Init_Data_Array_InsertionSort___hyg_15_;
static lean_object* l___auto___closed__60____x40_Init_Data_Array_InsertionSort___hyg_15_;
static lean_object* l___auto___closed__17____x40_Init_Data_Array_InsertionSort___hyg_15_;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l___auto___closed__56____x40_Init_Data_Array_InsertionSort___hyg_15_;
static lean_object* l___auto___closed__22____x40_Init_Data_Array_InsertionSort___hyg_15_;
static lean_object* l___auto___closed__15____x40_Init_Data_Array_InsertionSort___hyg_15_;
@ -58,7 +59,6 @@ static lean_object* l___auto___closed__11____x40_Init_Data_Array_InsertionSort__
static lean_object* l___auto___closed__4____x40_Init_Data_Array_InsertionSort___hyg_15_;
static lean_object* l___auto___closed__30____x40_Init_Data_Array_InsertionSort___hyg_15_;
static lean_object* l___auto___closed__41____x40_Init_Data_Array_InsertionSort___hyg_15_;
lean_object* lean_array_fget(lean_object*, lean_object*);
static lean_object* l___auto___closed__49____x40_Init_Data_Array_InsertionSort___hyg_15_;
static lean_object* l___auto___closed__1____x40_Init_Data_Array_InsertionSort___hyg_15_;
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
@ -740,9 +740,11 @@ else
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11;
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
x_8 = lean_array_fget(x_2, x_3);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_2, x_3);
x_9 = lean_array_fget_borrowed(x_2, x_7);
lean_inc_ref(x_1);
lean_inc(x_9);
lean_inc(x_8);
x_10 = lean_apply_2(x_1, x_8, x_9);
x_11 = lean_unbox(x_10);
if (x_11 == 0)

8
stage0/stdlib/Init/Data/Array/Lemmas.c generated
View file

@ -34,6 +34,7 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_mapA_match__
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_appendCore_loop_match__1_splitter___redArg(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_filterMap__replicate_match__1_splitter___redArg(lean_object*, lean_object*, lean_object*);
static lean_object* l___auto___closed__4____x40_Init_Data_Array_Lemmas___hyg_18471_;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_filterMap__push_match__1_splitter___redArg___boxed(lean_object*, lean_object*, lean_object*);
static lean_object* l___auto___closed__20____x40_Init_Data_Array_Lemmas___hyg_18471_;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_shrink_match__1_splitter___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -103,7 +104,6 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_filterMap_ma
LEAN_EXPORT lean_object* l_Array_toListRev___redArg___lam__0(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_foldl__filterMap_x27_match__1_splitter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_filterMapM_match__1_splitter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___auto____x40_Init_Data_Array_Lemmas___hyg_18471_;
LEAN_EXPORT uint8_t l_Array_instDecidableForallForallMemOfDecidablePred(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___auto___closed__7____x40_Init_Data_Array_Lemmas___hyg_18471_;
@ -169,7 +169,8 @@ LEAN_EXPORT uint8_t l_Array_instDecidableForallForallMemOfDecidablePred___redArg
_start:
{
lean_object* x_5; lean_object* x_6; uint8_t x_7;
x_5 = lean_array_fget(x_1, x_3);
x_5 = lean_array_fget_borrowed(x_1, x_3);
lean_inc(x_5);
x_6 = lean_apply_1(x_2, x_5);
x_7 = lean_unbox(x_6);
return x_7;
@ -231,7 +232,8 @@ LEAN_EXPORT uint8_t l_Array_instDecidableExistsAndMemOfDecidablePred___redArg___
_start:
{
lean_object* x_5; lean_object* x_6; uint8_t x_7;
x_5 = lean_array_fget(x_1, x_3);
x_5 = lean_array_fget_borrowed(x_1, x_3);
lean_inc(x_5);
x_6 = lean_apply_1(x_2, x_5);
x_7 = lean_unbox(x_6);
return x_7;

10
stage0/stdlib/Init/Data/Array/Lex/Basic.c generated
View file

@ -35,6 +35,7 @@ LEAN_EXPORT uint8_t l_Array_lex___redArg(lean_object*, lean_object*, lean_object
lean_object* lean_array_push(lean_object*, lean_object*);
static lean_object* l___auto___closed__60____x40_Init_Data_Array_Lex_Basic___hyg_18_;
static lean_object* l___auto___closed__30____x40_Init_Data_Array_Lex_Basic___hyg_18_;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Array_lex___redArg___closed__4;
static lean_object* l___auto___closed__10____x40_Init_Data_Array_Lex_Basic___hyg_18_;
static lean_object* l___auto___closed__36____x40_Init_Data_Array_Lex_Basic___hyg_18_;
@ -86,7 +87,6 @@ static lean_object* l___auto___closed__29____x40_Init_Data_Array_Lex_Basic___hyg
LEAN_EXPORT lean_object* l___auto____x40_Init_Data_Array_Lex_Basic___hyg_18_;
static lean_object* l___auto___closed__50____x40_Init_Data_Array_Lex_Basic___hyg_18_;
static lean_object* l_Array_lex___redArg___closed__10;
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_Id_instMonad___lam__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Array_lex___redArg___closed__1;
static lean_object* l_Array_lex___redArg___closed__2;
@ -748,8 +748,8 @@ LEAN_EXPORT lean_object* l_Array_lex___redArg___lam__0(lean_object* x_1, lean_ob
_start:
{
lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_18;
x_11 = lean_array_fget(x_1, x_7);
x_12 = lean_array_fget(x_2, x_7);
x_11 = lean_array_fget_borrowed(x_1, x_7);
x_12 = lean_array_fget_borrowed(x_2, x_7);
lean_inc(x_12);
lean_inc(x_11);
x_13 = lean_apply_2(x_3, x_11, x_12);
@ -757,6 +757,8 @@ x_18 = lean_unbox(x_13);
if (x_18 == 0)
{
lean_object* x_19; uint8_t x_20;
lean_inc(x_12);
lean_inc(x_11);
x_19 = lean_apply_2(x_5, x_11, x_12);
x_20 = lean_unbox(x_19);
if (x_20 == 0)
@ -785,8 +787,6 @@ goto block_17;
else
{
lean_object* x_23; lean_object* x_24; lean_object* x_25;
lean_dec(x_12);
lean_dec(x_11);
lean_dec_ref(x_6);
lean_dec_ref(x_5);
x_23 = lean_alloc_ctor(1, 1, 0);

22
stage0/stdlib/Init/Data/Array/QSort/Basic.c generated
View file

@ -38,6 +38,7 @@ static lean_object* l___auto___closed__24____x40_Init_Data_Array_QSort_Basic___h
static lean_object* l___auto___closed__47____x40_Init_Data_Array_QSort_Basic___hyg_6903_;
static lean_object* l___auto___closed__5____x40_Init_Data_Array_QSort_Basic___hyg_21_;
LEAN_EXPORT lean_object* l___auto____x40_Init_Data_Array_QSort_Basic___hyg_207_;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l___auto___closed__45____x40_Init_Data_Array_QSort_Basic___hyg_6903_;
static lean_object* l___auto___closed__13____x40_Init_Data_Array_QSort_Basic___hyg_6903_;
static lean_object* l___auto___closed__10____x40_Init_Data_Array_QSort_Basic___hyg_21_;
@ -487,9 +488,10 @@ return x_9;
else
{
lean_object* x_10; lean_object* x_11; uint8_t x_12;
x_10 = lean_array_fget(x_4, x_6);
x_10 = lean_array_fget_borrowed(x_4, x_6);
lean_inc_ref(x_1);
lean_inc(x_3);
lean_inc(x_10);
x_11 = lean_apply_2(x_1, x_10, x_3);
x_12 = lean_unbox(x_11);
if (x_12 == 0)
@ -554,9 +556,11 @@ x_9 = lean_nat_add(x_3, x_4);
x_10 = lean_unsigned_to_nat(1u);
x_11 = lean_nat_shiftr(x_9, x_10);
lean_dec(x_9);
x_26 = lean_array_fget(x_1, x_11);
x_27 = lean_array_fget(x_1, x_3);
x_26 = lean_array_fget_borrowed(x_1, x_11);
x_27 = lean_array_fget_borrowed(x_1, x_3);
lean_inc_ref(x_2);
lean_inc(x_27);
lean_inc(x_26);
x_28 = lean_apply_2(x_2, x_26, x_27);
x_29 = lean_unbox(x_28);
if (x_29 == 0)
@ -582,9 +586,11 @@ return x_7;
block_18:
{
lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16;
x_13 = lean_array_fget(x_12, x_11);
x_14 = lean_array_fget(x_12, x_4);
x_13 = lean_array_fget_borrowed(x_12, x_11);
x_14 = lean_array_fget_borrowed(x_12, x_4);
lean_inc_ref(x_2);
lean_inc(x_14);
lean_inc(x_13);
x_15 = lean_apply_2(x_2, x_13, x_14);
x_16 = lean_unbox(x_15);
if (x_16 == 0)
@ -605,9 +611,11 @@ goto block_8;
block_25:
{
lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23;
x_20 = lean_array_fget(x_19, x_4);
x_21 = lean_array_fget(x_19, x_3);
x_20 = lean_array_fget_borrowed(x_19, x_4);
x_21 = lean_array_fget_borrowed(x_19, x_3);
lean_inc_ref(x_2);
lean_inc(x_21);
lean_inc(x_20);
x_22 = lean_apply_2(x_2, x_20, x_21);
x_23 = lean_unbox(x_22);
if (x_23 == 0)

5
stage0/stdlib/Init/Data/Array/Subarray.c generated
View file

@ -52,6 +52,7 @@ LEAN_EXPORT lean_object* l_Subarray_size___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Subarray_getD___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Array___aux__Init__Data__Array__Subarray______macroRules__Array__term_____x5b___x3a_x5d__1___closed__18;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Subarray_0__Subarray_findSomeRevM_x3f_find___redArg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Array___aux__Init__Data__Array__Subarray______macroRules__Array__term_____x5b___x3a___x5d__1___closed__10;
lean_object* l_Lean_Syntax_node5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*);
@ -141,7 +142,6 @@ LEAN_EXPORT lean_object* l_Subarray_foldr___redArg(lean_object*, lean_object*, l
static lean_object* l_Array___aux__Init__Data__Array__Subarray______macroRules__Array__term_____x5b___x3a_x5d__1___closed__3;
static lean_object* l_Array___aux__Init__Data__Array__Subarray______macroRules__Array__term_____x5b_x3a___x5d__1___closed__1;
LEAN_EXPORT lean_object* l_Subarray_get_x21___redArg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Subarray_0__Subarray_findSomeRevM_x3f_find___redArg___lam__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Subarray_empty(lean_object*);
static lean_object* l_Array_term_____x5b___x3a_x5d___closed__4;
@ -378,8 +378,9 @@ lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_ctor_get(x_1, 1);
x_5 = lean_nat_add(x_4, x_2);
x_6 = lean_array_fget(x_3, x_5);
x_6 = lean_array_fget_borrowed(x_3, x_5);
lean_dec(x_5);
lean_inc(x_6);
return x_6;
}
}

6
stage0/stdlib/Init/Data/ByteArray/Basic.c generated
View file

@ -65,6 +65,7 @@ LEAN_EXPORT lean_object* l_Array_isEqvAux___at___ByteArray_beqByteArray____x40_I
LEAN_EXPORT lean_object* l_ByteArray_extract(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_List_toByteArray_loop___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_ByteArray_append___boxed(lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_ByteArray_toUInt64BE_x21___closed__1;
lean_object* l_instDecidableEqUInt8___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_ByteArray_foldlMUnsafe_fold___redArg(lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*);
@ -158,7 +159,6 @@ lean_object* lean_byte_array_data(lean_object*);
LEAN_EXPORT lean_object* l_ByteArray_instSizeOfIterator___lam__0(lean_object*);
LEAN_EXPORT lean_object* l_ByteArray_forInUnsafe___redArg(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Array_isEqvAux___at___ByteArray_beqByteArray____x40_Init_Data_ByteArray_Basic___hyg_23__spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_ByteArray_instGetElemUSizeUInt8LtNatValToFinSize___lam__0___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_ByteArray_Iterator_nextn___boxed(lean_object*, lean_object*);
lean_object* l_Id_instMonad___lam__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -286,9 +286,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; lean_object*
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_unbox(x_8);
x_10 = lean_array_fget(x_2, x_7);
x_10 = lean_array_fget_borrowed(x_2, x_7);
x_11 = lean_unbox(x_10);
x_12 = lean_uint8_dec_eq(x_9, x_11);
if (x_12 == 0)

8
stage0/stdlib/Init/Data/FloatArray/Basic.c generated
View file

@ -45,6 +45,7 @@ LEAN_EXPORT lean_object* l___private_Init_Data_FloatArray_Basic_0__FloatArray_fo
static lean_object* l___auto___closed__11____x40_Init_Data_FloatArray_Basic___hyg_456_;
static lean_object* l___auto___closed__2____x40_Init_Data_FloatArray_Basic___hyg_456_;
LEAN_EXPORT lean_object* l___private_Init_Data_FloatArray_Basic_0__FloatArray_forIn_loop___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
lean_object* lean_float_array_fset(lean_object*, lean_object*, double);
LEAN_EXPORT lean_object* l_FloatArray_empty;
LEAN_EXPORT lean_object* l___private_Init_Data_FloatArray_Basic_0__FloatArray_foldlMUnsafe_fold___redArg___lam__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -106,7 +107,6 @@ LEAN_EXPORT lean_object* l_Array_isEqvAux___at___FloatArray_beqFloatArray____x40
static lean_object* l___auto___closed__20____x40_Init_Data_FloatArray_Basic___hyg_456_;
LEAN_EXPORT lean_object* l___private_Init_Data_FloatArray_Basic_0__FloatArray_forInUnsafe_loop___redArg___lam__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_FloatArray_foldlMUnsafe___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_Id_instMonad___lam__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
double lean_float_array_uget(lean_object*, size_t);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
@ -206,12 +206,10 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; double x_9; lean_object* x
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_unbox_float(x_8);
lean_dec_ref(x_8);
x_10 = lean_array_fget(x_2, x_7);
x_10 = lean_array_fget_borrowed(x_2, x_7);
x_11 = lean_unbox_float(x_10);
lean_dec_ref(x_10);
x_12 = lean_float_beq(x_9, x_11);
if (x_12 == 0)
{

8
stage0/stdlib/Init/Data/List/Nat/Range.c generated
View file

@ -33,9 +33,9 @@ static lean_object* l___auto___closed__11____x40_Init_Data_List_Nat_Range___hyg_
static lean_object* l___auto___closed__13____x40_Init_Data_List_Nat_Range___hyg_142_;
static lean_object* l___auto___closed__5____x40_Init_Data_List_Nat_Range___hyg_142_;
static lean_object* l___auto___closed__1____x40_Init_Data_List_Nat_Range___hyg_142_;
LEAN_EXPORT lean_object* l___auto____x40_Init_Data_List_Nat_Range___hyg_606_;
static lean_object* l___auto___closed__9____x40_Init_Data_List_Nat_Range___hyg_142_;
static lean_object* l___auto___closed__2____x40_Init_Data_List_Nat_Range___hyg_142_;
LEAN_EXPORT lean_object* l___auto____x40_Init_Data_List_Nat_Range___hyg_623_;
static lean_object* l___auto___closed__22____x40_Init_Data_List_Nat_Range___hyg_142_;
static lean_object* l___auto___closed__16____x40_Init_Data_List_Nat_Range___hyg_142_;
static lean_object* l___auto___closed__6____x40_Init_Data_List_Nat_Range___hyg_142_;
@ -390,7 +390,7 @@ x_1 = l___auto___closed__30____x40_Init_Data_List_Nat_Range___hyg_142_;
return x_1;
}
}
static lean_object* _init_l___auto____x40_Init_Data_List_Nat_Range___hyg_606_() {
static lean_object* _init_l___auto____x40_Init_Data_List_Nat_Range___hyg_623_() {
_start:
{
lean_object* x_1;
@ -489,8 +489,8 @@ l___auto____x40_Init_Data_List_Nat_Range___hyg_142_ = _init_l___auto____x40_Init
lean_mark_persistent(l___auto____x40_Init_Data_List_Nat_Range___hyg_142_);
l___auto____x40_Init_Data_List_Nat_Range___hyg_202_ = _init_l___auto____x40_Init_Data_List_Nat_Range___hyg_202_();
lean_mark_persistent(l___auto____x40_Init_Data_List_Nat_Range___hyg_202_);
l___auto____x40_Init_Data_List_Nat_Range___hyg_606_ = _init_l___auto____x40_Init_Data_List_Nat_Range___hyg_606_();
lean_mark_persistent(l___auto____x40_Init_Data_List_Nat_Range___hyg_606_);
l___auto____x40_Init_Data_List_Nat_Range___hyg_623_ = _init_l___auto____x40_Init_Data_List_Nat_Range___hyg_623_();
lean_mark_persistent(l___auto____x40_Init_Data_List_Nat_Range___hyg_623_);
return lean_io_result_mk_ok(lean_box(0));
}
#ifdef __cplusplus

5
stage0/stdlib/Init/Data/List/Notation.c generated
View file

@ -56,6 +56,7 @@ static lean_object* l_term_x5b___x5d___closed__12;
lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*);
static lean_object* l_Lean___aux__Init__Data__List__Notation______macroRules__term_x5b___x5d__1___closed__7;
static lean_object* l_term_x5b___x5d___closed__8;
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean___aux__Init__Data__List__Notation______macroRules__term_x5b___x5d__1___closed__9;
static lean_object* l_term_x5b___x5d___closed__19;
LEAN_EXPORT lean_object* l_term_x5b___x5d;
@ -89,7 +90,6 @@ static lean_object* l_term_x5b___x5d___closed__17;
lean_object* lean_array_get_size(lean_object*);
static lean_object* l_Lean___aux__Init__Data__List__Notation______macroRules__term_x5b___x5d__1___closed__1;
static lean_object* l___private_Init_Data_List_Notation_0__Lean___aux__Init__Data__List__Notation______macroRules__term_x5b___x5d__1_expandListLit___closed__8;
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean___aux__Init__Data__List__Notation______macroRules__term_x5b___x5d__1___closed__0;
static lean_object* l_Lean___aux__Init__Data__List__Notation______macroRules__term_x5b___x5d__1___closed__5;
static lean_object* l_term_x5b___x5d___closed__0;
@ -653,7 +653,8 @@ lean_ctor_set(x_22, 1, x_18);
lean_ctor_set(x_22, 2, x_20);
lean_ctor_set(x_22, 3, x_21);
x_23 = l___private_Init_Data_List_Notation_0__Lean___aux__Init__Data__List__Notation______macroRules__term_x5b___x5d__1_expandListLit___closed__15;
x_24 = lean_array_get(x_15, x_1, x_11);
x_24 = lean_array_get_borrowed(x_15, x_1, x_11);
lean_inc(x_24);
lean_inc(x_16);
x_25 = l_Lean_Syntax_node2(x_16, x_23, x_24, x_4);
x_26 = l_Lean_Syntax_node2(x_16, x_17, x_22, x_25);

8
stage0/stdlib/Init/Data/Ord.c generated
View file

@ -63,6 +63,7 @@ LEAN_EXPORT lean_object* l_leOfOrd(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Ordering_noConfusion___redArg___lam__0(lean_object*);
LEAN_EXPORT lean_object* l_compareOfLessAndEq___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Ord_lex_x27___redArg___lam__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_instDecidableEqOrdering___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_instOrd(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_instOrdUInt32;
@ -156,7 +157,6 @@ LEAN_EXPORT lean_object* l_compareOn___redArg___boxed(lean_object*, lean_object*
LEAN_EXPORT lean_object* l_compareLex___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_instOrdInt8___lam__0___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_lexOrd___redArg___lam__1(lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_instDecidableRelLt___redArg___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_instOrdInt64___lam__0(uint64_t, uint64_t);
LEAN_EXPORT uint8_t l_instOrdInt32___lam__0(uint32_t, uint32_t);
@ -2410,9 +2410,11 @@ lean_dec(x_7);
if (x_8 == 0)
{
lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12;
x_9 = lean_array_fget(x_2, x_4);
x_10 = lean_array_fget(x_3, x_4);
x_9 = lean_array_fget_borrowed(x_2, x_4);
x_10 = lean_array_fget_borrowed(x_3, x_4);
lean_inc_ref(x_1);
lean_inc(x_10);
lean_inc(x_9);
x_11 = lean_apply_2(x_1, x_9, x_10);
x_12 = lean_unbox(x_11);
if (x_12 == 1)

20
stage0/stdlib/Init/Data/Slice/Array/Iterator.c generated
View file

@ -39,6 +39,7 @@ LEAN_EXPORT lean_object* l_instForInSubarray___lam__3___boxed(lean_object*);
LEAN_EXPORT lean_object* l_Array_instAppendSubarray___lam__4___boxed(lean_object*, lean_object*);
static lean_object* l_instIteratorStateSubarrayId___redArg___closed__10;
LEAN_EXPORT lean_object* l_Std_Iterators_IterM_DefaultConsumers_toArrayMapped_go___at___Array_ofSubarray_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
lean_object* l_Std_Iterators_Map_instIteratorCollect___redArg(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_instIteratorStateSubarrayId(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_instForInSubarray___lam__1___boxed(lean_object*, lean_object*);
@ -92,7 +93,6 @@ static lean_object* l_instIteratorStateSubarrayId___redArg___closed__0;
LEAN_EXPORT lean_object* l_Array_instAppendSubarray___lam__4(lean_object*, lean_object*);
extern lean_object* l_Std_PRange_instUpwardEnumerableNat;
LEAN_EXPORT lean_object* l_instIteratorStateSubarrayId___redArg___lam__0(lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
static lean_object* l_instIteratorStateSubarrayId___redArg___closed__7;
static lean_object* l_instIteratorSizePartialStateSubarrayId___closed__1;
lean_object* l_Id_instMonad___lam__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -198,7 +198,8 @@ _start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_array_fget(x_3, x_2);
x_4 = lean_array_fget_borrowed(x_3, x_2);
lean_inc(x_4);
return x_4;
}
}
@ -606,7 +607,8 @@ LEAN_EXPORT lean_object* l_instForInSubarray___lam__1(lean_object* x_1, lean_obj
_start:
{
lean_object* x_3;
x_3 = lean_array_fget(x_1, x_2);
x_3 = lean_array_fget_borrowed(x_1, x_2);
lean_inc(x_3);
return x_3;
}
}
@ -982,8 +984,9 @@ x_11 = lean_ctor_get(x_1, 0);
x_12 = lean_unsigned_to_nat(1u);
x_13 = lean_nat_add(x_9, x_12);
lean_ctor_set(x_4, 0, x_13);
x_14 = lean_array_fget(x_11, x_9);
x_14 = lean_array_fget_borrowed(x_11, x_9);
lean_dec(x_9);
lean_inc(x_14);
x_15 = lean_array_push(x_3, x_14);
x_3 = x_15;
goto _start;
@ -1012,8 +1015,9 @@ x_21 = lean_nat_add(x_17, x_20);
x_22 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_22, 0, x_21);
lean_ctor_set(x_2, 0, x_22);
x_23 = lean_array_fget(x_19, x_17);
x_23 = lean_array_fget_borrowed(x_19, x_17);
lean_dec(x_17);
lean_inc(x_23);
x_24 = lean_array_push(x_3, x_23);
x_3 = x_24;
goto _start;
@ -1058,8 +1062,9 @@ lean_ctor_set(x_33, 0, x_32);
x_34 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_34, 0, x_33);
lean_ctor_set(x_34, 1, x_26);
x_35 = lean_array_fget(x_30, x_27);
x_35 = lean_array_fget_borrowed(x_30, x_27);
lean_dec(x_27);
lean_inc(x_35);
x_36 = lean_array_push(x_3, x_35);
x_2 = x_34;
x_3 = x_36;
@ -1169,7 +1174,8 @@ LEAN_EXPORT lean_object* l_Array_instAppendSubarray___lam__4(lean_object* x_1, l
_start:
{
lean_object* x_3;
x_3 = lean_array_fget(x_1, x_2);
x_3 = lean_array_fget_borrowed(x_1, x_2);
lean_inc(x_3);
return x_3;
}
}

24
stage0/stdlib/Init/Data/String/Basic.c generated
View file

@ -4657,8 +4657,8 @@ goto _start;
block_32:
{
lean_object* x_28; uint8_t x_29;
x_28 = lean_nat_add(x_22, x_24);
lean_dec(x_24);
x_28 = lean_nat_add(x_22, x_26);
lean_dec(x_26);
x_29 = lean_nat_dec_le(x_23, x_28);
if (x_29 == 0)
{
@ -4668,8 +4668,8 @@ x_30 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_30, 0, x_21);
lean_ctor_set(x_30, 1, x_27);
lean_ctor_set(x_30, 2, x_28);
x_15 = x_25;
x_16 = x_26;
x_15 = x_24;
x_16 = x_25;
x_17 = x_30;
goto block_20;
}
@ -4683,8 +4683,8 @@ x_31 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_31, 0, x_21);
lean_ctor_set(x_31, 1, x_27);
lean_ctor_set(x_31, 2, x_23);
x_15 = x_25;
x_16 = x_26;
x_15 = x_24;
x_16 = x_25;
x_17 = x_31;
goto block_20;
}
@ -4716,9 +4716,9 @@ lean_dec(x_3);
x_41 = lean_nat_dec_le(x_23, x_40);
if (x_41 == 0)
{
x_24 = x_38;
x_25 = x_37;
x_26 = x_33;
x_24 = x_37;
x_25 = x_33;
x_26 = x_38;
x_27 = x_40;
goto block_32;
}
@ -4726,9 +4726,9 @@ else
{
lean_dec(x_40);
lean_inc(x_23);
x_24 = x_38;
x_25 = x_37;
x_26 = x_33;
x_24 = x_37;
x_25 = x_33;
x_26 = x_38;
x_27 = x_23;
goto block_32;
}

36
stage0/stdlib/Init/Data/Vector/Basic.c generated
View file

@ -151,6 +151,7 @@ static lean_object* l___auto___closed__26____x40_Init_Data_Vector_Basic___hyg_97
LEAN_EXPORT lean_object* l_Vector_findFinIdx_x3f___redArg___boxed(lean_object*, lean_object*);
static lean_object* l___auto___closed__4____x40_Init_Data_Vector_Basic___hyg_9731_;
LEAN_EXPORT lean_object* l_Vector_zipIdx___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Vector_instLE___boxed(lean_object*, lean_object*, lean_object*);
static lean_object* l___auto___closed__39____x40_Init_Data_Vector_Basic___hyg_9731_;
LEAN_EXPORT lean_object* l_Vector_instHAppendHAddNat___redArg(lean_object*, lean_object*);
@ -2039,7 +2040,8 @@ LEAN_EXPORT lean_object* l_Vector_get___redArg(lean_object* x_1, lean_object* x_
_start:
{
lean_object* x_3;
x_3 = lean_array_fget(x_1, x_2);
x_3 = lean_array_fget_borrowed(x_1, x_2);
lean_inc(x_3);
return x_3;
}
}
@ -2047,7 +2049,8 @@ LEAN_EXPORT lean_object* l_Vector_get(lean_object* x_1, lean_object* x_2, lean_o
_start:
{
lean_object* x_5;
x_5 = lean_array_fget(x_3, x_4);
x_5 = lean_array_fget_borrowed(x_3, x_4);
lean_inc(x_5);
return x_5;
}
}
@ -2115,7 +2118,8 @@ LEAN_EXPORT lean_object* l_Vector_instGetElemNatLt___lam__0(lean_object* x_1, le
_start:
{
lean_object* x_4;
x_4 = lean_array_fget(x_1, x_2);
x_4 = lean_array_fget_borrowed(x_1, x_2);
lean_inc(x_4);
return x_4;
}
}
@ -2213,7 +2217,8 @@ return x_3;
else
{
lean_object* x_6;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
lean_inc(x_6);
return x_6;
}
}
@ -2233,7 +2238,8 @@ return x_5;
else
{
lean_object* x_8;
x_8 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_3, x_4);
lean_inc(x_8);
return x_8;
}
}
@ -2337,8 +2343,9 @@ _start:
lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_3 = lean_unsigned_to_nat(1u);
x_4 = lean_nat_sub(x_1, x_3);
x_5 = lean_array_fget(x_2, x_4);
x_5 = lean_array_fget_borrowed(x_2, x_4);
lean_dec(x_4);
lean_inc(x_5);
return x_5;
}
}
@ -2348,8 +2355,9 @@ _start:
lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_5 = lean_unsigned_to_nat(1u);
x_6 = lean_nat_sub(x_1, x_5);
x_7 = lean_array_fget(x_4, x_6);
x_7 = lean_array_fget_borrowed(x_4, x_6);
lean_dec(x_6);
lean_inc(x_7);
return x_7;
}
}
@ -2378,7 +2386,8 @@ _start:
{
lean_object* x_2; lean_object* x_3;
x_2 = lean_unsigned_to_nat(0u);
x_3 = lean_array_fget(x_1, x_2);
x_3 = lean_array_fget_borrowed(x_1, x_2);
lean_inc(x_3);
return x_3;
}
}
@ -2387,7 +2396,8 @@ _start:
{
lean_object* x_5; lean_object* x_6;
x_5 = lean_unsigned_to_nat(0u);
x_6 = lean_array_fget(x_4, x_5);
x_6 = lean_array_fget_borrowed(x_4, x_5);
lean_inc(x_6);
return x_6;
}
}
@ -7970,8 +7980,8 @@ LEAN_EXPORT lean_object* l_Vector_lex___redArg___lam__0(lean_object* x_1, lean_o
_start:
{
lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_18;
x_11 = lean_array_fget(x_1, x_7);
x_12 = lean_array_fget(x_2, x_7);
x_11 = lean_array_fget_borrowed(x_1, x_7);
x_12 = lean_array_fget_borrowed(x_2, x_7);
lean_inc(x_12);
lean_inc(x_11);
x_13 = lean_apply_2(x_3, x_11, x_12);
@ -7979,6 +7989,8 @@ x_18 = lean_unbox(x_13);
if (x_18 == 0)
{
lean_object* x_19; uint8_t x_20;
lean_inc(x_12);
lean_inc(x_11);
x_19 = lean_apply_2(x_5, x_11, x_12);
x_20 = lean_unbox(x_19);
if (x_20 == 0)
@ -8007,8 +8019,6 @@ goto block_17;
else
{
lean_object* x_23; lean_object* x_24; lean_object* x_25;
lean_dec(x_12);
lean_dec(x_11);
lean_dec_ref(x_6);
lean_dec_ref(x_5);
x_23 = lean_alloc_ctor(1, 1, 0);

8
stage0/stdlib/Init/Data/Vector/Lemmas.c generated
View file

@ -21,6 +21,7 @@ LEAN_EXPORT lean_object* l_Vector_instDecidableForallVectorSucc___redArg___boxed
LEAN_EXPORT uint8_t l_Vector_instDecidableExistsAndMemOfDecidablePred___redArg___lam__0(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Vector_instDecidableForallVectorSucc(lean_object*, lean_object*, lean_object*, uint8_t);
uint8_t l_Nat_decidableBallLT___redArg(lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Vector_instDecidableForallVectorSucc___redArg(uint8_t);
LEAN_EXPORT uint8_t l_Vector_instDecidableForallVectorZero___redArg(uint8_t);
LEAN_EXPORT uint8_t l_Vector_instDecidableForallForallMemOfDecidablePred(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -38,7 +39,6 @@ LEAN_EXPORT lean_object* l_Vector_instDecidableForallForallMemOfDecidablePred___
LEAN_EXPORT lean_object* l___private_Init_Data_Vector_Lemmas_0__Vector_foldl__filterMap_match__1_splitter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Vector_instDecidableMemOfLawfulBEq___redArg(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Vector_Lemmas_0__Array_foldl__filterMap_x27_match__1_splitter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Vector_instDecidableExistsVectorSucc(lean_object*, lean_object*, lean_object*, uint8_t);
LEAN_EXPORT uint8_t l_Vector_instDecidableExistsAndMemOfDecidablePred(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Vector_Lemmas_0__Array_foldl__filterMap_x27_match__1_splitter___redArg(lean_object*, lean_object*, lean_object*);
@ -62,7 +62,8 @@ LEAN_EXPORT uint8_t l_Vector_instDecidableForallForallMemOfDecidablePred___redAr
_start:
{
lean_object* x_5; lean_object* x_6; uint8_t x_7;
x_5 = lean_array_fget(x_1, x_3);
x_5 = lean_array_fget_borrowed(x_1, x_3);
lean_inc(x_5);
x_6 = lean_apply_1(x_2, x_5);
x_7 = lean_unbox(x_6);
return x_7;
@ -122,7 +123,8 @@ LEAN_EXPORT uint8_t l_Vector_instDecidableExistsAndMemOfDecidablePred___redArg__
_start:
{
lean_object* x_5; lean_object* x_6; uint8_t x_7;
x_5 = lean_array_fget(x_1, x_3);
x_5 = lean_array_fget_borrowed(x_1, x_3);
lean_inc(x_5);
x_6 = lean_apply_1(x_2, x_5);
x_7 = lean_unbox(x_6);
return x_7;

13
stage0/stdlib/Init/GetElem.c generated
View file

@ -67,6 +67,7 @@ static lean_object* l_LawfulGetElem_getElem_x3f__def___autoParam___closed__61;
static lean_object* l_term_____x5b___x5d___x21___closed__4;
static lean_object* l___aux__Init__GetElem______macroRules__term_____x5b___x5d__1___closed__8;
static lean_object* l___aux__Init__GetElem______macroRules__term_____x5b___x5d__1___closed__31;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_LawfulGetElem_getElem_x21__def___autoParam___closed__26;
static lean_object* l_LawfulGetElem_getElem_x3f__def___autoParam___closed__43;
static lean_object* l_LawfulGetElem_getElem_x3f__def___autoParam___closed__15;
@ -190,6 +191,7 @@ static lean_object* l_term_____x5b___x5d___closed__16;
LEAN_EXPORT lean_object* l_Array_instGetElemNatLtSize(lean_object*);
static lean_object* l_LawfulGetElem_getElem_x3f__def___autoParam___closed__17;
static lean_object* l___aux__Init__GetElem______macroRules__term_____x5b___x5d___x21__1___closed__3;
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
static lean_object* l_LawfulGetElem_getElem_x3f__def___autoParam___closed__72;
static lean_object* l___aux__Init__GetElem______macroRules__term_____x5b___x5d__1___closed__12;
LEAN_EXPORT lean_object* l_Fin_instGetElemFinVal___redArg(lean_object*);
@ -204,7 +206,6 @@ static lean_object* l_term_____x5b___x5d___closed__9;
LEAN_EXPORT lean_object* l_outOfBounds___redArg(lean_object*);
static lean_object* l_LawfulGetElem_getElem_x3f__def___autoParam___closed__45;
static lean_object* l_LawfulGetElem_getElem_x3f__def___autoParam___closed__27;
lean_object* lean_array_fget(lean_object*, lean_object*);
static lean_object* l_LawfulGetElem_getElem_x21__def___autoParam___closed__13;
static lean_object* l_LawfulGetElem_getElem_x3f__def___autoParam___closed__26;
static lean_object* l_term_____x5b___x5d___x3f___closed__9;
@ -302,7 +303,6 @@ static lean_object* l_Fin___aux__Init__GetElem______macroRules__tacticGet__elem_
LEAN_EXPORT lean_object* l___private_Init_GetElem_0__GetElem_x3f_match__1_splitter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_LawfulGetElem_getElem_x3f__def___autoParam___closed__2;
lean_object* l_Lean_mkAtom(lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
static lean_object* l_LawfulGetElem_getElem_x3f__def___autoParam___closed__42;
static lean_object* l_LawfulGetElem_getElem_x21__def___autoParam___closed__11;
static lean_object* l___aux__Init__GetElem______macroRules__term_____x5b___x5d___x21__1___closed__2;
@ -3747,7 +3747,8 @@ LEAN_EXPORT lean_object* l_Array_instGetElemNatLtSize___lam__0(lean_object* x_1,
_start:
{
lean_object* x_4;
x_4 = lean_array_fget(x_1, x_2);
x_4 = lean_array_fget_borrowed(x_1, x_2);
lean_inc(x_4);
return x_4;
}
}
@ -3785,7 +3786,8 @@ return x_5;
else
{
lean_object* x_6; lean_object* x_7;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
lean_inc(x_6);
x_7 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_7, 0, x_6);
return x_7;
@ -3796,7 +3798,8 @@ LEAN_EXPORT lean_object* l_Array_instGetElem_x3fNatLtSize___lam__1(lean_object*
_start:
{
lean_object* x_4;
x_4 = lean_array_get(x_1, x_2, x_3);
x_4 = lean_array_get_borrowed(x_1, x_2, x_3);
lean_inc(x_4);
return x_4;
}
}

57
stage0/stdlib/Init/Grind/Module/Envelope.c generated
View file

@ -14,7 +14,6 @@
extern "C" {
#endif
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_ofNatModule___redArg(lean_object*);
static lean_object* l_Lean_Grind_IntModule_OfNatModule_instPreorderQOfOrderedAdd___closed__0;
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_Q_liftOn_u2082___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_toQ___redArg(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_Q_mk___redArg(lean_object*);
@ -32,11 +31,9 @@ LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_zsmul___redArg(lean_
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_Q_mk___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Grind_Module_Envelope_0__Lean_Grind_IntModule_OfNatModule_r_match__1_splitter___redArg(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_zero(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLEQOfOrderedAdd(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instPreorderQOfOrderedAdd(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLEQOfOrderedAdd(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_abs(lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLEQOfOrderedAdd___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instPreorderQOfOrderedAdd___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLEQOfOrderedAdd___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_nsmul(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_ofNatModule(lean_object*, lean_object*);
uint8_t lean_int_dec_lt(lean_object*, lean_object*);
@ -50,6 +47,8 @@ LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_sub(lean_object*, le
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_Q_liftOn_u2082(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_zsmul___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_nsmul___redArg(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLTQOfOrderedAdd(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLTQOfOrderedAdd___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Grind_Module_Envelope_0__Lean_Grind_IntModule_OfNatModule_r_match__1_splitter___redArg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
@ -585,52 +584,38 @@ x_4 = l_Lean_Grind_IntModule_OfNatModule_toQ___redArg(x_2, x_3);
return x_4;
}
}
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLEQOfOrderedAdd(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLEQOfOrderedAdd(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_5;
x_5 = lean_box(0);
return x_5;
lean_object* x_7;
x_7 = lean_box(0);
return x_7;
}
}
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLEQOfOrderedAdd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLEQOfOrderedAdd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_5;
x_5 = l_Lean_Grind_IntModule_OfNatModule_instLEQOfOrderedAdd(x_1, x_2, x_3, x_4);
lean_dec_ref(x_3);
lean_object* x_7;
x_7 = l_Lean_Grind_IntModule_OfNatModule_instLEQOfOrderedAdd(x_1, x_2, x_3, x_4, x_5, x_6);
lean_dec_ref(x_2);
return x_5;
return x_7;
}
}
static lean_object* _init_l_Lean_Grind_IntModule_OfNatModule_instPreorderQOfOrderedAdd___closed__0() {
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLTQOfOrderedAdd(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = lean_box(0);
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
lean_object* x_7;
x_7 = lean_box(0);
return x_7;
}
}
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instPreorderQOfOrderedAdd(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instLTQOfOrderedAdd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_5;
x_5 = l_Lean_Grind_IntModule_OfNatModule_instPreorderQOfOrderedAdd___closed__0;
return x_5;
}
}
LEAN_EXPORT lean_object* l_Lean_Grind_IntModule_OfNatModule_instPreorderQOfOrderedAdd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_Lean_Grind_IntModule_OfNatModule_instPreorderQOfOrderedAdd(x_1, x_2, x_3, x_4);
lean_dec_ref(x_3);
lean_object* x_7;
x_7 = l_Lean_Grind_IntModule_OfNatModule_instLTQOfOrderedAdd(x_1, x_2, x_3, x_4, x_5, x_6);
lean_dec_ref(x_2);
return x_5;
return x_7;
}
}
lean_object* initialize_Init_Grind_Ordered_Module(uint8_t builtin, lean_object*);
@ -648,8 +633,6 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Grind_IntModule_OfNatModule_zsmul___redArg___closed__0 = _init_l_Lean_Grind_IntModule_OfNatModule_zsmul___redArg___closed__0();
lean_mark_persistent(l_Lean_Grind_IntModule_OfNatModule_zsmul___redArg___closed__0);
l_Lean_Grind_IntModule_OfNatModule_instPreorderQOfOrderedAdd___closed__0 = _init_l_Lean_Grind_IntModule_OfNatModule_instPreorderQOfOrderedAdd___closed__0();
lean_mark_persistent(l_Lean_Grind_IntModule_OfNatModule_instPreorderQOfOrderedAdd___closed__0);
return lean_io_result_mk_ok(lean_box(0));
}
#ifdef __cplusplus

26
stage0/stdlib/Init/Grind/Ordered/Int.c generated
View file

@ -13,28 +13,6 @@
#ifdef __cplusplus
extern "C" {
#endif
static lean_object* l_Lean_Grind_instLinearOrderInt___closed__0;
LEAN_EXPORT lean_object* l_Lean_Grind_instLinearOrderInt;
static lean_object* _init_l_Lean_Grind_instLinearOrderInt___closed__0() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = lean_box(0);
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
static lean_object* _init_l_Lean_Grind_instLinearOrderInt() {
_start:
{
lean_object* x_1;
x_1 = l_Lean_Grind_instLinearOrderInt___closed__0;
return x_1;
}
}
lean_object* initialize_Init_Grind_Ordered_Ring(uint8_t builtin, lean_object*);
lean_object* initialize_Init_GrindInstances_Ring_Int(uint8_t builtin, lean_object*);
lean_object* initialize_Init_Omega(uint8_t builtin, lean_object*);
@ -52,10 +30,6 @@ lean_dec_ref(res);
res = initialize_Init_Omega(builtin, lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Grind_instLinearOrderInt___closed__0 = _init_l_Lean_Grind_instLinearOrderInt___closed__0();
lean_mark_persistent(l_Lean_Grind_instLinearOrderInt___closed__0);
l_Lean_Grind_instLinearOrderInt = _init_l_Lean_Grind_instLinearOrderInt();
lean_mark_persistent(l_Lean_Grind_instLinearOrderInt);
return lean_io_result_mk_ok(lean_box(0));
}
#ifdef __cplusplus

34
stage0/stdlib/Init/Grind/Ordered/Linarith.c generated
View file

@ -954,11 +954,11 @@ if (lean_is_scalar(x_107)) {
x_113 = x_107;
lean_ctor_set_tag(x_113, 5);
}
lean_ctor_set(x_113, 0, x_110);
lean_ctor_set(x_113, 0, x_111);
lean_ctor_set(x_113, 1, x_112);
x_114 = lean_alloc_ctor(5, 2, 0);
lean_ctor_set(x_114, 0, x_113);
lean_ctor_set(x_114, 1, x_111);
lean_ctor_set(x_114, 1, x_110);
x_115 = l_Lean_Grind_Linarith_reprExpr____x40_Init_Grind_Ordered_Linarith___hyg_407_(x_106, x_108);
x_116 = lean_alloc_ctor(5, 2, 0);
lean_ctor_set(x_116, 0, x_114);
@ -988,8 +988,8 @@ lean_dec(x_105);
x_128 = lean_alloc_ctor(3, 1, 0);
lean_ctor_set(x_128, 0, x_127);
x_109 = x_122;
x_110 = x_124;
x_111 = x_123;
x_110 = x_123;
x_111 = x_124;
x_112 = x_128;
goto block_121;
}
@ -1002,8 +1002,8 @@ x_130 = lean_alloc_ctor(3, 1, 0);
lean_ctor_set(x_130, 0, x_129);
x_131 = l_Repr_addAppParen(x_130, x_108);
x_109 = x_122;
x_110 = x_124;
x_111 = x_123;
x_110 = x_123;
x_111 = x_124;
x_112 = x_131;
goto block_121;
}
@ -1419,12 +1419,12 @@ block_34:
{
lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31; lean_object* x_32; lean_object* x_33;
x_22 = lean_alloc_ctor(5, 2, 0);
lean_ctor_set(x_22, 0, x_20);
lean_ctor_set(x_22, 0, x_19);
lean_ctor_set(x_22, 1, x_21);
lean_inc(x_19);
lean_inc(x_18);
x_23 = lean_alloc_ctor(5, 2, 0);
lean_ctor_set(x_23, 0, x_22);
lean_ctor_set(x_23, 1, x_19);
lean_ctor_set(x_23, 1, x_18);
x_24 = l_Nat_reprFast(x_15);
x_25 = lean_alloc_ctor(3, 1, 0);
lean_ctor_set(x_25, 0, x_24);
@ -1433,13 +1433,13 @@ lean_ctor_set(x_26, 0, x_23);
lean_ctor_set(x_26, 1, x_25);
x_27 = lean_alloc_ctor(5, 2, 0);
lean_ctor_set(x_27, 0, x_26);
lean_ctor_set(x_27, 1, x_19);
lean_ctor_set(x_27, 1, x_18);
x_28 = l_Lean_Grind_Linarith_reprPoly____x40_Init_Grind_Ordered_Linarith___hyg_1060_(x_16, x_17);
x_29 = lean_alloc_ctor(5, 2, 0);
lean_ctor_set(x_29, 0, x_27);
lean_ctor_set(x_29, 1, x_28);
x_30 = lean_alloc_ctor(4, 2, 0);
lean_ctor_set(x_30, 0, x_18);
lean_ctor_set(x_30, 0, x_20);
lean_ctor_set(x_30, 1, x_29);
x_31 = 0;
x_32 = lean_alloc_ctor(6, 1, 1);
@ -1462,9 +1462,9 @@ x_40 = l_Int_repr(x_14);
lean_dec(x_14);
x_41 = lean_alloc_ctor(3, 1, 0);
lean_ctor_set(x_41, 0, x_40);
x_18 = x_35;
x_19 = x_36;
x_20 = x_37;
x_18 = x_36;
x_19 = x_37;
x_20 = x_35;
x_21 = x_41;
goto block_34;
}
@ -1476,9 +1476,9 @@ lean_dec(x_14);
x_43 = lean_alloc_ctor(3, 1, 0);
lean_ctor_set(x_43, 0, x_42);
x_44 = l_Repr_addAppParen(x_43, x_17);
x_18 = x_35;
x_19 = x_36;
x_20 = x_37;
x_18 = x_36;
x_19 = x_37;
x_20 = x_35;
x_21 = x_44;
goto block_34;
}

6
stage0/stdlib/Init/Grind/Ring/Basic.c generated
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: Init.Grind.Ring.Basic
// Imports: Init.Data.Zero Init.Data.Int.DivMod.Lemmas Init.Data.Int.Pow Init.TacticsExtra Init.Grind.Module.Basic
// Imports: Init.Data.Zero Init.Data.Int.DivMod.Lemmas Init.Data.Int.LemmasAux Init.Data.Int.Pow Init.TacticsExtra Init.Grind.Module.Basic
#include <lean/lean.h>
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
@ -2333,6 +2333,7 @@ return x_3;
}
lean_object* initialize_Init_Data_Zero(uint8_t builtin, lean_object*);
lean_object* initialize_Init_Data_Int_DivMod_Lemmas(uint8_t builtin, lean_object*);
lean_object* initialize_Init_Data_Int_LemmasAux(uint8_t builtin, lean_object*);
lean_object* initialize_Init_Data_Int_Pow(uint8_t builtin, lean_object*);
lean_object* initialize_Init_TacticsExtra(uint8_t builtin, lean_object*);
lean_object* initialize_Init_Grind_Module_Basic(uint8_t builtin, lean_object*);
@ -2347,6 +2348,9 @@ lean_dec_ref(res);
res = initialize_Init_Data_Int_DivMod_Lemmas(builtin, lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Data_Int_LemmasAux(builtin, lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Data_Int_Pow(builtin, lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);

57
stage0/stdlib/Init/Grind/Ring/Envelope.c generated
View file

@ -13,9 +13,9 @@
#ifdef __cplusplus
extern "C" {
#endif
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instPreorderQOfOrderedAdd___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLTQOfOrderedAdd___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_zsmul___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLEQOfOrderedAdd(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLEQOfOrderedAdd(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_sub(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_intCast___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_Q_liftOn_u2082___redArg(lean_object*, lean_object*, lean_object*);
@ -27,6 +27,7 @@ LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_zsmul___redArg___boxed(lea
LEAN_EXPORT lean_object* l_Lean_Grind_CommRing_OfCommSemiring_toQUnexpander(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Grind_Ring_Envelope_0__Lean_Grind_Ring_OfSemiring_r_match__1_splitter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLTQOfOrderedAdd(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_Q_mk___redArg(lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_npow___redArg(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_Q_mk___boxed(lean_object*, lean_object*, lean_object*);
@ -42,7 +43,6 @@ LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_Q_liftOn_u2082(lean_object
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_mul___redArg(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Grind_CommRing_OfCommSemiring_toQUnexpander___closed__0;
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_npow(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Grind_Ring_OfSemiring_instPreorderQOfOrderedAdd___closed__0;
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_Q_mk(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Grind_CommRing_OfCommSemiring_toQUnexpander___closed__6;
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_intCast___redArg___boxed(lean_object*, lean_object*);
@ -63,7 +63,7 @@ static lean_object* l_Lean_Grind_CommRing_OfCommSemiring_toQUnexpander___closed_
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_ofSemiring___redArg___lam__0(lean_object*, lean_object*);
uint8_t lean_int_dec_lt(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_natCast(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLEQOfOrderedAdd___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLEQOfOrderedAdd___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_sub(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_sub___redArg(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_CommRing_OfCommSemiring_ofCommSemiring(lean_object*, lean_object*);
@ -79,7 +79,6 @@ LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_neg___redArg(lean_object*)
static lean_object* l_Lean_Grind_CommRing_OfCommSemiring_toQUnexpander___closed__5;
static lean_object* l_Lean_Grind_CommRing_OfCommSemiring_toQUnexpander___closed__1;
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_Q_mk___redArg___boxed(lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instPreorderQOfOrderedAdd(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_CommRing_OfCommSemiring_ofCommSemiring___redArg(lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_mul(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Grind_Ring_Envelope_0__Lean_Grind_Ring_OfSemiring_r_match__1_splitter___redArg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
@ -696,52 +695,38 @@ x_4 = l_Lean_Grind_Ring_OfSemiring_toQ___redArg(x_2, x_3);
return x_4;
}
}
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLEQOfOrderedAdd(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLEQOfOrderedAdd(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_5;
x_5 = lean_box(0);
return x_5;
lean_object* x_7;
x_7 = lean_box(0);
return x_7;
}
}
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLEQOfOrderedAdd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLEQOfOrderedAdd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_5;
x_5 = l_Lean_Grind_Ring_OfSemiring_instLEQOfOrderedAdd(x_1, x_2, x_3, x_4);
lean_dec_ref(x_3);
lean_object* x_7;
x_7 = l_Lean_Grind_Ring_OfSemiring_instLEQOfOrderedAdd(x_1, x_2, x_3, x_4, x_5, x_6);
lean_dec_ref(x_2);
return x_5;
return x_7;
}
}
static lean_object* _init_l_Lean_Grind_Ring_OfSemiring_instPreorderQOfOrderedAdd___closed__0() {
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLTQOfOrderedAdd(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = lean_box(0);
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
lean_object* x_7;
x_7 = lean_box(0);
return x_7;
}
}
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instPreorderQOfOrderedAdd(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instLTQOfOrderedAdd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_5;
x_5 = l_Lean_Grind_Ring_OfSemiring_instPreorderQOfOrderedAdd___closed__0;
return x_5;
}
}
LEAN_EXPORT lean_object* l_Lean_Grind_Ring_OfSemiring_instPreorderQOfOrderedAdd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_Lean_Grind_Ring_OfSemiring_instPreorderQOfOrderedAdd(x_1, x_2, x_3, x_4);
lean_dec_ref(x_3);
lean_object* x_7;
x_7 = l_Lean_Grind_Ring_OfSemiring_instLTQOfOrderedAdd(x_1, x_2, x_3, x_4, x_5, x_6);
lean_dec_ref(x_2);
return x_5;
return x_7;
}
}
LEAN_EXPORT lean_object* l_Lean_Grind_CommRing_OfCommSemiring_ofCommSemiring___redArg(lean_object* x_1) {
@ -915,8 +900,6 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Grind_Ring_OfSemiring_intCast___redArg___closed__0 = _init_l_Lean_Grind_Ring_OfSemiring_intCast___redArg___closed__0();
lean_mark_persistent(l_Lean_Grind_Ring_OfSemiring_intCast___redArg___closed__0);
l_Lean_Grind_Ring_OfSemiring_instPreorderQOfOrderedAdd___closed__0 = _init_l_Lean_Grind_Ring_OfSemiring_instPreorderQOfOrderedAdd___closed__0();
lean_mark_persistent(l_Lean_Grind_Ring_OfSemiring_instPreorderQOfOrderedAdd___closed__0);
l_Lean_Grind_CommRing_OfCommSemiring_toQUnexpander___closed__0 = _init_l_Lean_Grind_CommRing_OfCommSemiring_toQUnexpander___closed__0();
lean_mark_persistent(l_Lean_Grind_CommRing_OfCommSemiring_toQUnexpander___closed__0);
l_Lean_Grind_CommRing_OfCommSemiring_toQUnexpander___closed__1 = _init_l_Lean_Grind_CommRing_OfCommSemiring_toQUnexpander___closed__1();

36
stage0/stdlib/Init/Grind/Ring/Poly.c generated
View file

@ -1129,8 +1129,8 @@ if (lean_is_scalar(x_22)) {
lean_ctor_set_tag(x_28, 3);
}
lean_ctor_set(x_28, 0, x_27);
x_12 = x_23;
x_13 = x_24;
x_12 = x_24;
x_13 = x_23;
x_14 = x_28;
goto block_20;
}
@ -1148,8 +1148,8 @@ if (lean_is_scalar(x_22)) {
}
lean_ctor_set(x_31, 0, x_30);
x_32 = l_Repr_addAppParen(x_31, x_29);
x_12 = x_23;
x_13 = x_24;
x_12 = x_24;
x_13 = x_23;
x_14 = x_32;
goto block_20;
}
@ -1255,8 +1255,8 @@ if (lean_is_scalar(x_55)) {
lean_ctor_set_tag(x_61, 3);
}
lean_ctor_set(x_61, 0, x_60);
x_3 = x_56;
x_4 = x_57;
x_3 = x_57;
x_4 = x_56;
x_5 = x_61;
goto block_11;
}
@ -1274,8 +1274,8 @@ if (lean_is_scalar(x_55)) {
}
lean_ctor_set(x_64, 0, x_63);
x_65 = l_Repr_addAppParen(x_64, x_62);
x_3 = x_56;
x_4 = x_57;
x_3 = x_57;
x_4 = x_56;
x_5 = x_65;
goto block_11;
}
@ -1633,10 +1633,10 @@ block_11:
{
lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_9; lean_object* x_10;
x_6 = lean_alloc_ctor(5, 2, 0);
lean_ctor_set(x_6, 0, x_4);
lean_ctor_set(x_6, 0, x_3);
lean_ctor_set(x_6, 1, x_5);
x_7 = lean_alloc_ctor(4, 2, 0);
lean_ctor_set(x_7, 0, x_3);
lean_ctor_set(x_7, 0, x_4);
lean_ctor_set(x_7, 1, x_6);
x_8 = 0;
x_9 = lean_alloc_ctor(6, 1, 1);
@ -1649,10 +1649,10 @@ block_20:
{
lean_object* x_15; lean_object* x_16; uint8_t x_17; lean_object* x_18; lean_object* x_19;
x_15 = lean_alloc_ctor(5, 2, 0);
lean_ctor_set(x_15, 0, x_13);
lean_ctor_set(x_15, 0, x_12);
lean_ctor_set(x_15, 1, x_14);
x_16 = lean_alloc_ctor(4, 2, 0);
lean_ctor_set(x_16, 0, x_12);
lean_ctor_set(x_16, 0, x_13);
lean_ctor_set(x_16, 1, x_15);
x_17 = 0;
x_18 = lean_alloc_ctor(6, 1, 1);
@ -3998,8 +3998,8 @@ if (lean_is_scalar(x_13)) {
lean_ctor_set_tag(x_19, 3);
}
lean_ctor_set(x_19, 0, x_18);
x_3 = x_14;
x_4 = x_15;
x_3 = x_15;
x_4 = x_14;
x_5 = x_19;
goto block_11;
}
@ -4017,8 +4017,8 @@ if (lean_is_scalar(x_13)) {
}
lean_ctor_set(x_22, 0, x_21);
x_23 = l_Repr_addAppParen(x_22, x_20);
x_3 = x_14;
x_4 = x_15;
x_3 = x_15;
x_4 = x_14;
x_5 = x_23;
goto block_11;
}
@ -4121,10 +4121,10 @@ block_11:
{
lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_9; lean_object* x_10;
x_6 = lean_alloc_ctor(5, 2, 0);
lean_ctor_set(x_6, 0, x_4);
lean_ctor_set(x_6, 0, x_3);
lean_ctor_set(x_6, 1, x_5);
x_7 = lean_alloc_ctor(4, 2, 0);
lean_ctor_set(x_7, 0, x_3);
lean_ctor_set(x_7, 0, x_4);
lean_ctor_set(x_7, 1, x_6);
x_8 = 0;
x_9 = lean_alloc_ctor(6, 1, 1);

6
stage0/stdlib/Init/GrindInstances/Ring/BitVec.c generated
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: Init.GrindInstances.Ring.BitVec
// Imports: Init.Grind.Ring.Basic Init.GrindInstances.ToInt Init.Data.BitVec.Basic Init.Grind.ToInt
// Imports: Init.Grind.Ring.Basic Init.Grind.Ordered.Order Init.GrindInstances.ToInt Init.Data.BitVec.Basic Init.Grind.ToInt
#include <lean/lean.h>
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
@ -124,6 +124,7 @@ return x_4;
}
}
lean_object* initialize_Init_Grind_Ring_Basic(uint8_t builtin, lean_object*);
lean_object* initialize_Init_Grind_Ordered_Order(uint8_t builtin, lean_object*);
lean_object* initialize_Init_GrindInstances_ToInt(uint8_t builtin, lean_object*);
lean_object* initialize_Init_Data_BitVec_Basic(uint8_t builtin, lean_object*);
lean_object* initialize_Init_Grind_ToInt(uint8_t builtin, lean_object*);
@ -135,6 +136,9 @@ _G_initialized = true;
res = initialize_Init_Grind_Ring_Basic(builtin, lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Grind_Ordered_Order(builtin, lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_GrindInstances_ToInt(builtin, lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);

26
stage0/stdlib/Init/GrindInstances/Ring/Nat.c generated
View file

@ -24,12 +24,10 @@ static lean_object* l_Lean_Grind_instCommSemiringNat___closed__8;
static lean_object* l_Lean_Grind_instCommSemiringNat___closed__6;
lean_object* l_Nat_mul___boxed(lean_object*, lean_object*);
lean_object* l_instOfNatNat___boxed(lean_object*);
LEAN_EXPORT lean_object* l_Lean_Grind_instPreorderNat;
lean_object* l_Nat_add___boxed(lean_object*, lean_object*);
static lean_object* l_Lean_Grind_instCommSemiringNat___closed__4;
LEAN_EXPORT lean_object* l_Lean_Grind_instCommSemiringNat;
static lean_object* l_Lean_Grind_instCommSemiringNat___closed__5;
static lean_object* l_Lean_Grind_instPreorderNat___closed__0;
lean_object* l_instNatCastNat___lam__0___boxed(lean_object*);
lean_object* l_Nat_pow___boxed(lean_object*, lean_object*);
static lean_object* _init_l_Lean_Grind_instCommSemiringNat___closed__0() {
@ -130,26 +128,6 @@ x_1 = l_Lean_Grind_instCommSemiringNat___closed__8;
return x_1;
}
}
static lean_object* _init_l_Lean_Grind_instPreorderNat___closed__0() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = lean_box(0);
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
static lean_object* _init_l_Lean_Grind_instPreorderNat() {
_start:
{
lean_object* x_1;
x_1 = l_Lean_Grind_instPreorderNat___closed__0;
return x_1;
}
}
lean_object* initialize_Init_Grind_Ordered_Ring(uint8_t builtin, lean_object*);
lean_object* initialize_Init_Data_Int_Lemmas(uint8_t builtin, lean_object*);
static bool _G_initialized = false;
@ -183,10 +161,6 @@ l_Lean_Grind_instCommSemiringNat___closed__8 = _init_l_Lean_Grind_instCommSemiri
lean_mark_persistent(l_Lean_Grind_instCommSemiringNat___closed__8);
l_Lean_Grind_instCommSemiringNat = _init_l_Lean_Grind_instCommSemiringNat();
lean_mark_persistent(l_Lean_Grind_instCommSemiringNat);
l_Lean_Grind_instPreorderNat___closed__0 = _init_l_Lean_Grind_instPreorderNat___closed__0();
lean_mark_persistent(l_Lean_Grind_instPreorderNat___closed__0);
l_Lean_Grind_instPreorderNat = _init_l_Lean_Grind_instPreorderNat();
lean_mark_persistent(l_Lean_Grind_instPreorderNat);
return lean_io_result_mk_ok(lean_box(0));
}
#ifdef __cplusplus

2603
stage0/stdlib/Init/Meta.c generated
View file

File diff suppressed because one or more lines are too long

535
stage0/stdlib/Init/MetaTypes.c generated
View file

@ -14,7 +14,6 @@
extern "C" {
#endif
LEAN_EXPORT lean_object* l_Lean_Meta_EtaStructMode_noConfusion___redArg___boxed(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_829_(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_instInhabitedNameGenerator;
LEAN_EXPORT uint8_t l_Lean_Meta_instInhabitedEtaStructMode;
static lean_object* l_Lean_Meta_Simp_instBEqConfig___closed__0;
@ -47,23 +46,24 @@ LEAN_EXPORT lean_object* l_Lean_Meta_EtaStructMode_toCtorIdx(uint8_t);
static lean_object* l_Lean_Meta_instBEqTransparencyMode___closed__0;
LEAN_EXPORT lean_object* l_Lean_Meta_instBEqOccurrences;
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1395____boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Meta_TransparencyMode_noConfusion___redArg___boxed(lean_object*, lean_object*);
static lean_object* l_Lean_instInhabitedNameGenerator___closed__0;
LEAN_EXPORT lean_object* l_Lean_Meta_instBEqEtaStructMode;
LEAN_EXPORT lean_object* l_Lean_Meta_instInhabitedOccurrences;
LEAN_EXPORT lean_object* l_Lean_Meta_TransparencyMode_noConfusion___redArg(uint8_t, uint8_t);
LEAN_EXPORT lean_object* l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_829____boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Meta_instBEqTransparencyMode;
LEAN_EXPORT uint8_t l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1395_(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Meta_DSimp_instInhabitedConfig;
LEAN_EXPORT lean_object* l_Lean_Meta_Simp_defaultMaxSteps;
LEAN_EXPORT uint8_t l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_839_(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Meta_Simp_instBEqConfig;
LEAN_EXPORT lean_object* l_Lean_Meta_TransparencyMode_toCtorIdx(uint8_t);
lean_object* l_instDecidableEqNat___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_839____boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Meta_EtaStructMode_toCtorIdx___boxed(lean_object*);
static lean_object* l_Lean_Meta_Simp_instInhabitedConfig___closed__0;
LEAN_EXPORT lean_object* l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1369____boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Meta_TransparencyMode_noConfusion___redArg___lam__0___boxed(lean_object*);
LEAN_EXPORT uint8_t l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1369_(lean_object*, lean_object*);
static lean_object* l_Lean_Meta_EtaStructMode_noConfusion___redArg___closed__0;
static lean_object* _init_l_Lean_instInhabitedNameGenerator___closed__0() {
_start:
@ -799,7 +799,7 @@ uint8_t x_1; uint8_t x_2; lean_object* x_3; lean_object* x_4;
x_1 = 0;
x_2 = 0;
x_3 = lean_unsigned_to_nat(0u);
x_4 = lean_alloc_ctor(0, 2, 24);
x_4 = lean_alloc_ctor(0, 2, 25);
lean_ctor_set(x_4, 0, x_3);
lean_ctor_set(x_4, 1, x_3);
lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_2);
@ -826,6 +826,7 @@ lean_ctor_set_uint8(x_4, sizeof(void*)*2 + 20, x_2);
lean_ctor_set_uint8(x_4, sizeof(void*)*2 + 21, x_2);
lean_ctor_set_uint8(x_4, sizeof(void*)*2 + 22, x_2);
lean_ctor_set_uint8(x_4, sizeof(void*)*2 + 23, x_2);
lean_ctor_set_uint8(x_4, sizeof(void*)*2 + 24, x_2);
return x_4;
}
}
@ -837,10 +838,10 @@ x_1 = l_Lean_Meta_Simp_instInhabitedConfig___closed__0;
return x_1;
}
}
LEAN_EXPORT uint8_t l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_829_(lean_object* x_1, lean_object* x_2) {
LEAN_EXPORT uint8_t l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_839_(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; uint8_t x_5; uint8_t x_6; uint8_t x_7; uint8_t x_8; uint8_t x_9; uint8_t x_10; uint8_t x_11; uint8_t x_12; uint8_t x_13; uint8_t x_14; uint8_t x_15; uint8_t x_16; uint8_t x_17; uint8_t x_18; uint8_t x_19; uint8_t x_20; uint8_t x_21; uint8_t x_22; uint8_t x_23; uint8_t x_24; uint8_t x_25; uint8_t x_26; uint8_t x_27; uint8_t x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31; uint8_t x_32; uint8_t x_33; uint8_t x_34; uint8_t x_35; uint8_t x_36; uint8_t x_37; uint8_t x_38; uint8_t x_39; uint8_t x_40; uint8_t x_41; uint8_t x_42; uint8_t x_43; uint8_t x_44; uint8_t x_45; uint8_t x_46; uint8_t x_47; uint8_t x_48; uint8_t x_49; uint8_t x_50; uint8_t x_51; uint8_t x_52; uint8_t x_53; uint8_t x_54; uint8_t x_55; uint8_t x_57; uint8_t x_59; uint8_t x_61; uint8_t x_63; uint8_t x_65; uint8_t x_67; uint8_t x_69; uint8_t x_71; uint8_t x_73; uint8_t x_75; uint8_t x_77; uint8_t x_79; uint8_t x_81; uint8_t x_83; uint8_t x_85; uint8_t x_93; uint8_t x_95;
lean_object* x_3; lean_object* x_4; uint8_t x_5; uint8_t x_6; uint8_t x_7; uint8_t x_8; uint8_t x_9; uint8_t x_10; uint8_t x_11; uint8_t x_12; uint8_t x_13; uint8_t x_14; uint8_t x_15; uint8_t x_16; uint8_t x_17; uint8_t x_18; uint8_t x_19; uint8_t x_20; uint8_t x_21; uint8_t x_22; uint8_t x_23; uint8_t x_24; uint8_t x_25; uint8_t x_26; uint8_t x_27; uint8_t x_28; uint8_t x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; uint8_t x_33; uint8_t x_34; uint8_t x_35; uint8_t x_36; uint8_t x_37; uint8_t x_38; uint8_t x_39; uint8_t x_40; uint8_t x_41; uint8_t x_42; uint8_t x_43; uint8_t x_44; uint8_t x_45; uint8_t x_46; uint8_t x_47; uint8_t x_48; uint8_t x_49; uint8_t x_50; uint8_t x_51; uint8_t x_52; uint8_t x_53; uint8_t x_54; uint8_t x_55; uint8_t x_56; uint8_t x_57; uint8_t x_59; uint8_t x_61; uint8_t x_63; uint8_t x_65; uint8_t x_67; uint8_t x_69; uint8_t x_71; uint8_t x_73; uint8_t x_75; uint8_t x_77; uint8_t x_79; uint8_t x_81; uint8_t x_83; uint8_t x_85; uint8_t x_87; uint8_t x_89; uint8_t x_97; uint8_t x_99;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_ctor_get(x_1, 1);
x_5 = lean_ctor_get_uint8(x_1, sizeof(void*)*2);
@ -867,53 +868,55 @@ x_25 = lean_ctor_get_uint8(x_1, sizeof(void*)*2 + 20);
x_26 = lean_ctor_get_uint8(x_1, sizeof(void*)*2 + 21);
x_27 = lean_ctor_get_uint8(x_1, sizeof(void*)*2 + 22);
x_28 = lean_ctor_get_uint8(x_1, sizeof(void*)*2 + 23);
x_29 = lean_ctor_get(x_2, 0);
x_30 = lean_ctor_get(x_2, 1);
x_31 = lean_ctor_get_uint8(x_2, sizeof(void*)*2);
x_32 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 1);
x_33 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 2);
x_34 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 3);
x_35 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 4);
x_36 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 5);
x_37 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 6);
x_38 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 7);
x_39 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 8);
x_40 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 9);
x_41 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 10);
x_42 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 11);
x_43 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 12);
x_44 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 13);
x_45 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 14);
x_46 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 15);
x_47 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 16);
x_48 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 17);
x_49 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 18);
x_50 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 19);
x_51 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 20);
x_52 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 21);
x_53 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 22);
x_54 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 23);
x_95 = lean_nat_dec_eq(x_3, x_29);
if (x_95 == 0)
x_29 = lean_ctor_get_uint8(x_1, sizeof(void*)*2 + 24);
x_30 = lean_ctor_get(x_2, 0);
x_31 = lean_ctor_get(x_2, 1);
x_32 = lean_ctor_get_uint8(x_2, sizeof(void*)*2);
x_33 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 1);
x_34 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 2);
x_35 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 3);
x_36 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 4);
x_37 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 5);
x_38 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 6);
x_39 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 7);
x_40 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 8);
x_41 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 9);
x_42 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 10);
x_43 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 11);
x_44 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 12);
x_45 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 13);
x_46 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 14);
x_47 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 15);
x_48 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 16);
x_49 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 17);
x_50 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 18);
x_51 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 19);
x_52 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 20);
x_53 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 21);
x_54 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 22);
x_55 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 23);
x_56 = lean_ctor_get_uint8(x_2, sizeof(void*)*2 + 24);
x_99 = lean_nat_dec_eq(x_3, x_30);
if (x_99 == 0)
{
return x_95;
return x_99;
}
else
{
uint8_t x_96;
x_96 = lean_nat_dec_eq(x_4, x_30);
if (x_96 == 0)
uint8_t x_100;
x_100 = lean_nat_dec_eq(x_4, x_31);
if (x_100 == 0)
{
return x_96;
return x_100;
}
else
{
if (x_5 == 0)
{
if (x_31 == 0)
if (x_32 == 0)
{
x_93 = x_96;
goto block_94;
x_97 = x_100;
goto block_98;
}
else
{
@ -922,18 +925,37 @@ return x_5;
}
else
{
x_93 = x_31;
goto block_94;
x_97 = x_32;
goto block_98;
}
}
}
block_56:
block_58:
{
if (x_29 == 0)
{
if (x_56 == 0)
{
return x_57;
}
else
{
return x_29;
}
}
else
{
return x_56;
}
}
block_60:
{
if (x_28 == 0)
{
if (x_54 == 0)
if (x_55 == 0)
{
return x_55;
x_57 = x_59;
goto block_58;
}
else
{
@ -942,17 +964,25 @@ return x_28;
}
else
{
return x_54;
if (x_55 == 0)
{
return x_55;
}
else
{
x_57 = x_55;
goto block_58;
}
}
block_58:
}
block_62:
{
if (x_27 == 0)
{
if (x_53 == 0)
if (x_54 == 0)
{
x_55 = x_57;
goto block_56;
x_59 = x_61;
goto block_60;
}
else
{
@ -961,29 +991,56 @@ return x_27;
}
else
{
if (x_54 == 0)
{
return x_54;
}
else
{
x_59 = x_54;
goto block_60;
}
}
}
block_64:
{
if (x_26 == 0)
{
if (x_53 == 0)
{
x_61 = x_63;
goto block_62;
}
else
{
return x_26;
}
}
else
{
if (x_53 == 0)
{
return x_53;
}
else
{
x_55 = x_53;
goto block_56;
x_61 = x_53;
goto block_62;
}
}
}
block_60:
block_66:
{
if (x_26 == 0)
if (x_25 == 0)
{
if (x_52 == 0)
{
x_57 = x_59;
goto block_58;
x_63 = x_65;
goto block_64;
}
else
{
return x_26;
return x_25;
}
}
else
@ -994,23 +1051,23 @@ return x_52;
}
else
{
x_57 = x_52;
goto block_58;
x_63 = x_52;
goto block_64;
}
}
}
block_62:
block_68:
{
if (x_25 == 0)
if (x_24 == 0)
{
if (x_51 == 0)
{
x_59 = x_61;
goto block_60;
x_65 = x_67;
goto block_66;
}
else
{
return x_25;
return x_24;
}
}
else
@ -1021,23 +1078,23 @@ return x_51;
}
else
{
x_59 = x_51;
goto block_60;
x_65 = x_51;
goto block_66;
}
}
}
block_64:
block_70:
{
if (x_24 == 0)
if (x_23 == 0)
{
if (x_50 == 0)
{
x_61 = x_63;
goto block_62;
x_67 = x_69;
goto block_68;
}
else
{
return x_24;
return x_23;
}
}
else
@ -1048,23 +1105,23 @@ return x_50;
}
else
{
x_61 = x_50;
goto block_62;
x_67 = x_50;
goto block_68;
}
}
}
block_66:
block_72:
{
if (x_23 == 0)
if (x_22 == 0)
{
if (x_49 == 0)
{
x_63 = x_65;
goto block_64;
x_69 = x_71;
goto block_70;
}
else
{
return x_23;
return x_22;
}
}
else
@ -1075,23 +1132,23 @@ return x_49;
}
else
{
x_63 = x_49;
goto block_64;
x_69 = x_49;
goto block_70;
}
}
}
block_68:
block_74:
{
if (x_22 == 0)
if (x_21 == 0)
{
if (x_48 == 0)
{
x_65 = x_67;
goto block_66;
x_71 = x_73;
goto block_72;
}
else
{
return x_22;
return x_21;
}
}
else
@ -1102,23 +1159,23 @@ return x_48;
}
else
{
x_65 = x_48;
goto block_66;
x_71 = x_48;
goto block_72;
}
}
}
block_70:
block_76:
{
if (x_21 == 0)
if (x_20 == 0)
{
if (x_47 == 0)
{
x_67 = x_69;
goto block_68;
x_73 = x_75;
goto block_74;
}
else
{
return x_21;
return x_20;
}
}
else
@ -1129,23 +1186,23 @@ return x_47;
}
else
{
x_67 = x_47;
goto block_68;
x_73 = x_47;
goto block_74;
}
}
}
block_72:
block_78:
{
if (x_20 == 0)
if (x_19 == 0)
{
if (x_46 == 0)
{
x_69 = x_71;
goto block_70;
x_75 = x_77;
goto block_76;
}
else
{
return x_20;
return x_19;
}
}
else
@ -1156,23 +1213,23 @@ return x_46;
}
else
{
x_69 = x_46;
goto block_70;
x_75 = x_46;
goto block_76;
}
}
}
block_74:
block_80:
{
if (x_19 == 0)
if (x_18 == 0)
{
if (x_45 == 0)
{
x_71 = x_73;
goto block_72;
x_77 = x_79;
goto block_78;
}
else
{
return x_19;
return x_18;
}
}
else
@ -1183,23 +1240,23 @@ return x_45;
}
else
{
x_71 = x_45;
goto block_72;
x_77 = x_45;
goto block_78;
}
}
}
block_76:
block_82:
{
if (x_18 == 0)
if (x_17 == 0)
{
if (x_44 == 0)
{
x_73 = x_75;
goto block_74;
x_79 = x_81;
goto block_80;
}
else
{
return x_18;
return x_17;
}
}
else
@ -1210,23 +1267,23 @@ return x_44;
}
else
{
x_73 = x_44;
goto block_74;
x_79 = x_44;
goto block_80;
}
}
}
block_78:
block_84:
{
if (x_17 == 0)
if (x_16 == 0)
{
if (x_43 == 0)
{
x_75 = x_77;
goto block_76;
x_81 = x_83;
goto block_82;
}
else
{
return x_17;
return x_16;
}
}
else
@ -1237,23 +1294,23 @@ return x_43;
}
else
{
x_75 = x_43;
goto block_76;
x_81 = x_43;
goto block_82;
}
}
}
block_80:
block_86:
{
if (x_16 == 0)
if (x_15 == 0)
{
if (x_42 == 0)
{
x_77 = x_79;
goto block_78;
x_83 = x_85;
goto block_84;
}
else
{
return x_16;
return x_15;
}
}
else
@ -1264,23 +1321,23 @@ return x_42;
}
else
{
x_77 = x_42;
goto block_78;
x_83 = x_42;
goto block_84;
}
}
}
block_82:
block_88:
{
if (x_15 == 0)
if (x_14 == 0)
{
if (x_41 == 0)
{
x_79 = x_81;
goto block_80;
x_85 = x_87;
goto block_86;
}
else
{
return x_15;
return x_14;
}
}
else
@ -1291,23 +1348,29 @@ return x_41;
}
else
{
x_79 = x_41;
goto block_80;
x_85 = x_41;
goto block_86;
}
}
}
block_84:
block_90:
{
if (x_14 == 0)
if (x_89 == 0)
{
if (x_40 == 0)
{
x_81 = x_83;
goto block_82;
return x_89;
}
else
{
return x_14;
if (x_13 == 0)
{
if (x_40 == 0)
{
x_87 = x_89;
goto block_88;
}
else
{
return x_13;
}
}
else
@ -1318,61 +1381,28 @@ return x_40;
}
else
{
x_81 = x_40;
goto block_82;
x_87 = x_40;
goto block_88;
}
}
}
block_86:
}
block_92:
{
if (x_85 == 0)
uint8_t x_91;
x_91 = l_Lean_Meta_beqEtaStructMode____x40_Init_MetaTypes___hyg_110_(x_11, x_38);
if (x_91 == 0)
{
return x_85;
}
else
{
if (x_13 == 0)
{
if (x_39 == 0)
{
x_83 = x_85;
goto block_84;
}
else
{
return x_13;
}
}
else
{
if (x_39 == 0)
{
return x_39;
}
else
{
x_83 = x_39;
goto block_84;
}
}
}
}
block_88:
{
uint8_t x_87;
x_87 = l_Lean_Meta_beqEtaStructMode____x40_Init_MetaTypes___hyg_110_(x_11, x_37);
if (x_87 == 0)
{
return x_87;
return x_91;
}
else
{
if (x_12 == 0)
{
if (x_38 == 0)
if (x_39 == 0)
{
x_85 = x_87;
goto block_86;
x_89 = x_91;
goto block_90;
}
else
{
@ -1381,18 +1411,18 @@ return x_12;
}
else
{
x_85 = x_38;
goto block_86;
x_89 = x_39;
goto block_90;
}
}
}
block_89:
block_93:
{
if (x_10 == 0)
{
if (x_36 == 0)
if (x_37 == 0)
{
goto block_88;
goto block_92;
}
else
{
@ -1401,27 +1431,52 @@ return x_10;
}
else
{
if (x_37 == 0)
{
return x_37;
}
else
{
goto block_92;
}
}
}
block_94:
{
if (x_9 == 0)
{
if (x_36 == 0)
{
goto block_93;
}
else
{
return x_9;
}
}
else
{
if (x_36 == 0)
{
return x_36;
}
else
{
goto block_88;
goto block_93;
}
}
}
block_90:
block_95:
{
if (x_9 == 0)
if (x_8 == 0)
{
if (x_35 == 0)
{
goto block_89;
goto block_94;
}
else
{
return x_9;
return x_8;
}
}
else
@ -1432,21 +1487,21 @@ return x_35;
}
else
{
goto block_89;
goto block_94;
}
}
}
block_91:
block_96:
{
if (x_8 == 0)
if (x_7 == 0)
{
if (x_34 == 0)
{
goto block_90;
goto block_95;
}
else
{
return x_8;
return x_7;
}
}
else
@ -1457,21 +1512,27 @@ return x_34;
}
else
{
goto block_90;
goto block_95;
}
}
}
block_92:
block_98:
{
if (x_7 == 0)
if (x_97 == 0)
{
if (x_33 == 0)
{
goto block_91;
return x_97;
}
else
{
return x_7;
if (x_6 == 0)
{
if (x_33 == 0)
{
goto block_96;
}
else
{
return x_6;
}
}
else
@ -1482,49 +1543,18 @@ return x_33;
}
else
{
goto block_91;
}
}
}
block_94:
{
if (x_93 == 0)
{
return x_93;
}
else
{
if (x_6 == 0)
{
if (x_32 == 0)
{
goto block_92;
}
else
{
return x_6;
}
}
else
{
if (x_32 == 0)
{
return x_32;
}
else
{
goto block_92;
goto block_96;
}
}
}
}
}
}
LEAN_EXPORT lean_object* l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_829____boxed(lean_object* x_1, lean_object* x_2) {
LEAN_EXPORT lean_object* l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_839____boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3; lean_object* x_4;
x_3 = l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_829_(x_1, x_2);
x_3 = l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_839_(x_1, x_2);
lean_dec_ref(x_2);
lean_dec_ref(x_1);
x_4 = lean_box(x_3);
@ -1535,7 +1565,7 @@ static lean_object* _init_l_Lean_Meta_Simp_instBEqConfig___closed__0() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_829____boxed), 2, 0);
x_1 = lean_alloc_closure((void*)(l_Lean_Meta_Simp_beqConfig____x40_Init_MetaTypes___hyg_839____boxed), 2, 0);
return x_1;
}
}
@ -1556,7 +1586,7 @@ x_2 = 1;
x_3 = 0;
x_4 = lean_unsigned_to_nat(2u);
x_5 = lean_unsigned_to_nat(100000u);
x_6 = lean_alloc_ctor(0, 2, 24);
x_6 = lean_alloc_ctor(0, 2, 25);
lean_ctor_set(x_6, 0, x_5);
lean_ctor_set(x_6, 1, x_4);
lean_ctor_set_uint8(x_6, sizeof(void*)*2, x_3);
@ -1583,6 +1613,7 @@ lean_ctor_set_uint8(x_6, sizeof(void*)*2 + 20, x_2);
lean_ctor_set_uint8(x_6, sizeof(void*)*2 + 21, x_2);
lean_ctor_set_uint8(x_6, sizeof(void*)*2 + 22, x_3);
lean_ctor_set_uint8(x_6, sizeof(void*)*2 + 23, x_2);
lean_ctor_set_uint8(x_6, sizeof(void*)*2 + 24, x_2);
return x_6;
}
}
@ -1602,7 +1633,7 @@ x_1 = lean_box(0);
return x_1;
}
}
LEAN_EXPORT uint8_t l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1369_(lean_object* x_1, lean_object* x_2) {
LEAN_EXPORT uint8_t l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1395_(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4;
@ -1681,11 +1712,11 @@ return x_6;
}
}
}
LEAN_EXPORT lean_object* l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1369____boxed(lean_object* x_1, lean_object* x_2) {
LEAN_EXPORT lean_object* l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1395____boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3; lean_object* x_4;
x_3 = l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1369_(x_1, x_2);
x_3 = l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1395_(x_1, x_2);
x_4 = lean_box(x_3);
return x_4;
}
@ -1694,7 +1725,7 @@ static lean_object* _init_l_Lean_Meta_instBEqOccurrences___closed__0() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1369____boxed), 2, 0);
x_1 = lean_alloc_closure((void*)(l_Lean_Meta_beqOccurrences____x40_Init_MetaTypes___hyg_1395____boxed), 2, 0);
return x_1;
}
}

8
stage0/stdlib/Init/NotationExtra.c generated
View file

@ -176,6 +176,7 @@ static lean_object* l_Lean___aux__Init__NotationExtra______macroRules__Lean__ter
static lean_object* l_unexpandListToArray___closed__1;
static lean_object* l_unexpandMkArray8___closed__0;
lean_object* l_Lean_mkIdentFrom(lean_object*, lean_object*, uint8_t);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean___aux__Init__NotationExtra______macroRules__Lean__command____Unif__hint________Where___x7c___x2d_u22a2____1_spec__1___boxed(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_bracketedExplicitBinders___closed__9;
static lean_object* l_Lean_solveTactic___closed__7;
@ -544,7 +545,6 @@ static lean_object* l_Lean_unbracketedExplicitBinders___closed__20;
LEAN_EXPORT lean_object* l_unexpandTSyntax(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_calcSteps___closed__6;
uint8_t l_Lean_Name_hasMacroScopes(lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
static lean_object* l_Lean_solveTactic___closed__13;
static lean_object* l_term_u2203___x2c_____closed__7;
static lean_object* l___aux__Init__NotationExtra______macroRules__tacticFunext________1___closed__14;
@ -1559,9 +1559,8 @@ lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; uint
x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_sub(x_4, x_11);
lean_dec(x_4);
x_13 = lean_array_fget(x_2, x_12);
x_13 = lean_array_fget_borrowed(x_2, x_12);
x_14 = l_Lean_Syntax_getArg(x_13, x_8);
lean_dec(x_13);
x_15 = l_Lean_Syntax_isIdent(x_14);
if (x_15 == 0)
{
@ -1826,13 +1825,12 @@ lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean
x_10 = lean_unsigned_to_nat(1u);
x_11 = lean_nat_sub(x_3, x_10);
lean_dec(x_3);
x_12 = lean_array_fget(x_2, x_11);
x_12 = lean_array_fget_borrowed(x_2, x_11);
x_13 = l_Lean_Syntax_getArg(x_12, x_10);
x_14 = l_Lean_Syntax_getArgs(x_13);
lean_dec(x_13);
x_15 = lean_unsigned_to_nat(3u);
x_16 = l_Lean_Syntax_getArg(x_12, x_15);
lean_dec(x_12);
x_17 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_17, 0, x_16);
lean_inc(x_1);

30
stage0/stdlib/Init/Prelude.c generated
View file

@ -4638,7 +4638,8 @@ return x_3;
else
{
lean_object* x_6;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
lean_inc(x_6);
return x_6;
}
}
@ -4658,7 +4659,8 @@ return x_4;
else
{
lean_object* x_7;
x_7 = lean_array_fget(x_2, x_3);
x_7 = lean_array_fget_borrowed(x_2, x_3);
lean_inc(x_7);
return x_7;
}
}
@ -4988,8 +4990,9 @@ x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_sub(x_2, x_9);
lean_dec(x_2);
x_11 = lean_nat_add(x_3, x_9);
x_12 = lean_array_fget(x_1, x_3);
x_12 = lean_array_fget_borrowed(x_1, x_3);
lean_dec(x_3);
lean_inc(x_12);
x_13 = lean_array_push(x_4, x_12);
x_2 = x_10;
x_3 = x_11;
@ -5092,8 +5095,9 @@ x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_sub(x_2, x_9);
lean_dec(x_2);
x_11 = lean_nat_add(x_3, x_9);
x_12 = lean_array_fget(x_1, x_3);
x_12 = lean_array_fget_borrowed(x_1, x_3);
lean_dec(x_3);
lean_inc(x_12);
x_13 = lean_array_push(x_4, x_12);
x_2 = x_10;
x_3 = x_11;
@ -9471,7 +9475,8 @@ return x_6;
else
{
lean_object* x_7;
x_7 = lean_array_fget(x_3, x_2);
x_7 = lean_array_fget_borrowed(x_3, x_2);
lean_inc(x_7);
return x_7;
}
}
@ -9594,7 +9599,8 @@ else
{
lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_7 = lean_unsigned_to_nat(0u);
x_8 = lean_array_get(x_4, x_3, x_7);
x_8 = lean_array_get_borrowed(x_4, x_3, x_7);
lean_inc(x_8);
x_9 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_9, 0, x_8);
return x_9;
@ -9779,9 +9785,8 @@ else
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = lean_box(0);
x_7 = lean_array_get(x_6, x_1, x_2);
x_7 = lean_array_get_borrowed(x_6, x_1, x_2);
x_8 = l_Lean_Syntax_getHeadInfo_x3f(x_7);
lean_dec(x_7);
if (lean_obj_tag(x_8) == 0)
{
lean_object* x_9; lean_object* x_10;
@ -9933,10 +9938,9 @@ lean_dec(x_4);
x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_sub(x_8, x_9);
lean_dec(x_8);
x_11 = lean_array_get(x_7, x_2, x_10);
x_11 = lean_array_get_borrowed(x_7, x_2, x_10);
lean_dec(x_10);
x_12 = l_Lean_Syntax_getTailPos_x3f(x_11, x_1);
lean_dec(x_11);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_13;
@ -11629,21 +11633,17 @@ return x_9;
else
{
lean_object* x_10;
x_10 = lean_array_fget(x_5, x_7);
x_10 = lean_array_fget_borrowed(x_5, x_7);
if (lean_obj_tag(x_10) == 2)
{
lean_object* x_11; uint8_t x_12;
x_11 = lean_ctor_get(x_10, 1);
lean_inc_ref(x_11);
lean_dec_ref(x_10);
x_12 = lean_string_dec_eq(x_3, x_11);
lean_dec_ref(x_11);
return x_12;
}
else
{
uint8_t x_13;
lean_dec(x_10);
x_13 = 0;
return x_13;
}

4
stage0/stdlib/Lake/Build/Common.c generated
View file

@ -114,6 +114,7 @@ LEAN_EXPORT lean_object* l_Lake_addPlatformTrace(lean_object*, lean_object*, lea
static lean_object* l_Lake_toJsonBuildMetadata___closed__3____x40_Lake_Build_Common___hyg_180_;
lean_object* l_Lake_EStateT_instMonad___redArg___lam__9(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lake_Build_Common_0__Lake_mkLinkOrder___redArg___closed__2;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lake_inputDir___lam__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lake_buildAction___redArg___lam__0(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_fromJson_x3f___at___Option_fromJson_x3f___at___Lake_BuildMetadata_fromJson_x3f_spec__6_spec__6(lean_object*);
@ -2652,7 +2653,8 @@ lean_object* x_15; lean_object* x_16; lean_object* x_17;
lean_inc_ref(x_11);
lean_dec_ref(x_1);
x_15 = lean_unsigned_to_nat(0u);
x_16 = lean_array_fget(x_11, x_15);
x_16 = lean_array_fget_borrowed(x_11, x_15);
lean_inc(x_16);
x_17 = l_Lean_Json_getStr_x3f(x_16);
if (lean_obj_tag(x_17) == 0)
{

7
stage0/stdlib/Lake/Build/ModuleArtifacts.c generated
View file

@ -22,6 +22,7 @@ lean_object* lean_array_push(lean_object*, lean_object*);
static lean_object* l_Lake_ModuleOutputHashes_fromJson_x3f___closed__5;
static lean_object* l_Lake_ModuleOutputHashes_toJson___closed__1;
static lean_object* l_Lake_instToJsonModuleOutputHashes___closed__0;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lake_ModuleOutputHashes_fromJson_x3f___closed__2;
static lean_object* l_Lake_ModuleOutputHashes_fromJson_x3f___closed__7;
LEAN_EXPORT lean_object* l_Array_toJson___at___Lake_ModuleOutputHashes_toJson_spec__0(lean_object*);
@ -804,9 +805,8 @@ if (lean_is_exclusive(x_34)) {
lean_dec_ref(x_34);
x_44 = lean_box(0);
}
x_45 = lean_array_fget(x_24, x_25);
x_45 = lean_array_fget_borrowed(x_24, x_25);
x_46 = lean_unbox_uint64(x_45);
lean_dec(x_45);
x_114 = l_Lake_ModuleOutputHashes_toJson___closed__4;
x_115 = l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at_____private_Lean_Data_Json_Basic_0__Lean_Json_beq_x27_spec__3___redArg(x_6, x_114);
if (lean_obj_tag(x_115) == 0)
@ -979,9 +979,8 @@ goto block_67;
else
{
lean_object* x_74; uint64_t x_75; lean_object* x_76; lean_object* x_77;
x_74 = lean_array_fget(x_24, x_71);
x_74 = lean_array_fget_borrowed(x_24, x_71);
x_75 = lean_unbox_uint64(x_74);
lean_dec(x_74);
x_76 = lean_box_uint64(x_75);
if (lean_is_scalar(x_11)) {
x_77 = lean_alloc_ctor(1, 1, 0);

843
stage0/stdlib/Lake/Build/Run.c generated
View file

File diff suppressed because it is too large Load diff

20
stage0/stdlib/Lake/CLI/Translate/Lean.c generated
View file

@ -184,6 +184,7 @@ lean_object* l_Lake_PackageConfig_buildArchive___proj(lean_object*);
LEAN_EXPORT lean_object* l_Lake_InputFileConfig_mkCommand___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkIdentFrom(lean_object*, lean_object*, uint8_t);
static lean_object* l_Lake_instToLeanPartialBuildKeyMkStr1___closed__0;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l___private_Lake_CLI_Translate_Lean_0__Lake_genMkDeclFields___closed__7;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lake_PartialBuildKey_toLean_mkSuffixes_spec__0(size_t, size_t, lean_object*);
static lean_object* l___private_Lake_CLI_Translate_Lean_0__Lake_genMkDeclFields___closed__75;
@ -586,7 +587,6 @@ LEAN_EXPORT lean_object* l_Lake_instToLeanArrayMkStr1___redArg___lam__1(lean_obj
static lean_object* l_Lake_BuildType_toLean___closed__8;
static lean_object* l_Lake_mkDeclValWhere_x3f___closed__4;
lean_object* l_EStateM_pure(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
static lean_object* l_Lake_StrPatDescr_toLean___closed__12;
static lean_object* l_Lake_Dependency_mkRequire___closed__11;
LEAN_EXPORT lean_object* l_Lake_instToLean_x3fArray___redArg___lam__0(lean_object*, lean_object*);
@ -20364,11 +20364,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = lean_string_dec_eq(x_8, x_9);
lean_dec_ref(x_9);
lean_dec_ref(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -21783,11 +21781,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = l_Lake_decEqGlob____x40_Lake_Config_Glob___hyg_204_(x_8, x_9);
lean_dec_ref(x_9);
lean_dec_ref(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -26017,9 +26013,11 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_obj
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
lean_inc_ref(x_8);
x_10 = l_System_FilePath_normalize(x_8);
lean_inc_ref(x_9);
x_11 = l_System_FilePath_normalize(x_9);
x_12 = lean_string_dec_eq(x_10, x_11);
lean_dec_ref(x_11);

20
stage0/stdlib/Lake/CLI/Translate/Toml.c generated
View file

@ -147,6 +147,7 @@ LEAN_EXPORT lean_object* l_Array_isEqvAux___at___Lake_PackageConfig_toToml_spec_
lean_object* l_Lean_mkIdentFrom(lean_object*, lean_object*, uint8_t);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lake_Package_mkTomlConfig_spec__9(size_t, size_t, lean_object*);
static lean_object* l_Lake_InputDirConfig_toToml___closed__1;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lake_Pattern_toToml_x3f___redArg___closed__1;
static lean_object* l_Lake_LeanLibConfig_toToml___closed__1;
LEAN_EXPORT lean_object* l_Lake_instSmartInsertBackend___lam__0(lean_object*, uint8_t, lean_object*);
@ -458,7 +459,6 @@ static lean_object* l_Lake_commandGen__toml__encoders_x25___closed__7____x40_Lak
static lean_object* l___private_Lake_CLI_Translate_Toml_0__Lake_genToToml___closed__35;
lean_object* l_EStateM_pure(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lake_PackageConfig_instToToml___lam__0(lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lake_Toml_encodeLeanOptions(lean_object*);
LEAN_EXPORT lean_object* l_Array_isEqvAux___at___Lake_PackageConfig_toToml_spec__1___redArg___boxed(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lake_LeanExeConfig_toToml___closed__5;
@ -13949,11 +13949,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = lean_string_dec_eq(x_8, x_9);
lean_dec_ref(x_9);
lean_dec_ref(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -15077,11 +15075,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = l_Lake_decEqGlob____x40_Lake_Config_Glob___hyg_204_(x_8, x_9);
lean_dec_ref(x_9);
lean_dec_ref(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -18539,9 +18535,11 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_obj
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
lean_inc_ref(x_8);
x_10 = l_System_FilePath_normalize(x_8);
lean_inc_ref(x_9);
x_11 = l_System_FilePath_normalize(x_9);
x_12 = lean_string_dec_eq(x_10, x_11);
lean_dec_ref(x_11);

4
stage0/stdlib/Lake/Config/Cache.c generated
View file

@ -39,6 +39,7 @@ lean_object* lean_mk_array(lean_object*, lean_object*);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lake_Config_Cache_0__Lake_CacheMap_loadCore_loop(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lake_CacheMap_save___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lake_CacheMap_insertCore(uint64_t, lean_object*, lean_object*);
static lean_object* l_Lake_instInhabitedCache___closed__0;
lean_object* l_System_FilePath_pathExists(lean_object*, lean_object*);
@ -492,7 +493,8 @@ lean_object* x_15; lean_object* x_16; lean_object* x_17;
lean_inc_ref(x_11);
lean_dec_ref(x_1);
x_15 = lean_unsigned_to_nat(0u);
x_16 = lean_array_fget(x_11, x_15);
x_16 = lean_array_fget_borrowed(x_11, x_15);
lean_inc(x_16);
x_17 = l_UInt64_fromJson_x3f(x_16);
if (lean_obj_tag(x_17) == 0)
{

11
stage0/stdlib/Lake/Config/LeanExe.c generated
View file

@ -29,6 +29,7 @@ lean_object* lean_array_push(lean_object*, lean_object*);
extern lean_object* l_System_FilePath_exeExtension;
LEAN_EXPORT lean_object* l_Lake_Package_findLeanExe_x3f(lean_object*, lean_object*);
lean_object* l_System_FilePath_withExtension(lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lake_LeanExeConfig_toLeanLibConfig___redArg___closed__3;
static lean_object* l_Lake_Package_leanExes___closed__1;
uint8_t lean_string_dec_eq(lean_object*, lean_object*);
@ -77,7 +78,6 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_findSomeRevM
static lean_object* l_Lake_Package_leanExes___closed__6;
LEAN_EXPORT lean_object* l_Lake_LeanExe_isRoot_x3f(lean_object*, lean_object*);
static lean_object* l_Lake_Package_leanExes___closed__9;
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_Id_instMonad___lam__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_findSomeRevM_x3f_find___at___Lake_Package_findModuleBySrc_x3f_spec__1___redArg___boxed(lean_object*, lean_object*, lean_object*);
@ -1099,7 +1099,8 @@ lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_3, x_7);
lean_dec(x_3);
x_9 = lean_array_fget(x_2, x_8);
x_9 = lean_array_fget_borrowed(x_2, x_8);
lean_inc_ref(x_9);
x_10 = l_Lake_LeanExe_isRoot_x3f(x_1, x_9);
if (lean_obj_tag(x_10) == 0)
{
@ -1221,7 +1222,8 @@ lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_3, x_7);
lean_dec(x_3);
x_9 = lean_array_fget(x_2, x_8);
x_9 = lean_array_fget_borrowed(x_2, x_8);
lean_inc_ref(x_9);
lean_inc_ref(x_1);
x_10 = l_Lake_LeanExe_isRootSrc_x3f(x_1, x_9);
if (lean_obj_tag(x_10) == 0)
@ -1266,7 +1268,8 @@ lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_3, x_7);
lean_dec(x_3);
x_9 = lean_array_fget(x_2, x_8);
x_9 = lean_array_fget_borrowed(x_2, x_8);
lean_inc_ref(x_9);
lean_inc_ref(x_1);
x_10 = l_Lake_LeanLib_findModuleBySrc_x3f(x_1, x_9);
if (lean_obj_tag(x_10) == 0)

5
stage0/stdlib/Lake/Config/Module.c generated
View file

@ -52,6 +52,7 @@ static lean_object* l_Lake_LeanLib_findModuleBySrc_x3f___closed__1;
lean_object* l_System_FilePath_withExtension(lean_object*, lean_object*);
lean_object* l_IO_FS_DirEntry_path(lean_object*);
LEAN_EXPORT lean_object* l_Lake_Module_leanOptions(lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lake_Module_oleanFile___closed__0;
static lean_object* l_Lake_Module_coNoExportFile___closed__0;
static lean_object* l_Lake_LeanLib_getModuleArray___closed__0;
@ -136,7 +137,6 @@ static lean_object* l_Lake_Module_oleanPrivateFile___closed__0;
LEAN_EXPORT lean_object* l_Lake_Module_srcPath(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lake_Module_pkg___boxed(lean_object*);
LEAN_EXPORT lean_object* l_Lake_Module_coNoExportFile(lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lake_instToJsonModule;
LEAN_EXPORT uint8_t l_Lake_Module_backend(lean_object*);
LEAN_EXPORT uint8_t l_Lake_instBEqModule___lam__0(lean_object*, lean_object*);
@ -581,7 +581,8 @@ lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_3, x_7);
lean_dec(x_3);
x_9 = lean_array_fget(x_2, x_8);
x_9 = lean_array_fget_borrowed(x_2, x_8);
lean_inc_ref(x_9);
lean_inc(x_1);
x_10 = l_Lake_LeanLib_findModule_x3f(x_1, x_9);
if (lean_obj_tag(x_10) == 0)

12
stage0/stdlib/Lake/Load/Lean/Elab.c generated
View file

@ -64,6 +64,7 @@ lean_object* l_System_FilePath_withExtension(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_replace___at___Lake_importModulesUsingCache_spec__8(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lake_importConfigFile___closed__6;
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_get_x3f___at___Lake_importModulesUsingCache_spec__0(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lake_importConfigFileCore_lakeExts___closed__22;
static lean_object* l_Lake_importConfigFileCore_lakeExts___closed__29;
static lean_object* l_Lake_importConfigFileCore_lakeExts___closed__17;
@ -154,6 +155,7 @@ static lean_object* l_Lake_importConfigFileCore_lakeExts___closed__35;
static lean_object* l_Lake_toJsonConfigTrace___closed__4____x40_Lake_Load_Lean_Elab___hyg_929_;
static lean_object* l_Lake_importConfigFileCore_lakeExts___closed__41;
lean_object* l___private_Init_Data_List_Impl_0__List_flatMapTR_go___at___Lean_Firefox_toJsonCategory____x40_Lean_Util_Profiler___hyg_385__spec__2(lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_HeaderSyntax_imports(lean_object*, uint8_t);
static lean_object* l_Lake_fromJsonConfigTrace___closed__6____x40_Lake_Load_Lean_Elab___hyg_1009_;
LEAN_EXPORT lean_object* l_Lake_importConfigFile(lean_object*, lean_object*, lean_object*);
@ -253,7 +255,6 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_get_x3f___at___Lake_importModulesUsingCache_spec__0___redArg___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Json_getObjValAs_x3f___at___Lean_Firefox_fromJsonCategory____x40_Lean_Util_Profiler___hyg_240__spec__1(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lake_importConfigFile___lam__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_parseHeader(lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
static lean_object* l_Lake_importConfigFileCore_lakeExts___closed__26;
@ -595,11 +596,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = l_Lake_beqImport____x40_Lake_Load_Lean_Elab___hyg_6_(x_8, x_9);
lean_dec_ref(x_9);
lean_dec_ref(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -3440,9 +3439,10 @@ if (x_7 == 0)
lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; size_t x_14; size_t x_15;
x_8 = lean_array_uget(x_3, x_4);
x_9 = l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lake_importConfigFileCore_spec__0___closed__0;
x_10 = lean_array_get(x_9, x_1, x_2);
x_10 = lean_array_get_borrowed(x_9, x_1, x_2);
x_11 = lean_box(0);
x_12 = lean_box(0);
lean_inc_ref(x_10);
x_13 = l_Lean_PersistentEnvExtension_addEntry___redArg(x_10, x_6, x_8, x_11, x_12);
x_14 = 1;
x_15 = lean_usize_add(x_4, x_14);

28
stage0/stdlib/Lake/Load/Manifest.c generated
View file

@ -136,6 +136,7 @@ lean_object* l_Except_orElseLazy___redArg(lean_object*, lean_object*);
static lean_object* l_Lake_Manifest_getPackages___closed__1;
lean_object* l_List_appendTR___redArg(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Array_fromJson_x3f___at___Option_fromJson_x3f___at___Lake_Manifest_getPackages_spec__1_spec__1_spec__1(size_t, size_t, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lake_instInhabitedPackageEntry___closed__0;
static lean_object* l_Lake_Manifest_fromJson_x3f___closed__1;
LEAN_EXPORT lean_object* l_Lake_Manifest_instToJson;
@ -830,7 +831,8 @@ lean_inc(x_30);
lean_dec_ref(x_24);
x_31 = lean_unsigned_to_nat(0u);
lean_inc(x_6);
x_32 = lean_array_get(x_6, x_30, x_31);
x_32 = lean_array_get_borrowed(x_6, x_30, x_31);
lean_inc(x_32);
x_33 = l_Lean_Name_fromJson_x3f(x_32);
if (lean_obj_tag(x_33) == 0)
{
@ -866,7 +868,8 @@ lean_inc(x_39);
lean_dec_ref(x_33);
x_40 = lean_unsigned_to_nat(1u);
lean_inc(x_6);
x_41 = lean_array_get(x_6, x_30, x_40);
x_41 = lean_array_get_borrowed(x_6, x_30, x_40);
lean_inc(x_41);
x_42 = l_Lean_NameMap_fromJson_x3f___at___Lake_fromJsonPackageEntryV6____x40_Lake_Load_Manifest___hyg_128__spec__0(x_41);
if (lean_obj_tag(x_42) == 0)
{
@ -903,9 +906,8 @@ lean_inc(x_48);
lean_dec_ref(x_42);
x_49 = lean_unsigned_to_nat(2u);
lean_inc(x_6);
x_50 = lean_array_get(x_6, x_30, x_49);
x_50 = lean_array_get_borrowed(x_6, x_30, x_49);
x_51 = l_Lean_Json_getBool_x3f(x_50);
lean_dec(x_50);
if (lean_obj_tag(x_51) == 0)
{
uint8_t x_52;
@ -942,7 +944,8 @@ lean_inc(x_57);
lean_dec_ref(x_51);
x_58 = lean_unsigned_to_nat(3u);
lean_inc(x_6);
x_59 = lean_array_get(x_6, x_30, x_58);
x_59 = lean_array_get_borrowed(x_6, x_30, x_58);
lean_inc(x_59);
x_60 = l_Lean_Json_getStr_x3f(x_59);
if (lean_obj_tag(x_60) == 0)
{
@ -980,7 +983,8 @@ x_66 = lean_ctor_get(x_60, 0);
lean_inc(x_66);
lean_dec_ref(x_60);
lean_inc(x_6);
x_67 = lean_array_get(x_6, x_30, x_7);
x_67 = lean_array_get_borrowed(x_6, x_30, x_7);
lean_inc(x_67);
x_68 = l_Lean_Json_getStr_x3f(x_67);
if (lean_obj_tag(x_68) == 0)
{
@ -1020,7 +1024,8 @@ lean_inc(x_74);
lean_dec_ref(x_68);
x_75 = lean_unsigned_to_nat(5u);
lean_inc(x_6);
x_76 = lean_array_get(x_6, x_30, x_75);
x_76 = lean_array_get_borrowed(x_6, x_30, x_75);
lean_inc(x_76);
x_77 = l_Option_fromJson_x3f___at___Lake_fromJsonPackageEntryV6____x40_Lake_Load_Manifest___hyg_128__spec__2(x_76);
if (lean_obj_tag(x_77) == 0)
{
@ -1336,7 +1341,8 @@ x_17 = lean_ctor_get(x_11, 0);
lean_inc(x_17);
lean_dec_ref(x_11);
x_18 = lean_unsigned_to_nat(0u);
x_19 = lean_array_get(x_3, x_17, x_18);
x_19 = lean_array_get_borrowed(x_3, x_17, x_18);
lean_inc(x_19);
x_20 = l_Lean_Name_fromJson_x3f(x_19);
if (lean_obj_tag(x_20) == 0)
{
@ -1370,7 +1376,8 @@ x_26 = lean_ctor_get(x_20, 0);
lean_inc(x_26);
lean_dec_ref(x_20);
x_27 = lean_unsigned_to_nat(1u);
x_28 = lean_array_get(x_3, x_17, x_27);
x_28 = lean_array_get_borrowed(x_3, x_17, x_27);
lean_inc(x_28);
x_29 = l_Lean_NameMap_fromJson_x3f___at___Lake_fromJsonPackageEntryV6____x40_Lake_Load_Manifest___hyg_128__spec__0(x_28);
if (lean_obj_tag(x_29) == 0)
{
@ -1405,9 +1412,8 @@ x_35 = lean_ctor_get(x_29, 0);
lean_inc(x_35);
lean_dec_ref(x_29);
x_36 = lean_unsigned_to_nat(2u);
x_37 = lean_array_get(x_3, x_17, x_36);
x_37 = lean_array_get_borrowed(x_3, x_17, x_36);
x_38 = l_Lean_Json_getBool_x3f(x_37);
lean_dec(x_37);
if (lean_obj_tag(x_38) == 0)
{
uint8_t x_39;

6269
stage0/stdlib/Lake/Load/Toml.c generated
View file

File diff suppressed because it is too large Load diff

6
stage0/stdlib/Lake/Toml/Data/Dict.c generated
View file

@ -44,6 +44,7 @@ LEAN_EXPORT lean_object* l_Lake_Toml_RBDict_mkEmpty___boxed(lean_object*, lean_o
static lean_object* l_Lake_Toml_RBDict_map___redArg___closed__4;
LEAN_EXPORT lean_object* l_Lake_Toml_RBDict_fold___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lake_Toml_RBDict_appendArray___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lake_Toml_RBDict_map___redArg___closed__9;
LEAN_EXPORT lean_object* l_Lake_Toml_RBDict_append___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lake_Toml_RBDict_keys_spec__0(lean_object*, lean_object*, size_t, size_t, lean_object*);
@ -317,13 +318,12 @@ else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_8 = lean_nat_sub(x_3, x_4);
x_9 = lean_array_fget(x_1, x_8);
x_9 = lean_array_fget_borrowed(x_1, x_8);
x_10 = lean_ctor_get(x_9, 0);
lean_inc(x_10);
lean_dec_ref(x_9);
x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_sub(x_4, x_11);
lean_dec(x_4);
lean_inc(x_10);
lean_inc_ref(x_2);
x_13 = l_Std_DTreeMap_Internal_Impl_insert___redArg(x_2, x_10, x_8, x_5);
x_4 = x_12;

24
stage0/stdlib/Lake/Toml/Data/Value.c generated
View file

@ -33,6 +33,7 @@ uint8_t l_Lean_Name_isAnonymous(lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at_____private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lake_Toml_ppTable_spec__4_spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at_____private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lake_Toml_ppTable_spec__1_spec__1___closed__5;
LEAN_EXPORT lean_object* l_Lake_Toml_Table_empty;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
lean_object* l_Lake_lpad(lean_object*, uint32_t, lean_object*);
static lean_object* l_String_foldlAux___at___Lake_Toml_ppString_spec__0___closed__3;
LEAN_EXPORT lean_object* l_Lake_Toml_ppTable_appendKeyval___boxed(lean_object*, lean_object*, lean_object*);
@ -89,7 +90,6 @@ static lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold
static lean_object* l_Lake_Toml_instInhabitedValue___closed__1;
lean_object* l_Nat_toDigits(lean_object*, lean_object*);
static lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at_____private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lake_Toml_ppTable_spec__1_spec__1___closed__1;
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* lean_nat_abs(lean_object*);
LEAN_EXPORT lean_object* l_Lake_Toml_Value_toString(lean_object*);
lean_object* l_panic___at___Lean_Name_getString_x21_spec__0(lean_object*);
@ -199,8 +199,10 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
lean_inc_ref(x_9);
lean_inc_ref(x_8);
x_10 = l_Lake_Toml_beqValue____x40_Lake_Toml_Data_Value___hyg_164_(x_8, x_9);
if (x_10 == 0)
{
@ -240,31 +242,23 @@ lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_11; lean_object*
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_11 = lean_array_fget(x_1, x_7);
x_11 = lean_array_fget_borrowed(x_1, x_7);
x_12 = lean_ctor_get(x_11, 0);
lean_inc(x_12);
x_13 = lean_ctor_get(x_11, 1);
lean_inc(x_13);
lean_dec_ref(x_11);
x_14 = lean_array_fget(x_2, x_7);
x_14 = lean_array_fget_borrowed(x_2, x_7);
x_15 = lean_ctor_get(x_14, 0);
lean_inc(x_15);
x_16 = lean_ctor_get(x_14, 1);
lean_inc(x_16);
lean_dec_ref(x_14);
x_17 = lean_name_eq(x_12, x_15);
lean_dec(x_15);
lean_dec(x_12);
if (x_17 == 0)
{
lean_dec(x_16);
lean_dec(x_13);
x_8 = x_17;
goto block_10;
}
else
{
uint8_t x_18;
lean_inc(x_16);
lean_inc(x_13);
x_18 = l_Lake_Toml_beqValue____x40_Lake_Toml_Data_Value___hyg_164_(x_13, x_16);
x_8 = x_18;
goto block_10;

6
stage0/stdlib/Lean/Attributes.c generated
View file

@ -113,6 +113,7 @@ LEAN_EXPORT lean_object* l_Lean_ofExcept___at___Lean_Attribute_add_spec__0___red
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_foldlM___at___Lean_getBuiltinAttributeNames_spec__0(lean_object*, lean_object*);
static lean_object* l_Lean_AttributeImplCore_ref___autoParam___closed__2;
LEAN_EXPORT lean_object* l_Lean_throwAttrMustBeGlobal___at___Lean_registerTagAttribute_spec__6(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_throwAttrDeclInImportedModule___at___Lean_registerTagAttribute_spec__5___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Attribute_add(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_throwErrorAt___at___Lean_Attribute_Builtin_ensureNoArgs_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -5491,7 +5492,7 @@ x_8 = lean_nat_add(x_3, x_4);
x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_shiftr(x_8, x_9);
lean_dec(x_8);
x_11 = lean_array_fget(x_1, x_10);
x_11 = lean_array_fget_borrowed(x_1, x_10);
x_12 = l_Lean_Name_quickLt(x_11, x_2);
if (x_12 == 0)
{
@ -5503,6 +5504,7 @@ if (x_13 == 0)
lean_object* x_14; uint8_t x_15;
lean_dec(x_10);
lean_dec(x_3);
lean_inc(x_11);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_11);
x_15 = l_Array_binSearchAux___at___Lean_TagAttribute_hasTag_spec__0___redArg___lam__0(x_14);
@ -5512,7 +5514,6 @@ return x_15;
else
{
lean_object* x_16; uint8_t x_17;
lean_dec(x_11);
x_16 = lean_unsigned_to_nat(0u);
x_17 = lean_nat_dec_eq(x_10, x_16);
if (x_17 == 0)
@ -5544,7 +5545,6 @@ goto block_7;
else
{
lean_object* x_21; uint8_t x_22;
lean_dec(x_11);
lean_dec(x_3);
x_21 = lean_nat_add(x_10, x_9);
lean_dec(x_10);

26
stage0/stdlib/Lean/Class.c generated
View file

@ -71,6 +71,7 @@ LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_foldlM___at_____priva
LEAN_EXPORT lean_object* l_Lean_setEnv___at_____private_Lean_Class_0__Lean_init_spec__3(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Class_0__Lean_checkOutParam___closed__1;
static lean_object* l_Lean_setEnv___at_____private_Lean_Class_0__Lean_init_spec__3___redArg___closed__0;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static size_t l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_SMap_insert___at___Lean_ClassState_addEntry_spec__0_spec__0_spec__0___redArg___closed__1;
LEAN_EXPORT uint8_t l___private_Lean_Expr_0__Lean_Expr_hasAnyFVar_visit___at_____private_Lean_Class_0__Lean_checkOutParam_spec__2(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at_____private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_mkStateFromImportedEntries___at___Lean_initFn____x40_Lean_Class___hyg_90__spec__1_spec__2_spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -430,9 +431,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_name_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -479,9 +479,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_name_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -550,8 +549,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Name_hash___override(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -562,6 +561,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_SMap_insert___at___Lean_ClassState_addEntry_spec__0_spec__0_spec__0___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -1949,9 +1950,8 @@ return x_5;
else
{
lean_object* x_6; uint8_t x_7;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
x_7 = lean_name_eq(x_3, x_6);
lean_dec(x_6);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9;
@ -2288,9 +2288,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -2303,8 +2302,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;
@ -3325,7 +3325,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l___private_Lean_Class_0__Lean_mkOutParamArgsImplicit_go___closed__2;
x_2 = lean_unsigned_to_nat(24u);
x_3 = lean_unsigned_to_nat(1859u);
x_3 = lean_unsigned_to_nat(1861u);
x_4 = l___private_Lean_Class_0__Lean_mkOutParamArgsImplicit_go___closed__1;
x_5 = l___private_Lean_Class_0__Lean_mkOutParamArgsImplicit_go___closed__0;
x_6 = l_mkPanicMessageWithDecl(x_5, x_4, x_3, x_2, x_1);
@ -3346,7 +3346,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l___private_Lean_Class_0__Lean_mkOutParamArgsImplicit_go___closed__2;
x_2 = lean_unsigned_to_nat(23u);
x_3 = lean_unsigned_to_nat(1848u);
x_3 = lean_unsigned_to_nat(1850u);
x_4 = l___private_Lean_Class_0__Lean_mkOutParamArgsImplicit_go___closed__4;
x_5 = l___private_Lean_Class_0__Lean_mkOutParamArgsImplicit_go___closed__0;
x_6 = l_mkPanicMessageWithDecl(x_5, x_4, x_3, x_2, x_1);

22
stage0/stdlib/Lean/Compiler/CSimpAttr.c generated
View file

@ -69,6 +69,7 @@ static lean_object* l_Lean_Compiler_CSimp_instInhabitedState___closed__5;
LEAN_EXPORT lean_object* l_Lean_SMap_switch___at___Lean_Compiler_CSimp_State_switch_spec__0(lean_object*, lean_object*);
lean_object* l_Lean_Environment_find_x3f(lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_Attribute_Builtin_ensureNoArgs(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_SMap_contains___at___Lean_Compiler_hasCSimpAttribute_spec__0___redArg___boxed(lean_object*, lean_object*);
static size_t l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_SMap_insert___at___Lean_Compiler_CSimp_initFn____x40_Lean_Compiler_CSimpAttr___hyg_147__spec__0_spec__0_spec__0___redArg___closed__0;
LEAN_EXPORT lean_object* l_Lean_getConstInfo___at_____private_Lean_Compiler_CSimpAttr_0__Lean_Compiler_CSimp_isConstantReplacement_x3f_spec__0(lean_object*, lean_object*, lean_object*, lean_object*);
@ -494,9 +495,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_name_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -543,9 +543,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_name_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -614,8 +613,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Name_hash___override(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -626,6 +625,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_SMap_insert___at___Lean_Compiler_CSimp_initFn____x40_Lean_Compiler_CSimpAttr___hyg_147__spec__0_spec__0_spec__0___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -3353,9 +3354,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -3368,8 +3368,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;
@ -3890,9 +3891,8 @@ return x_5;
else
{
lean_object* x_6; uint8_t x_7;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
x_7 = lean_name_eq(x_3, x_6);
lean_dec(x_6);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9;

19
stage0/stdlib/Lean/Compiler/ClosedTermCache.c generated
View file

@ -31,6 +31,7 @@ LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_insertAux___at___Lean_Persiste
lean_object* l_Lean_registerEnvExtension___redArg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Lean_isClosedTermName(lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_panic___at___Lean_initFn____x40_Lean_Compiler_ClosedTermCache___hyg_69__spec__8(lean_object*);
static lean_object* l_Lean_instInhabitedClosedTermCache___closed__2;
LEAN_EXPORT lean_object* l_Lean_initFn___lam__0____x40_Lean_Compiler_ClosedTermCache___hyg_69____boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -164,9 +165,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_expr_eqv(x_3, x_12);
lean_dec_ref(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -213,9 +213,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_expr_eqv(x_3, x_26);
lean_dec_ref(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -284,8 +283,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Expr_hash(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -296,6 +295,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc_ref(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_initFn____x40_Lean_Compiler_ClosedTermCache___hyg_69__spec__0_spec__0___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -639,9 +640,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_expr_eqv(x_4, x_8);
lean_dec_ref(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -654,8 +654,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;

45
stage0/stdlib/Lean/Compiler/IR/Basic.c generated
View file

@ -89,6 +89,7 @@ LEAN_EXPORT lean_object* l_Lean_IR_instReprVarId;
LEAN_EXPORT lean_object* l_Lean_IR_CtorInfo_isRef___boxed(lean_object*);
static lean_object* l_Lean_IR_reprVarId___redArg___closed__5____x40_Lean_Compiler_IR_Basic___hyg_128_;
LEAN_EXPORT lean_object* l_Option_repr___at___Lean_IR_reprIRType____x40_Lean_Compiler_IR_Basic___hyg_696__spec__0(lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Option_repr___at___Lean_IR_reprIRType____x40_Lean_Compiler_IR_Basic___hyg_696__spec__0___boxed(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Lean_IR_beqArg____x40_Lean_Compiler_IR_Basic___hyg_1469_(lean_object*, lean_object*);
static lean_object* l_Option_repr___at___Lean_IR_reprIRType____x40_Lean_Compiler_IR_Basic___hyg_696__spec__0___closed__1;
@ -245,6 +246,7 @@ LEAN_EXPORT lean_object* l_Std_Format_joinSep___at___Array_Array_repr___at___Lea
LEAN_EXPORT lean_object* l_Lean_IR_LocalContext_getJPBody___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_FnBody_alphaEqv___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Lean_IR_Arg_alphaEqv(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_instToStringVarId___lam__0(lean_object*);
LEAN_EXPORT uint8_t l_Lean_IR_LocalContext_isParam(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_LocalContext_isJP___boxed(lean_object*, lean_object*);
@ -397,7 +399,6 @@ static lean_object* l_Lean_IR_instInhabitedParam___closed__0;
static lean_object* l_Lean_IR_reprCtorInfo___redArg___closed__10____x40_Lean_Compiler_IR_Basic___hyg_2006_;
static lean_object* l_Lean_IR_reprCtorInfo___redArg___closed__0____x40_Lean_Compiler_IR_Basic___hyg_2006_;
LEAN_EXPORT lean_object* l_Lean_IR_instToStringJoinPointId___lam__0(lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_reshape(lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_IR_addParamsRename_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -978,11 +979,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = l_Lean_IR_beqIRType____x40_Lean_Compiler_IR_Basic___hyg_433_(x_8, x_9);
lean_dec(x_9);
lean_dec(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -9841,11 +9840,9 @@ lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t
x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_4, x_7);
lean_dec(x_4);
x_9 = lean_array_fget(x_2, x_8);
x_10 = lean_array_fget(x_3, x_8);
x_9 = lean_array_fget_borrowed(x_2, x_8);
x_10 = lean_array_fget_borrowed(x_3, x_8);
x_11 = l_Lean_IR_Arg_alphaEqv(x_1, x_9, x_10);
lean_dec(x_10);
lean_dec(x_9);
if (x_11 == 0)
{
lean_dec(x_8);
@ -10461,8 +10458,10 @@ _start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_6 = l_Lean_IR_instInhabitedParam;
x_7 = lean_array_get(x_6, x_1, x_5);
x_8 = lean_array_get(x_6, x_2, x_5);
x_7 = lean_array_get_borrowed(x_6, x_1, x_5);
x_8 = lean_array_get_borrowed(x_6, x_2, x_5);
lean_inc_ref(x_8);
lean_inc_ref(x_7);
x_9 = l_Lean_IR_addParamRename(x_4, x_7, x_8);
if (lean_obj_tag(x_9) == 0)
{
@ -10593,36 +10592,28 @@ lean_object* x_7; lean_object* x_8; uint8_t x_9; lean_object* x_12; lean_object*
x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_4, x_7);
lean_dec(x_4);
x_12 = lean_array_fget(x_2, x_8);
x_13 = lean_array_fget(x_3, x_8);
x_12 = lean_array_fget_borrowed(x_2, x_8);
x_13 = lean_array_fget_borrowed(x_3, x_8);
if (lean_obj_tag(x_12) == 0)
{
if (lean_obj_tag(x_13) == 0)
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18;
x_14 = lean_ctor_get(x_12, 0);
lean_inc_ref(x_14);
x_15 = lean_ctor_get(x_12, 1);
lean_inc(x_15);
lean_dec_ref(x_12);
x_16 = lean_ctor_get(x_13, 0);
lean_inc_ref(x_16);
x_17 = lean_ctor_get(x_13, 1);
lean_inc(x_17);
lean_dec_ref(x_13);
x_18 = l_Lean_IR_beqCtorInfo____x40_Lean_Compiler_IR_Basic___hyg_1884_(x_14, x_16);
lean_dec_ref(x_16);
lean_dec_ref(x_14);
if (x_18 == 0)
{
lean_dec(x_17);
lean_dec(x_15);
x_9 = x_18;
goto block_11;
}
else
{
uint8_t x_19;
lean_inc(x_17);
lean_inc(x_15);
lean_inc(x_1);
x_19 = l_Lean_IR_FnBody_alphaEqv(x_1, x_15, x_17);
x_9 = x_19;
@ -10631,8 +10622,6 @@ goto block_11;
}
else
{
lean_dec_ref(x_13);
lean_dec_ref(x_12);
lean_dec(x_8);
lean_dec(x_1);
return x_6;
@ -10642,8 +10631,6 @@ else
{
if (lean_obj_tag(x_13) == 0)
{
lean_dec_ref(x_13);
lean_dec_ref(x_12);
lean_dec(x_8);
lean_dec(x_1);
return x_6;
@ -10652,11 +10639,9 @@ else
{
lean_object* x_20; lean_object* x_21; uint8_t x_22;
x_20 = lean_ctor_get(x_12, 0);
lean_inc(x_20);
lean_dec_ref(x_12);
x_21 = lean_ctor_get(x_13, 0);
lean_inc(x_21);
lean_dec_ref(x_13);
lean_inc(x_20);
lean_inc(x_1);
x_22 = l_Lean_IR_FnBody_alphaEqv(x_1, x_20, x_21);
x_9 = x_22;

340
stage0/stdlib/Lean/Compiler/IR/Borrow.c generated
View file

@ -14,9 +14,11 @@
extern "C" {
#endif
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ApplyParamMap_visitFnBody(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ParamMap_beqKey____x40_Lean_Compiler_IR_Borrow___hyg_93____boxed(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
lean_object* lean_format_pretty(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_contains___at___Lean_IR_Borrow_InitParamMap_visitFnBody_spec__0___redArg___boxed(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Std_DHashMap_Internal_AssocList_contains___at___Lean_IR_Borrow_OwnedSet_insert_spec__0(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ownArgsUsingParams___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -29,9 +31,11 @@ LEAN_EXPORT lean_object* l_Lean_IR_Borrow_getParamInfo(lean_object*, lean_object
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_Borrow_updateParamMap_spec__0(size_t, size_t, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_markModified(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_Borrow_ownParamsUsingArgs_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l_Lean_IR_inferBorrow___redArg(lean_object*, lean_object*, lean_object*);
lean_object* l_StateT_instMonad___redArg___lam__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_Borrow_infer___closed__0;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_InitParamMap_visitDecls___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_contains___at___Lean_IR_Borrow_OwnedSet_insert_spec__0___redArg___boxed(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Std_DHashMap_Internal_AssocList_contains___at___Lean_IR_Borrow_InitParamMap_visitFnBody_spec__0___redArg(lean_object*, lean_object*);
@ -45,13 +49,13 @@ uint64_t lean_uint64_mix_hash(uint64_t, uint64_t);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ApplyParamMap_visitDecls___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_updateParamMap(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at_____private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_ownArgsIfParam_spec__1_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ownArgsUsingParams(lean_object*, lean_object*, lean_object*, lean_object*);
size_t lean_uint64_to_usize(uint64_t);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_ownArgsIfParam_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_Borrow_ParamMap_fmt___closed__4;
static lean_object* l_Lean_IR_Borrow_ParamMap_fmt___closed__1;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_ownArgsIfParam_spec__1(lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_get_x3f___at___Lean_IR_Borrow_ApplyParamMap_visitFnBody_spec__0___redArg___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_instToStringParamMap___lam__0___boxed(lean_object*);
static lean_object* l_Lean_IR_Borrow_mkInitParamMap___closed__3;
@ -60,22 +64,21 @@ uint8_t lean_usize_dec_eq(size_t, size_t);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ParamMap_fmt___boxed(lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_IR_Borrow_InitParamMap_visitFnBody_spec__1___redArg(lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_inferBorrow(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l_Lean_IR_Borrow_infer___closed__1;
lean_object* lean_mk_array(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
LEAN_EXPORT lean_object* l___private_Std_Data_DHashMap_Internal_Defs_0__Std_DHashMap_Internal_Raw_u2080_expand_go___at___Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_IR_Borrow_OwnedSet_insert_spec__1_spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_Borrow_ApplyParamMap_visitDecls_spec__1___closed__0;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l_panic___at___Lean_IR_Borrow_ApplyParamMap_visitDecls_spec__0(lean_object*);
uint8_t l_Lean_IR_FnBody_isTerminal(lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_updateParamSet___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_replace___at___Lean_IR_Borrow_InitParamMap_visitFnBody_spec__4___redArg(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_panic___at___Lean_IR_Borrow_getParamInfo_spec__0___closed__1;
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_contains___at___Lean_IR_Borrow_ownArgsIfParam_spec__0___redArg___boxed(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at_____private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_updateParamSet_spec__1_spec__1(lean_object*, size_t, size_t, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ownArgs(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_IR_instInhabitedFnBody;
@ -84,26 +87,26 @@ LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ParamMap_hashKey____x40_Lean_Compiler_
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at_____private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_updateParamSet_spec__1_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_preserveTailCall___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Id_instMonad___lam__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
static lean_object* l_Lean_IR_Borrow_getParamInfo___closed__1;
extern lean_object* l_Lean_IR_instInhabitedParam;
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_mkInitParamMap___boxed(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Std_DTreeMap_Internal_Impl_contains___at___Lean_IR_Borrow_ownArgsIfParam_spec__0(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_replace___at___Lean_IR_Borrow_InitParamMap_visitFnBody_spec__4(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_isOwned(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_foldlM___at_____private_Std_Data_DHashMap_Internal_Defs_0__Std_DHashMap_Internal_Raw_u2080_expand_go___at___Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_IR_Borrow_OwnedSet_insert_spec__1_spec__1_spec__1___redArg(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
static lean_object* l_panic___at___Lean_IR_Borrow_getParamInfo_spec__0___closed__3;
lean_object* l_Nat_reprFast(lean_object*);
lean_object* l_Lean_Name_mkStr3(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_collectDecls_spec__0(lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l_Lean_IR_Borrow_ParamMap_instBEqKey___closed__0;
size_t lean_usize_of_nat(lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_replace___at___Lean_IR_Borrow_OwnedSet_insert_spec__4___redArg(lean_object*, lean_object*, lean_object*);
static lean_object* l_panic___at___Lean_IR_Borrow_getParamInfo_spec__0___closed__4;
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_OwnedSet_insert(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_Borrow_ApplyParamMap_visitDecls_spec__1___closed__1;
uint8_t l_Lean_isExport(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_isOwned___boxed(lean_object*, lean_object*, lean_object*);
@ -111,7 +114,6 @@ static lean_object* l_Std_DHashMap_Internal_AssocList_foldlM___at___Lean_IR_Borr
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ownArgsIfParam(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_ParamMap_fmt_spec__1(lean_object*, size_t, size_t, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_Borrow_ApplyParamMap_visitDecls_spec__1(lean_object*, size_t, size_t, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
LEAN_EXPORT lean_object* l_Lean_IR_inferBorrow___redArg___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_collectDecls___lam__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ownParamsUsingArgs(lean_object*, lean_object*, lean_object*, lean_object*);
@ -140,19 +142,22 @@ lean_object* l_Id_instMonad___lam__2___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_applyParamMap___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_foldlM___at___Lean_IR_Borrow_ParamMap_fmt_spec__0(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_InitParamMap_initBorrowIfNotExported___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn____x40_Lean_Compiler_IR_Borrow___hyg_3045_(lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_InitParamMap_initBorrowIfNotExported(uint8_t, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
lean_object* l_instInhabitedOfMonad___redArg(lean_object*, lean_object*);
lean_object* lean_st_ref_get(lean_object*, lean_object*);
lean_object* l_instInhabitedForall___redArg___lam__0___boxed(lean_object*, lean_object*);
uint8_t l_Lean_IR_IRType_isPossibleRef(lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_instToFormatParamMap;
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_markModified___redArg(lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_Borrow_ApplyParamMap_visitFnBody_spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Name_num___override(lean_object*, lean_object*);
uint64_t l_Lean_IR_hashJoinPointId____x40_Lean_Compiler_IR_Basic___hyg_249_(lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at_____private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_ownArgsIfParam_spec__1_spec__1(lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT uint8_t l_Lean_IR_Borrow_OwnedSet_contains(lean_object*, lean_object*);
lean_object* l_StateT_instMonad___redArg___lam__7(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_Borrow_ownArgsUsingParams_spec__0___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -166,13 +171,11 @@ static lean_object* l_Lean_IR_Borrow_ParamMap_fmt___closed__0;
uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l_Lean_Name_str___override(lean_object*, lean_object*);
lean_object* l_Id_instMonad___lam__3(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
lean_object* l_StateT_instMonad___redArg___lam__9(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Std_DTreeMap_Internal_Impl_contains___at___Lean_IR_Borrow_ownArgsIfParam_spec__0___redArg(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_IR_Borrow_OwnedSet_insert_spec__1___redArg(lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
lean_object* l_StateT_bind(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l_Lean_IR_Borrow_mkInitParamMap___closed__4;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_Borrow_ApplyParamMap_visitDecls_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_Borrow_ownArgsUsingParams_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -180,16 +183,16 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_IR_Borrow_OwnedSet_insert_spec__1(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_updateParamMap___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_Borrow_InitParamMap_initBorrow_spec__0___boxed(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_Borrow_updateParamMap_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__3;
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ParamMap_instHashableKey;
static lean_object* l_Std_DHashMap_Internal_AssocList_foldlM___at___Lean_IR_Borrow_ParamMap_fmt_spec__0___closed__1;
lean_object* l_Lean_Name_toStringWithToken___at___Lean_Name_toString_spec__0(lean_object*, uint8_t);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_ParamMap_fmt_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_get_x3f___at___Lean_IR_Borrow_ApplyParamMap_visitFnBody_spec__0(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_InitParamMap_visitDecls(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_InitParamMap_visitFnBody(lean_object*, lean_object*, lean_object*);
@ -201,7 +204,7 @@ LEAN_EXPORT lean_object* l___private_Std_Data_DHashMap_Internal_Defs_0__Std_DHas
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_IR_Borrow_InitParamMap_visitFnBody_spec__1(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_instToStringParamMap___lam__0(lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_updateParamSet_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_applyParamMap(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_collectDecl(lean_object*, lean_object*, lean_object*);
@ -214,10 +217,8 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe
lean_object* l_Lean_IR_formatArray___at___Lean_IR_formatParams_spec__0(lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_InitParamMap_visitDecls_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_replace___at___Lean_IR_Borrow_OwnedSet_insert_spec__4(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_foldlM___at_____private_Std_Data_DHashMap_Internal_Defs_0__Std_DHashMap_Internal_Raw_u2080_expand_go___at___Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_IR_Borrow_InitParamMap_visitFnBody_spec__1_spec__1_spec__1(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_collectDecls___lam__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
uint64_t l_Lean_Name_hash___override(lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_mkInitParamMap(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_Borrow_InitParamMap_initBorrow_spec__0(size_t, size_t, lean_object*);
@ -229,24 +230,23 @@ static lean_object* l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__1;
lean_object* lean_nat_mul(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ParamMap_instBEqKey;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_InitParamMap_visitFnBody_spec__5(lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_get_x3f___at___Lean_IR_Borrow_ApplyParamMap_visitFnBody_spec__0___redArg(lean_object*, lean_object*);
lean_object* l_Nat_nextPowerOfTwo(lean_object*);
lean_object* l_Id_instMonad___lam__6(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
size_t lean_usize_sub(size_t, size_t);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_collectFnBody(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
static lean_object* l_Lean_IR_Borrow_getParamInfo___closed__0;
static lean_object* l_panic___at___Lean_IR_Borrow_getParamInfo_spec__0___closed__6;
static lean_object* l_Lean_IR_Borrow_mkInitParamMap___closed__1;
size_t lean_usize_add(size_t, size_t);
lean_object* l_mkPanicMessageWithDecl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_insert___at___Lean_IR_Borrow_updateParamSet_spec__0___redArg(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
lean_object* lean_array_uget(lean_object*, size_t);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_contains___at___Lean_IR_Borrow_OwnedSet_insert_spec__0___boxed(lean_object*, lean_object*, lean_object*);
size_t lean_array_size(lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_Borrow_ownParamsUsingArgs_spec__0___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ownVar(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Std_DHashMap_Internal_AssocList_contains___at___Lean_IR_Borrow_OwnedSet_insert_spec__0___redArg(lean_object*, lean_object*);
@ -261,15 +261,14 @@ LEAN_EXPORT lean_object* l_Lean_IR_Borrow_instToStringParamMap;
lean_object* l_Id_instMonad___lam__0(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_panic___at___Lean_IR_Borrow_getParamInfo_spec__0___closed__0;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Borrow_collectDecls_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_panic___at___Lean_IR_Borrow_getParamInfo_spec__0(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_updateParamSet(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_Borrow_ownArgsUsingParams_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_usize_dec_lt(size_t, size_t);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_infer(lean_object*, lean_object*);
static lean_object* l_Lean_IR_Borrow_ParamMap_fmt___closed__3;
LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn____x40_Lean_Compiler_IR_Borrow___hyg_2979_(lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_insert___at___Lean_IR_Borrow_updateParamSet_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_OwnedSet_contains___boxed(lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
@ -289,7 +288,9 @@ static lean_object* l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__0;
lean_object* l_StateT_instMonad___redArg___lam__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
size_t lean_usize_land(size_t, size_t);
lean_object* l_StateT_pure(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_Borrow_ownParamsUsingArgs_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
LEAN_EXPORT lean_object* l_Lean_IR_Borrow_ApplyParamMap_visitDecls(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Std_DHashMap_Internal_AssocList_contains___at___Lean_IR_Borrow_OwnedSet_insert_spec__0___redArg(lean_object* x_1, lean_object* x_2) {
_start:
@ -2646,7 +2647,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__2;
x_2 = lean_unsigned_to_nat(17u);
x_3 = lean_unsigned_to_nat(105u);
x_3 = lean_unsigned_to_nat(106u);
x_4 = l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__1;
x_5 = l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__0;
x_6 = l_mkPanicMessageWithDecl(x_5, x_4, x_3, x_2, x_1);
@ -2991,7 +2992,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__2;
x_2 = lean_unsigned_to_nat(19u);
x_3 = lean_unsigned_to_nat(121u);
x_3 = lean_unsigned_to_nat(122u);
x_4 = l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_Borrow_ApplyParamMap_visitDecls_spec__1___closed__0;
x_5 = l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__0;
x_6 = l_mkPanicMessageWithDecl(x_5, x_4, x_3, x_2, x_1);
@ -4300,7 +4301,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__2;
x_2 = lean_unsigned_to_nat(21u);
x_3 = lean_unsigned_to_nat(194u);
x_3 = lean_unsigned_to_nat(195u);
x_4 = l_Lean_IR_Borrow_getParamInfo___closed__0;
x_5 = l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__0;
x_6 = l_mkPanicMessageWithDecl(x_5, x_4, x_3, x_2, x_1);
@ -4313,7 +4314,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__2;
x_2 = lean_unsigned_to_nat(11u);
x_3 = lean_unsigned_to_nat(195u);
x_3 = lean_unsigned_to_nat(196u);
x_4 = l_Lean_IR_Borrow_getParamInfo___closed__0;
x_5 = l_Lean_IR_Borrow_ApplyParamMap_visitFnBody___closed__0;
x_6 = l_mkPanicMessageWithDecl(x_5, x_4, x_3, x_2, x_1);
@ -4518,21 +4519,19 @@ x_14 = lean_nat_sub(x_4, x_13);
x_15 = lean_nat_sub(x_14, x_12);
lean_dec(x_14);
lean_inc_ref(x_2);
x_16 = lean_array_get(x_2, x_3, x_15);
x_16 = lean_array_get_borrowed(x_2, x_3, x_15);
x_17 = lean_ctor_get_uint8(x_16, sizeof(void*)*2);
if (x_17 == 0)
{
lean_object* x_18; uint8_t x_19;
x_18 = lean_ctor_get(x_16, 1);
lean_inc(x_18);
lean_dec_ref(x_16);
x_19 = l_Lean_IR_IRType_isScalar(x_18);
lean_dec(x_18);
if (x_19 == 0)
{
lean_object* x_20; lean_object* x_21; lean_object* x_22;
x_20 = lean_array_fget(x_1, x_15);
x_20 = lean_array_fget_borrowed(x_1, x_15);
lean_dec(x_15);
lean_inc(x_20);
x_21 = l_Lean_IR_Borrow_ownArg(x_20, x_6, x_7);
x_22 = lean_ctor_get(x_21, 1);
lean_inc(x_22);
@ -4550,7 +4549,6 @@ goto _start;
}
else
{
lean_dec_ref(x_16);
lean_dec(x_15);
x_5 = x_13;
goto _start;
@ -4639,13 +4637,12 @@ lean_dec(x_5);
x_14 = lean_nat_sub(x_4, x_13);
x_15 = lean_nat_sub(x_14, x_12);
lean_dec(x_14);
x_16 = lean_array_fget(x_1, x_15);
x_16 = lean_array_fget_borrowed(x_1, x_15);
if (lean_obj_tag(x_16) == 0)
{
lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20;
x_17 = lean_ctor_get(x_16, 0);
lean_inc(x_17);
lean_dec_ref(x_16);
x_18 = l_Lean_IR_Borrow_isOwned(x_17, x_6, x_7);
x_19 = lean_ctor_get(x_18, 0);
lean_inc(x_19);
@ -4669,11 +4666,10 @@ x_23 = lean_ctor_get(x_18, 1);
lean_inc(x_23);
lean_dec_ref(x_18);
lean_inc_ref(x_2);
x_24 = lean_array_get(x_2, x_3, x_15);
x_24 = lean_array_get_borrowed(x_2, x_3, x_15);
lean_dec(x_15);
x_25 = lean_ctor_get(x_24, 0);
lean_inc(x_25);
lean_dec_ref(x_24);
x_26 = l_Lean_IR_Borrow_ownVar(x_25, x_6, x_23);
x_27 = lean_ctor_get(x_26, 1);
lean_inc(x_27);
@ -5521,9 +5517,9 @@ goto block_52;
block_45:
{
lean_object* x_42; lean_object* x_43; lean_object* x_44;
x_42 = lean_nat_add(x_40, x_41);
x_42 = lean_nat_add(x_39, x_41);
lean_dec(x_41);
lean_dec(x_40);
lean_dec(x_39);
if (lean_is_scalar(x_36)) {
x_43 = lean_alloc_ctor(0, 5, 0);
} else {
@ -5542,7 +5538,7 @@ if (lean_is_scalar(x_26)) {
lean_ctor_set(x_44, 0, x_38);
lean_ctor_set(x_44, 1, x_28);
lean_ctor_set(x_44, 2, x_29);
lean_ctor_set(x_44, 3, x_39);
lean_ctor_set(x_44, 3, x_40);
lean_ctor_set(x_44, 4, x_43);
return x_44;
}
@ -5568,8 +5564,8 @@ if (lean_obj_tag(x_31) == 0)
lean_object* x_50;
x_50 = lean_ctor_get(x_31, 0);
lean_inc(x_50);
x_39 = x_48;
x_40 = x_49;
x_39 = x_49;
x_40 = x_48;
x_41 = x_50;
goto block_45;
}
@ -5577,8 +5573,8 @@ else
{
lean_object* x_51;
x_51 = lean_unsigned_to_nat(0u);
x_39 = x_48;
x_40 = x_49;
x_39 = x_49;
x_40 = x_48;
x_41 = x_51;
goto block_45;
}
@ -7376,7 +7372,7 @@ lean_dec_ref(x_2);
return x_5;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1;
@ -7384,7 +7380,7 @@ x_1 = lean_mk_string_unchecked("compiler", 8, 8);
return x_1;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1;
@ -7392,7 +7388,7 @@ x_1 = lean_mk_string_unchecked("ir", 2, 2);
return x_1;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1;
@ -7400,18 +7396,18 @@ x_1 = lean_mk_string_unchecked("borrow", 6, 6);
return x_1;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_3 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_4 = l_Lean_Name_mkStr3(x_3, x_2, x_1);
return x_4;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1;
@ -7419,17 +7415,17 @@ x_1 = lean_mk_string_unchecked("_private", 8, 8);
return x_1;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = lean_box(0);
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1;
@ -7437,17 +7433,17 @@ x_1 = lean_mk_string_unchecked("Lean", 4, 4);
return x_1;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1;
@ -7455,17 +7451,17 @@ x_1 = lean_mk_string_unchecked("Compiler", 8, 8);
return x_1;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1;
@ -7473,17 +7469,17 @@ x_1 = lean_mk_string_unchecked("IR", 2, 2);
return x_1;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1;
@ -7491,47 +7487,47 @@ x_1 = lean_mk_string_unchecked("Borrow", 6, 6);
return x_1;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_unsigned_to_nat(0u);
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_num___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1;
@ -7539,17 +7535,17 @@ x_1 = lean_mk_string_unchecked("initFn", 6, 6);
return x_1;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1;
@ -7557,57 +7553,57 @@ x_1 = lean_mk_string_unchecked("_@", 2, 2);
return x_1;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1;
@ -7615,33 +7611,33 @@ x_1 = lean_mk_string_unchecked("_hyg", 4, 4);
return x_1;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_str___override(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_2979_() {
static lean_object* _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_3045_() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_unsigned_to_nat(2979u);
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_1 = lean_unsigned_to_nat(3045u);
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = l_Lean_Name_num___override(x_2, x_1);
return x_3;
}
}
LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn____x40_Lean_Compiler_IR_Borrow___hyg_2979_(lean_object* x_1) {
LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn____x40_Lean_Compiler_IR_Borrow___hyg_3045_(lean_object* x_1) {
_start:
{
lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_2 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_3 = 1;
x_4 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_2979_;
x_4 = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_3045_;
x_5 = l_Lean_registerTraceClass(x_2, x_3, x_4, x_1);
return x_5;
}
@ -7745,63 +7741,63 @@ l_Lean_IR_Borrow_infer___closed__0 = _init_l_Lean_IR_Borrow_infer___closed__0();
lean_mark_persistent(l_Lean_IR_Borrow_infer___closed__0);
l_Lean_IR_Borrow_infer___closed__1 = _init_l_Lean_IR_Borrow_infer___closed__1();
lean_mark_persistent(l_Lean_IR_Borrow_infer___closed__1);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_2979_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_2979_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_2979_);
if (builtin) {res = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn____x40_Lean_Compiler_IR_Borrow___hyg_2979_(lean_io_mk_world());
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__2____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__3____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__4____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__5____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__6____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__7____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__10____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__12____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__13____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__14____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__15____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__17____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__19____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__22____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__24____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__25____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_3045_ = _init_l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_3045_();
lean_mark_persistent(l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn___closed__27____x40_Lean_Compiler_IR_Borrow___hyg_3045_);
if (builtin) {res = l___private_Lean_Compiler_IR_Borrow_0__Lean_IR_initFn____x40_Lean_Compiler_IR_Borrow___hyg_3045_(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
}return lean_io_result_mk_ok(lean_box(0));

35
stage0/stdlib/Lean/Compiler/IR/Boxing.c generated
View file

@ -58,6 +58,7 @@ static lean_object* l___private_Lean_Compiler_IR_Boxing_0__Lean_IR_initFn___clos
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_ExplicitBoxing_visitFnBody_spec__0(size_t, size_t, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_withVDecl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_eqvTypes___boxed(lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_withVDecl___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_getVarType___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_visitFnBody___lam__3(lean_object*, lean_object*, lean_object*);
@ -125,6 +126,7 @@ lean_object* l_Lean_IR_IRType_boxed(lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_visitFnBody(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_ExplicitBoxing_mkCast___closed__0;
LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_unboxResultIfNeeded(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Control_0__Nat_foldM_loop___at___Lean_IR_ExplicitBoxing_mkBoxedVersionAux_spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_ExplicitBoxing_castArgsIfNeededAux___closed__0;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_IR_ExplicitBoxing_castArgsIfNeededAux_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -135,7 +137,6 @@ uint8_t l_Lean_IR_FnBody_beq(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_mkBoxedVersionAux(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_Boxing_0__Lean_IR_ExplicitBoxing_M_mkFresh___redArg(lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Boxing_0__Lean_IR_initFn___closed__26____x40_Lean_Compiler_IR_Boxing___hyg_3160_;
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_Lean_IR_Decl_updateBody_x21(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_Boxing_0__Lean_IR_initFn____x40_Lean_Compiler_IR_Boxing___hyg_3160_(lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_explicitBoxing___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -182,7 +183,6 @@ lean_object* l_Lean_IR_LocalContext_addJP(lean_object*, lean_object*, lean_objec
lean_object* lean_array_get_size(lean_object*);
static lean_object* l___private_Lean_Compiler_IR_Boxing_0__Lean_IR_initFn___closed__21____x40_Lean_Compiler_IR_Boxing___hyg_3160_;
LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_visitVDeclExpr___lam__2(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_IR_reshape(lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
uint8_t lean_usize_dec_lt(size_t, size_t);
@ -588,20 +588,16 @@ x_16 = lean_nat_sub(x_4, x_15);
x_17 = lean_nat_sub(x_16, x_14);
lean_dec(x_16);
lean_inc_ref(x_1);
x_18 = lean_array_get(x_1, x_2, x_17);
x_18 = lean_array_get_borrowed(x_1, x_2, x_17);
x_19 = lean_ctor_get(x_18, 1);
lean_inc(x_19);
lean_dec_ref(x_18);
x_20 = lean_array_fget(x_3, x_17);
x_20 = lean_array_fget_borrowed(x_3, x_17);
lean_dec(x_17);
x_21 = l_Lean_IR_IRType_isScalar(x_19);
if (x_21 == 0)
{
lean_object* x_22; lean_object* x_23; lean_object* x_24;
lean_dec(x_19);
x_22 = lean_ctor_get(x_20, 0);
lean_inc(x_22);
lean_dec_ref(x_20);
x_23 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_23, 0, x_22);
x_24 = lean_array_push(x_13, x_23);
@ -622,10 +618,10 @@ x_28 = lean_ctor_get(x_26, 0);
x_29 = lean_ctor_get(x_26, 1);
x_30 = lean_ctor_get(x_20, 0);
lean_inc(x_30);
lean_dec_ref(x_20);
x_31 = lean_alloc_ctor(10, 1, 0);
lean_ctor_set(x_31, 0, x_30);
x_32 = l___private_Init_Data_Nat_Control_0__Nat_foldM_loop___at___Lean_IR_ExplicitBoxing_mkBoxedVersionAux_spec__1___redArg___closed__1;
lean_inc(x_19);
lean_inc(x_28);
x_33 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_33, 0, x_28);
@ -653,10 +649,10 @@ lean_inc(x_38);
lean_dec(x_26);
x_40 = lean_ctor_get(x_20, 0);
lean_inc(x_40);
lean_dec_ref(x_20);
x_41 = lean_alloc_ctor(10, 1, 0);
lean_ctor_set(x_41, 0, x_40);
x_42 = l___private_Init_Data_Nat_Control_0__Nat_foldM_loop___at___Lean_IR_ExplicitBoxing_mkBoxedVersionAux_spec__1___redArg___closed__1;
lean_inc(x_19);
lean_inc(x_38);
x_43 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_43, 0, x_38);
@ -692,20 +688,16 @@ x_53 = lean_nat_sub(x_4, x_52);
x_54 = lean_nat_sub(x_53, x_51);
lean_dec(x_53);
lean_inc_ref(x_1);
x_55 = lean_array_get(x_1, x_2, x_54);
x_55 = lean_array_get_borrowed(x_1, x_2, x_54);
x_56 = lean_ctor_get(x_55, 1);
lean_inc(x_56);
lean_dec_ref(x_55);
x_57 = lean_array_fget(x_3, x_54);
x_57 = lean_array_fget_borrowed(x_3, x_54);
lean_dec(x_54);
x_58 = l_Lean_IR_IRType_isScalar(x_56);
if (x_58 == 0)
{
lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62;
lean_dec(x_56);
x_59 = lean_ctor_get(x_57, 0);
lean_inc(x_59);
lean_dec_ref(x_57);
x_60 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_60, 0, x_59);
x_61 = lean_array_push(x_50, x_60);
@ -734,10 +726,10 @@ if (lean_is_exclusive(x_64)) {
}
x_68 = lean_ctor_get(x_57, 0);
lean_inc(x_68);
lean_dec_ref(x_57);
x_69 = lean_alloc_ctor(10, 1, 0);
lean_ctor_set(x_69, 0, x_68);
x_70 = l___private_Init_Data_Nat_Control_0__Nat_foldM_loop___at___Lean_IR_ExplicitBoxing_mkBoxedVersionAux_spec__1___redArg___closed__1;
lean_inc(x_56);
lean_inc(x_65);
x_71 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_71, 0, x_65);
@ -2937,10 +2929,9 @@ LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_castArgsIfNeeded___lam__0(lean
_start:
{
lean_object* x_4; lean_object* x_5;
x_4 = lean_array_get(x_1, x_2, x_3);
x_4 = lean_array_get_borrowed(x_1, x_2, x_3);
x_5 = lean_ctor_get(x_4, 1);
lean_inc(x_5);
lean_dec_ref(x_4);
return x_5;
}
}
@ -3259,10 +3250,9 @@ LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_visitVDeclExpr___lam__2(lean_o
_start:
{
lean_object* x_4; lean_object* x_5;
x_4 = lean_array_get(x_1, x_2, x_3);
x_4 = lean_array_get_borrowed(x_1, x_2, x_3);
x_5 = lean_ctor_get(x_4, 1);
lean_inc(x_5);
lean_dec_ref(x_4);
return x_5;
}
}
@ -4008,10 +3998,9 @@ LEAN_EXPORT lean_object* l_Lean_IR_ExplicitBoxing_visitFnBody___lam__5(lean_obje
_start:
{
lean_object* x_4; lean_object* x_5;
x_4 = lean_array_get(x_1, x_2, x_3);
x_4 = lean_array_get_borrowed(x_1, x_2, x_3);
x_5 = lean_ctor_get(x_4, 1);
lean_inc(x_5);
lean_dec_ref(x_4);
return x_5;
}
}

27
stage0/stdlib/Lean/Compiler/IR/CompilerM.c generated
View file

@ -78,6 +78,7 @@ lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_IR_initFn____x40_Lean_Compiler_IR_CompilerM___hyg_598__spec__7_spec__7___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_getExportNameFor_x3f(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Lean_PersistentHashMap_contains___at___Lean_IR_initFn____x40_Lean_Compiler_IR_CompilerM___hyg_598__spec__4___redArg(lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lean_IR_log___closed__1;
static lean_object* l_Lean_IR_tracePrefixOptionName___closed__3;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_Log_format_spec__0(lean_object*, size_t, size_t, lean_object*);
@ -2460,9 +2461,8 @@ return x_5;
else
{
lean_object* x_6; uint8_t x_7;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
x_7 = lean_name_eq(x_3, x_6);
lean_dec(x_6);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9;
@ -2620,9 +2620,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_name_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -2669,9 +2668,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_name_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -2740,8 +2738,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Name_hash___override(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -2752,6 +2750,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_IR_initFn____x40_Lean_Compiler_IR_CompilerM___hyg_598__spec__7_spec__7___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -3604,9 +3604,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -3619,8 +3618,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;
@ -3812,7 +3812,7 @@ x_5 = lean_nat_add(x_3, x_4);
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_shiftr(x_5, x_6);
lean_dec(x_5);
x_8 = lean_array_fget(x_1, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = l___private_Init_Data_Array_QSort_Basic_0__Array_qsort_sort___at___Lean_IR_initFn____x40_Lean_Compiler_IR_CompilerM___hyg_598__spec__3___redArg___lam__0(x_8, x_2);
if (x_9 == 0)
{
@ -3824,6 +3824,7 @@ if (x_10 == 0)
lean_object* x_11;
lean_dec(x_7);
lean_dec(x_3);
lean_inc_ref(x_8);
x_11 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_11, 0, x_8);
return x_11;
@ -3831,7 +3832,6 @@ return x_11;
else
{
lean_object* x_12; uint8_t x_13;
lean_dec_ref(x_8);
x_12 = lean_unsigned_to_nat(0u);
x_13 = lean_nat_dec_eq(x_7, x_12);
if (x_13 == 0)
@ -3867,7 +3867,6 @@ return x_18;
else
{
lean_object* x_19; uint8_t x_20;
lean_dec_ref(x_8);
lean_dec(x_3);
x_19 = lean_nat_add(x_7, x_6);
lean_dec(x_7);

92
stage0/stdlib/Lean/Compiler/IR/ElimDeadBranches.c generated
View file

@ -108,6 +108,7 @@ static lean_object* l___private_Lean_Compiler_IR_ElimDeadBranches_0__Lean_IR_ini
LEAN_EXPORT lean_object* l_List_mapTR_loop___at_____private_Lean_Compiler_IR_ElimDeadBranches_0__Lean_IR_UnreachableBranches_Value_truncate_go_spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_UnreachableBranches_inferStep_spec__0(lean_object*, lean_object*, size_t, size_t, lean_object*);
static lean_object* l_Lean_IR_UnreachableBranches_reprValue___closed__0____x40_Lean_Compiler_IR_ElimDeadBranches___hyg_179_;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Lean_IR_UnreachableBranches_initFn___lam__1____x40_Lean_Compiler_IR_ElimDeadBranches___hyg_1070_(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_UnreachableBranches_instReprValue;
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
@ -265,6 +266,7 @@ LEAN_EXPORT lean_object* l_Lean_IR_UnreachableBranches_updateVarAssignment(lean_
lean_object* l_Lean_NameSet_insert(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_getD___at___Lean_IR_UnreachableBranches_findVarValue_spec__0(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_UnreachableBranches_instToStringValue___lam__0(lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_UnreachableBranches_initFn___lam__2____x40_Lean_Compiler_IR_ElimDeadBranches___hyg_1070_(lean_object*, lean_object*, lean_object*, uint8_t);
lean_object* lean_usize_to_nat(size_t);
static lean_object* l___private_Lean_Compiler_IR_ElimDeadBranches_0__Lean_IR_initFn___closed__9____x40_Lean_Compiler_IR_ElimDeadBranches___hyg_3702_;
@ -500,11 +502,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = l_Lean_IR_UnreachableBranches_beqValue____x40_Lean_Compiler_IR_ElimDeadBranches___hyg_52_(x_8, x_9);
lean_dec(x_9);
lean_dec(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -2114,10 +2114,12 @@ x_8 = lean_unsigned_to_nat(1u);
x_9 = lean_nat_sub(x_4, x_8);
x_10 = lean_nat_sub(x_3, x_4);
lean_dec(x_4);
x_11 = lean_array_fget(x_1, x_10);
x_11 = lean_array_fget_borrowed(x_1, x_10);
x_12 = lean_box(0);
x_13 = lean_array_get(x_12, x_2, x_10);
x_13 = lean_array_get_borrowed(x_12, x_2, x_10);
lean_dec(x_10);
lean_inc(x_13);
lean_inc(x_11);
x_14 = l_Lean_IR_UnreachableBranches_Value_merge(x_11, x_13);
x_15 = lean_array_push(x_5, x_14);
x_4 = x_9;
@ -2954,9 +2956,8 @@ return x_5;
else
{
lean_object* x_6; uint8_t x_7;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
x_7 = lean_name_eq(x_3, x_6);
lean_dec(x_6);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9;
@ -3170,9 +3171,11 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
lean_inc_ref(x_1);
lean_inc(x_9);
lean_inc(x_8);
x_10 = lean_apply_3(x_1, x_5, x_8, x_9);
x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_add(x_4, x_11);
@ -3413,9 +3416,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_name_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -3462,9 +3464,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_name_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -3533,8 +3534,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Name_hash___override(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -3545,6 +3546,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_IR_UnreachableBranches_initFn____x40_Lean_Compiler_IR_ElimDeadBranches___hyg_1070__spec__10_spec__10___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -4406,9 +4409,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -4421,8 +4423,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;
@ -4614,7 +4617,7 @@ x_5 = lean_nat_add(x_3, x_4);
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_shiftr(x_5, x_6);
lean_dec(x_5);
x_8 = lean_array_fget(x_1, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = l___private_Init_Data_Array_QSort_Basic_0__Array_qsort_sort___at___Lean_IR_UnreachableBranches_initFn____x40_Lean_Compiler_IR_ElimDeadBranches___hyg_1070__spec__9___redArg___lam__0(x_8, x_2);
if (x_9 == 0)
{
@ -4626,6 +4629,7 @@ if (x_10 == 0)
lean_object* x_11;
lean_dec(x_7);
lean_dec(x_3);
lean_inc_ref(x_8);
x_11 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_11, 0, x_8);
return x_11;
@ -4633,7 +4637,6 @@ return x_11;
else
{
lean_object* x_12; uint8_t x_13;
lean_dec_ref(x_8);
x_12 = lean_unsigned_to_nat(0u);
x_13 = lean_nat_dec_eq(x_7, x_12);
if (x_13 == 0)
@ -4669,7 +4672,6 @@ return x_18;
else
{
lean_object* x_19; uint8_t x_20;
lean_dec_ref(x_8);
lean_dec(x_3);
x_19 = lean_nat_add(x_7, x_6);
lean_dec(x_7);
@ -5941,7 +5943,8 @@ return x_6;
else
{
lean_object* x_7;
x_7 = lean_array_fget(x_3, x_2);
x_7 = lean_array_fget_borrowed(x_3, x_2);
lean_inc(x_7);
return x_7;
}
}
@ -7000,10 +7003,8 @@ if (lean_is_exclusive(x_3)) {
x_8 = lean_box(0);
}
x_71 = l_Lean_IR_UnreachableBranches_markJPVisited___closed__2;
x_72 = lean_array_get(x_71, x_7, x_4);
x_72 = lean_array_get_borrowed(x_71, x_7, x_4);
x_73 = lean_ctor_get(x_72, 1);
lean_inc_ref(x_73);
lean_dec_ref(x_72);
x_74 = lean_array_get_size(x_73);
x_75 = l_Lean_IR_hashJoinPointId____x40_Lean_Compiler_IR_Basic___hyg_249_(x_1);
x_76 = 32;
@ -7019,7 +7020,6 @@ x_84 = 1;
x_85 = lean_usize_sub(x_83, x_84);
x_86 = lean_usize_land(x_82, x_85);
x_87 = lean_array_uget(x_73, x_86);
lean_dec_ref(x_73);
x_88 = l_Std_DHashMap_Internal_AssocList_contains___at___Lean_IR_UnreachableBranches_markJPVisited_spec__0___redArg(x_1, x_87);
lean_dec(x_87);
if (x_88 == 0)
@ -7079,9 +7079,7 @@ else
lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; uint64_t x_29; uint64_t x_30; uint64_t x_31; uint64_t x_32; uint64_t x_33; uint64_t x_34; uint64_t x_35; size_t x_36; size_t x_37; size_t x_38; size_t x_39; size_t x_40; lean_object* x_41; uint8_t x_42;
x_23 = lean_array_fget(x_7, x_4);
x_24 = lean_ctor_get(x_23, 0);
lean_inc(x_24);
x_25 = lean_ctor_get(x_23, 1);
lean_inc_ref(x_25);
x_26 = lean_box(0);
x_27 = lean_array_fset(x_7, x_4, x_26);
x_28 = lean_array_get_size(x_25);
@ -7103,6 +7101,8 @@ x_42 = l_Std_DHashMap_Internal_AssocList_contains___at___Lean_IR_UnreachableBran
if (x_42 == 0)
{
uint8_t x_43;
lean_inc_ref(x_25);
lean_inc(x_24);
x_43 = !lean_is_exclusive(x_23);
if (x_43 == 0)
{
@ -7198,8 +7198,6 @@ goto block_19;
else
{
lean_dec(x_41);
lean_dec_ref(x_25);
lean_dec(x_24);
lean_dec(x_1);
x_15 = x_20;
x_16 = x_27;
@ -7267,10 +7265,8 @@ lean_dec(x_6);
x_16 = lean_nat_sub(x_5, x_15);
x_17 = lean_nat_sub(x_16, x_14);
lean_dec(x_16);
x_18 = lean_array_fget(x_1, x_17);
x_18 = lean_array_fget_borrowed(x_1, x_17);
x_19 = lean_ctor_get(x_18, 0);
lean_inc(x_19);
lean_dec_ref(x_18);
x_20 = l_Lean_IR_UnreachableBranches_findVarValue(x_19, x_8, x_9);
x_21 = lean_ctor_get(x_20, 0);
lean_inc(x_21);
@ -7278,10 +7274,9 @@ x_22 = lean_ctor_get(x_20, 1);
lean_inc(x_22);
lean_dec_ref(x_20);
lean_inc(x_2);
x_23 = lean_array_get(x_2, x_3, x_17);
x_23 = lean_array_get_borrowed(x_2, x_3, x_17);
lean_dec(x_17);
x_24 = l_Lean_IR_UnreachableBranches_findArgValue(x_23, x_8, x_22);
lean_dec(x_23);
x_25 = lean_ctor_get(x_24, 0);
lean_inc(x_25);
x_26 = lean_ctor_get(x_24, 1);
@ -7316,7 +7311,6 @@ lean_dec(x_38);
if (x_39 == 0)
{
lean_dec(x_27);
lean_dec(x_19);
x_34 = x_29;
goto block_37;
}
@ -7353,6 +7347,7 @@ if (x_63 == 0)
lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; uint8_t x_72;
x_64 = lean_nat_add(x_42, x_14);
lean_dec(x_42);
lean_inc(x_19);
x_65 = lean_alloc_ctor(1, 3, 0);
lean_ctor_set(x_65, 0, x_19);
lean_ctor_set(x_65, 1, x_27);
@ -7389,6 +7384,7 @@ else
lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77;
x_74 = lean_box(0);
x_75 = lean_array_uset(x_43, x_61, x_74);
lean_inc(x_19);
x_76 = l_Std_DHashMap_Internal_AssocList_replace___at___Lean_IR_UnreachableBranches_updateVarAssignment_spec__4___redArg(x_19, x_27, x_62);
x_77 = lean_array_uset(x_75, x_61, x_76);
lean_ctor_set(x_40, 1, x_77);
@ -7434,6 +7430,7 @@ if (x_99 == 0)
lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; uint8_t x_108;
x_100 = lean_nat_add(x_78, x_14);
lean_dec(x_78);
lean_inc(x_19);
x_101 = lean_alloc_ctor(1, 3, 0);
lean_ctor_set(x_101, 0, x_19);
lean_ctor_set(x_101, 1, x_27);
@ -7473,6 +7470,7 @@ else
lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116;
x_112 = lean_box(0);
x_113 = lean_array_uset(x_79, x_97, x_112);
lean_inc(x_19);
x_114 = l_Std_DHashMap_Internal_AssocList_replace___at___Lean_IR_UnreachableBranches_updateVarAssignment_spec__4___redArg(x_19, x_27, x_98);
x_115 = lean_array_uset(x_113, x_97, x_114);
x_116 = lean_alloc_ctor(0, 2, 0);
@ -7510,7 +7508,6 @@ goto _start;
else
{
lean_dec(x_27);
lean_dec(x_19);
x_6 = x_15;
x_9 = x_26;
goto _start;
@ -8646,15 +8643,12 @@ lean_dec(x_4);
x_32 = lean_nat_sub(x_3, x_13);
x_33 = lean_nat_sub(x_32, x_12);
lean_dec(x_32);
x_34 = lean_array_fget(x_2, x_33);
x_34 = lean_array_fget_borrowed(x_2, x_33);
if (lean_obj_tag(x_34) == 0)
{
lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_48; uint8_t x_62;
x_35 = lean_ctor_get(x_34, 1);
lean_inc_ref(x_35);
x_36 = lean_ctor_get(x_34, 3);
lean_inc(x_36);
lean_dec_ref(x_34);
x_37 = lean_ctor_get(x_7, 1);
x_62 = l___private_Init_Data_Nat_Control_0__Nat_foldM_loop___at___Lean_IR_UnreachableBranches_inferStep_spec__3___redArg___lam__0(x_37, x_33);
if (x_62 == 0)
@ -8677,6 +8671,7 @@ goto block_61;
block_47:
{
lean_object* x_41; lean_object* x_42; lean_object* x_43; uint8_t x_44;
lean_inc(x_36);
x_41 = l_Lean_IR_UnreachableBranches_interpFnBody(x_36, x_39, x_40);
x_42 = lean_ctor_get(x_41, 1);
lean_inc(x_42);
@ -8727,7 +8722,6 @@ x_54 = lean_nat_dec_lt(x_8, x_52);
if (x_54 == 0)
{
lean_dec(x_52);
lean_dec_ref(x_35);
x_38 = x_48;
x_39 = x_53;
x_40 = x_7;
@ -8740,7 +8734,6 @@ x_55 = lean_nat_dec_le(x_52, x_52);
if (x_55 == 0)
{
lean_dec(x_52);
lean_dec_ref(x_35);
x_38 = x_48;
x_39 = x_53;
x_40 = x_7;
@ -8754,7 +8747,6 @@ x_57 = 0;
x_58 = lean_usize_of_nat(x_52);
lean_dec(x_52);
x_59 = l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_IR_UnreachableBranches_inferStep_spec__2(x_35, x_57, x_58, x_56, x_53, x_7);
lean_dec_ref(x_35);
x_60 = lean_ctor_get(x_59, 1);
lean_inc(x_60);
lean_dec_ref(x_59);
@ -8769,7 +8761,6 @@ goto block_47;
else
{
lean_object* x_65; lean_object* x_66; uint8_t x_75;
lean_dec_ref(x_34);
x_65 = lean_ctor_get(x_7, 1);
x_75 = l___private_Init_Data_Nat_Control_0__Nat_foldM_loop___at___Lean_IR_UnreachableBranches_inferStep_spec__3___redArg___lam__0(x_65, x_33);
if (x_75 == 0)
@ -9550,10 +9541,9 @@ x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_sub(x_5, x_9);
x_11 = lean_nat_sub(x_4, x_5);
lean_dec(x_5);
x_22 = lean_array_fget(x_3, x_11);
x_22 = lean_array_fget_borrowed(x_3, x_11);
x_23 = lean_ctor_get(x_22, 0);
lean_inc(x_23);
lean_dec_ref(x_22);
x_12 = x_23;
goto block_21;
block_21:
@ -9615,11 +9605,11 @@ lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_
x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_sub(x_4, x_9);
lean_dec(x_4);
x_11 = lean_array_fget(x_3, x_5);
x_11 = lean_array_fget_borrowed(x_3, x_5);
lean_inc_ref(x_1);
x_12 = lean_array_get(x_1, x_2, x_5);
x_12 = lean_array_get_borrowed(x_1, x_2, x_5);
lean_inc_ref(x_11);
x_13 = l_Lean_IR_UnreachableBranches_elimDead(x_12, x_11);
lean_dec_ref(x_12);
x_14 = lean_nat_add(x_5, x_9);
lean_dec(x_5);
x_15 = lean_array_push(x_6, x_13);

301
stage0/stdlib/Lean/Compiler/IR/EmitC.c generated
View file

@ -140,6 +140,7 @@ static lean_object* l_Lean_IR_EmitC_emitMainFn___closed__12;
static lean_object* l_Lean_IR_EmitC_toCType___closed__12;
LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitUnbox(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitBox___redArg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_EmitC_emitFnDeclAux_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_EmitC_emitDeclInit___closed__1;
static lean_object* l_Lean_IR_EmitC_emitSProj___redArg___closed__5;
@ -398,6 +399,7 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Fold_0__Nat_anyTR_loop___at__
LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitIf(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_EmitC_emitMainFn___closed__39;
LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emit___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitSSet___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_EmitC_emitPartialApp_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_EmitC_getDecl___boxed(lean_object*, lean_object*, lean_object*);
@ -613,7 +615,6 @@ LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitVDecl___boxed(lean_object*, lean_ob
LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitCtor___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_name_mangle(lean_object*, lean_object*);
static lean_object* l_Lean_IR_EmitC_emitProj___redArg___closed__0;
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitBoxFn___redArg___boxed(lean_object*, lean_object*);
uint8_t l_Lean_isIOUnitInitFn(lean_object*, lean_object*);
static lean_object* l_Lean_IR_EmitC_emitExternCall___closed__0;
@ -1933,13 +1934,10 @@ goto block_19;
block_19:
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_14 = lean_array_fget(x_1, x_12);
x_14 = lean_array_fget_borrowed(x_1, x_12);
lean_dec(x_12);
x_15 = lean_ctor_get(x_14, 1);
lean_inc(x_15);
lean_dec_ref(x_14);
x_16 = l_Lean_IR_EmitC_toCType(x_15);
lean_dec(x_15);
x_17 = lean_string_append(x_13, x_16);
lean_dec_ref(x_16);
x_3 = x_10;
@ -5230,13 +5228,12 @@ x_11 = lean_ctor_get(x_8, 1);
lean_inc(x_11);
lean_dec_ref(x_8);
x_17 = lean_unsigned_to_nat(1u);
x_18 = lean_array_fget(x_1, x_17);
x_18 = lean_array_fget_borrowed(x_1, x_17);
if (lean_obj_tag(x_18) == 0)
{
lean_object* x_19;
x_19 = lean_ctor_get(x_18, 1);
lean_inc(x_19);
lean_dec_ref(x_18);
x_12 = x_19;
goto block_16;
}
@ -5245,7 +5242,6 @@ else
lean_object* x_20;
x_20 = lean_ctor_get(x_18, 0);
lean_inc(x_20);
lean_dec_ref(x_18);
x_12 = x_20;
goto block_16;
}
@ -6130,13 +6126,12 @@ lean_dec(x_4);
x_12 = lean_nat_sub(x_3, x_11);
x_13 = lean_nat_sub(x_12, x_10);
lean_dec(x_12);
x_14 = lean_array_fget(x_1, x_13);
x_14 = lean_array_fget_borrowed(x_1, x_13);
x_15 = lean_ctor_get(x_14, 0);
lean_inc(x_15);
lean_dec_ref(x_14);
x_16 = lean_array_fget(x_2, x_13);
x_16 = lean_array_fget_borrowed(x_2, x_13);
lean_dec(x_13);
x_17 = l_Lean_IR_EmitC_argToCString___closed__0;
lean_inc(x_15);
x_18 = l_Nat_reprFast(x_15);
x_19 = lean_string_append(x_17, x_18);
lean_dec_ref(x_18);
@ -6144,6 +6139,7 @@ x_20 = lean_string_append(x_5, x_19);
lean_dec_ref(x_19);
x_21 = l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_EmitC_emitJmp_spec__0___redArg___closed__0;
x_22 = lean_string_append(x_20, x_21);
lean_inc(x_16);
x_23 = l_Lean_IR_EmitC_emitArg___redArg(x_16, x_22);
x_24 = lean_ctor_get(x_23, 1);
lean_inc(x_24);
@ -6477,8 +6473,9 @@ goto block_18;
block_18:
{
lean_object* x_14; lean_object* x_15; lean_object* x_16;
x_14 = lean_array_fget(x_1, x_12);
x_14 = lean_array_fget_borrowed(x_1, x_12);
lean_dec(x_12);
lean_inc(x_14);
x_15 = l_Lean_IR_EmitC_emitArg___redArg(x_14, x_13);
x_16 = lean_ctor_get(x_15, 1);
lean_inc(x_16);
@ -6751,8 +6748,9 @@ x_22 = l_Nat_reprFast(x_13);
x_23 = lean_string_append(x_21, x_22);
lean_dec_ref(x_22);
x_24 = lean_string_append(x_23, x_20);
x_25 = lean_array_fget(x_2, x_13);
x_25 = lean_array_fget_borrowed(x_2, x_13);
lean_dec(x_13);
lean_inc(x_25);
x_26 = l_Lean_IR_EmitC_emitArg___redArg(x_25, x_24);
x_27 = lean_ctor_get(x_26, 1);
lean_inc(x_27);
@ -7739,12 +7737,9 @@ x_14 = lean_nat_sub(x_4, x_13);
x_15 = lean_nat_sub(x_14, x_12);
lean_dec(x_14);
lean_inc_ref(x_1);
x_16 = lean_array_get(x_1, x_2, x_15);
x_16 = lean_array_get_borrowed(x_1, x_2, x_15);
x_17 = lean_ctor_get(x_16, 1);
lean_inc(x_17);
lean_dec_ref(x_16);
x_18 = l_Lean_IR_IRType_isErased(x_17);
lean_dec(x_17);
if (x_18 == 0)
{
if (x_6 == 0)
@ -7770,8 +7765,9 @@ goto _start;
block_24:
{
lean_object* x_20; lean_object* x_21; lean_object* x_22;
x_20 = lean_array_fget(x_3, x_15);
x_20 = lean_array_fget_borrowed(x_3, x_15);
lean_dec(x_15);
lean_inc(x_20);
x_21 = l_Lean_IR_EmitC_emitArg___redArg(x_20, x_19);
x_22 = lean_ctor_get(x_21, 1);
lean_inc(x_22);
@ -8258,7 +8254,7 @@ lean_dec(x_6);
x_14 = lean_nat_sub(x_5, x_13);
x_15 = lean_nat_sub(x_14, x_12);
lean_dec(x_14);
x_16 = lean_array_fget(x_1, x_15);
x_16 = lean_array_fget_borrowed(x_1, x_15);
x_17 = l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_EmitC_emitPartialApp_spec__0___redArg___closed__0;
x_18 = lean_string_append(x_7, x_17);
x_19 = l_Lean_IR_EmitC_argToCString___closed__0;
@ -8273,6 +8269,7 @@ x_24 = l_Nat_reprFast(x_15);
x_25 = lean_string_append(x_23, x_24);
lean_dec_ref(x_24);
x_26 = lean_string_append(x_25, x_3);
lean_inc(x_16);
x_27 = l_Lean_IR_EmitC_emitArg___redArg(x_16, x_26);
x_28 = lean_ctor_get(x_27, 1);
lean_inc(x_28);
@ -9964,10 +9961,9 @@ x_10 = lean_nat_sub(x_5, x_6);
x_11 = lean_nat_add(x_1, x_10);
lean_dec(x_10);
lean_inc(x_2);
x_12 = lean_array_get(x_2, x_3, x_11);
x_12 = lean_array_get_borrowed(x_2, x_3, x_11);
lean_dec(x_11);
x_13 = l_Lean_IR_EmitC_paramEqArg(x_4, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -10012,7 +10008,7 @@ else
{
lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15;
x_10 = lean_nat_sub(x_5, x_6);
x_11 = lean_array_fget(x_1, x_10);
x_11 = lean_array_fget_borrowed(x_1, x_10);
x_12 = lean_unsigned_to_nat(1u);
x_13 = lean_nat_add(x_10, x_12);
lean_dec(x_10);
@ -10021,7 +10017,6 @@ lean_inc(x_14);
lean_inc(x_3);
x_15 = l___private_Init_Data_Nat_Fold_0__Nat_anyTR_loop___at___Lean_IR_EmitC_overwriteParam_spec__0___redArg(x_13, x_3, x_4, x_11, x_14, x_14);
lean_dec(x_14);
lean_dec_ref(x_11);
lean_dec(x_13);
if (x_15 == 0)
{
@ -10065,7 +10060,7 @@ else
{
lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15;
x_10 = lean_nat_sub(x_5, x_6);
x_11 = lean_array_fget(x_1, x_10);
x_11 = lean_array_fget_borrowed(x_1, x_10);
x_12 = lean_unsigned_to_nat(1u);
x_13 = lean_nat_add(x_10, x_12);
lean_dec(x_10);
@ -10074,7 +10069,6 @@ lean_inc(x_14);
lean_inc(x_2);
x_15 = l___private_Init_Data_Nat_Fold_0__Nat_anyTR_loop___at___Lean_IR_EmitC_overwriteParam_spec__0___redArg(x_13, x_2, x_3, x_11, x_14, x_14);
lean_dec(x_14);
lean_dec_ref(x_11);
lean_dec(x_13);
if (x_15 == 0)
{
@ -10226,17 +10220,16 @@ lean_dec(x_4);
x_12 = lean_nat_sub(x_3, x_11);
x_13 = lean_nat_sub(x_12, x_10);
lean_dec(x_12);
x_14 = lean_array_fget(x_1, x_13);
x_15 = lean_array_fget(x_2, x_13);
x_14 = lean_array_fget_borrowed(x_1, x_13);
x_15 = lean_array_fget_borrowed(x_2, x_13);
lean_dec(x_13);
x_16 = l_Lean_IR_EmitC_paramEqArg(x_14, x_15);
if (x_16 == 0)
{
lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29;
x_17 = lean_ctor_get(x_14, 0);
lean_inc(x_17);
lean_dec_ref(x_14);
x_18 = l_Lean_IR_EmitC_argToCString___closed__0;
lean_inc(x_17);
x_19 = l_Nat_reprFast(x_17);
x_20 = lean_string_append(x_18, x_19);
lean_dec_ref(x_19);
@ -10244,6 +10237,7 @@ x_21 = lean_string_append(x_5, x_20);
lean_dec_ref(x_20);
x_22 = l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_EmitC_emitJmp_spec__0___redArg___closed__0;
x_23 = lean_string_append(x_21, x_22);
lean_inc(x_15);
x_24 = l_Lean_IR_EmitC_emitArg___redArg(x_15, x_23);
x_25 = lean_ctor_get(x_24, 1);
lean_inc(x_25);
@ -10258,8 +10252,6 @@ goto _start;
}
else
{
lean_dec(x_15);
lean_dec_ref(x_14);
x_4 = x_11;
goto _start;
}
@ -10307,17 +10299,14 @@ lean_dec(x_4);
x_12 = lean_nat_sub(x_3, x_11);
x_13 = lean_nat_sub(x_12, x_10);
lean_dec(x_12);
x_14 = lean_array_fget(x_1, x_13);
x_15 = lean_array_fget(x_2, x_13);
x_14 = lean_array_fget_borrowed(x_1, x_13);
x_15 = lean_array_fget_borrowed(x_2, x_13);
x_16 = l_Lean_IR_EmitC_paramEqArg(x_14, x_15);
if (x_16 == 0)
{
lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31;
x_17 = lean_ctor_get(x_14, 1);
lean_inc(x_17);
lean_dec_ref(x_14);
x_18 = l_Lean_IR_EmitC_toCType(x_17);
lean_dec(x_17);
x_19 = lean_string_append(x_5, x_18);
lean_dec_ref(x_18);
x_20 = l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_EmitC_emitTailCall_spec__1___redArg___closed__0;
@ -10327,6 +10316,7 @@ x_23 = lean_string_append(x_21, x_22);
lean_dec_ref(x_22);
x_24 = l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_EmitC_emitJmp_spec__0___redArg___closed__0;
x_25 = lean_string_append(x_23, x_24);
lean_inc(x_15);
x_26 = l_Lean_IR_EmitC_emitArg___redArg(x_15, x_25);
x_27 = lean_ctor_get(x_26, 1);
lean_inc(x_27);
@ -10341,8 +10331,6 @@ goto _start;
}
else
{
lean_dec(x_15);
lean_dec_ref(x_14);
lean_dec(x_13);
x_4 = x_11;
goto _start;
@ -10391,17 +10379,15 @@ lean_dec(x_4);
x_12 = lean_nat_sub(x_3, x_11);
x_13 = lean_nat_sub(x_12, x_10);
lean_dec(x_12);
x_14 = lean_array_fget(x_1, x_13);
x_15 = lean_array_fget(x_2, x_13);
x_14 = lean_array_fget_borrowed(x_1, x_13);
x_15 = lean_array_fget_borrowed(x_2, x_13);
x_16 = l_Lean_IR_EmitC_paramEqArg(x_14, x_15);
lean_dec(x_15);
if (x_16 == 0)
{
lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29;
x_17 = lean_ctor_get(x_14, 0);
lean_inc(x_17);
lean_dec_ref(x_14);
x_18 = l_Lean_IR_EmitC_argToCString___closed__0;
lean_inc(x_17);
x_19 = l_Nat_reprFast(x_17);
x_20 = lean_string_append(x_18, x_19);
lean_dec_ref(x_19);
@ -10422,7 +10408,6 @@ goto _start;
}
else
{
lean_dec_ref(x_14);
lean_dec(x_13);
x_4 = x_11;
goto _start;
@ -11677,13 +11662,12 @@ x_11 = lean_nat_sub(x_2, x_10);
x_12 = lean_nat_sub(x_11, x_9);
lean_dec(x_11);
x_13 = l_Lean_IR_instInhabitedParam;
x_14 = lean_array_get(x_13, x_1, x_12);
x_14 = lean_array_get_borrowed(x_13, x_1, x_12);
x_15 = lean_ctor_get(x_14, 0);
lean_inc(x_15);
lean_dec_ref(x_14);
x_16 = l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_EmitC_emitDeclAux_spec__0___redArg___closed__0;
x_17 = lean_string_append(x_4, x_16);
x_18 = l_Lean_IR_EmitC_argToCString___closed__0;
lean_inc(x_15);
x_19 = l_Nat_reprFast(x_15);
x_20 = lean_string_append(x_18, x_19);
lean_dec_ref(x_19);
@ -11754,19 +11738,16 @@ goto block_27;
block_27:
{
lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25;
x_16 = lean_array_fget(x_1, x_14);
x_16 = lean_array_fget_borrowed(x_1, x_14);
lean_dec(x_14);
x_17 = lean_ctor_get(x_16, 0);
lean_inc(x_17);
x_18 = lean_ctor_get(x_16, 1);
lean_inc(x_18);
lean_dec_ref(x_16);
x_19 = l_Lean_IR_EmitC_toCType(x_18);
lean_dec(x_18);
x_20 = lean_string_append(x_15, x_19);
lean_dec_ref(x_19);
x_21 = lean_string_append(x_20, x_2);
x_22 = l_Lean_IR_EmitC_argToCString___closed__0;
lean_inc(x_17);
x_23 = l_Nat_reprFast(x_17);
x_24 = lean_string_append(x_22, x_23);
lean_dec_ref(x_23);
@ -12015,29 +11996,29 @@ block_24:
if (x_19 == 0)
{
lean_object* x_20; lean_object* x_21;
lean_inc(x_12);
x_20 = l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_EmitC_emitDeclAux_spec__1___redArg(x_17, x_16, x_15, x_12, x_12, x_13);
lean_dec(x_12);
lean_dec_ref(x_16);
lean_dec_ref(x_17);
lean_inc(x_17);
x_20 = l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_EmitC_emitDeclAux_spec__1___redArg(x_12, x_18, x_13, x_17, x_17, x_14);
lean_dec(x_17);
lean_dec_ref(x_18);
lean_dec_ref(x_12);
x_21 = lean_ctor_get(x_20, 1);
lean_inc(x_21);
lean_dec_ref(x_20);
x_4 = x_18;
x_5 = x_14;
x_4 = x_15;
x_5 = x_16;
x_6 = x_21;
goto block_11;
}
else
{
lean_object* x_22; lean_object* x_23;
lean_dec_ref(x_17);
lean_dec_ref(x_16);
lean_dec(x_12);
lean_dec_ref(x_18);
lean_dec(x_17);
lean_dec_ref(x_12);
x_22 = l_Lean_IR_EmitC_emitDeclAux___closed__0;
x_23 = lean_string_append(x_13, x_22);
x_4 = x_18;
x_5 = x_14;
x_23 = lean_string_append(x_14, x_22);
x_4 = x_15;
x_5 = x_16;
x_6 = x_23;
goto block_11;
}
@ -12045,21 +12026,21 @@ goto block_11;
block_52:
{
lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; uint8_t x_38;
x_32 = l_Lean_IR_EmitC_toCType(x_25);
lean_dec(x_25);
x_32 = l_Lean_IR_EmitC_toCType(x_26);
lean_dec(x_26);
x_33 = lean_string_append(x_31, x_32);
lean_dec_ref(x_32);
x_34 = l_Lean_IR_EmitC_emitFnDeclAux___closed__4;
x_35 = lean_string_append(x_33, x_34);
x_36 = lean_unsigned_to_nat(0u);
x_37 = lean_array_get_size(x_26);
x_37 = lean_array_get_size(x_25);
x_38 = lean_nat_dec_lt(x_36, x_37);
if (x_38 == 0)
{
lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45;
lean_dec(x_37);
lean_dec(x_27);
lean_dec_ref(x_26);
lean_dec(x_29);
lean_dec_ref(x_25);
x_39 = l_Lean_IR_EmitC_toCInitName___closed__0;
x_40 = lean_string_append(x_39, x_28);
lean_dec_ref(x_28);
@ -12068,7 +12049,7 @@ x_42 = lean_string_append(x_40, x_41);
x_43 = lean_box(0);
x_44 = lean_string_append(x_35, x_42);
lean_dec_ref(x_42);
x_45 = lean_apply_3(x_29, x_43, x_30, x_44);
x_45 = lean_apply_3(x_27, x_43, x_30, x_44);
return x_45;
}
else
@ -12082,29 +12063,29 @@ x_49 = l_Lean_IR_EmitC_emitFnDeclAux___closed__2;
x_50 = lean_nat_dec_lt(x_49, x_37);
if (x_50 == 0)
{
lean_dec(x_27);
x_12 = x_37;
x_13 = x_48;
x_14 = x_30;
x_15 = x_36;
x_16 = x_34;
x_17 = x_26;
x_18 = x_29;
lean_dec(x_29);
x_12 = x_25;
x_13 = x_36;
x_14 = x_48;
x_15 = x_27;
x_16 = x_30;
x_17 = x_37;
x_18 = x_34;
x_19 = x_50;
goto block_24;
}
else
{
uint8_t x_51;
x_51 = l_Lean_IR_ExplicitBoxing_isBoxedName(x_27);
lean_dec(x_27);
x_12 = x_37;
x_13 = x_48;
x_14 = x_30;
x_15 = x_36;
x_16 = x_34;
x_17 = x_26;
x_18 = x_29;
x_51 = l_Lean_IR_ExplicitBoxing_isBoxedName(x_29);
lean_dec(x_29);
x_12 = x_25;
x_13 = x_36;
x_14 = x_48;
x_15 = x_27;
x_16 = x_30;
x_17 = x_37;
x_18 = x_34;
x_19 = x_51;
goto block_24;
}
@ -12163,11 +12144,11 @@ if (x_73 == 0)
lean_object* x_74; lean_object* x_75;
x_74 = l_Lean_IR_EmitC_emitFnDeclAux___closed__7;
x_75 = lean_string_append(x_69, x_74);
x_25 = x_63;
x_26 = x_62;
x_27 = x_59;
x_25 = x_62;
x_26 = x_63;
x_27 = x_70;
x_28 = x_68;
x_29 = x_70;
x_29 = x_59;
x_30 = x_2;
x_31 = x_75;
goto block_52;
@ -12177,11 +12158,11 @@ else
lean_object* x_76; lean_object* x_77;
x_76 = l_Lean_IR_EmitC_emitFnDeclAux___closed__6;
x_77 = lean_string_append(x_69, x_76);
x_25 = x_63;
x_26 = x_62;
x_27 = x_59;
x_25 = x_62;
x_26 = x_63;
x_27 = x_70;
x_28 = x_68;
x_29 = x_70;
x_29 = x_59;
x_30 = x_2;
x_31 = x_77;
goto block_52;
@ -12260,11 +12241,11 @@ if (x_93 == 0)
lean_object* x_94; lean_object* x_95;
x_94 = l_Lean_IR_EmitC_emitFnDeclAux___closed__7;
x_95 = lean_string_append(x_89, x_94);
x_25 = x_63;
x_26 = x_62;
x_27 = x_59;
x_25 = x_62;
x_26 = x_63;
x_27 = x_90;
x_28 = x_88;
x_29 = x_90;
x_29 = x_59;
x_30 = x_86;
x_31 = x_95;
goto block_52;
@ -12274,11 +12255,11 @@ else
lean_object* x_96; lean_object* x_97;
x_96 = l_Lean_IR_EmitC_emitFnDeclAux___closed__6;
x_97 = lean_string_append(x_89, x_96);
x_25 = x_63;
x_26 = x_62;
x_27 = x_59;
x_25 = x_62;
x_26 = x_63;
x_27 = x_90;
x_28 = x_88;
x_29 = x_90;
x_29 = x_59;
x_30 = x_86;
x_31 = x_97;
goto block_52;
@ -12664,7 +12645,7 @@ return x_1;
LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitDeclInit(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_60; lean_object* x_61; uint8_t x_62; lean_object* x_63; lean_object* x_70; uint8_t x_71; lean_object* x_72; uint8_t x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; uint8_t x_91; lean_object* x_92; uint8_t x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_112; uint8_t x_113; uint8_t x_114; lean_object* x_115; uint8_t x_116; lean_object* x_120; uint8_t x_121; lean_object* x_122; lean_object* x_143; lean_object* x_150;
lean_object* x_4; uint8_t x_5; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_60; uint8_t x_61; lean_object* x_62; lean_object* x_63; uint8_t x_70; uint8_t x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; uint8_t x_91; lean_object* x_92; uint8_t x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; uint8_t x_112; lean_object* x_113; uint8_t x_114; lean_object* x_115; uint8_t x_116; uint8_t x_120; lean_object* x_121; lean_object* x_122; lean_object* x_143; lean_object* x_150;
x_13 = l_Lean_IR_EmitC_getEnv(x_2, x_3);
x_14 = lean_ctor_get(x_13, 0);
lean_inc(x_14);
@ -12805,18 +12786,18 @@ x_64 = l_Lean_IR_EmitC_emitMainFn___closed__23;
x_65 = lean_string_append(x_63, x_64);
x_66 = l_Lean_IR_EmitC_emitLn___redArg___closed__0;
x_67 = lean_string_append(x_65, x_66);
x_68 = l_Lean_getBuiltinInitFnNameFor_x3f(x_14, x_61);
x_68 = l_Lean_getBuiltinInitFnNameFor_x3f(x_14, x_62);
if (lean_obj_tag(x_68) == 0)
{
x_4 = x_67;
x_5 = x_62;
x_5 = x_60;
goto block_12;
}
else
{
lean_dec_ref(x_68);
x_4 = x_67;
x_5 = x_60;
x_5 = x_61;
goto block_12;
}
}
@ -12829,11 +12810,11 @@ if (x_77 == 0)
lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81;
lean_dec(x_76);
x_78 = l_Lean_IR_EmitC_emitDeclInit___closed__2;
x_79 = lean_string_append(x_74, x_78);
x_80 = lean_string_append(x_79, x_75);
lean_dec_ref(x_75);
lean_inc(x_72);
x_81 = l_Lean_IR_EmitC_emitMarkPersistent(x_1, x_72, x_70, x_80);
x_79 = lean_string_append(x_72, x_78);
x_80 = lean_string_append(x_79, x_73);
lean_dec_ref(x_73);
lean_inc(x_75);
x_81 = l_Lean_IR_EmitC_emitMarkPersistent(x_1, x_75, x_74, x_80);
lean_dec_ref(x_1);
if (lean_obj_tag(x_81) == 0)
{
@ -12841,15 +12822,15 @@ lean_object* x_82;
x_82 = lean_ctor_get(x_81, 1);
lean_inc(x_82);
lean_dec_ref(x_81);
x_60 = x_71;
x_61 = x_72;
x_62 = x_73;
x_60 = x_70;
x_61 = x_71;
x_62 = x_75;
x_63 = x_82;
goto block_69;
}
else
{
lean_dec(x_72);
lean_dec(x_75);
lean_dec(x_14);
return x_81;
}
@ -12865,13 +12846,13 @@ x_85 = lean_string_append(x_83, x_84);
lean_dec_ref(x_84);
x_86 = l_Lean_IR_EmitC_emitDeclInit___closed__3;
x_87 = lean_string_append(x_85, x_86);
x_88 = lean_string_append(x_74, x_87);
x_88 = lean_string_append(x_72, x_87);
lean_dec_ref(x_87);
x_89 = lean_string_append(x_88, x_75);
lean_dec_ref(x_75);
x_60 = x_71;
x_61 = x_72;
x_62 = x_73;
x_89 = lean_string_append(x_88, x_73);
lean_dec_ref(x_73);
x_60 = x_70;
x_61 = x_71;
x_62 = x_75;
x_63 = x_89;
goto block_69;
}
@ -12881,7 +12862,7 @@ block_111:
lean_object* x_97; lean_object* x_98; lean_object* x_99;
x_97 = l_Lean_IR_EmitC_emitMainFn___closed__18;
x_98 = lean_string_append(x_96, x_97);
x_99 = l_Lean_IR_EmitC_emitCName(x_94, x_95, x_98);
x_99 = l_Lean_IR_EmitC_emitCName(x_92, x_95, x_98);
if (lean_obj_tag(x_99) == 0)
{
lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108;
@ -12895,8 +12876,8 @@ x_104 = lean_string_append(x_102, x_103);
x_105 = l_Lean_IR_EmitC_emitDeclInit___closed__1;
x_106 = lean_string_append(x_104, x_105);
x_107 = lean_string_append(x_106, x_103);
lean_inc(x_92);
x_108 = l_Lean_IR_EmitC_emitCName(x_92, x_95, x_107);
lean_inc(x_94);
x_108 = l_Lean_IR_EmitC_emitCName(x_94, x_95, x_107);
if (lean_obj_tag(x_108) == 0)
{
lean_object* x_109; lean_object* x_110;
@ -12905,18 +12886,18 @@ lean_inc(x_109);
lean_dec_ref(x_108);
x_110 = lean_ctor_get(x_1, 2);
lean_inc(x_110);
x_70 = x_95;
x_71 = x_91;
x_72 = x_92;
x_73 = x_93;
x_74 = x_109;
x_75 = x_103;
x_70 = x_91;
x_71 = x_93;
x_72 = x_109;
x_73 = x_103;
x_74 = x_95;
x_75 = x_94;
x_76 = x_110;
goto block_90;
}
else
{
lean_dec(x_92);
lean_dec(x_94);
lean_dec(x_14);
lean_dec_ref(x_1);
return x_108;
@ -12924,7 +12905,7 @@ return x_108;
}
else
{
lean_dec(x_92);
lean_dec(x_94);
lean_dec(x_14);
lean_dec_ref(x_1);
return x_99;
@ -12934,8 +12915,8 @@ block_119:
{
if (x_116 == 0)
{
x_91 = x_113;
x_92 = x_112;
x_91 = x_112;
x_92 = x_113;
x_93 = x_114;
x_94 = x_115;
x_95 = x_2;
@ -12947,8 +12928,8 @@ else
lean_object* x_117; lean_object* x_118;
x_117 = l_Lean_IR_EmitC_emitDeclInit___closed__4;
x_118 = lean_string_append(x_15, x_117);
x_91 = x_113;
x_92 = x_112;
x_91 = x_112;
x_92 = x_113;
x_93 = x_114;
x_94 = x_115;
x_95 = x_2;
@ -12967,7 +12948,7 @@ lean_dec(x_123);
if (x_125 == 0)
{
lean_object* x_126; lean_object* x_127;
lean_dec(x_120);
lean_dec(x_121);
lean_dec(x_14);
lean_dec_ref(x_1);
x_126 = lean_box(0);
@ -12984,15 +12965,15 @@ else
{
lean_object* x_128;
lean_dec(x_16);
lean_inc(x_120);
lean_inc(x_121);
lean_inc(x_14);
x_128 = lean_get_init_fn_name_for(x_14, x_120);
x_128 = lean_get_init_fn_name_for(x_14, x_121);
if (lean_obj_tag(x_128) == 0)
{
lean_object* x_129;
lean_dec(x_14);
lean_inc(x_120);
x_129 = l_Lean_IR_EmitC_emitCName(x_120, x_2, x_15);
lean_inc(x_121);
x_129 = l_Lean_IR_EmitC_emitCName(x_121, x_2, x_15);
if (lean_obj_tag(x_129) == 0)
{
lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133;
@ -13001,8 +12982,8 @@ lean_inc(x_130);
lean_dec_ref(x_129);
x_131 = l___private_Init_Data_Nat_Control_0__Nat_forM_loop___at___Lean_IR_EmitC_emitJmp_spec__0___redArg___closed__0;
x_132 = lean_string_append(x_130, x_131);
lean_inc(x_120);
x_133 = l_Lean_IR_EmitC_emitCInitName(x_120, x_2, x_132);
lean_inc(x_121);
x_133 = l_Lean_IR_EmitC_emitCInitName(x_121, x_2, x_132);
if (lean_obj_tag(x_133) == 0)
{
lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139;
@ -13013,20 +12994,20 @@ x_135 = l_Lean_IR_EmitC_emitDeclInit___closed__5;
x_136 = lean_string_append(x_134, x_135);
x_137 = l_Lean_IR_EmitC_emitLn___redArg___closed__0;
x_138 = lean_string_append(x_136, x_137);
x_139 = l_Lean_IR_EmitC_emitMarkPersistent(x_1, x_120, x_2, x_138);
x_139 = l_Lean_IR_EmitC_emitMarkPersistent(x_1, x_121, x_2, x_138);
lean_dec_ref(x_1);
return x_139;
}
else
{
lean_dec(x_120);
lean_dec(x_121);
lean_dec_ref(x_1);
return x_133;
}
}
else
{
lean_dec(x_120);
lean_dec(x_121);
lean_dec_ref(x_1);
return x_129;
}
@ -13037,25 +13018,25 @@ lean_object* x_140; lean_object* x_141;
x_140 = lean_ctor_get(x_128, 0);
lean_inc(x_140);
lean_dec_ref(x_128);
lean_inc(x_120);
lean_inc(x_121);
lean_inc(x_14);
x_141 = l_Lean_getBuiltinInitFnNameFor_x3f(x_14, x_120);
x_141 = l_Lean_getBuiltinInitFnNameFor_x3f(x_14, x_121);
if (lean_obj_tag(x_141) == 0)
{
x_112 = x_120;
x_113 = x_125;
x_114 = x_121;
x_115 = x_140;
x_116 = x_121;
x_113 = x_140;
x_114 = x_125;
x_115 = x_121;
x_116 = x_120;
goto block_119;
}
else
{
lean_dec_ref(x_141);
x_112 = x_120;
x_113 = x_125;
x_114 = x_121;
x_115 = x_140;
x_113 = x_140;
x_114 = x_125;
x_115 = x_121;
x_116 = x_125;
goto block_119;
}
@ -13073,8 +13054,8 @@ if (x_144 == 0)
lean_object* x_145;
x_145 = lean_ctor_get(x_1, 1);
lean_inc_ref(x_145);
x_120 = x_143;
x_121 = x_144;
x_120 = x_144;
x_121 = x_143;
x_122 = x_145;
goto block_142;
}

32
stage0/stdlib/Lean/Compiler/IR/EmitLLVM.c generated
View file

@ -188,6 +188,7 @@ LEAN_EXPORT lean_object* l_Lean_IR_EmitLLVM_callLeanIOMkWorld___redArg(size_t, s
static lean_object* l_Lean_IR_EmitLLVM_emitMainFn___lam__5___closed__2;
LEAN_EXPORT lean_object* l_Lean_IR_EmitLLVM_emitMainFnIfNeeded___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_EmitLLVM_getFunIdTy_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lean_IR_EmitLLVM_emitInitFn___closed__0;
static lean_object* l_Lean_IR_EmitLLVM_emitLhsSlot_____redArg___closed__0;
static lean_object* l_Lean_IR_EmitLLVM_emitTailCall___closed__2;
@ -560,6 +561,7 @@ LEAN_EXPORT lean_object* l_Lean_IR_EmitLLVM_emitSProj___boxed(lean_object*, lean
static lean_object* l_Lean_IR_EmitLLVM_emitSProj___closed__6;
static lean_object* l_Lean_IR_EmitLLVM_callLeanUnsignedToNatFn___redArg___closed__0;
static lean_object* l_Lean_IR_EmitLLVM_emitDec___closed__0;
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_EmitLLVM_callLeanCtorSetTag___redArg(size_t, size_t, size_t, size_t, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_EmitLLVM_emitDeclInit___closed__8;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_IR_EmitLLVM_emitJmp_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -871,7 +873,6 @@ static lean_object* l_String_foldlAux___at___Lean_IR_EmitLLVM_quoteString_spec__
lean_object* lean_name_mangle(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_EmitLLVM_callLeanInitializeRuntimeModule___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_LLVM_i64Type(size_t, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_EmitLLVM_callLeanMkStringUncheckedFn(size_t, size_t, size_t, size_t, size_t, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_EmitLLVM_callLeanMainFn___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_isIOUnitInitFn(lean_object*, lean_object*);
@ -12552,7 +12553,8 @@ lean_dec(x_6);
x_36 = lean_nat_sub(x_5, x_30);
x_37 = lean_nat_sub(x_36, x_29);
lean_dec(x_36);
x_38 = lean_array_fget(x_4, x_37);
x_38 = lean_array_fget_borrowed(x_4, x_37);
lean_inc(x_38);
x_39 = l_Lean_IR_EmitLLVM_emitArgVal(x_1, x_2, x_38, x_14, x_7, x_8, x_27);
x_40 = lean_ctor_get(x_39, 0);
lean_inc(x_40);
@ -15708,7 +15710,8 @@ lean_dec(x_7);
x_17 = lean_nat_sub(x_6, x_16);
x_18 = lean_nat_sub(x_17, x_15);
lean_dec(x_17);
x_19 = lean_array_fget(x_1, x_18);
x_19 = lean_array_fget_borrowed(x_1, x_18);
lean_inc(x_19);
x_20 = l_Lean_IR_EmitLLVM_emitArgSlot__(x_2, x_3, x_19, x_8, x_9, x_10);
x_21 = lean_ctor_get(x_20, 0);
lean_inc(x_21);
@ -16333,8 +16336,9 @@ x_19 = lean_ctor_get(x_6, 1);
lean_inc(x_19);
lean_dec_ref(x_6);
x_20 = l_Lean_IR_instInhabitedArg;
x_21 = lean_array_get(x_20, x_1, x_18);
x_21 = lean_array_get_borrowed(x_20, x_1, x_18);
x_22 = l_Lean_IR_EmitLLVM_callLeanMarkPersistentFn___redArg___closed__1;
lean_inc(x_21);
x_23 = l_Lean_IR_EmitLLVM_emitArgVal(x_2, x_3, x_21, x_22, x_8, x_9, x_10);
x_24 = lean_ctor_get(x_23, 0);
lean_inc(x_24);
@ -28124,16 +28128,12 @@ _start:
{
lean_object* x_11; lean_object* x_12; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20;
x_16 = l_Lean_IR_instInhabitedParam;
x_17 = lean_array_get(x_16, x_1, x_7);
x_17 = lean_array_get_borrowed(x_16, x_1, x_7);
x_18 = lean_ctor_get(x_17, 0);
lean_inc(x_18);
x_19 = lean_ctor_get(x_17, 1);
lean_inc(x_19);
lean_dec_ref(x_17);
lean_inc_ref(x_9);
lean_inc(x_8);
x_20 = l_Lean_IR_EmitLLVM_toLLVMType(x_2, x_19, x_8, x_9, x_10);
lean_dec(x_19);
if (lean_obj_tag(x_20) == 0)
{
lean_object* x_21;
@ -28142,7 +28142,6 @@ lean_inc(x_21);
if (lean_obj_tag(x_21) == 0)
{
lean_object* x_22; lean_object* x_23;
lean_dec(x_18);
lean_dec_ref(x_9);
lean_dec(x_8);
lean_dec(x_7);
@ -28178,7 +28177,6 @@ if (lean_obj_tag(x_31) == 0)
{
lean_object* x_32; lean_object* x_33;
lean_dec(x_25);
lean_dec(x_18);
lean_dec_ref(x_9);
lean_dec(x_8);
lean_dec(x_7);
@ -28219,6 +28217,7 @@ x_44 = lean_unbox_usize(x_35);
lean_dec(x_35);
x_45 = lean_unbox_usize(x_25);
lean_dec(x_25);
lean_inc(x_18);
x_46 = l_Lean_IR_EmitLLVM_addVarToState___redArg(x_18, x_44, x_45, x_8, x_43);
x_47 = !lean_is_exclusive(x_46);
if (x_47 == 0)
@ -28332,7 +28331,6 @@ goto _start;
else
{
uint8_t x_71;
lean_dec(x_18);
lean_dec_ref(x_9);
lean_dec(x_8);
lean_dec(x_7);
@ -28420,16 +28418,12 @@ lean_inc(x_33);
x_34 = lean_ctor_get(x_32, 1);
lean_inc(x_34);
lean_dec_ref(x_32);
x_35 = lean_array_fget(x_4, x_7);
x_35 = lean_array_fget_borrowed(x_4, x_7);
x_36 = lean_ctor_get(x_35, 0);
lean_inc(x_36);
x_37 = lean_ctor_get(x_35, 1);
lean_inc(x_37);
lean_dec_ref(x_35);
lean_inc_ref(x_9);
lean_inc(x_8);
x_38 = l_Lean_IR_EmitLLVM_toLLVMType(x_1, x_37, x_8, x_9, x_34);
lean_dec(x_37);
if (lean_obj_tag(x_38) == 0)
{
lean_object* x_39;
@ -28438,7 +28432,6 @@ lean_inc(x_39);
if (lean_obj_tag(x_39) == 0)
{
lean_object* x_40; lean_object* x_41;
lean_dec(x_36);
lean_dec(x_33);
lean_dec_ref(x_27);
lean_dec_ref(x_9);
@ -28485,7 +28478,6 @@ if (lean_obj_tag(x_54) == 0)
lean_object* x_55; lean_object* x_56;
lean_dec(x_48);
lean_dec(x_43);
lean_dec(x_36);
lean_dec_ref(x_9);
lean_dec(x_8);
lean_dec(x_7);
@ -28519,6 +28511,7 @@ x_63 = lean_unbox_usize(x_58);
lean_dec(x_58);
x_64 = lean_unbox_usize(x_43);
lean_dec(x_43);
lean_inc(x_36);
x_65 = l_Lean_IR_EmitLLVM_addVarToState___redArg(x_36, x_63, x_64, x_8, x_62);
x_66 = !lean_is_exclusive(x_65);
if (x_66 == 0)
@ -28629,7 +28622,6 @@ goto _start;
else
{
uint8_t x_87;
lean_dec(x_36);
lean_dec(x_33);
lean_dec_ref(x_27);
lean_dec_ref(x_9);

110
stage0/stdlib/Lean/Compiler/IR/ExpandResetReuse.c generated
View file

@ -48,6 +48,7 @@ lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_ExpandResetReuse_0__Lean_IR_initFn___closed__8____x40_Lean_Compiler_IR_ExpandResetReuse___hyg_2821_;
uint8_t l_Lean_IR_FnBody_isTerminal(lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at___Lean_IR_ExpandResetReuse_setFields_spec__0___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_contains___at___Lean_IR_ExpandResetReuse_CollectProjMap_collectFnBody_spec__0___redArg___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ExpandResetReuse_reuseToCtor(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ExpandResetReuse_reuseToSet___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -1752,28 +1753,21 @@ if (x_28 == 0)
lean_object* x_29; lean_object* x_30;
x_29 = lean_nat_sub(x_16, x_17);
lean_dec(x_16);
x_30 = lean_array_fget(x_2, x_29);
x_30 = lean_array_fget_borrowed(x_2, x_29);
lean_dec(x_29);
if (lean_obj_tag(x_30) == 0)
{
lean_object* x_31;
x_31 = lean_ctor_get(x_30, 2);
lean_inc_ref(x_31);
if (lean_obj_tag(x_31) == 3)
{
lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; uint8_t x_52;
x_32 = lean_ctor_get(x_30, 0);
lean_inc(x_32);
x_33 = lean_ctor_get(x_31, 0);
lean_inc(x_33);
x_34 = lean_ctor_get(x_31, 1);
lean_inc(x_34);
lean_dec_ref(x_31);
x_52 = lean_nat_dec_eq(x_32, x_22);
lean_dec(x_32);
if (x_52 == 0)
{
lean_dec(x_34);
x_35 = x_52;
goto block_51;
}
@ -1781,7 +1775,6 @@ else
{
uint8_t x_53;
x_53 = lean_nat_dec_eq(x_1, x_34);
lean_dec(x_34);
x_35 = x_53;
goto block_51;
}
@ -1790,8 +1783,6 @@ block_51:
if (x_35 == 0)
{
lean_object* x_36; lean_object* x_37;
lean_dec(x_33);
lean_dec_ref(x_30);
lean_dec(x_26);
lean_dec(x_23);
lean_dec(x_22);
@ -1802,13 +1793,13 @@ return x_37;
else
{
lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; uint8_t x_44;
lean_inc_ref(x_30);
x_38 = lean_array_pop(x_2);
x_39 = lean_array_pop(x_38);
lean_inc(x_22);
x_40 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_40, 0, x_22);
x_41 = lean_array_set(x_3, x_33, x_40);
lean_dec(x_33);
x_42 = lean_array_push(x_4, x_30);
x_43 = lean_unsigned_to_nat(1u);
x_44 = lean_nat_dec_eq(x_23, x_43);
@ -1849,8 +1840,6 @@ goto _start;
}
else
{
lean_dec_ref(x_31);
lean_dec_ref(x_30);
lean_dec(x_26);
lean_dec(x_23);
lean_dec(x_22);
@ -1859,7 +1848,6 @@ goto block_15;
}
else
{
lean_dec(x_30);
lean_dec(x_26);
lean_dec(x_23);
lean_dec(x_22);
@ -2552,7 +2540,7 @@ lean_dec(x_4);
x_12 = lean_nat_sub(x_3, x_11);
x_13 = lean_nat_sub(x_12, x_10);
lean_dec(x_12);
x_14 = lean_array_fget(x_1, x_13);
x_14 = lean_array_fget_borrowed(x_1, x_13);
if (lean_obj_tag(x_14) == 0)
{
lean_object* x_15; uint8_t x_16;
@ -2620,7 +2608,6 @@ goto _start;
}
else
{
lean_dec_ref(x_14);
lean_dec(x_13);
x_4 = x_11;
goto _start;
@ -2697,7 +2684,8 @@ x_8 = lean_unsigned_to_nat(1u);
x_9 = lean_nat_sub(x_4, x_8);
x_10 = lean_nat_sub(x_3, x_4);
lean_dec(x_4);
x_11 = lean_array_fget(x_1, x_10);
x_11 = lean_array_fget_borrowed(x_1, x_10);
lean_inc(x_11);
lean_inc(x_2);
x_12 = lean_alloc_ctor(2, 4, 0);
lean_ctor_set(x_12, 0, x_2);
@ -4459,11 +4447,11 @@ goto block_29;
block_12:
{
lean_object* x_10;
x_10 = l_Lean_IR_push(x_8, x_7);
x_10 = l_Lean_IR_push(x_7, x_6);
x_1 = x_9;
x_2 = x_10;
x_3 = x_5;
x_4 = x_6;
x_3 = x_8;
x_4 = x_5;
goto _start;
}
block_29:
@ -4478,10 +4466,10 @@ case 0:
lean_object* x_18;
x_18 = lean_ctor_get(x_13, 3);
lean_inc(x_18);
x_5 = x_15;
x_6 = x_16;
x_7 = x_13;
x_8 = x_14;
x_5 = x_16;
x_6 = x_13;
x_7 = x_14;
x_8 = x_15;
x_9 = x_18;
goto block_12;
}
@ -4490,10 +4478,10 @@ case 1:
lean_object* x_19;
x_19 = lean_ctor_get(x_13, 3);
lean_inc(x_19);
x_5 = x_15;
x_6 = x_16;
x_7 = x_13;
x_8 = x_14;
x_5 = x_16;
x_6 = x_13;
x_7 = x_14;
x_8 = x_15;
x_9 = x_19;
goto block_12;
}
@ -4502,10 +4490,10 @@ case 2:
lean_object* x_20;
x_20 = lean_ctor_get(x_13, 3);
lean_inc(x_20);
x_5 = x_15;
x_6 = x_16;
x_7 = x_13;
x_8 = x_14;
x_5 = x_16;
x_6 = x_13;
x_7 = x_14;
x_8 = x_15;
x_9 = x_20;
goto block_12;
}
@ -4514,10 +4502,10 @@ case 3:
lean_object* x_21;
x_21 = lean_ctor_get(x_13, 2);
lean_inc(x_21);
x_5 = x_15;
x_6 = x_16;
x_7 = x_13;
x_8 = x_14;
x_5 = x_16;
x_6 = x_13;
x_7 = x_14;
x_8 = x_15;
x_9 = x_21;
goto block_12;
}
@ -4526,10 +4514,10 @@ case 4:
lean_object* x_22;
x_22 = lean_ctor_get(x_13, 3);
lean_inc(x_22);
x_5 = x_15;
x_6 = x_16;
x_7 = x_13;
x_8 = x_14;
x_5 = x_16;
x_6 = x_13;
x_7 = x_14;
x_8 = x_15;
x_9 = x_22;
goto block_12;
}
@ -4538,10 +4526,10 @@ case 5:
lean_object* x_23;
x_23 = lean_ctor_get(x_13, 5);
lean_inc(x_23);
x_5 = x_15;
x_6 = x_16;
x_7 = x_13;
x_8 = x_14;
x_5 = x_16;
x_6 = x_13;
x_7 = x_14;
x_8 = x_15;
x_9 = x_23;
goto block_12;
}
@ -4550,10 +4538,10 @@ case 6:
lean_object* x_24;
x_24 = lean_ctor_get(x_13, 2);
lean_inc(x_24);
x_5 = x_15;
x_6 = x_16;
x_7 = x_13;
x_8 = x_14;
x_5 = x_16;
x_6 = x_13;
x_7 = x_14;
x_8 = x_15;
x_9 = x_24;
goto block_12;
}
@ -4562,10 +4550,10 @@ case 7:
lean_object* x_25;
x_25 = lean_ctor_get(x_13, 2);
lean_inc(x_25);
x_5 = x_15;
x_6 = x_16;
x_7 = x_13;
x_8 = x_14;
x_5 = x_16;
x_6 = x_13;
x_7 = x_14;
x_8 = x_15;
x_9 = x_25;
goto block_12;
}
@ -4574,20 +4562,20 @@ case 8:
lean_object* x_26;
x_26 = lean_ctor_get(x_13, 1);
lean_inc(x_26);
x_5 = x_15;
x_6 = x_16;
x_7 = x_13;
x_8 = x_14;
x_5 = x_16;
x_6 = x_13;
x_7 = x_14;
x_8 = x_15;
x_9 = x_26;
goto block_12;
}
default:
{
lean_inc(x_13);
x_5 = x_15;
x_6 = x_16;
x_7 = x_13;
x_8 = x_14;
x_5 = x_16;
x_6 = x_13;
x_7 = x_14;
x_8 = x_15;
x_9 = x_13;
goto block_12;
}

5
stage0/stdlib/Lean/Compiler/IR/PushProj.c generated
View file

@ -66,6 +66,7 @@ LEAN_EXPORT lean_object* l_Array_mapFinIdxM_map___at___Lean_IR_pushProjs_spec__1
static lean_object* l___private_Lean_Compiler_IR_PushProj_0__Lean_IR_initFn___closed__11____x40_Lean_Compiler_IR_PushProj___hyg_490_;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_FnBody_pushProj_spec__0(size_t, size_t, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_FnBody_pushProj(lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_PushProj_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_PushProj___hyg_490_;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at_____private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_pushProjs_spec__3_spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_mapFinIdxM_map___at___Array_mapFinIdxM_map___at___Lean_IR_pushProjs_spec__1_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -94,7 +95,6 @@ lean_object* lean_array_get_size(lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_FnBody_pushProj_spec__1___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_mapFinIdxM_map___at___Array_mapFinIdxM_map___at___Lean_IR_pushProjs_spec__1_spec__1___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_FnBody_pushProj___closed__0;
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_IR_reshape(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_PushProj_0__Lean_IR_initFn___closed__18____x40_Lean_Compiler_IR_PushProj___hyg_490_;
uint8_t lean_usize_dec_lt(size_t, size_t);
@ -155,9 +155,8 @@ _start:
{
lean_object* x_6; lean_object* x_7; uint8_t x_8;
x_6 = lean_box(1);
x_7 = lean_array_get(x_6, x_1, x_2);
x_7 = lean_array_get_borrowed(x_6, x_1, x_2);
x_8 = l_Std_DTreeMap_Internal_Impl_contains___at___Lean_IR_pushProjs_spec__0___redArg(x_3, x_7);
lean_dec(x_7);
if (x_8 == 0)
{
lean_dec(x_4);

57
stage0/stdlib/Lean/Compiler/IR/RC.c generated
View file

@ -88,6 +88,7 @@ LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_RC_0__Lean_IR_initFn____x4
uint8_t l_Lean_IR_FnBody_isTerminal(lean_object*);
LEAN_EXPORT lean_object* l_panic___at___Lean_IR_ExplicitRC_getDecl_spec__0(lean_object*);
LEAN_EXPORT uint8_t l___private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_useArg___lam__0(lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_foldlM___at___Std_DTreeMap_Internal_Impl_foldl___at___Lean_IR_ExplicitRC_visitFnBody_spec__1_spec__1(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_foldlM___at___Std_DTreeMap_Internal_Impl_foldl___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addDescendants___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addDescendants___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_useVar___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_useArgs_spec__1_spec__1_spec__1_spec__1_spec__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_typeForScalarBoxedInTaggedPtr_x3f___closed__1;
@ -230,6 +231,7 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_Raw_u2080_expand___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_CollectDerivedValInfo_visitParam_spec__3(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addDecAfterFullApp_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_updateRefUsingCtorInfo_spec__0___redArg(lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addIncBeforeAux_spec__0_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Lean_IR_ExplicitRC_LiveVars_merge___lam__0(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Std_DTreeMap_Internal_Impl_contains___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_CollectDerivedValInfo_visitParam_spec__0___redArg(lean_object*, lean_object*);
@ -8789,10 +8791,9 @@ else
lean_object* x_8; lean_object* x_9; uint8_t x_10;
x_8 = lean_nat_sub(x_4, x_5);
lean_inc(x_1);
x_9 = lean_array_get(x_1, x_2, x_8);
x_9 = lean_array_get_borrowed(x_1, x_2, x_8);
lean_dec(x_8);
x_10 = l_Lean_IR_beqArg____x40_Lean_Compiler_IR_Basic___hyg_1469_(x_9, x_3);
lean_dec(x_9);
if (x_10 == 0)
{
lean_object* x_11; lean_object* x_12;
@ -8824,11 +8825,10 @@ _start:
{
lean_object* x_3; lean_object* x_4; uint8_t x_5;
x_3 = l_Lean_IR_instInhabitedArg;
x_4 = lean_array_get(x_3, x_1, x_2);
x_4 = lean_array_get_borrowed(x_3, x_1, x_2);
lean_inc(x_2);
x_5 = l___private_Init_Data_Nat_Fold_0__Nat_allTR_loop___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_isFirstOcc_spec__0___redArg(x_3, x_1, x_4, x_2, x_2);
lean_dec(x_2);
lean_dec(x_4);
return x_5;
}
}
@ -8887,15 +8887,12 @@ x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_sub(x_5, x_9);
x_14 = lean_nat_sub(x_4, x_5);
lean_dec(x_5);
x_15 = lean_array_fget(x_1, x_14);
x_15 = lean_array_fget_borrowed(x_1, x_14);
if (lean_obj_tag(x_15) == 0)
{
lean_object* x_16; uint8_t x_17;
x_16 = lean_ctor_get(x_15, 0);
lean_inc(x_16);
lean_dec_ref(x_15);
x_17 = lean_nat_dec_eq(x_2, x_16);
lean_dec(x_16);
if (x_17 == 0)
{
lean_dec(x_14);
@ -9001,9 +8998,8 @@ LEAN_EXPORT uint8_t l___private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_isBorr
_start:
{
lean_object* x_4; uint8_t x_5;
x_4 = lean_array_get(x_1, x_2, x_3);
x_4 = lean_array_get_borrowed(x_1, x_2, x_3);
x_5 = lean_ctor_get_uint8(x_4, sizeof(void*)*2);
lean_dec_ref(x_4);
if (x_5 == 0)
{
uint8_t x_6;
@ -9071,15 +9067,12 @@ x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_sub(x_5, x_9);
x_16 = lean_nat_sub(x_4, x_5);
lean_dec(x_5);
x_17 = lean_array_fget(x_1, x_16);
x_17 = lean_array_fget_borrowed(x_1, x_16);
if (lean_obj_tag(x_17) == 0)
{
lean_object* x_18; uint8_t x_19;
x_18 = lean_ctor_get(x_17, 0);
lean_inc(x_18);
lean_dec_ref(x_17);
x_19 = lean_nat_dec_eq(x_2, x_18);
lean_dec(x_18);
if (x_19 == 0)
{
lean_dec(x_16);
@ -9193,13 +9186,11 @@ x_10 = lean_unsigned_to_nat(1u);
x_11 = lean_nat_sub(x_6, x_10);
x_12 = lean_nat_sub(x_5, x_6);
lean_dec(x_6);
x_13 = lean_array_fget(x_1, x_12);
x_13 = lean_array_fget_borrowed(x_1, x_12);
if (lean_obj_tag(x_13) == 0)
{
lean_object* x_14; lean_object* x_15; uint8_t x_16; uint8_t x_17; uint8_t x_18; lean_object* x_19; uint8_t x_20;
x_14 = lean_ctor_get(x_13, 0);
lean_inc(x_14);
lean_dec_ref(x_13);
x_15 = l_Lean_IR_ExplicitRC_getVarInfo(x_2, x_14);
x_16 = lean_ctor_get_uint8(x_15, 0);
x_17 = lean_ctor_get_uint8(x_15, 1);
@ -9207,7 +9198,6 @@ x_18 = lean_ctor_get_uint8(x_15, 2);
lean_dec_ref(x_15);
if (x_16 == 0)
{
lean_dec(x_14);
lean_dec(x_12);
x_6 = x_11;
goto _start;
@ -9218,7 +9208,6 @@ uint8_t x_25; lean_object* x_26;
x_25 = l___private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_isFirstOcc(x_1, x_12);
if (x_25 == 0)
{
lean_dec(x_14);
x_6 = x_11;
goto _start;
}
@ -9292,7 +9281,6 @@ goto block_23;
else
{
lean_dec(x_26);
lean_dec(x_14);
x_6 = x_11;
goto _start;
}
@ -9301,6 +9289,7 @@ goto _start;
block_23:
{
lean_object* x_21;
lean_inc(x_14);
x_21 = lean_alloc_ctor(6, 3, 2);
lean_ctor_set(x_21, 0, x_14);
lean_ctor_set(x_21, 1, x_19);
@ -9346,13 +9335,11 @@ lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_10 = lean_unsigned_to_nat(1u);
x_11 = lean_nat_sub(x_6, x_10);
x_12 = lean_nat_sub(x_5, x_6);
x_13 = lean_array_fget(x_1, x_12);
x_13 = lean_array_fget_borrowed(x_1, x_12);
if (lean_obj_tag(x_13) == 0)
{
lean_object* x_14; lean_object* x_15; uint8_t x_16; uint8_t x_17; uint8_t x_18; lean_object* x_19; uint8_t x_20;
x_14 = lean_ctor_get(x_13, 0);
lean_inc(x_14);
lean_dec_ref(x_13);
x_15 = l_Lean_IR_ExplicitRC_getVarInfo(x_2, x_14);
x_16 = lean_ctor_get_uint8(x_15, 0);
x_17 = lean_ctor_get_uint8(x_15, 1);
@ -9361,7 +9348,6 @@ lean_dec_ref(x_15);
if (x_16 == 0)
{
lean_object* x_24;
lean_dec(x_14);
lean_dec(x_12);
x_24 = l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addIncBeforeAux_spec__0_spec__0___redArg(x_1, x_2, x_3, x_4, x_5, x_11, x_7);
return x_24;
@ -9373,7 +9359,6 @@ x_25 = l___private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_isFirstOcc(x_1, x_1
if (x_25 == 0)
{
lean_object* x_30;
lean_dec(x_14);
x_30 = l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addIncBeforeAux_spec__0_spec__0___redArg(x_1, x_2, x_3, x_4, x_5, x_11, x_7);
return x_30;
}
@ -9448,7 +9433,6 @@ else
{
lean_object* x_28;
lean_dec(x_26);
lean_dec(x_14);
x_28 = l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addIncBeforeAux_spec__0_spec__0___redArg(x_1, x_2, x_3, x_4, x_5, x_11, x_7);
return x_28;
}
@ -9457,6 +9441,7 @@ return x_28;
block_23:
{
lean_object* x_21; lean_object* x_22;
lean_inc(x_14);
x_21 = lean_alloc_ctor(6, 3, 2);
lean_ctor_set(x_21, 0, x_14);
lean_ctor_set(x_21, 1, x_19);
@ -9598,19 +9583,16 @@ x_10 = lean_unsigned_to_nat(1u);
x_11 = lean_nat_sub(x_6, x_10);
x_12 = lean_nat_sub(x_5, x_6);
lean_dec(x_6);
x_13 = lean_array_fget(x_1, x_12);
x_13 = lean_array_fget_borrowed(x_1, x_12);
if (lean_obj_tag(x_13) == 0)
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; lean_object* x_22; uint8_t x_23;
x_14 = lean_ctor_get(x_13, 0);
lean_inc(x_14);
lean_dec_ref(x_13);
x_22 = l_Lean_IR_ExplicitRC_getVarInfo(x_4, x_14);
x_23 = lean_ctor_get_uint8(x_22, 0);
if (x_23 == 0)
{
lean_dec_ref(x_22);
lean_dec(x_14);
lean_dec(x_12);
x_6 = x_11;
goto _start;
@ -9622,7 +9604,6 @@ x_25 = l___private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_isFirstOcc(x_1, x_1
if (x_25 == 0)
{
lean_dec_ref(x_22);
lean_dec(x_14);
x_6 = x_11;
goto _start;
}
@ -9634,7 +9615,6 @@ x_27 = l___private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_isBorrowParam(x_14,
if (x_27 == 0)
{
lean_dec_ref(x_22);
lean_dec(x_14);
x_6 = x_11;
goto _start;
}
@ -9670,7 +9650,6 @@ goto block_21;
else
{
lean_dec_ref(x_22);
lean_dec(x_14);
x_6 = x_11;
goto _start;
}
@ -9678,7 +9657,6 @@ goto _start;
else
{
lean_dec_ref(x_22);
lean_dec(x_14);
x_6 = x_11;
goto _start;
}
@ -9690,6 +9668,7 @@ block_21:
uint8_t x_18; lean_object* x_19;
x_18 = lean_ctor_get_uint8(x_16, 2);
lean_dec_ref(x_16);
lean_inc(x_14);
x_19 = lean_alloc_ctor(7, 3, 2);
lean_ctor_set(x_19, 0, x_14);
lean_ctor_set(x_19, 1, x_15);
@ -9735,20 +9714,17 @@ lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_10 = lean_unsigned_to_nat(1u);
x_11 = lean_nat_sub(x_6, x_10);
x_12 = lean_nat_sub(x_5, x_6);
x_13 = lean_array_fget(x_1, x_12);
x_13 = lean_array_fget_borrowed(x_1, x_12);
if (lean_obj_tag(x_13) == 0)
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; lean_object* x_22; uint8_t x_23;
x_14 = lean_ctor_get(x_13, 0);
lean_inc(x_14);
lean_dec_ref(x_13);
x_22 = l_Lean_IR_ExplicitRC_getVarInfo(x_4, x_14);
x_23 = lean_ctor_get_uint8(x_22, 0);
if (x_23 == 0)
{
lean_object* x_24;
lean_dec_ref(x_22);
lean_dec(x_14);
lean_dec(x_12);
x_24 = l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addDecAfterFullApp_spec__0_spec__0___redArg(x_1, x_2, x_3, x_4, x_5, x_11, x_7);
return x_24;
@ -9761,7 +9737,6 @@ if (x_25 == 0)
{
lean_object* x_26;
lean_dec_ref(x_22);
lean_dec(x_14);
x_26 = l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addDecAfterFullApp_spec__0_spec__0___redArg(x_1, x_2, x_3, x_4, x_5, x_11, x_7);
return x_26;
}
@ -9774,7 +9749,6 @@ if (x_27 == 0)
{
lean_object* x_28;
lean_dec_ref(x_22);
lean_dec(x_14);
x_28 = l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addDecAfterFullApp_spec__0_spec__0___redArg(x_1, x_2, x_3, x_4, x_5, x_11, x_7);
return x_28;
}
@ -9811,7 +9785,6 @@ else
{
lean_object* x_34;
lean_dec_ref(x_22);
lean_dec(x_14);
x_34 = l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addDecAfterFullApp_spec__0_spec__0___redArg(x_1, x_2, x_3, x_4, x_5, x_11, x_7);
return x_34;
}
@ -9820,7 +9793,6 @@ else
{
lean_object* x_35;
lean_dec_ref(x_22);
lean_dec(x_14);
x_35 = l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_____private_Lean_Compiler_IR_RC_0__Lean_IR_ExplicitRC_addDecAfterFullApp_spec__0_spec__0___redArg(x_1, x_2, x_3, x_4, x_5, x_11, x_7);
return x_35;
}
@ -9832,6 +9804,7 @@ block_21:
uint8_t x_18; lean_object* x_19; lean_object* x_20;
x_18 = lean_ctor_get_uint8(x_16, 2);
lean_dec_ref(x_16);
lean_inc(x_14);
x_19 = lean_alloc_ctor(7, 3, 2);
lean_ctor_set(x_19, 0, x_14);
lean_ctor_set(x_19, 1, x_15);

16
stage0/stdlib/Lean/Compiler/IR/ResetReuse.c generated
View file

@ -51,6 +51,7 @@ LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_empty___at___Lean_IR_Decl_inse
static lean_object* l___private_Lean_Compiler_IR_ResetReuse_0__Lean_IR_initFn___closed__0____x40_Lean_Compiler_IR_ResetReuse___hyg_1841_;
LEAN_EXPORT uint8_t l_Lean_PersistentHashMap_contains___at___Lean_IR_ResetReuse_R_spec__0___redArg(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_ResetReuse_0__Lean_IR_initFn___closed__16____x40_Lean_Compiler_IR_ResetReuse___hyg_1841_;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
uint8_t l_Lean_IR_FnBody_hasLiveVar(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_IR_ResetReuse_R_spec__3_spec__3___redArg(lean_object*, size_t, size_t, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_Decl_insertResetReuseCore(lean_object*, uint8_t);
@ -1855,9 +1856,8 @@ return x_5;
else
{
lean_object* x_6; uint8_t x_7;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
x_7 = lean_nat_dec_eq(x_3, x_6);
lean_dec(x_6);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9;
@ -2015,9 +2015,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_nat_dec_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -2064,9 +2063,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_nat_dec_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -2135,8 +2133,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_IR_hashVarId____x40_Lean_Compiler_IR_Basic___hyg_96_(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -2147,6 +2145,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_IR_ResetReuse_R_spec__3_spec__3___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;

21
stage0/stdlib/Lean/Compiler/IR/SimpCase.c generated
View file

@ -27,6 +27,7 @@ static lean_object* l___private_Lean_Compiler_IR_SimpCase_0__Lean_IR_initFn___cl
uint8_t lean_usize_dec_eq(size_t, size_t);
LEAN_EXPORT uint8_t l___private_Init_Data_Array_Basic_0__Array_anyMUnsafe_any___at___Lean_IR_ensureHasDefault_spec__0(lean_object*, size_t, size_t);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_SimpCase_0__Lean_IR_mkSimpCase___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_SimpCase_0__Lean_IR_initFn___closed__1____x40_Lean_Compiler_IR_SimpCase___hyg_843_;
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_IR_SimpCase_0__Lean_IR_maxOccs_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_IR_SimpCase_0__Lean_IR_maxOccs_spec__0(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -62,6 +63,7 @@ LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_SimpCase_0__Lean_IR_getOcc
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_IR_SimpCase_0__Lean_IR_maxOccs_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_IR_SimpCase_0__Lean_IR_getOccsOf_spec__0___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_FnBody_simpCase_spec__0(size_t, size_t, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_SimpCase_0__Lean_IR_filterUnreachable(lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_SimpCase_0__Lean_IR_maxOccs(lean_object*);
static lean_object* l___private_Lean_Compiler_IR_SimpCase_0__Lean_IR_initFn___closed__23____x40_Lean_Compiler_IR_SimpCase___hyg_843_;
@ -94,7 +96,6 @@ size_t lean_array_size(lean_object*);
static lean_object* l___private_Lean_Compiler_IR_SimpCase_0__Lean_IR_initFn___closed__20____x40_Lean_Compiler_IR_SimpCase___hyg_843_;
lean_object* lean_array_get_size(lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_IR_FnBody_simpCase_spec__1(size_t, size_t, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_IR_reshape(lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
uint8_t lean_usize_dec_lt(size_t, size_t);
@ -234,13 +235,12 @@ LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at__
_start:
{
lean_object* x_7; lean_object* x_13; lean_object* x_17;
x_17 = lean_array_fget(x_3, x_6);
x_17 = lean_array_fget_borrowed(x_3, x_6);
if (lean_obj_tag(x_17) == 0)
{
lean_object* x_18;
x_18 = lean_ctor_get(x_17, 1);
lean_inc(x_18);
lean_dec_ref(x_17);
x_13 = x_18;
goto block_16;
}
@ -249,7 +249,6 @@ else
lean_object* x_19;
x_19 = lean_ctor_get(x_17, 0);
lean_inc(x_19);
lean_dec_ref(x_17);
x_13 = x_19;
goto block_16;
}
@ -307,13 +306,12 @@ _start:
{
lean_object* x_3; lean_object* x_10; lean_object* x_11;
x_10 = l_Lean_IR_instInhabitedAlt;
x_11 = lean_array_get(x_10, x_1, x_2);
x_11 = lean_array_get_borrowed(x_10, x_1, x_2);
if (lean_obj_tag(x_11) == 0)
{
lean_object* x_12;
x_12 = lean_ctor_get(x_11, 1);
lean_inc(x_12);
lean_dec_ref(x_11);
x_3 = x_12;
goto block_9;
}
@ -322,7 +320,6 @@ else
lean_object* x_13;
x_13 = lean_ctor_get(x_11, 0);
lean_inc(x_13);
lean_dec_ref(x_11);
x_3 = x_13;
goto block_9;
}
@ -407,7 +404,8 @@ else
lean_object* x_16;
lean_dec(x_13);
lean_dec(x_12);
x_16 = lean_array_fget(x_1, x_4);
x_16 = lean_array_fget_borrowed(x_1, x_4);
lean_inc_ref(x_16);
lean_ctor_set(x_3, 1, x_16);
lean_ctor_set(x_3, 0, x_14);
x_5 = x_3;
@ -439,7 +437,8 @@ else
lean_object* x_22; lean_object* x_23;
lean_dec(x_18);
lean_dec(x_17);
x_22 = lean_array_fget(x_1, x_4);
x_22 = lean_array_fget_borrowed(x_1, x_4);
lean_inc_ref(x_22);
x_23 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_23, 0, x_19);
lean_ctor_set(x_23, 1, x_22);
@ -484,13 +483,14 @@ x_2 = l_Lean_IR_instInhabitedAlt;
x_3 = lean_unsigned_to_nat(1u);
x_4 = lean_array_get_size(x_1);
x_5 = lean_unsigned_to_nat(0u);
x_6 = lean_array_get(x_2, x_1, x_5);
x_6 = lean_array_get_borrowed(x_2, x_1, x_5);
x_7 = l___private_Lean_Compiler_IR_SimpCase_0__Lean_IR_getOccsOf(x_1, x_5);
x_8 = lean_nat_dec_lt(x_3, x_4);
if (x_8 == 0)
{
lean_object* x_9;
lean_dec(x_4);
lean_inc_ref(x_6);
x_9 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_9, 0, x_6);
lean_ctor_set(x_9, 1, x_7);
@ -499,6 +499,7 @@ return x_9;
else
{
lean_object* x_10; lean_object* x_11; uint8_t x_12;
lean_inc_ref(x_6);
x_10 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_10, 0, x_7);
lean_ctor_set(x_10, 1, x_6);

43
stage0/stdlib/Lean/Compiler/IR/ToIR.c generated
View file

@ -56,6 +56,7 @@ lean_object* l_Lean_Environment_find_x3f(lean_object*, lean_object*, uint8_t);
LEAN_EXPORT lean_object* l_Lean_addMessageContextPartial___at___Lean_throwNamedError___at___Lean_IR_ToIR_lowerLet_spec__0_spec__0(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ToIR_lowerArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_ToIR_lowerProj___closed__0;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_ToIR_0__Lean_IR_ToIR_lowerResultType_resultTypeForArity___closed__1;
lean_object* l_ReaderT_instApplicativeOfMonad___redArg___lam__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_ToIR_lowerCode___closed__3;
@ -155,6 +156,7 @@ LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_ToIR_0__Lean_IR_ToIR_lower
lean_object* l_Lean_IR_IRType_boxed(lean_object*);
LEAN_EXPORT lean_object* l_panic___at_____private_Lean_Compiler_IR_ToIR_0__Lean_IR_ToIR_lowerAlt_loop_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MessageData_tagWithErrorName(lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ToIR_lowerLitValue(lean_object*);
LEAN_EXPORT lean_object* l_Lean_IR_ToIR_bindVarToVarId___redArg(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_IR_ToIR_lowerLet___closed__8;
@ -2886,7 +2888,8 @@ goto block_54;
else
{
lean_object* x_58; lean_object* x_59;
x_58 = lean_array_fget(x_4, x_6);
x_58 = lean_array_fget_borrowed(x_4, x_6);
lean_inc_ref(x_58);
x_59 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_59, 0, x_58);
x_48 = x_59;
@ -3052,7 +3055,8 @@ goto block_47;
else
{
lean_object* x_52; lean_object* x_53;
x_52 = lean_array_fget(x_5, x_6);
x_52 = lean_array_fget_borrowed(x_5, x_6);
lean_inc(x_52);
x_53 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_53, 0, x_52);
x_18 = x_48;
@ -4817,13 +4821,13 @@ LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at__
_start:
{
lean_object* x_8; lean_object* x_9; lean_object* x_16;
x_16 = lean_array_fget(x_1, x_6);
x_16 = lean_array_fget_borrowed(x_1, x_6);
if (lean_obj_tag(x_16) == 1)
{
lean_object* x_17; lean_object* x_18;
lean_dec_ref(x_16);
lean_inc(x_2);
x_17 = lean_array_get(x_2, x_3, x_6);
x_17 = lean_array_get_borrowed(x_2, x_3, x_6);
lean_inc(x_17);
x_18 = lean_array_push(x_5, x_17);
x_8 = x_18;
x_9 = x_7;
@ -4831,7 +4835,6 @@ goto block_15;
}
else
{
lean_dec(x_16);
x_8 = x_5;
x_9 = x_7;
goto block_15;
@ -9075,22 +9078,18 @@ return x_13;
else
{
lean_object* x_14;
x_14 = lean_array_fget(x_4, x_6);
x_14 = lean_array_fget_borrowed(x_4, x_6);
if (lean_obj_tag(x_14) == 0)
{
lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_15 = lean_ctor_get(x_14, 0);
lean_inc(x_15);
lean_dec_ref(x_14);
x_16 = lean_box(0);
x_17 = lean_array_get(x_16, x_3, x_6);
x_17 = lean_array_get_borrowed(x_16, x_3, x_6);
switch (lean_obj_tag(x_17)) {
case 2:
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21;
x_18 = lean_ctor_get(x_17, 0);
lean_inc(x_18);
lean_dec_ref(x_17);
x_19 = lean_unsigned_to_nat(1u);
x_20 = lean_nat_add(x_6, x_19);
lean_dec(x_6);
@ -9104,6 +9103,8 @@ if (x_22 == 0)
{
lean_object* x_23; lean_object* x_24;
x_23 = lean_ctor_get(x_21, 0);
lean_inc(x_15);
lean_inc(x_18);
x_24 = lean_alloc_ctor(4, 4, 0);
lean_ctor_set(x_24, 0, x_5);
lean_ctor_set(x_24, 1, x_18);
@ -9120,6 +9121,8 @@ x_26 = lean_ctor_get(x_21, 1);
lean_inc(x_26);
lean_inc(x_25);
lean_dec(x_21);
lean_inc(x_15);
lean_inc(x_18);
x_27 = lean_alloc_ctor(4, 4, 0);
lean_ctor_set(x_27, 0, x_5);
lean_ctor_set(x_27, 1, x_18);
@ -9133,8 +9136,6 @@ return x_28;
}
else
{
lean_dec(x_18);
lean_dec(x_15);
lean_dec(x_5);
return x_21;
}
@ -9143,10 +9144,7 @@ case 3:
{
lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33;
x_29 = lean_ctor_get(x_17, 1);
lean_inc(x_29);
x_30 = lean_ctor_get(x_17, 2);
lean_inc(x_30);
lean_dec_ref(x_17);
x_31 = lean_unsigned_to_nat(1u);
x_32 = lean_nat_add(x_6, x_31);
lean_dec(x_6);
@ -9163,6 +9161,9 @@ x_35 = lean_ctor_get(x_33, 0);
x_36 = lean_ctor_get(x_2, 2);
x_37 = lean_ctor_get(x_2, 3);
x_38 = lean_nat_add(x_36, x_37);
lean_inc(x_30);
lean_inc(x_15);
lean_inc(x_29);
x_39 = lean_alloc_ctor(5, 6, 0);
lean_ctor_set(x_39, 0, x_5);
lean_ctor_set(x_39, 1, x_38);
@ -9184,6 +9185,9 @@ lean_dec(x_33);
x_42 = lean_ctor_get(x_2, 2);
x_43 = lean_ctor_get(x_2, 3);
x_44 = lean_nat_add(x_42, x_43);
lean_inc(x_30);
lean_inc(x_15);
lean_inc(x_29);
x_45 = lean_alloc_ctor(5, 6, 0);
lean_ctor_set(x_45, 0, x_5);
lean_ctor_set(x_45, 1, x_44);
@ -9199,9 +9203,6 @@ return x_46;
}
else
{
lean_dec(x_30);
lean_dec(x_29);
lean_dec(x_15);
lean_dec(x_5);
return x_33;
}
@ -9209,8 +9210,6 @@ return x_33;
default:
{
lean_object* x_47; lean_object* x_48;
lean_dec(x_17);
lean_dec(x_15);
x_47 = lean_unsigned_to_nat(1u);
x_48 = lean_nat_add(x_6, x_47);
lean_dec(x_6);

25
stage0/stdlib/Lean/Compiler/IR/ToIRType.c generated
View file

@ -75,6 +75,7 @@ lean_object* l_Lean_Environment_find_x3f(lean_object*, lean_object*, uint8_t);
LEAN_EXPORT lean_object* l_List_forIn_x27_loop___at___List_forIn_x27_loop___at_____private_Lean_Compiler_IR_ToIRType_0__Lean_IR_nameToIRType_fillCache_spec__3_spec__3___redArg___lam__2(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_insertAtCollisionNode___at___Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_CacheExtension_register___at___Lean_IR_initFn____x40_Lean_Compiler_IR_ToIRType___hyg_65__spec__0_spec__0_spec__0_spec__0___redArg(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_IR_ToIRType_0__Lean_IR_nameToIRType_fillCache___closed__14;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_List_forIn_x27_loop___at___List_forIn_x27_loop___at_____private_Lean_Compiler_IR_ToIRType_0__Lean_IR_nameToIRType_fillCache_spec__3_spec__3___redArg___lam__0(lean_object*, lean_object*);
lean_object* l_Lean_Meta_beqDefEqCacheKey____x40_Lean_Meta_Basic___hyg_2079____boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_IR_ToIRType_0__Lean_IR_getCtorLayout_fillCache___lam__1(lean_object*, lean_object*);
@ -400,9 +401,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_name_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -449,9 +449,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_name_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -520,8 +519,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Name_hash___override(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -532,6 +531,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_CacheExtension_register___at___Lean_IR_initFn____x40_Lean_Compiler_IR_ToIRType___hyg_65__spec__0_spec__0_spec__0___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -875,9 +876,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -890,8 +890,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;
@ -2228,7 +2229,8 @@ _start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_array_fget(x_3, x_2);
x_4 = lean_array_fget_borrowed(x_3, x_2);
lean_inc_ref(x_4);
return x_4;
}
}
@ -6204,7 +6206,8 @@ _start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_array_fget(x_3, x_2);
x_4 = lean_array_fget_borrowed(x_3, x_2);
lean_inc_ref(x_4);
return x_4;
}
}

6
stage0/stdlib/Lean/Compiler/InitAttr.c generated
View file

@ -75,6 +75,7 @@ static lean_object* l___auto___closed__7____x40_Lean_Compiler_InitAttr___hyg_113
static lean_object* l___auto___closed__20____x40_Lean_Compiler_InitAttr___hyg_1134_;
lean_object* l_Lean_addBuiltinDeclarationRanges(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_InitAttr_0__Lean_builtinInitAttr___regBuiltin_Lean_builtinInitAttr_declRange__3(lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at_____private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_registerInitAttrUnsafe_spec__10_spec__10___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
static lean_object* l___auto___closed__15____x40_Lean_Compiler_InitAttr___hyg_1134_;
@ -1178,7 +1179,7 @@ x_5 = lean_nat_add(x_3, x_4);
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_shiftr(x_5, x_6);
lean_dec(x_5);
x_8 = lean_array_fget(x_1, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = l_Array_binSearchAux___at___Lean_registerInitAttrUnsafe_spec__8___redArg___lam__0(x_8, x_2);
if (x_9 == 0)
{
@ -1190,6 +1191,7 @@ if (x_10 == 0)
lean_object* x_11;
lean_dec(x_7);
lean_dec(x_3);
lean_inc_ref(x_8);
x_11 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_11, 0, x_8);
return x_11;
@ -1197,7 +1199,6 @@ return x_11;
else
{
lean_object* x_12; uint8_t x_13;
lean_dec_ref(x_8);
x_12 = lean_unsigned_to_nat(0u);
x_13 = lean_nat_dec_eq(x_7, x_12);
if (x_13 == 0)
@ -1233,7 +1234,6 @@ return x_18;
else
{
lean_object* x_19; uint8_t x_20;
lean_dec_ref(x_8);
lean_dec(x_3);
x_19 = lean_nat_add(x_7, x_6);
lean_dec(x_7);

1089
stage0/stdlib/Lean/Compiler/InlineAttrs.c generated
View file

File diff suppressed because it is too large Load diff

33
stage0/stdlib/Lean/Compiler/LCNF/AlphaEqv.c generated
View file

@ -28,6 +28,7 @@ LEAN_EXPORT uint8_t l_List_beq___at___Lean_Compiler_LCNF_AlphaEqv_eqvLetValue_sp
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_AlphaEqv_eqvArgs_spec__0(lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*);
static lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at_____private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_AlphaEqv_eqvAlts_spec__1_spec__1___closed__0;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_QSort_Basic_0__Array_qsort_sort___at___Lean_Compiler_LCNF_AlphaEqv_sortAlts_spec__0___redArg___lam__0___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_AlphaEqv_eqv___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at___Lean_Compiler_LCNF_AlphaEqv_eqvFVar_spec__0(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_AlphaEqv_0__Lean_Compiler_LCNF_AlphaEqv_withParams_go___at___Lean_Compiler_LCNF_AlphaEqv_eqvAlts_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -1179,25 +1180,15 @@ return x_9;
else
{
lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16;
x_10 = lean_array_fget(x_1, x_4);
x_10 = lean_array_fget_borrowed(x_1, x_4);
x_11 = lean_ctor_get(x_10, 0);
lean_inc(x_11);
x_12 = lean_ctor_get(x_10, 2);
lean_inc_ref(x_12);
lean_dec_ref(x_10);
x_13 = lean_array_fget(x_2, x_4);
x_13 = lean_array_fget_borrowed(x_2, x_4);
x_14 = lean_ctor_get(x_13, 0);
lean_inc(x_14);
x_15 = lean_ctor_get(x_13, 2);
lean_inc_ref(x_15);
lean_dec_ref(x_13);
x_16 = l_Lean_Compiler_LCNF_AlphaEqv_eqvType(x_12, x_15, x_5);
lean_dec_ref(x_15);
lean_dec_ref(x_12);
if (x_16 == 0)
{
lean_dec(x_14);
lean_dec(x_11);
lean_dec(x_5);
lean_dec(x_4);
lean_dec_ref(x_3);
@ -1209,6 +1200,8 @@ lean_object* x_17; lean_object* x_18; lean_object* x_19;
x_17 = lean_unsigned_to_nat(1u);
x_18 = lean_nat_add(x_4, x_17);
lean_dec(x_4);
lean_inc(x_11);
lean_inc(x_14);
x_19 = l_Std_DTreeMap_Internal_Impl_insert___at___Lean_FVarIdSet_insert_spec__1___redArg(x_14, x_11, x_5);
x_4 = x_18;
x_5 = x_19;
@ -1462,25 +1455,15 @@ return x_9;
else
{
lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16;
x_10 = lean_array_fget(x_3, x_5);
x_10 = lean_array_fget_borrowed(x_3, x_5);
x_11 = lean_ctor_get(x_10, 0);
lean_inc(x_11);
x_12 = lean_ctor_get(x_10, 2);
lean_inc_ref(x_12);
lean_dec_ref(x_10);
x_13 = lean_array_fget(x_4, x_5);
x_13 = lean_array_fget_borrowed(x_4, x_5);
x_14 = lean_ctor_get(x_13, 0);
lean_inc(x_14);
x_15 = lean_ctor_get(x_13, 2);
lean_inc_ref(x_15);
lean_dec_ref(x_13);
x_16 = l_Lean_Compiler_LCNF_AlphaEqv_eqvType(x_12, x_15, x_6);
lean_dec_ref(x_15);
lean_dec_ref(x_12);
if (x_16 == 0)
{
lean_dec(x_14);
lean_dec(x_11);
lean_dec(x_6);
lean_dec(x_5);
lean_dec_ref(x_2);
@ -1493,6 +1476,8 @@ lean_object* x_17; lean_object* x_18; lean_object* x_19;
x_17 = lean_unsigned_to_nat(1u);
x_18 = lean_nat_add(x_5, x_17);
lean_dec(x_5);
lean_inc(x_11);
lean_inc(x_14);
x_19 = l_Std_DTreeMap_Internal_Impl_insert___at___Lean_FVarIdSet_insert_spec__1___redArg(x_14, x_11, x_6);
x_5 = x_18;
x_6 = x_19;

19
stage0/stdlib/Lean/Compiler/LCNF/AuxDeclCache.c generated
View file

@ -33,6 +33,7 @@ lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_CacheExtension_find_x3f___at___Lean_Compiler_LCNF_cacheAuxDecl_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_findAux___at___Lean_PersistentHashMap_find_x3f___at___Lean_Compiler_LCNF_CacheExtension_register___at___Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_AuxDeclCache___hyg_4__spec__0_spec__5_spec__5___redArg(lean_object*, size_t, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_CacheExtension_find_x3f___at___Lean_Compiler_LCNF_cacheAuxDecl_spec__0___redArg___closed__3;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_CacheExtension_find_x3f___at___Lean_Compiler_LCNF_cacheAuxDecl_spec__0___redArg___closed__0;
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_CacheExtension_find_x3f___at___Lean_Compiler_LCNF_cacheAuxDecl_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_AuxDeclCache___hyg_4_(lean_object*);
@ -147,9 +148,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = l_Lean_Compiler_LCNF_beqDecl____x40_Lean_Compiler_LCNF_Basic___hyg_7769_(x_3, x_12);
lean_dec_ref(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -196,9 +196,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = l_Lean_Compiler_LCNF_beqDecl____x40_Lean_Compiler_LCNF_Basic___hyg_7769_(x_3, x_26);
lean_dec_ref(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -267,8 +266,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Compiler_LCNF_hashDecl____x40_Lean_Compiler_LCNF_DeclHash___hyg_320_(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -279,6 +278,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc_ref(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_CacheExtension_register___at___Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_AuxDeclCache___hyg_4__spec__0_spec__0_spec__0___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -622,9 +623,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = l_Lean_Compiler_LCNF_beqDecl____x40_Lean_Compiler_LCNF_Basic___hyg_7769_(x_4, x_8);
lean_dec_ref(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -637,8 +637,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;

19
stage0/stdlib/Lean/Compiler/LCNF/BaseTypes.c generated
View file

@ -55,6 +55,7 @@ LEAN_EXPORT lean_object* l_Lean_throwUnknownConstantAt___at___Lean_throwUnknownC
LEAN_EXPORT lean_object* l_Lean_throwErrorAt___at___Lean_throwUnknownIdentifierAt___at___Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_getOtherDeclBaseType_spec__0_spec__0_spec__0_spec__0_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_find_x3f___at___Lean_Compiler_LCNF_CacheExtension_register___at___Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_BaseTypes___hyg_4__spec__0_spec__5(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Environment_find_x3f(lean_object*, lean_object*, uint8_t);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_insertAtCollisionNode___at___Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_CacheExtension_register___at___Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_BaseTypes___hyg_4__spec__0_spec__0_spec__0_spec__0___redArg(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_getOtherDeclBaseType_spec__0_spec__0_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_insertAtCollisionNode___at___Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_CacheExtension_register___at___Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_BaseTypes___hyg_4__spec__0_spec__0_spec__0_spec__0(lean_object*, lean_object*, lean_object*, lean_object*);
@ -214,9 +215,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_name_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -263,9 +263,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_name_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -334,8 +333,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Name_hash___override(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -346,6 +345,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_CacheExtension_register___at___Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_BaseTypes___hyg_4__spec__0_spec__0_spec__0___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -689,9 +690,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -704,8 +704,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;

66
stage0/stdlib/Lean/Compiler/LCNF/Basic.c generated
View file

@ -102,6 +102,7 @@ LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_L
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_updateJmpImp___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Alt_getCode___boxed(lean_object*);
static lean_object* l_Lean_Compiler_LCNF_instInhabitedCases___closed__1;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_collectArgs___boxed(lean_object*, lean_object*);
uint64_t lean_string_hash(lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_collectArg___boxed(lean_object*, lean_object*);
@ -270,6 +271,7 @@ static lean_object* l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_A
uint8_t l_Lean_BinderInfo_isImplicit(uint8_t);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_contains___at_____private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_collectType_spec__0___redArg___boxed(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_List_beq___at___Lean_Compiler_LCNF_beqLetValue____x40_Lean_Compiler_LCNF_Basic___hyg_1193__spec__0(lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_instHashableLitValue;
LEAN_EXPORT uint64_t l_Lean_Compiler_LCNF_hashArg____x40_Lean_Compiler_LCNF_Basic___hyg_882_(lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_updateUnreachImp(lean_object*, lean_object*);
@ -418,7 +420,6 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Cases_extractAlt_x21___lam__0___bo
LEAN_EXPORT lean_object* l___private_Init_Data_Array_BasicAux_0__mapMonoMImp_go___at_____private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_Code_instantiateValueLevelParams_instCode_spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Cases_getCtorNames___boxed(lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_collectParams___boxed(lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
uint8_t lean_level_eq(lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_instantiateRangeArgs(lean_object*, lean_object*, lean_object*, lean_object*);
@ -1577,11 +1578,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = l_Lean_Compiler_LCNF_beqArg____x40_Lean_Compiler_LCNF_Basic___hyg_792_(x_8, x_9);
lean_dec(x_9);
lean_dec(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -3017,14 +3016,13 @@ x_6 = l_Lean_Compiler_LCNF_instInhabitedCodeDecl;
x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_2, x_7);
lean_dec(x_2);
x_9 = lean_array_get(x_6, x_1, x_8);
x_9 = lean_array_get_borrowed(x_6, x_1, x_8);
switch (lean_obj_tag(x_9)) {
case 0:
{
lean_object* x_10; lean_object* x_11;
x_10 = lean_ctor_get(x_9, 0);
lean_inc_ref(x_10);
lean_dec_ref(x_9);
x_11 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_11, 0, x_10);
lean_ctor_set(x_11, 1, x_3);
@ -3037,7 +3035,6 @@ case 1:
lean_object* x_13; lean_object* x_14;
x_13 = lean_ctor_get(x_9, 0);
lean_inc_ref(x_13);
lean_dec_ref(x_9);
x_14 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_14, 0, x_13);
lean_ctor_set(x_14, 1, x_3);
@ -3050,7 +3047,6 @@ default:
lean_object* x_16; lean_object* x_17;
x_16 = lean_ctor_get(x_9, 0);
lean_inc_ref(x_16);
lean_dec_ref(x_9);
x_17 = lean_alloc_ctor(2, 2, 0);
lean_ctor_set(x_17, 0, x_16);
lean_ctor_set(x_17, 1, x_3);
@ -3337,11 +3333,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_eqAlt(x_8, x_9);
lean_dec_ref(x_9);
lean_dec_ref(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -3442,11 +3436,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = l_Lean_Compiler_LCNF_beqParam____x40_Lean_Compiler_LCNF_Basic___hyg_60_(x_8, x_9);
lean_dec_ref(x_9);
lean_dec_ref(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -6260,16 +6252,15 @@ return x_4;
else
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; size_t x_11; size_t x_12; uint8_t x_13;
x_7 = lean_array_fget(x_4, x_3);
x_7 = lean_array_fget_borrowed(x_4, x_3);
x_8 = lean_ctor_get(x_7, 2);
lean_inc_ref(x_8);
lean_inc(x_2);
lean_inc(x_1);
lean_inc_ref(x_8);
x_9 = l_Lean_Expr_instantiateLevelParamsNoCache(x_8, x_1, x_2);
lean_inc_ref(x_7);
x_10 = l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_updateParamCoreImp(x_7, x_9);
x_11 = lean_ptr_addr(x_7);
lean_dec_ref(x_7);
x_12 = lean_ptr_addr(x_10);
x_13 = lean_usize_dec_eq(x_11, x_12);
if (x_13 == 0)
@ -6342,13 +6333,12 @@ return x_4;
else
{
lean_object* x_7; lean_object* x_8; size_t x_9; size_t x_10; uint8_t x_11;
x_7 = lean_array_fget(x_4, x_3);
x_7 = lean_array_fget_borrowed(x_4, x_3);
lean_inc(x_7);
lean_inc(x_2);
lean_inc(x_1);
x_8 = l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_Code_instantiateValueLevelParams_instArg(x_1, x_2, x_7);
x_9 = lean_ptr_addr(x_7);
lean_dec(x_7);
x_10 = lean_ptr_addr(x_8);
x_11 = lean_usize_dec_eq(x_9, x_10);
if (x_11 == 0)
@ -6505,13 +6495,12 @@ return x_4;
else
{
lean_object* x_7; lean_object* x_8; size_t x_9; size_t x_10; uint8_t x_11;
x_7 = lean_array_fget(x_4, x_3);
x_7 = lean_array_fget_borrowed(x_4, x_3);
lean_inc_ref(x_7);
lean_inc(x_2);
lean_inc(x_1);
x_8 = l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_Code_instantiateValueLevelParams_instAlt(x_1, x_2, x_7);
x_9 = lean_ptr_addr(x_7);
lean_dec_ref(x_7);
x_10 = lean_ptr_addr(x_8);
x_11 = lean_usize_dec_eq(x_9, x_10);
if (x_11 == 0)
@ -6818,8 +6807,8 @@ if (x_6 == 0)
lean_object* x_7;
lean_dec_ref(x_3);
x_7 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_7, 0, x_4);
lean_ctor_set(x_7, 1, x_5);
lean_ctor_set(x_7, 0, x_5);
lean_ctor_set(x_7, 1, x_4);
return x_7;
}
else
@ -6836,8 +6825,8 @@ if (x_11 == 0)
lean_object* x_12;
lean_dec_ref(x_3);
x_12 = lean_alloc_ctor(2, 2, 0);
lean_ctor_set(x_12, 0, x_9);
lean_ctor_set(x_12, 1, x_10);
lean_ctor_set(x_12, 0, x_10);
lean_ctor_set(x_12, 1, x_9);
return x_12;
}
else
@ -6865,8 +6854,8 @@ x_21 = lean_ptr_addr(x_17);
x_22 = lean_usize_dec_eq(x_20, x_21);
if (x_22 == 0)
{
x_4 = x_16;
x_5 = x_17;
x_4 = x_17;
x_5 = x_16;
x_6 = x_22;
goto block_8;
}
@ -6876,8 +6865,8 @@ size_t x_23; size_t x_24; uint8_t x_25;
x_23 = lean_ptr_addr(x_18);
x_24 = lean_ptr_addr(x_16);
x_25 = lean_usize_dec_eq(x_23, x_24);
x_4 = x_16;
x_5 = x_17;
x_4 = x_17;
x_5 = x_16;
x_6 = x_25;
goto block_8;
}
@ -6892,8 +6881,8 @@ x_29 = lean_ptr_addr(x_17);
x_30 = lean_usize_dec_eq(x_28, x_29);
if (x_30 == 0)
{
x_9 = x_16;
x_10 = x_17;
x_9 = x_17;
x_10 = x_16;
x_11 = x_30;
goto block_13;
}
@ -6903,8 +6892,8 @@ size_t x_31; size_t x_32; uint8_t x_33;
x_31 = lean_ptr_addr(x_26);
x_32 = lean_ptr_addr(x_16);
x_33 = lean_usize_dec_eq(x_31, x_32);
x_9 = x_16;
x_10 = x_17;
x_9 = x_17;
x_10 = x_16;
x_11 = x_33;
goto block_13;
}
@ -7928,17 +7917,16 @@ return x_4;
else
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; size_t x_12; size_t x_13; uint8_t x_14;
x_7 = lean_array_fget(x_4, x_3);
x_7 = lean_array_fget_borrowed(x_4, x_3);
x_8 = lean_ctor_get(x_7, 2);
lean_inc_ref(x_8);
x_9 = lean_ctor_get(x_1, 1);
lean_inc(x_2);
lean_inc(x_9);
lean_inc_ref(x_8);
x_10 = l_Lean_Expr_instantiateLevelParamsNoCache(x_8, x_9, x_2);
lean_inc_ref(x_7);
x_11 = l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_updateParamCoreImp(x_7, x_10);
x_12 = lean_ptr_addr(x_7);
lean_dec_ref(x_7);
x_13 = lean_ptr_addr(x_11);
x_14 = lean_usize_dec_eq(x_12, x_13);
if (x_14 == 0)

38
stage0/stdlib/Lean/Compiler/LCNF/CSE.c generated
View file

@ -66,6 +66,7 @@ static lean_object* l___private_Lean_Compiler_LCNF_CSE_0__Lean_Compiler_LCNF_ini
LEAN_EXPORT lean_object* l___private_Init_Data_Array_BasicAux_0__mapMonoMImp_go___at___Lean_Compiler_LCNF_normParams___at_____private_Lean_Compiler_LCNF_CSE_0__Lean_Compiler_LCNF_Code_cse_goFunDecl_spec__0_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_cse___boxed(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_CSE_0__Lean_Compiler_LCNF_initFn___closed__1____x40_Lean_Compiler_LCNF_CSE___hyg_1276_;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_CSE_addEntry___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_ReaderT_instApplicativeOfMonad___redArg___lam__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_contains___at___Lean_Compiler_LCNF_CSE_replaceLet_spec__0___redArg___boxed(lean_object*, lean_object*);
@ -2475,9 +2476,8 @@ return x_9;
else
{
lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_10 = lean_array_fget(x_3, x_2);
x_10 = lean_array_fget_borrowed(x_3, x_2);
x_11 = lean_ctor_get(x_10, 2);
lean_inc_ref(x_11);
x_12 = lean_st_ref_get(x_4, x_6);
x_13 = lean_ctor_get(x_12, 0);
lean_inc(x_13);
@ -2487,6 +2487,7 @@ lean_dec_ref(x_12);
x_15 = lean_ctor_get(x_13, 1);
lean_inc_ref(x_15);
lean_dec(x_13);
lean_inc_ref(x_11);
x_16 = l___private_Lean_Compiler_LCNF_CompilerM_0__Lean_Compiler_LCNF_normExprImp_go(x_15, x_1, x_11);
lean_dec_ref(x_15);
lean_inc_ref(x_10);
@ -2500,7 +2501,6 @@ x_19 = lean_ctor_get(x_17, 1);
lean_inc(x_19);
lean_dec_ref(x_17);
x_20 = lean_ptr_addr(x_10);
lean_dec_ref(x_10);
x_21 = lean_ptr_addr(x_18);
x_22 = lean_usize_dec_eq(x_20, x_21);
if (x_22 == 0)
@ -2530,7 +2530,6 @@ goto _start;
else
{
uint8_t x_30;
lean_dec_ref(x_10);
lean_dec_ref(x_3);
lean_dec(x_2);
x_30 = !lean_is_exclusive(x_17);
@ -2826,9 +2825,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_expr_eqv(x_4, x_8);
lean_dec_ref(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -2841,8 +2839,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;
@ -3072,9 +3071,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_expr_eqv(x_3, x_12);
lean_dec_ref(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -3121,9 +3119,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_expr_eqv(x_3, x_26);
lean_dec_ref(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -3192,8 +3189,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Expr_hash(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -3204,6 +3201,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc_ref(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at_____private_Lean_Compiler_LCNF_CSE_0__Lean_Compiler_LCNF_Code_cse_go_spec__4_spec__4___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -3648,14 +3647,12 @@ return x_13;
else
{
lean_object* x_14; lean_object* x_15; lean_object* x_16;
x_14 = lean_array_fget(x_4, x_3);
x_14 = lean_array_fget_borrowed(x_4, x_3);
if (lean_obj_tag(x_14) == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_43;
x_28 = lean_ctor_get(x_14, 1);
lean_inc_ref(x_28);
x_29 = lean_ctor_get(x_14, 2);
lean_inc_ref(x_29);
x_30 = lean_st_ref_get(x_5, x_10);
x_31 = lean_ctor_get(x_30, 0);
lean_inc(x_31);
@ -3665,6 +3662,7 @@ lean_dec_ref(x_30);
x_33 = lean_ctor_get(x_31, 0);
lean_inc_ref(x_33);
lean_dec(x_31);
lean_inc_ref(x_28);
x_43 = l_Lean_Compiler_LCNF_normParams___at_____private_Lean_Compiler_LCNF_CSE_0__Lean_Compiler_LCNF_Code_cse_goFunDecl_spec__0(x_1, x_28, x_5, x_6, x_7, x_8, x_9, x_32);
if (lean_obj_tag(x_43) == 0)
{
@ -3674,6 +3672,7 @@ lean_inc(x_44);
x_45 = lean_ctor_get(x_43, 1);
lean_inc(x_45);
lean_dec_ref(x_43);
lean_inc_ref(x_29);
x_46 = l___private_Lean_Compiler_LCNF_CSE_0__Lean_Compiler_LCNF_Code_cse_go(x_2, x_29, x_5, x_6, x_7, x_8, x_9, x_45);
if (lean_obj_tag(x_46) == 0)
{
@ -3701,7 +3700,6 @@ else
{
lean_object* x_53; lean_object* x_54;
lean_dec(x_44);
lean_dec_ref(x_14);
lean_dec_ref(x_4);
lean_dec(x_3);
x_53 = lean_ctor_get(x_46, 0);
@ -3717,8 +3715,6 @@ goto block_42;
else
{
lean_object* x_55; lean_object* x_56;
lean_dec_ref(x_29);
lean_dec_ref(x_14);
lean_dec_ref(x_4);
lean_dec(x_3);
x_55 = lean_ctor_get(x_43, 0);
@ -3762,7 +3758,6 @@ else
{
lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62;
x_57 = lean_ctor_get(x_14, 0);
lean_inc_ref(x_57);
x_58 = lean_st_ref_get(x_5, x_10);
x_59 = lean_ctor_get(x_58, 0);
lean_inc(x_59);
@ -3772,6 +3767,7 @@ lean_dec_ref(x_58);
x_61 = lean_ctor_get(x_59, 0);
lean_inc_ref(x_61);
lean_dec(x_59);
lean_inc_ref(x_57);
x_62 = l___private_Lean_Compiler_LCNF_CSE_0__Lean_Compiler_LCNF_Code_cse_go(x_2, x_57, x_5, x_6, x_7, x_8, x_9, x_60);
if (lean_obj_tag(x_62) == 0)
{
@ -3798,7 +3794,6 @@ goto block_27;
else
{
lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; uint8_t x_73;
lean_dec_ref(x_14);
lean_dec_ref(x_4);
lean_dec(x_3);
x_69 = lean_ctor_get(x_62, 0);
@ -3835,7 +3830,6 @@ block_27:
{
size_t x_17; size_t x_18; uint8_t x_19;
x_17 = lean_ptr_addr(x_14);
lean_dec_ref(x_14);
x_18 = lean_ptr_addr(x_15);
x_19 = lean_usize_dec_eq(x_17, x_18);
if (x_19 == 0)

31
stage0/stdlib/Lean/Compiler/LCNF/Check.c generated
View file

@ -82,6 +82,7 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe
LEAN_EXPORT lean_object* l_Lean_throwUnknownIdentifierAt___at___Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_Check_isCtorParam_spec__0_spec__0_spec__0_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_Compiler_LCNF_checkDeadLocalDecls_spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_Check_isCtorParam_spec__0_spec__0_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
lean_object* l_ReaderT_instApplicativeOfMonad___redArg___lam__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Check_checkFunDeclCore___lam__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_Check_isCtorParam_spec__0_spec__0_spec__0___redArg___closed__0;
@ -2332,7 +2333,7 @@ x_49 = l_Lean_Expr_isErased(x_47);
if (x_49 == 0)
{
lean_object* x_50; lean_object* x_51;
x_50 = lean_array_fget(x_1, x_6);
x_50 = lean_array_fget_borrowed(x_1, x_6);
x_51 = l_Lean_Expr_headBeta(x_47);
if (lean_obj_tag(x_51) == 7)
{
@ -2353,6 +2354,7 @@ lean_inc_ref(x_10);
lean_inc_ref(x_9);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_50);
lean_inc(x_2);
x_55 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_50, x_6, x_1, x_3, x_51, x_48, x_54, x_7, x_8, x_9, x_10, x_11, x_12, x_13, x_14);
lean_dec_ref(x_51);
@ -2387,6 +2389,7 @@ lean_inc_ref(x_9);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_6);
lean_inc(x_50);
lean_inc(x_2);
x_61 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_50, x_6, x_1, x_3, x_57, x_6, x_60, x_7, x_8, x_9, x_10, x_11, x_12, x_13, x_14);
lean_dec_ref(x_57);
@ -2396,7 +2399,6 @@ goto block_42;
else
{
lean_object* x_62; lean_object* x_63;
lean_dec(x_50);
lean_dec(x_13);
lean_dec_ref(x_12);
lean_dec(x_11);
@ -2448,7 +2450,7 @@ x_68 = l_Lean_Expr_isErased(x_66);
if (x_68 == 0)
{
lean_object* x_69; lean_object* x_70;
x_69 = lean_array_fget(x_1, x_6);
x_69 = lean_array_fget_borrowed(x_1, x_6);
x_70 = l_Lean_Expr_headBeta(x_66);
if (lean_obj_tag(x_70) == 7)
{
@ -2468,6 +2470,7 @@ lean_inc_ref(x_10);
lean_inc_ref(x_9);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_69);
lean_inc(x_2);
x_74 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_69, x_6, x_1, x_3, x_70, x_67, x_73, x_7, x_8, x_9, x_10, x_11, x_12, x_13, x_14);
lean_dec_ref(x_70);
@ -2501,6 +2504,7 @@ lean_inc_ref(x_9);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_6);
lean_inc(x_69);
lean_inc(x_2);
x_80 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_69, x_6, x_1, x_3, x_76, x_6, x_79, x_7, x_8, x_9, x_10, x_11, x_12, x_13, x_14);
lean_dec_ref(x_76);
@ -2510,7 +2514,6 @@ goto block_42;
else
{
lean_object* x_81; lean_object* x_82; lean_object* x_83;
lean_dec(x_69);
lean_dec(x_13);
lean_dec_ref(x_12);
lean_dec(x_11);
@ -2580,7 +2583,7 @@ x_91 = l_Lean_Expr_isErased(x_88);
if (x_91 == 0)
{
lean_object* x_92; lean_object* x_93;
x_92 = lean_array_fget(x_1, x_6);
x_92 = lean_array_fget_borrowed(x_1, x_6);
x_93 = l_Lean_Expr_headBeta(x_88);
if (lean_obj_tag(x_93) == 7)
{
@ -2600,6 +2603,7 @@ lean_inc_ref(x_10);
lean_inc_ref(x_9);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_92);
lean_inc(x_2);
x_97 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_92, x_6, x_1, x_3, x_93, x_89, x_96, x_7, x_8, x_9, x_10, x_11, x_12, x_13, x_14);
lean_dec_ref(x_93);
@ -2633,6 +2637,7 @@ lean_inc_ref(x_9);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_6);
lean_inc(x_92);
lean_inc(x_2);
x_103 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_92, x_6, x_1, x_3, x_99, x_6, x_102, x_7, x_8, x_9, x_10, x_11, x_12, x_13, x_14);
lean_dec_ref(x_99);
@ -2642,7 +2647,6 @@ goto block_42;
else
{
lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107;
lean_dec(x_92);
lean_dec(x_13);
lean_dec_ref(x_12);
lean_dec(x_11);
@ -2888,7 +2892,7 @@ x_51 = l_Lean_Expr_isErased(x_49);
if (x_51 == 0)
{
lean_object* x_52; lean_object* x_53;
x_52 = lean_array_fget(x_1, x_8);
x_52 = lean_array_fget_borrowed(x_1, x_8);
x_53 = l_Lean_Expr_headBeta(x_49);
if (lean_obj_tag(x_53) == 7)
{
@ -2909,6 +2913,7 @@ lean_inc_ref(x_12);
lean_inc_ref(x_11);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_52);
lean_inc(x_2);
x_57 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_52, x_8, x_1, x_3, x_53, x_50, x_56, x_9, x_10, x_11, x_12, x_13, x_14, x_15, x_16);
lean_dec_ref(x_53);
@ -2943,6 +2948,7 @@ lean_inc_ref(x_11);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_8);
lean_inc(x_52);
lean_inc(x_2);
x_63 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_52, x_8, x_1, x_3, x_59, x_8, x_62, x_9, x_10, x_11, x_12, x_13, x_14, x_15, x_16);
lean_dec_ref(x_59);
@ -2952,7 +2958,6 @@ goto block_44;
else
{
lean_object* x_64; lean_object* x_65;
lean_dec(x_52);
lean_dec(x_15);
lean_dec_ref(x_14);
lean_dec(x_13);
@ -3004,7 +3009,7 @@ x_70 = l_Lean_Expr_isErased(x_68);
if (x_70 == 0)
{
lean_object* x_71; lean_object* x_72;
x_71 = lean_array_fget(x_1, x_8);
x_71 = lean_array_fget_borrowed(x_1, x_8);
x_72 = l_Lean_Expr_headBeta(x_68);
if (lean_obj_tag(x_72) == 7)
{
@ -3024,6 +3029,7 @@ lean_inc_ref(x_12);
lean_inc_ref(x_11);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_71);
lean_inc(x_2);
x_76 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_71, x_8, x_1, x_3, x_72, x_69, x_75, x_9, x_10, x_11, x_12, x_13, x_14, x_15, x_16);
lean_dec_ref(x_72);
@ -3057,6 +3063,7 @@ lean_inc_ref(x_11);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_8);
lean_inc(x_71);
lean_inc(x_2);
x_82 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_71, x_8, x_1, x_3, x_78, x_8, x_81, x_9, x_10, x_11, x_12, x_13, x_14, x_15, x_16);
lean_dec_ref(x_78);
@ -3066,7 +3073,6 @@ goto block_44;
else
{
lean_object* x_83; lean_object* x_84; lean_object* x_85;
lean_dec(x_71);
lean_dec(x_15);
lean_dec_ref(x_14);
lean_dec(x_13);
@ -3136,7 +3142,7 @@ x_93 = l_Lean_Expr_isErased(x_90);
if (x_93 == 0)
{
lean_object* x_94; lean_object* x_95;
x_94 = lean_array_fget(x_1, x_8);
x_94 = lean_array_fget_borrowed(x_1, x_8);
x_95 = l_Lean_Expr_headBeta(x_90);
if (lean_obj_tag(x_95) == 7)
{
@ -3156,6 +3162,7 @@ lean_inc_ref(x_12);
lean_inc_ref(x_11);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_94);
lean_inc(x_2);
x_99 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_94, x_8, x_1, x_3, x_95, x_91, x_98, x_9, x_10, x_11, x_12, x_13, x_14, x_15, x_16);
lean_dec_ref(x_95);
@ -3189,6 +3196,7 @@ lean_inc_ref(x_11);
lean_inc_ref(x_3);
lean_inc_ref(x_1);
lean_inc(x_8);
lean_inc(x_94);
lean_inc(x_2);
x_105 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_Check_checkAppArgs_spec__1_spec__1___redArg___lam__0(x_2, x_94, x_8, x_1, x_3, x_101, x_8, x_104, x_9, x_10, x_11, x_12, x_13, x_14, x_15, x_16);
lean_dec_ref(x_101);
@ -3198,7 +3206,6 @@ goto block_44;
else
{
lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109;
lean_dec(x_94);
lean_dec(x_15);
lean_dec_ref(x_14);
lean_dec(x_13);

25
stage0/stdlib/Lean/Compiler/LCNF/CompilerM.c generated
View file

@ -132,6 +132,7 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_instAddMessageContextCompilerM___l
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_normLetDecl___at___Lean_Compiler_LCNF_normCodeImp_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_mkFreshJpName(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_withPhase___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_getParam___redArg___closed__0;
lean_object* l_Lean_Compiler_LCNF_LCtx_eraseCode(lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_getType___closed__2;
@ -328,7 +329,6 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_normFunDeclImp___boxed(lean_object
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_normArgs___redArg(uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_EStateM_pure(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_CompilerM_0__Lean_Compiler_LCNF_updateLetDeclImp___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_instMonadFVarSubstNormalizerM___boxed(lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_getParam___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_getBinderName___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -5466,11 +5466,10 @@ return x_4;
else
{
lean_object* x_7; lean_object* x_8; size_t x_9; size_t x_10; uint8_t x_11;
x_7 = lean_array_fget(x_4, x_3);
x_7 = lean_array_fget_borrowed(x_4, x_3);
lean_inc(x_7);
x_8 = l___private_Lean_Compiler_LCNF_CompilerM_0__Lean_Compiler_LCNF_normArgImp(x_1, x_7, x_2);
x_9 = lean_ptr_addr(x_7);
lean_dec(x_7);
x_10 = lean_ptr_addr(x_8);
x_11 = lean_usize_dec_eq(x_9, x_10);
if (x_11 == 0)
@ -8888,9 +8887,8 @@ return x_13;
else
{
lean_object* x_14; lean_object* x_15; lean_object* x_16;
x_14 = lean_array_fget(x_4, x_3);
x_14 = lean_array_fget_borrowed(x_4, x_3);
x_15 = lean_ctor_get(x_14, 2);
lean_inc_ref(x_15);
lean_inc_ref(x_1);
lean_inc(x_9);
lean_inc_ref(x_8);
@ -8906,6 +8904,7 @@ lean_inc(x_17);
x_18 = lean_ctor_get(x_16, 1);
lean_inc(x_18);
lean_dec_ref(x_16);
lean_inc_ref(x_15);
x_19 = l___private_Lean_Compiler_LCNF_CompilerM_0__Lean_Compiler_LCNF_normExprImp_go(x_17, x_2, x_15);
lean_dec(x_17);
lean_inc_ref(x_14);
@ -8916,7 +8915,6 @@ x_22 = lean_ctor_get(x_20, 1);
lean_inc(x_22);
lean_dec_ref(x_20);
x_23 = lean_ptr_addr(x_14);
lean_dec_ref(x_14);
x_24 = lean_ptr_addr(x_21);
x_25 = lean_usize_dec_eq(x_23, x_24);
if (x_25 == 0)
@ -8946,8 +8944,6 @@ goto _start;
else
{
uint8_t x_33;
lean_dec_ref(x_15);
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -9277,19 +9273,18 @@ return x_13;
else
{
lean_object* x_14; lean_object* x_15; lean_object* x_16;
x_14 = lean_array_fget(x_4, x_3);
x_14 = lean_array_fget_borrowed(x_4, x_3);
if (lean_obj_tag(x_14) == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
x_28 = lean_ctor_get(x_14, 1);
lean_inc_ref(x_28);
x_29 = lean_ctor_get(x_14, 2);
lean_inc_ref(x_29);
lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc_ref(x_5);
lean_inc_ref(x_28);
lean_inc_ref(x_1);
x_30 = l_Lean_Compiler_LCNF_normParams___at___Lean_Compiler_LCNF_normFunDeclImp_spec__0(x_1, x_2, x_28, x_5, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_30) == 0)
@ -9305,6 +9300,7 @@ lean_inc_ref(x_8);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc_ref(x_5);
lean_inc_ref(x_29);
x_33 = l_Lean_Compiler_LCNF_normCodeImp(x_2, x_29, x_5, x_6, x_7, x_8, x_9, x_32);
if (lean_obj_tag(x_33) == 0)
{
@ -9324,7 +9320,6 @@ else
{
uint8_t x_37;
lean_dec(x_31);
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -9356,8 +9351,6 @@ return x_40;
else
{
uint8_t x_41;
lean_dec_ref(x_29);
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -9390,12 +9383,12 @@ else
{
lean_object* x_45; lean_object* x_46;
x_45 = lean_ctor_get(x_14, 0);
lean_inc_ref(x_45);
lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc_ref(x_5);
lean_inc_ref(x_45);
x_46 = l_Lean_Compiler_LCNF_normCodeImp(x_2, x_45, x_5, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_46) == 0)
{
@ -9414,7 +9407,6 @@ goto block_27;
else
{
uint8_t x_50;
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -9447,7 +9439,6 @@ block_27:
{
size_t x_17; size_t x_18; uint8_t x_19;
x_17 = lean_ptr_addr(x_14);
lean_dec_ref(x_14);
x_18 = lean_ptr_addr(x_15);
x_19 = lean_usize_dec_eq(x_17, x_18);
if (x_19 == 0)

5
stage0/stdlib/Lean/Compiler/LCNF/ElimDead.c generated
View file

@ -33,6 +33,7 @@ uint8_t lean_usize_dec_eq(size_t, size_t);
lean_object* lean_mk_array(lean_object*, lean_object*);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_ElimDead_0__Lean_Compiler_LCNF_ElimDead_collectArgM___redArg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Std_DHashMap_Internal_AssocList_contains___at___Lean_Compiler_LCNF_collectLocalDeclsArg_spec__0(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_ElimDead_0__Lean_Compiler_LCNF_ElimDead_collectLetValueM(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_foldlM___at_____private_Std_Data_DHashMap_Internal_Defs_0__Std_DHashMap_Internal_Raw_u2080_expand_go___at___Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_Compiler_LCNF_collectLocalDeclsArg_spec__1_spec__1_spec__1(lean_object*, lean_object*, lean_object*);
@ -1549,7 +1550,7 @@ return x_11;
else
{
lean_object* x_12; lean_object* x_13;
x_12 = lean_array_fget(x_2, x_1);
x_12 = lean_array_fget_borrowed(x_2, x_1);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_33;
@ -1581,7 +1582,6 @@ lean_dec_ref(x_14);
lean_inc_ref(x_12);
x_17 = l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_updateAltCodeImp(x_12, x_15);
x_18 = lean_ptr_addr(x_12);
lean_dec_ref(x_12);
x_19 = lean_ptr_addr(x_17);
x_20 = lean_usize_dec_eq(x_18, x_19);
if (x_20 == 0)
@ -1611,7 +1611,6 @@ goto _start;
else
{
uint8_t x_28;
lean_dec_ref(x_12);
lean_dec_ref(x_2);
lean_dec(x_1);
x_28 = !lean_is_exclusive(x_14);

93
stage0/stdlib/Lean/Compiler/LCNF/ElimDeadBranches.c generated
View file

@ -131,6 +131,7 @@ lean_object* l_Lean_Compiler_LCNF_getBinderName___redArg(lean_object*, lean_obje
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_UnreachableBranches_elimDead(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_toArray___at___Lean_Compiler_LCNF_UnreachableBranches_initFn____x40_Lean_Compiler_LCNF_ElimDeadBranches___hyg_2019__spec__3(lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_UnreachableBranches_getFunctionSummary_x3f___closed__2;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_Array_repr___at___Lean_Compiler_LCNF_UnreachableBranches_reprValue____x40_Lean_Compiler_LCNF_ElimDeadBranches___hyg_53__spec__0(lean_object*);
lean_object* l_ReaderT_instApplicativeOfMonad___redArg___lam__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
@ -376,6 +377,7 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Fold_0__Nat_foldTR_loop___at_
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_UnreachableBranches_modifyAssignment(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_List_repr___at___Lean_Compiler_LCNF_UnreachableBranches_reprValue____x40_Lean_Compiler_LCNF_ElimDeadBranches___hyg_53__spec__5___redArg(lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_getD___at___Lean_Compiler_LCNF_UnreachableBranches_findVarValue_spec__0(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Lean_PersistentHashMap_contains___at___Lean_Compiler_LCNF_UnreachableBranches_initFn____x40_Lean_Compiler_LCNF_ElimDeadBranches___hyg_2019__spec__0(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_ElimDeadBranches_0__Lean_Compiler_LCNF_UnreachableBranches_findAtSorted_x3f___closed__1;
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_ElimDeadBranches_0__Lean_Compiler_LCNF_UnreachableBranches_interpCode_handleFunArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -1405,8 +1407,10 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
lean_inc(x_9);
lean_inc(x_8);
x_10 = l_Lean_Compiler_LCNF_UnreachableBranches_Value_beq(x_8, x_9);
if (x_10 == 0)
{
@ -1835,8 +1839,10 @@ return x_4;
else
{
lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14;
x_9 = lean_array_fget(x_1, x_3);
x_10 = lean_array_fget(x_2, x_3);
x_9 = lean_array_fget_borrowed(x_1, x_3);
x_10 = lean_array_fget_borrowed(x_2, x_3);
lean_inc(x_10);
lean_inc(x_9);
x_11 = l_Lean_Compiler_LCNF_UnreachableBranches_Value_merge(x_9, x_10);
x_12 = lean_unsigned_to_nat(1u);
x_13 = lean_nat_add(x_3, x_12);
@ -2940,7 +2946,8 @@ return x_6;
else
{
lean_object* x_7;
x_7 = lean_array_fget(x_3, x_2);
x_7 = lean_array_fget_borrowed(x_3, x_2);
lean_inc(x_7);
return x_7;
}
}
@ -3190,9 +3197,8 @@ else
{
lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23;
x_20 = lean_unsigned_to_nat(0u);
x_21 = lean_array_fget(x_8, x_20);
x_21 = lean_array_fget_borrowed(x_8, x_20);
x_22 = l___private_Lean_Compiler_LCNF_ElimDeadBranches_0__Lean_Compiler_LCNF_UnreachableBranches_Value_getLiteral_getNatConstant(x_21);
lean_dec(x_21);
x_23 = lean_nat_add(x_22, x_18);
lean_dec(x_22);
return x_23;
@ -5133,9 +5139,8 @@ return x_5;
else
{
lean_object* x_6; uint8_t x_7;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
x_7 = lean_name_eq(x_3, x_6);
lean_dec(x_6);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9;
@ -5349,9 +5354,11 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
lean_inc_ref(x_1);
lean_inc(x_9);
lean_inc(x_8);
x_10 = lean_apply_3(x_1, x_5, x_8, x_9);
x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_add(x_4, x_11);
@ -5592,9 +5599,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_name_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -5641,9 +5647,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_name_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -5712,8 +5717,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Name_hash___override(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -5724,6 +5729,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_UnreachableBranches_initFn____x40_Lean_Compiler_LCNF_ElimDeadBranches___hyg_2019__spec__10_spec__10___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -6594,9 +6601,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -6609,8 +6615,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;
@ -6802,7 +6809,7 @@ x_5 = lean_nat_add(x_3, x_4);
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_shiftr(x_5, x_6);
lean_dec(x_5);
x_8 = lean_array_fget(x_1, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = l___private_Init_Data_Array_QSort_Basic_0__Array_qsort_sort___at___Lean_Compiler_LCNF_UnreachableBranches_initFn____x40_Lean_Compiler_LCNF_ElimDeadBranches___hyg_2019__spec__9___redArg___lam__0(x_8, x_2);
if (x_9 == 0)
{
@ -6814,6 +6821,7 @@ if (x_10 == 0)
lean_object* x_11;
lean_dec(x_7);
lean_dec(x_3);
lean_inc_ref(x_8);
x_11 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_11, 0, x_8);
return x_11;
@ -6821,7 +6829,6 @@ return x_11;
else
{
lean_object* x_12; uint8_t x_13;
lean_dec_ref(x_8);
x_12 = lean_unsigned_to_nat(0u);
x_13 = lean_nat_dec_eq(x_7, x_12);
if (x_13 == 0)
@ -6857,7 +6864,6 @@ return x_18;
else
{
lean_object* x_19; uint8_t x_20;
lean_dec_ref(x_8);
lean_dec(x_3);
x_19 = lean_nat_add(x_7, x_6);
lean_dec(x_7);
@ -8838,9 +8844,8 @@ lean_inc(x_31);
x_32 = lean_ctor_get(x_30, 1);
lean_inc(x_32);
lean_dec_ref(x_30);
x_33 = lean_array_fget(x_19, x_20);
x_33 = lean_array_fget_borrowed(x_19, x_20);
x_34 = l_Lean_Compiler_LCNF_UnreachableBranches_findArgValue___redArg(x_33, x_5, x_6, x_32);
lean_dec(x_33);
x_35 = lean_ctor_get(x_34, 0);
lean_inc(x_35);
x_36 = lean_ctor_get(x_34, 1);
@ -8895,9 +8900,8 @@ lean_inc(x_48);
x_49 = lean_ctor_get(x_47, 1);
lean_inc(x_49);
lean_dec_ref(x_47);
x_50 = lean_array_fget(x_19, x_20);
x_50 = lean_array_fget_borrowed(x_19, x_20);
x_51 = l_Lean_Compiler_LCNF_UnreachableBranches_findArgValue___redArg(x_50, x_5, x_6, x_49);
lean_dec(x_50);
x_52 = lean_ctor_get(x_51, 0);
lean_inc(x_52);
x_53 = lean_ctor_get(x_51, 1);
@ -8993,9 +8997,8 @@ lean_inc(x_75);
x_76 = lean_ctor_get(x_74, 1);
lean_inc(x_76);
lean_dec_ref(x_74);
x_77 = lean_array_fget(x_65, x_66);
x_77 = lean_array_fget_borrowed(x_65, x_66);
x_78 = l_Lean_Compiler_LCNF_UnreachableBranches_findArgValue___redArg(x_77, x_5, x_6, x_76);
lean_dec(x_77);
x_79 = lean_ctor_get(x_78, 0);
lean_inc(x_79);
x_80 = lean_ctor_get(x_78, 1);
@ -9149,7 +9152,8 @@ _start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_array_fget(x_3, x_2);
x_4 = lean_array_fget_borrowed(x_3, x_2);
lean_inc_ref(x_4);
return x_4;
}
}
@ -12000,11 +12004,10 @@ LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at__
_start:
{
lean_object* x_13; lean_object* x_14; lean_object* x_21; uint8_t x_22;
x_21 = lean_array_fget(x_1, x_5);
x_21 = lean_array_fget_borrowed(x_1, x_5);
x_22 = lean_ctor_get_uint8(x_21, sizeof(void*)*6 + 1);
if (x_22 == 0)
{
lean_dec_ref(x_21);
lean_inc_ref(x_2);
x_13 = x_2;
x_14 = x_12;
@ -12014,10 +12017,7 @@ else
{
lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; uint8_t x_61;
x_23 = lean_ctor_get(x_21, 3);
lean_inc_ref(x_23);
x_24 = lean_ctor_get(x_21, 4);
lean_inc_ref(x_24);
lean_dec_ref(x_21);
x_25 = l_Lean_Compiler_LCNF_UnreachableBranches_getFunVal___redArg(x_5, x_7, x_12);
x_26 = lean_ctor_get(x_25, 0);
lean_inc(x_26);
@ -12043,7 +12043,6 @@ x_61 = lean_nat_dec_lt(x_52, x_53);
if (x_61 == 0)
{
lean_dec(x_53);
lean_dec_ref(x_23);
x_55 = x_27;
goto block_60;
}
@ -12054,7 +12053,6 @@ x_62 = lean_nat_dec_le(x_53, x_53);
if (x_62 == 0)
{
lean_dec(x_53);
lean_dec_ref(x_23);
x_55 = x_27;
goto block_60;
}
@ -12066,7 +12064,6 @@ x_64 = 0;
x_65 = lean_usize_of_nat(x_53);
lean_dec(x_53);
x_66 = l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_Compiler_LCNF_UnreachableBranches_interpCode_spec__0___redArg(x_23, x_64, x_65, x_63, x_54, x_7, x_27);
lean_dec_ref(x_23);
x_67 = lean_ctor_get(x_66, 1);
lean_inc(x_67);
lean_dec_ref(x_66);
@ -12191,7 +12188,6 @@ if (lean_obj_tag(x_24) == 0)
lean_object* x_56; lean_object* x_57;
x_56 = lean_ctor_get(x_24, 0);
lean_inc_ref(x_56);
lean_dec_ref(x_24);
x_57 = l_Lean_Compiler_LCNF_UnreachableBranches_interpCode(x_56, x_54, x_7, x_8, x_9, x_10, x_11, x_55);
x_29 = x_57;
goto block_50;
@ -12199,7 +12195,6 @@ goto block_50;
else
{
lean_object* x_58; lean_object* x_59;
lean_dec_ref(x_24);
x_58 = lean_box(1);
x_59 = l_Lean_Compiler_LCNF_UnreachableBranches_updateCurrFnSummary___redArg(x_58, x_54, x_7, x_11, x_55);
lean_dec_ref(x_54);
@ -16833,10 +16828,9 @@ else
lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_11; lean_object* x_12;
x_8 = lean_nat_sub(x_3, x_4);
lean_inc_ref(x_1);
x_9 = lean_array_get(x_1, x_2, x_8);
x_9 = lean_array_get_borrowed(x_1, x_2, x_8);
lean_dec(x_8);
x_10 = lean_ctor_get_uint8(x_9, sizeof(void*)*6 + 1);
lean_dec_ref(x_9);
x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_sub(x_4, x_11);
lean_dec(x_4);
@ -16885,16 +16879,16 @@ else
{
lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15;
x_9 = lean_nat_sub(x_4, x_5);
x_10 = lean_array_fget(x_1, x_9);
x_10 = lean_array_fget_borrowed(x_1, x_9);
x_11 = lean_ctor_get(x_10, 0);
lean_inc(x_11);
lean_dec_ref(x_10);
x_12 = lean_unsigned_to_nat(1u);
x_13 = lean_nat_sub(x_5, x_12);
lean_dec(x_5);
lean_inc(x_2);
x_14 = lean_array_get(x_2, x_3, x_9);
x_14 = lean_array_get_borrowed(x_2, x_3, x_9);
lean_dec(x_9);
lean_inc(x_14);
lean_inc(x_11);
x_15 = l_Lean_Compiler_LCNF_UnreachableBranches_addFunctionSummary(x_6, x_11, x_14);
x_5 = x_13;
x_6 = x_15;
@ -16933,13 +16927,14 @@ return x_15;
else
{
lean_object* x_16; uint8_t x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21;
x_16 = lean_array_fget(x_4, x_6);
x_16 = lean_array_fget_borrowed(x_4, x_6);
x_17 = lean_ctor_get_uint8(x_16, sizeof(void*)*6 + 1);
x_18 = lean_unsigned_to_nat(1u);
x_19 = lean_nat_sub(x_5, x_18);
lean_dec(x_5);
if (x_17 == 0)
{
lean_inc_ref(x_16);
x_20 = x_16;
x_21 = x_12;
goto block_25;
@ -16948,11 +16943,13 @@ else
{
lean_object* x_26; lean_object* x_27; lean_object* x_28;
x_26 = l_Std_HashMap_instInhabited(lean_box(0), lean_box(0), x_1, x_2);
x_27 = lean_array_get(x_26, x_3, x_6);
x_27 = lean_array_get_borrowed(x_26, x_3, x_6);
lean_inc(x_11);
lean_inc_ref(x_10);
lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc_ref(x_16);
lean_inc_ref(x_27);
x_28 = l_Lean_Compiler_LCNF_UnreachableBranches_elimDead(x_27, x_16, x_8, x_9, x_10, x_11, x_12);
if (lean_obj_tag(x_28) == 0)
{

25
stage0/stdlib/Lean/Compiler/LCNF/FixedParams.c generated
View file

@ -35,6 +35,7 @@ lean_object* lean_mk_array(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_FixedParams_inMutualBlock(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at_____private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_FixedParams_evalApp_spec__9_spec__9___redArg(lean_object*, lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_Compiler_LCNF_FixedParams_evalCode_spec__0(lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_FixedParams_instBEqAbsValue;
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_foldlM___at___Std_DHashMap_Internal_AssocList_foldlM___at_____private_Std_Data_DHashMap_Internal_Defs_0__Std_DHashMap_Internal_Raw_u2080_expand_go___at___Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_Compiler_LCNF_FixedParams_evalApp_spec__3_spec__3_spec__4_spec__4___redArg(lean_object*, lean_object*);
@ -96,6 +97,7 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_FixedParams_abort___redArg(lean_ob
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_mkFixedParamsMap_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*);
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_FixedParams_evalApp_spec__13(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_FixedParams_instBEqAbsValue___closed__0;
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_FixedParams_evalApp___closed__0;
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_FixedParams_evalFVar(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_FixedParams_evalApp_spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -152,7 +154,6 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_FixedParams_evalArg___boxed(lean_o
lean_object* lean_array_get_size(lean_object*);
lean_object* l_Id_instMonad___lam__0(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Init_Data_Range_Basic_0__Std_Range_forIn_x27_loop___at___Lean_Compiler_LCNF_FixedParams_isEquivalentFunDecl_x3f_spec__0___redArg___closed__0;
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
uint8_t lean_usize_dec_lt(size_t, size_t);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_FixedParams_mkAssignment(lean_object*, lean_object*);
@ -1017,12 +1018,11 @@ else
{
lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24;
lean_dec_ref(x_8);
x_20 = lean_array_fget(x_2, x_9);
x_20 = lean_array_fget_borrowed(x_2, x_9);
x_21 = lean_ctor_get(x_20, 0);
lean_inc(x_21);
lean_dec_ref(x_20);
lean_inc(x_3);
x_22 = lean_array_get(x_3, x_4, x_9);
x_22 = lean_array_get_borrowed(x_3, x_4, x_9);
lean_inc(x_21);
x_23 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_23, 0, x_21);
x_24 = l_Lean_Compiler_LCNF_beqArg____x40_Lean_Compiler_LCNF_Basic___hyg_792_(x_22, x_23);
@ -1031,7 +1031,6 @@ if (x_24 == 0)
{
if (x_5 == 0)
{
lean_dec(x_22);
lean_inc_ref(x_1);
x_13 = x_1;
x_14 = x_10;
@ -1042,7 +1041,6 @@ else
lean_object* x_25; uint8_t x_26;
x_25 = lean_box(0);
x_26 = l_Lean_Compiler_LCNF_beqArg____x40_Lean_Compiler_LCNF_Basic___hyg_792_(x_22, x_25);
lean_dec(x_22);
if (x_26 == 0)
{
lean_object* x_27; lean_object* x_28; lean_object* x_29;
@ -1069,7 +1067,6 @@ goto block_17;
}
else
{
lean_dec(x_22);
lean_inc_ref(x_1);
x_13 = x_1;
x_14 = x_10;
@ -1888,11 +1885,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = l_Lean_Compiler_LCNF_FixedParams_beqAbsValue____x40_Lean_Compiler_LCNF_FixedParams___hyg_32_(x_8, x_9);
lean_dec(x_9);
lean_dec(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -2287,9 +2282,8 @@ goto block_14;
else
{
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23;
x_19 = lean_array_fget(x_1, x_4);
x_19 = lean_array_fget_borrowed(x_1, x_4);
x_20 = l_Lean_Compiler_LCNF_FixedParams_evalArg(x_19, x_5, x_6);
lean_dec(x_19);
x_21 = lean_ctor_get(x_20, 0);
lean_inc(x_21);
x_22 = lean_ctor_get(x_20, 1);
@ -3302,9 +3296,8 @@ goto block_14;
else
{
lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31;
x_26 = lean_array_fget(x_1, x_4);
x_26 = lean_array_fget_borrowed(x_1, x_4);
x_27 = l_Lean_Compiler_LCNF_FixedParams_evalArg(x_26, x_5, x_6);
lean_dec(x_26);
x_28 = lean_ctor_get(x_27, 0);
lean_inc(x_28);
x_29 = lean_ctor_get(x_27, 1);

12
stage0/stdlib/Lean/Compiler/LCNF/InferType.c generated
View file

@ -74,6 +74,7 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_InferType_inferType(lean_object*,
lean_object* l_Lean_Compiler_LCNF_mkFunDecl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_InferType_inferConstType___redArg___closed__0;
lean_object* l_Lean_Compiler_LCNF_getBinderName___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_mkCasesResultType___lam__2(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Nat_Control_0__Nat_foldRevM_loop___at___Lean_Compiler_LCNF_InferType_mkForallFVars_spec__0___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_throwError___at___Lean_Compiler_LCNF_getLevel_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -196,6 +197,7 @@ LEAN_EXPORT lean_object* l_List_isEqv___at___Lean_Compiler_LCNF_eqvTypes_spec__0
static lean_object* l_Lean_Compiler_LCNF_InferType_inferType___closed__0;
static lean_object* l_Lean_Compiler_LCNF_mkCasesResultType___closed__13;
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_InferType_inferConstType___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Expr_isErased(lean_object*);
lean_object* l_Lean_LocalContext_mkLocalDecl(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, uint8_t);
lean_object* l_Lean_MessageData_ofConstName(lean_object*, uint8_t);
@ -221,7 +223,6 @@ static lean_object* l_Lean_Compiler_LCNF_mkCasesResultType___closed__5;
static lean_object* l_Lean_Compiler_LCNF_InferType_withLocalDecl___redArg___closed__3;
static lean_object* l___private_Lean_Compiler_LCNF_InferType_0__Lean_Compiler_LCNF_isErasedCompatible_go___closed__1;
static lean_object* l_Lean_Compiler_LCNF_InferType_inferLitValueType___closed__5;
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_InferType_inferArgType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Id_instMonad___lam__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_eqvTypes___boxed(lean_object*, lean_object*);
@ -474,9 +475,8 @@ lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean
x_13 = lean_unsigned_to_nat(1u);
x_14 = lean_nat_sub(x_2, x_13);
lean_dec(x_2);
x_15 = lean_array_fget(x_1, x_14);
x_15 = lean_array_fget_borrowed(x_1, x_14);
x_16 = l_Lean_Expr_fvarId_x21(x_15);
lean_dec_ref(x_15);
lean_inc_ref(x_4);
lean_inc(x_16);
x_17 = l_Lean_Compiler_LCNF_InferType_getBinderName___redArg(x_16, x_4, x_6, x_7, x_8, x_9);
@ -8207,7 +8207,8 @@ _start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_array_fget(x_3, x_2);
x_4 = lean_array_fget_borrowed(x_3, x_2);
lean_inc_ref(x_4);
return x_4;
}
}
@ -8377,7 +8378,8 @@ if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_10 = lean_unsigned_to_nat(0u);
x_11 = lean_array_get(x_8, x_1, x_10);
x_11 = lean_array_get_borrowed(x_8, x_1, x_10);
lean_inc_ref(x_11);
x_12 = l_Lean_Compiler_LCNF_Alt_inferType(x_11, x_2, x_3, x_4, x_5, x_6);
if (lean_obj_tag(x_12) == 0)
{

36
stage0/stdlib/Lean/Compiler/LCNF/LambdaLifting.c generated
View file

@ -49,6 +49,7 @@ lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Std_DTreeMap_Internal_Impl_contains___at___Lean_Compiler_LCNF_LambdaLifting_visitCode_spec__0___redArg(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_LCNF_isArrowClass_x3f___redArg(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_LambdaLifting_0__Lean_Compiler_LCNF_initFn___closed__17____x40_Lean_Compiler_LCNF_LambdaLifting___hyg_1696_;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_contains___at___Lean_Compiler_LCNF_LambdaLifting_visitCode_spec__0___redArg___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_BasicAux_0__mapMonoMImp_go___at___Lean_Compiler_LCNF_LambdaLifting_visitCode_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_Compiler_LCNF_lambdaLifting_spec__0___closed__1;
@ -106,7 +107,6 @@ lean_object* lean_name_append_index_after(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_LambdaLifting_0__Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_LambdaLifting___hyg_1696_(lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_LambdaLifting_0__Lean_Compiler_LCNF_initFn___closed__9____x40_Lean_Compiler_LCNF_LambdaLifting___hyg_1696_;
lean_object* l_Lean_FVarIdSet_insert(lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_anyMUnsafe_any___at___Lean_Compiler_LCNF_LambdaLifting_hasInstParam_spec__0___redArg(lean_object*, size_t, size_t, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_LambdaLifting_mkAuxDeclName___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_LambdaLifting_0__Lean_Compiler_LCNF_initFn___closed__16____x40_Lean_Compiler_LCNF_LambdaLifting___hyg_1696_;
@ -1893,14 +1893,12 @@ return x_13;
else
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_28; lean_object* x_29;
x_14 = lean_array_fget(x_2, x_1);
x_14 = lean_array_fget_borrowed(x_2, x_1);
if (lean_obj_tag(x_14) == 0)
{
lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36;
x_32 = lean_ctor_get(x_14, 1);
lean_inc_ref(x_32);
x_33 = lean_ctor_get(x_14, 2);
lean_inc_ref(x_33);
x_34 = lean_unsigned_to_nat(0u);
x_35 = lean_array_get_size(x_32);
x_36 = lean_nat_dec_lt(x_34, x_35);
@ -1908,13 +1906,13 @@ if (x_36 == 0)
{
lean_object* x_37;
lean_dec(x_35);
lean_dec_ref(x_32);
lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc(x_5);
lean_inc_ref(x_3);
lean_inc_ref(x_33);
x_37 = l_Lean_Compiler_LCNF_LambdaLifting_visitCode(x_33, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_37) == 0)
{
@ -1933,7 +1931,6 @@ goto block_27;
else
{
uint8_t x_41;
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -1970,13 +1967,13 @@ if (x_45 == 0)
{
lean_object* x_46;
lean_dec(x_35);
lean_dec_ref(x_32);
lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc(x_5);
lean_inc_ref(x_3);
lean_inc_ref(x_33);
x_46 = l_Lean_Compiler_LCNF_LambdaLifting_visitCode(x_33, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_46) == 0)
{
@ -1993,7 +1990,6 @@ goto block_31;
else
{
uint8_t x_49;
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -2030,12 +2026,12 @@ x_54 = lean_usize_of_nat(x_35);
lean_dec(x_35);
lean_inc(x_5);
x_55 = l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_Compiler_LCNF_LambdaLifting_visitFunDecl_spec__0(x_32, x_53, x_54, x_5);
lean_dec_ref(x_32);
lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc_ref(x_3);
lean_inc_ref(x_33);
x_56 = l_Lean_Compiler_LCNF_LambdaLifting_visitCode(x_33, x_3, x_4, x_55, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_56) == 0)
{
@ -2052,7 +2048,6 @@ goto block_31;
else
{
uint8_t x_59;
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -2087,13 +2082,13 @@ else
{
lean_object* x_63; lean_object* x_64;
x_63 = lean_ctor_get(x_14, 0);
lean_inc_ref(x_63);
lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc(x_5);
lean_inc_ref(x_3);
lean_inc_ref(x_63);
x_64 = l_Lean_Compiler_LCNF_LambdaLifting_visitCode(x_63, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_64) == 0)
{
@ -2112,7 +2107,6 @@ goto block_27;
else
{
uint8_t x_68;
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -2145,7 +2139,6 @@ block_27:
{
size_t x_17; size_t x_18; uint8_t x_19;
x_17 = lean_ptr_addr(x_14);
lean_dec_ref(x_14);
x_18 = lean_ptr_addr(x_15);
x_19 = lean_usize_dec_eq(x_17, x_18);
if (x_19 == 0)
@ -2208,14 +2201,12 @@ return x_13;
else
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_28; lean_object* x_29;
x_14 = lean_array_fget(x_2, x_1);
x_14 = lean_array_fget_borrowed(x_2, x_1);
if (lean_obj_tag(x_14) == 0)
{
lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36;
x_32 = lean_ctor_get(x_14, 1);
lean_inc_ref(x_32);
x_33 = lean_ctor_get(x_14, 2);
lean_inc_ref(x_33);
x_34 = lean_unsigned_to_nat(0u);
x_35 = lean_array_get_size(x_32);
x_36 = lean_nat_dec_lt(x_34, x_35);
@ -2223,13 +2214,13 @@ if (x_36 == 0)
{
lean_object* x_37;
lean_dec(x_35);
lean_dec_ref(x_32);
lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc(x_5);
lean_inc_ref(x_3);
lean_inc_ref(x_33);
x_37 = l_Lean_Compiler_LCNF_LambdaLifting_visitCode(x_33, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_37) == 0)
{
@ -2248,7 +2239,6 @@ goto block_27;
else
{
uint8_t x_41;
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -2284,13 +2274,13 @@ if (x_45 == 0)
{
lean_object* x_46;
lean_dec(x_35);
lean_dec_ref(x_32);
lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc(x_5);
lean_inc_ref(x_3);
lean_inc_ref(x_33);
x_46 = l_Lean_Compiler_LCNF_LambdaLifting_visitCode(x_33, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_46) == 0)
{
@ -2307,7 +2297,6 @@ goto block_31;
else
{
uint8_t x_49;
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -2343,12 +2332,12 @@ x_54 = lean_usize_of_nat(x_35);
lean_dec(x_35);
lean_inc(x_5);
x_55 = l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_Compiler_LCNF_LambdaLifting_visitFunDecl_spec__0(x_32, x_53, x_54, x_5);
lean_dec_ref(x_32);
lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc_ref(x_3);
lean_inc_ref(x_33);
x_56 = l_Lean_Compiler_LCNF_LambdaLifting_visitCode(x_33, x_3, x_4, x_55, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_56) == 0)
{
@ -2365,7 +2354,6 @@ goto block_31;
else
{
uint8_t x_59;
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -2399,13 +2387,13 @@ else
{
lean_object* x_63; lean_object* x_64;
x_63 = lean_ctor_get(x_14, 0);
lean_inc_ref(x_63);
lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc(x_5);
lean_inc_ref(x_3);
lean_inc_ref(x_63);
x_64 = l_Lean_Compiler_LCNF_LambdaLifting_visitCode(x_63, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_64) == 0)
{
@ -2424,7 +2412,6 @@ goto block_27;
else
{
uint8_t x_68;
lean_dec_ref(x_14);
lean_dec(x_9);
lean_dec_ref(x_8);
lean_dec(x_7);
@ -2456,7 +2443,6 @@ block_27:
{
size_t x_17; size_t x_18; uint8_t x_19;
x_17 = lean_ptr_addr(x_14);
lean_dec_ref(x_14);
x_18 = lean_ptr_addr(x_15);
x_19 = lean_usize_dec_eq(x_17, x_18);
if (x_19 == 0)

8
stage0/stdlib/Lean/Compiler/LCNF/Main.c generated
View file

@ -85,6 +85,7 @@ static lean_object* l_Lean_Compiler_LCNF_PassManager_run___closed__6;
static lean_object* l___private_Lean_Compiler_LCNF_Main_0__Lean_Compiler_LCNF_initFn___closed__17____x40_Lean_Compiler_LCNF_Main___hyg_2652_;
LEAN_EXPORT lean_object* l_Lean_profileitM___at___Lean_Compiler_LCNF_PassManager_run_spec__10___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_ConstantInfo_hasValue(lean_object*, uint8_t);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static double l_Lean_withTraceNode___at___Lean_Compiler_LCNF_PassManager_run_spec__4___redArg___closed__5;
static lean_object* l_Lean_mkUnknownIdentifierMessage___at___Lean_throwUnknownIdentifierAt___at___Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at_____private_Lean_Compiler_LCNF_Main_0__Lean_Compiler_LCNF_shouldGenerateCode_isCompIrrelevant_spec__0_spec__0_spec__0_spec__0_spec__0___lam__0___closed__0;
static lean_object* l_Lean_mkUnknownIdentifierMessage___at___Lean_throwUnknownIdentifierAt___at___Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at_____private_Lean_Compiler_LCNF_Main_0__Lean_Compiler_LCNF_shouldGenerateCode_isCompIrrelevant_spec__0_spec__0_spec__0_spec__0_spec__0___closed__2;
@ -274,7 +275,6 @@ static lean_object* l___private_Lean_Compiler_LCNF_Main_0__Lean_Compiler_LCNF_in
lean_object* l_Lean_Compiler_LCNF_getDeclAt_x3f___redArg(lean_object*, uint8_t, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_Main_0__Lean_Compiler_LCNF_initFn___closed__28____x40_Lean_Compiler_LCNF_Main___hyg_2652_;
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_get_x3f___at___Lean_SMap_find_x3f___at___Lean_Compiler_LCNF_shouldGenerateCode_spec__0_spec__3(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_LCNF_normalizeFVarIds(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_isValidMainType___closed__1;
static lean_object* l_Lean_Compiler_LCNF_shouldGenerateCode___closed__6;
@ -1427,9 +1427,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -1442,8 +1441,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;

24
stage0/stdlib/Lean/Compiler/LCNF/MonoTypes.c generated
View file

@ -82,6 +82,7 @@ LEAN_EXPORT lean_object* l_Lean_throwErrorAt___at___Lean_throwUnknownIdentifierA
LEAN_EXPORT lean_object* l_Lean_throwError___at___Lean_throwErrorAt___at___Lean_throwUnknownIdentifierAt___at___Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_getRelevantCtorFields_spec__0_spec__0_spec__0_spec__0_spec__1_spec__1___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_insertAtCollisionNode___at___Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_CacheExtension_register___at___Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_MonoTypes___hyg_336__spec__0_spec__0_spec__0_spec__0(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_getRelevantCtorFields_spec__0_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lean_mkUnknownIdentifierMessage___at___Lean_throwUnknownIdentifierAt___at___Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_getRelevantCtorFields_spec__0_spec__0_spec__0_spec__0_spec__0___closed__3;
LEAN_EXPORT lean_object* l_Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_getRelevantCtorFields_spec__0_spec__0___redArg(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_getRelevantCtorFields___closed__7;
@ -1296,7 +1297,8 @@ _start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_array_fget(x_3, x_2);
x_4 = lean_array_fget_borrowed(x_3, x_2);
lean_inc_ref(x_4);
return x_4;
}
}
@ -2334,9 +2336,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_name_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -2383,9 +2384,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_name_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -2454,8 +2454,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Name_hash___override(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -2466,6 +2466,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_CacheExtension_register___at___Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_MonoTypes___hyg_336__spec__0_spec__0_spec__0___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -2809,9 +2811,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -2824,8 +2825,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;
@ -3619,7 +3621,7 @@ if (lean_is_exclusive(x_8)) {
lean_dec_ref(x_8);
x_20 = lean_box(0);
}
x_30 = lean_array_fget(x_5, x_9);
x_30 = lean_array_fget_borrowed(x_5, x_9);
x_31 = lean_unbox(x_30);
if (x_31 == 0)
{

7
stage0/stdlib/Lean/Compiler/LCNF/PassManager.c generated
View file

@ -56,6 +56,7 @@ static lean_object* l_Lean_Compiler_LCNF_Pass_phaseInv___autoParam___closed__28;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at_____private_Lean_Compiler_LCNF_PassManager_0__Lean_Compiler_LCNF_PassManager_validatePasses_spec__2(uint8_t, lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PassInstaller_withEachOccurrence___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PassInstaller_installAfter___lam__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_Pass_phaseInv___autoParam___closed__10;
static lean_object* l_Lean_Compiler_LCNF_PassInstaller_installAfter___lam__1___closed__1;
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PassInstaller_installBeforeEachOccurrence___boxed(lean_object*, lean_object*, lean_object*);
@ -3030,10 +3031,11 @@ lean_dec(x_2);
x_27 = lean_ctor_get(x_10, 0);
lean_inc(x_27);
lean_dec_ref(x_10);
x_28 = lean_array_fget(x_5, x_27);
x_28 = lean_array_fget_borrowed(x_5, x_27);
x_29 = lean_unsigned_to_nat(1u);
x_30 = lean_nat_add(x_27, x_29);
lean_dec(x_27);
lean_inc_ref(x_28);
x_31 = lean_apply_1(x_4, x_28);
x_32 = lean_array_get_size(x_5);
x_33 = lean_array_push(x_5, x_31);
@ -3177,7 +3179,8 @@ lean_dec(x_2);
x_27 = lean_ctor_get(x_10, 0);
lean_inc(x_27);
lean_dec_ref(x_10);
x_28 = lean_array_fget(x_5, x_27);
x_28 = lean_array_fget_borrowed(x_5, x_27);
lean_inc_ref(x_28);
x_29 = lean_apply_1(x_4, x_28);
x_30 = lean_array_get_size(x_5);
x_31 = lean_array_push(x_5, x_29);

39
stage0/stdlib/Lean/Compiler/LCNF/PhaseExt.c generated
View file

@ -85,6 +85,7 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_P
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_PhaseExt_0__Lean_Compiler_LCNF_mkDeclSetExt___lam__1(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_foldl___at_____private_Lean_Compiler_LCNF_PhaseExt_0__Lean_Compiler_LCNF_sortedDecls_spec__0___redArg(lean_object*, lean_object*, lean_object*);
static lean_object* l___auto___closed__28____x40_Lean_Compiler_LCNF_PhaseExt___hyg_571_;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Array_binSearchAux___at___Lean_Compiler_LCNF_getDeclCore_x3f_spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_containsAtAux___at___Lean_PersistentHashMap_containsAux___at___Lean_PersistentHashMap_contains___at___Lean_Compiler_LCNF_mkDeclExt_spec__7_spec__7_spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_getDeclAt_x3f___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -1069,9 +1070,11 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
lean_inc_ref(x_1);
lean_inc(x_9);
lean_inc(x_8);
x_10 = lean_apply_3(x_1, x_5, x_8, x_9);
x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_add(x_4, x_11);
@ -2141,9 +2144,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_name_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -2190,9 +2192,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_name_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -2261,8 +2262,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Name_hash___override(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -2273,6 +2274,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_mkDeclExt_spec__2_spec__2___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -2614,9 +2617,8 @@ return x_5;
else
{
lean_object* x_6; uint8_t x_7;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
x_7 = lean_name_eq(x_3, x_6);
lean_dec(x_6);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9;
@ -3220,9 +3222,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -3235,8 +3236,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;
@ -3428,7 +3430,7 @@ x_5 = lean_nat_add(x_3, x_4);
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_shiftr(x_5, x_6);
lean_dec(x_5);
x_8 = lean_array_fget(x_1, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = l___private_Init_Data_Array_QSort_Basic_0__Array_qsort_sort___at_____private_Lean_Compiler_LCNF_PhaseExt_0__Lean_Compiler_LCNF_sortedDecls_spec__5___redArg___lam__0(x_8, x_2);
if (x_9 == 0)
{
@ -3440,6 +3442,7 @@ if (x_10 == 0)
lean_object* x_11;
lean_dec(x_7);
lean_dec(x_3);
lean_inc_ref(x_8);
x_11 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_11, 0, x_8);
return x_11;
@ -3447,7 +3450,6 @@ return x_11;
else
{
lean_object* x_12; uint8_t x_13;
lean_dec_ref(x_8);
x_12 = lean_unsigned_to_nat(0u);
x_13 = lean_nat_dec_eq(x_7, x_12);
if (x_13 == 0)
@ -3483,7 +3485,6 @@ return x_18;
else
{
lean_object* x_19; uint8_t x_20;
lean_dec_ref(x_8);
lean_dec(x_3);
x_19 = lean_nat_add(x_7, x_6);
lean_dec(x_7);
@ -4717,11 +4718,13 @@ return x_11;
else
{
lean_object* x_12; lean_object* x_13; lean_object* x_14;
x_12 = lean_array_fget(x_2, x_4);
x_13 = lean_array_fget(x_3, x_4);
x_12 = lean_array_fget_borrowed(x_2, x_4);
x_13 = lean_array_fget_borrowed(x_3, x_4);
lean_inc_ref(x_1);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc(x_13);
lean_inc(x_12);
x_14 = lean_apply_6(x_1, x_5, x_12, x_13, x_6, x_7, x_8);
if (lean_obj_tag(x_14) == 0)
{

8
stage0/stdlib/Lean/Compiler/LCNF/PrettyPrinter.c generated
View file

@ -65,6 +65,7 @@ static lean_object* l_Std_Iterators_IterM_DefaultConsumers_forIn_x27___at_____pr
lean_object* l_Lean_Compiler_LCNF_getBinderName___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_PP_ppDeclValue___closed__0;
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PP_ppArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_PP_ppAlt___closed__3;
static lean_object* l_Lean_Compiler_LCNF_PP_ppArg___redArg___closed__0;
static lean_object* l_Lean_Compiler_LCNF_PP_ppCode___closed__14;
@ -168,7 +169,6 @@ static lean_object* l_Lean_Compiler_LCNF_PP_ppLetValue___closed__1;
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PP_ppParams(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_ppDecl___lam__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_PrettyPrinter_0__Lean_Compiler_LCNF_PP_join___redArg___closed__5;
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_ppCode_x27(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Id_instMonad___lam__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_runCompilerWithoutModifyingState___redArg___closed__1;
@ -505,7 +505,8 @@ _start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_array_fget(x_3, x_2);
x_4 = lean_array_fget_borrowed(x_3, x_2);
lean_inc(x_4);
return x_4;
}
}
@ -674,13 +675,14 @@ return x_13;
else
{
lean_object* x_14; lean_object* x_15;
x_14 = lean_array_fget(x_1, x_9);
x_14 = lean_array_fget_borrowed(x_1, x_9);
lean_inc_ref(x_2);
lean_inc(x_7);
lean_inc_ref(x_6);
lean_inc(x_5);
lean_inc_ref(x_4);
lean_inc_ref(x_3);
lean_inc(x_14);
x_15 = lean_apply_7(x_2, x_14, x_3, x_4, x_5, x_6, x_7, x_8);
if (lean_obj_tag(x_15) == 0)
{

31
stage0/stdlib/Lean/Compiler/LCNF/PullFunDecls.c generated
View file

@ -46,6 +46,7 @@ LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Com
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PullFunDecls_attachFVarDeps___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PullFunDecls_findFVarDirectDeps___redArg___lam__0___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PullFunDecls_attachParamsDeps(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_List_filterTR_loop___at___Lean_Compiler_LCNF_PullFunDecls_attachJps_spec__1(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_BasicAux_0__mapMonoMImp_go___at___Lean_Compiler_LCNF_PullFunDecls_pull_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Compiler_LCNF_initFn___closed__10____x40_Lean_Compiler_LCNF_PullFunDecls___hyg_1802_;
@ -105,6 +106,7 @@ LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Com
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PullFunDecls_findFVarDepsFixpoint___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_appendTR___redArg(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_DeclValue_mapCodeM___at___Lean_Compiler_LCNF_Decl_pullFunDecls_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Compiler_LCNF_PullFunDecls_attach_visit_spec__0_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_pullFunDecls___closed__3;
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Compiler_LCNF_PullFunDecls_attach_visit_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -113,7 +115,6 @@ lean_object* l_Lean_Compiler_LCNF_FunDecl_collectUsed(lean_object*, lean_object*
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Compiler_LCNF_PullFunDecls_attach_visit___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PullFunDecls_ToPull_attach___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_pullFunDecls;
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PullFunDecls_findFVarDirectDeps___redArg(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_List_filterTR_loop___at___Lean_Compiler_LCNF_PullFunDecls_attachJps_spec__0(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Compiler_LCNF_initFn___closed__5____x40_Lean_Compiler_LCNF_PullFunDecls___hyg_1802_;
@ -155,7 +156,6 @@ static lean_object* l___private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Compiler
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Compiler_LCNF_PullFunDecls_attach_visit_spec__0___redArg(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_PullFunDecls_findParamsDeps_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
uint8_t lean_usize_dec_lt(size_t, size_t);
static lean_object* l___private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Compiler_LCNF_initFn___closed__13____x40_Lean_Compiler_LCNF_PullFunDecls___hyg_1802_;
static lean_object* l_Lean_Compiler_LCNF_pullFunDecls___closed__1;
@ -922,7 +922,7 @@ lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7;
x_3 = lean_ctor_get(x_2, 1);
x_4 = 0;
x_5 = lean_box(x_4);
x_6 = lean_array_get(x_5, x_3, x_1);
x_6 = lean_array_get_borrowed(x_5, x_3, x_1);
x_7 = lean_unbox(x_6);
x_8 = lean_box(x_7);
x_9 = lean_alloc_ctor(0, 2, 0);
@ -955,14 +955,10 @@ lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean
x_18 = lean_ctor_get(x_15, 1);
lean_inc(x_18);
lean_dec_ref(x_15);
x_19 = lean_array_fget(x_1, x_5);
x_19 = lean_array_fget_borrowed(x_1, x_5);
x_20 = lean_ctor_get(x_19, 1);
lean_inc_ref(x_20);
lean_dec_ref(x_19);
x_21 = lean_ctor_get(x_2, 0);
x_22 = lean_ctor_get(x_20, 1);
lean_inc_ref(x_22);
lean_dec_ref(x_20);
x_23 = lean_ctor_get(x_21, 0);
x_24 = lean_array_get_size(x_22);
x_25 = l_Lean_hashFVarId____x40_Lean_Expr___hyg_1560_(x_23);
@ -979,7 +975,6 @@ x_34 = 1;
x_35 = lean_usize_sub(x_33, x_34);
x_36 = lean_usize_land(x_32, x_35);
x_37 = lean_array_uget(x_22, x_36);
lean_dec_ref(x_22);
x_38 = l_Std_DHashMap_Internal_AssocList_contains___at_____private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Compiler_LCNF_PullFunDecls_findFVarDirectDeps_go_spec__0___redArg(x_23, x_37);
lean_dec(x_37);
if (x_38 == 0)
@ -1058,14 +1053,10 @@ lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean
x_20 = lean_ctor_get(x_17, 1);
lean_inc(x_20);
lean_dec_ref(x_17);
x_21 = lean_array_fget(x_1, x_7);
x_21 = lean_array_fget_borrowed(x_1, x_7);
x_22 = lean_ctor_get(x_21, 1);
lean_inc_ref(x_22);
lean_dec_ref(x_21);
x_23 = lean_ctor_get(x_2, 0);
x_24 = lean_ctor_get(x_22, 1);
lean_inc_ref(x_24);
lean_dec_ref(x_22);
x_25 = lean_ctor_get(x_23, 0);
x_26 = lean_array_get_size(x_24);
x_27 = l_Lean_hashFVarId____x40_Lean_Expr___hyg_1560_(x_25);
@ -1082,7 +1073,6 @@ x_36 = 1;
x_37 = lean_usize_sub(x_35, x_36);
x_38 = lean_usize_land(x_34, x_37);
x_39 = lean_array_uget(x_24, x_38);
lean_dec_ref(x_24);
x_40 = l_Std_DHashMap_Internal_AssocList_contains___at_____private_Lean_Compiler_LCNF_PullFunDecls_0__Lean_Compiler_LCNF_PullFunDecls_findFVarDirectDeps_go_spec__0___redArg(x_25, x_39);
lean_dec(x_39);
if (x_40 == 0)
@ -1185,7 +1175,7 @@ x_14 = lean_unsigned_to_nat(0u);
x_15 = 1;
x_16 = lean_box(x_15);
x_17 = lean_array_set(x_10, x_2, x_16);
x_18 = lean_array_get(x_12, x_1, x_2);
x_18 = lean_array_get_borrowed(x_12, x_1, x_2);
x_26 = lean_nat_dec_lt(x_14, x_13);
if (x_26 == 0)
{
@ -1221,7 +1211,6 @@ block_25:
lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24;
x_21 = lean_box(0);
x_22 = l_Lean_Compiler_LCNF_PullFunDecls_ToPull_attach(x_18, x_19);
lean_dec_ref(x_18);
if (lean_is_scalar(x_11)) {
x_23 = lean_alloc_ctor(0, 2, 0);
} else {
@ -2063,12 +2052,11 @@ return x_11;
else
{
lean_object* x_12; lean_object* x_13; lean_object* x_14;
x_12 = lean_array_fget(x_2, x_1);
x_12 = lean_array_fget_borrowed(x_2, x_1);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_26; lean_object* x_27; lean_object* x_28;
x_26 = lean_ctor_get(x_12, 1);
lean_inc_ref(x_26);
x_27 = lean_ctor_get(x_12, 2);
lean_inc_ref(x_27);
x_28 = l_Lean_Compiler_LCNF_PullFunDecls_pull(x_27, x_3, x_4, x_5, x_6, x_7, x_8);
@ -2081,7 +2069,6 @@ x_30 = lean_ctor_get(x_28, 1);
lean_inc(x_30);
lean_dec_ref(x_28);
x_31 = l_Lean_Compiler_LCNF_PullFunDecls_attachParamsDeps(x_26, x_29, x_3, x_4, x_5, x_6, x_7, x_30);
lean_dec_ref(x_26);
x_32 = lean_ctor_get(x_31, 0);
lean_inc(x_32);
x_33 = lean_ctor_get(x_31, 1);
@ -2096,8 +2083,6 @@ goto block_25;
else
{
uint8_t x_35;
lean_dec_ref(x_26);
lean_dec_ref(x_12);
lean_dec_ref(x_2);
lean_dec(x_1);
x_35 = !lean_is_exclusive(x_28);
@ -2143,7 +2128,6 @@ goto block_25;
else
{
uint8_t x_44;
lean_dec_ref(x_12);
lean_dec_ref(x_2);
lean_dec(x_1);
x_44 = !lean_is_exclusive(x_40);
@ -2170,7 +2154,6 @@ block_25:
{
size_t x_15; size_t x_16; uint8_t x_17;
x_15 = lean_ptr_addr(x_12);
lean_dec_ref(x_12);
x_16 = lean_ptr_addr(x_13);
x_17 = lean_usize_dec_eq(x_15, x_16);
if (x_17 == 0)

13
stage0/stdlib/Lean/Compiler/LCNF/PullLetDecls.c generated
View file

@ -36,6 +36,7 @@ uint8_t lean_usize_dec_eq(size_t, size_t);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_PullLetDecls_0__Lean_Compiler_LCNF_initFn___closed__7____x40_Lean_Compiler_LCNF_PullLetDecls___hyg_1529_;
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_PullLetDecls_withParams___redArg___lam__0(lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_PullLetDecls_withParams___redArg___closed__8;
static lean_object* l_Lean_Compiler_LCNF_PullLetDecls_withParams___redArg___closed__7;
lean_object* l_Id_instMonad___lam__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -95,7 +96,6 @@ static lean_object* l___private_Lean_Compiler_LCNF_PullLetDecls_0__Lean_Compiler
LEAN_EXPORT uint8_t l_Std_DTreeMap_Internal_Impl_contains___at___Lean_Compiler_LCNF_Decl_pullInstances_spec__0(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_FVarIdSet_insert(lean_object*, lean_object*);
uint8_t l_Lean_Compiler_LCNF_beqArg____x40_Lean_Compiler_LCNF_Basic___hyg_792_(lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_PullLetDecls_withParams___redArg___closed__0;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_anyMUnsafe_any___at___Lean_Compiler_LCNF_Decl_pullInstances_spec__1___boxed(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_PullLetDecls_pullDecls___lam__0___closed__2;
@ -545,11 +545,12 @@ return x_8;
else
{
lean_object* x_9; uint8_t x_10;
x_9 = lean_array_fget(x_2, x_3);
x_9 = lean_array_fget_borrowed(x_2, x_3);
x_10 = l___private_Lean_Compiler_LCNF_DependsOn_0__Lean_Compiler_LCNF_LetDecl_depOn(x_9, x_4);
if (x_10 == 0)
{
lean_object* x_11; lean_object* x_12; lean_object* x_13;
lean_inc_ref(x_9);
x_11 = lean_array_push(x_5, x_9);
x_12 = lean_unsigned_to_nat(1u);
x_13 = lean_nat_add(x_3, x_12);
@ -562,10 +563,10 @@ else
{
lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20;
x_15 = lean_ctor_get(x_9, 0);
lean_inc(x_15);
x_16 = lean_unsigned_to_nat(1u);
x_17 = lean_nat_add(x_3, x_16);
lean_dec(x_3);
lean_inc(x_15);
x_18 = l_Lean_FVarIdSet_insert(x_4, x_15);
x_19 = l___private_Lean_Compiler_LCNF_PullLetDecls_0__Lean_Compiler_LCNF_PullLetDecls_withCheckpoint_go(x_1, x_2, x_17, x_18, x_5);
x_20 = !lean_is_exclusive(x_19);
@ -573,6 +574,7 @@ if (x_20 == 0)
{
lean_object* x_21; lean_object* x_22;
x_21 = lean_ctor_get(x_19, 0);
lean_inc_ref(x_9);
x_22 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_22, 0, x_9);
lean_ctor_set(x_22, 1, x_21);
@ -587,6 +589,7 @@ x_24 = lean_ctor_get(x_19, 1);
lean_inc(x_24);
lean_inc(x_23);
lean_dec(x_19);
lean_inc_ref(x_9);
x_25 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_25, 0, x_9);
lean_ctor_set(x_25, 1, x_23);
@ -1386,7 +1389,7 @@ return x_12;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_1);
x_13 = lean_array_fget_borrowed(x_2, x_1);
lean_inc(x_8);
lean_inc_ref(x_7);
lean_inc(x_6);
@ -1404,7 +1407,6 @@ x_16 = lean_ctor_get(x_14, 1);
lean_inc(x_16);
lean_dec_ref(x_14);
x_17 = lean_ptr_addr(x_13);
lean_dec_ref(x_13);
x_18 = lean_ptr_addr(x_15);
x_19 = lean_usize_dec_eq(x_17, x_18);
if (x_19 == 0)
@ -1434,7 +1436,6 @@ goto _start;
else
{
uint8_t x_27;
lean_dec_ref(x_13);
lean_dec(x_8);
lean_dec_ref(x_7);
lean_dec(x_6);

11
stage0/stdlib/Lean/Compiler/LCNF/ReduceArity.c generated
View file

@ -65,6 +65,7 @@ LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_Co
static lean_object* l___private_Lean_Compiler_LCNF_ReduceArity_0__Lean_Compiler_LCNF_initFn___closed__7____x40_Lean_Compiler_LCNF_ReduceArity___hyg_2409_;
static lean_object* l___private_Lean_Compiler_LCNF_ReduceArity_0__Lean_Compiler_LCNF_initFn___closed__18____x40_Lean_Compiler_LCNF_ReduceArity___hyg_2409_;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at___Lean_Compiler_LCNF_Decl_reduceArity_spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_FindUsed_visitLetValue_spec__1(lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_addTrace___at___Lean_Compiler_LCNF_Decl_reduceArity_spec__11(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_addTrace___at___Lean_Compiler_LCNF_Decl_reduceArity_spec__11___redArg___closed__4;
@ -1271,7 +1272,8 @@ _start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_array_fget(x_3, x_2);
x_4 = lean_array_fget_borrowed(x_3, x_2);
lean_inc_ref(x_4);
return x_4;
}
}
@ -1280,7 +1282,8 @@ _start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_array_fget(x_3, x_2);
x_4 = lean_array_fget_borrowed(x_3, x_2);
lean_inc(x_4);
return x_4;
}
}
@ -2808,7 +2811,7 @@ return x_11;
else
{
lean_object* x_12; lean_object* x_13;
x_12 = lean_array_fget(x_2, x_1);
x_12 = lean_array_fget_borrowed(x_2, x_1);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_33;
@ -2840,7 +2843,6 @@ lean_dec_ref(x_14);
lean_inc_ref(x_12);
x_17 = l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_updateAltCodeImp(x_12, x_15);
x_18 = lean_ptr_addr(x_12);
lean_dec_ref(x_12);
x_19 = lean_ptr_addr(x_17);
x_20 = lean_usize_dec_eq(x_18, x_19);
if (x_20 == 0)
@ -2870,7 +2872,6 @@ goto _start;
else
{
uint8_t x_28;
lean_dec_ref(x_12);
lean_dec_ref(x_2);
lean_dec(x_1);
x_28 = !lean_is_exclusive(x_14);

5
stage0/stdlib/Lean/Compiler/LCNF/ReduceJpArity.c generated
View file

@ -35,6 +35,7 @@ static lean_object* l_Lean_Compiler_LCNF_reduceJpArity___closed__1;
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_ReduceJpArity_reduce___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_DeclValue_mapCodeM___at___Lean_Compiler_LCNF_Decl_reduceJpArity_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at___Lean_Compiler_LCNF_ReduceJpArity_reduce_spec__2(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_ReduceJpArity_reduce_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_ReduceJpArity_0__Lean_Compiler_LCNF_initFn___closed__2____x40_Lean_Compiler_LCNF_ReduceJpArity___hyg_880_;
@ -791,7 +792,7 @@ return x_11;
else
{
lean_object* x_12; lean_object* x_13;
x_12 = lean_array_fget(x_2, x_1);
x_12 = lean_array_fget_borrowed(x_2, x_1);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_33;
@ -824,7 +825,6 @@ lean_dec_ref(x_14);
lean_inc_ref(x_12);
x_17 = l___private_Lean_Compiler_LCNF_Basic_0__Lean_Compiler_LCNF_updateAltCodeImp(x_12, x_15);
x_18 = lean_ptr_addr(x_12);
lean_dec_ref(x_12);
x_19 = lean_ptr_addr(x_17);
x_20 = lean_usize_dec_eq(x_18, x_19);
if (x_20 == 0)
@ -854,7 +854,6 @@ goto _start;
else
{
uint8_t x_28;
lean_dec_ref(x_12);
lean_dec(x_3);
lean_dec_ref(x_2);
lean_dec(x_1);

14
stage0/stdlib/Lean/Compiler/LCNF/Renaming.c generated
View file

@ -24,6 +24,7 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Code_applyRenaming(lean_object*, l
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_Code_applyRenaming___closed__0;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_BasicAux_0__mapMonoMImp_go___at___Lean_Compiler_LCNF_Code_applyRenaming_spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_BasicAux_0__mapMonoMImp_go___at___Lean_Compiler_LCNF_Code_applyRenaming_spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_panic___at___Lean_Compiler_LCNF_Code_applyRenaming_spec__0(lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_BasicAux_0__mapMonoMImp_go___at___Lean_Compiler_LCNF_Code_applyRenaming_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -46,7 +47,6 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_FunDecl_applyRenaming(lean_object*
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at___Lean_Compiler_LCNF_Param_applyRenaming_spec__0___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at___Lean_Compiler_LCNF_Param_applyRenaming_spec__0___redArg___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_LCNF_LCtx_addParam(lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_FunDecl_applyRenaming___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Decl_applyRenaming(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -847,7 +847,7 @@ return x_8;
else
{
lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; size_t x_13; size_t x_14; uint8_t x_15;
x_9 = lean_array_fget(x_3, x_2);
x_9 = lean_array_fget_borrowed(x_3, x_2);
lean_inc_ref(x_9);
x_10 = l_Lean_Compiler_LCNF_Param_applyRenaming___redArg(x_9, x_1, x_4, x_5);
x_11 = lean_ctor_get(x_10, 0);
@ -856,7 +856,6 @@ x_12 = lean_ctor_get(x_10, 1);
lean_inc(x_12);
lean_dec_ref(x_10);
x_13 = lean_ptr_addr(x_9);
lean_dec_ref(x_9);
x_14 = lean_ptr_addr(x_11);
x_15 = lean_usize_dec_eq(x_13, x_14);
if (x_15 == 0)
@ -912,21 +911,21 @@ return x_11;
else
{
lean_object* x_12; lean_object* x_13; lean_object* x_14;
x_12 = lean_array_fget(x_3, x_2);
x_12 = lean_array_fget_borrowed(x_3, x_2);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32;
x_26 = lean_ctor_get(x_12, 1);
lean_inc_ref(x_26);
x_27 = lean_ctor_get(x_12, 2);
lean_inc_ref(x_27);
x_28 = lean_unsigned_to_nat(0u);
lean_inc_ref(x_26);
x_29 = l___private_Init_Data_Array_BasicAux_0__mapMonoMImp_go___at___Lean_Compiler_LCNF_Code_applyRenaming_spec__1___redArg(x_1, x_28, x_26, x_5, x_8);
x_30 = lean_ctor_get(x_29, 0);
lean_inc(x_30);
x_31 = lean_ctor_get(x_29, 1);
lean_inc(x_31);
lean_dec_ref(x_29);
lean_inc_ref(x_27);
x_32 = l_Lean_Compiler_LCNF_Code_applyRenaming(x_27, x_1, x_4, x_5, x_6, x_7, x_31);
if (lean_obj_tag(x_32) == 0)
{
@ -946,7 +945,6 @@ else
{
uint8_t x_36;
lean_dec(x_30);
lean_dec_ref(x_12);
lean_dec_ref(x_3);
lean_dec(x_2);
x_36 = !lean_is_exclusive(x_32);
@ -992,7 +990,6 @@ goto block_25;
else
{
uint8_t x_45;
lean_dec_ref(x_12);
lean_dec_ref(x_3);
lean_dec(x_2);
x_45 = !lean_is_exclusive(x_41);
@ -1019,7 +1016,6 @@ block_25:
{
size_t x_15; size_t x_16; uint8_t x_17;
x_15 = lean_ptr_addr(x_12);
lean_dec_ref(x_12);
x_16 = lean_ptr_addr(x_13);
x_17 = lean_usize_dec_eq(x_15, x_16);
if (x_17 == 0)

1673
stage0/stdlib/Lean/Compiler/LCNF/Simp/ConstantFold.c generated
View file

File diff suppressed because it is too large Load diff

22
stage0/stdlib/Lean/Compiler/LCNF/Simp/DefaultAlt.c generated
View file

@ -25,6 +25,7 @@ LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at__
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_LCNF_Simp_DefaultAlt_0__Lean_Compiler_LCNF_Simp_getMaxOccs_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_LCNF_Simp_DefaultAlt_0__Lean_Compiler_LCNF_Simp_getMaxOccs_spec__0___redArg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Compiler_LCNF_Simp_markSimplified___redArg(lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
lean_object* l_ReaderT_instApplicativeOfMonad___redArg___lam__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Compiler_LCNF_instInhabitedAlt;
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Simp_DefaultAlt_0__Lean_Compiler_LCNF_Simp_getMaxOccs___boxed(lean_object*);
@ -47,13 +48,13 @@ lean_object* l_instInhabitedForall___redArg___lam__0___boxed(lean_object*, lean_
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_Simp_addDefaultAlt_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at_____private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_Simp_addDefaultAlt_spec__1_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at_____private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_Simp_addDefaultAlt_spec__1_spec__1___closed__0;
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
static lean_object* l_panic___at___Lean_Compiler_LCNF_Simp_addDefaultAlt_spec__0___closed__0;
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_anyMUnsafe_any___at___Lean_Compiler_LCNF_Simp_addDefaultAlt_spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Compiler_LCNF_eraseCode___redArg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Compiler_LCNF_instMonadCompilerM___lam__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Simp_DefaultAlt_0__Lean_Compiler_LCNF_Simp_getMaxOccs(lean_object*);
lean_object* l_Lean_Compiler_LCNF_instMonadCompilerM___lam__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_Simp_addDefaultAlt_spec__1(uint8_t, lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -73,7 +74,6 @@ size_t lean_array_size(lean_object*);
lean_object* l_Lean_Core_instMonadCoreM___lam__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_Simp_addDefaultAlt___closed__0;
lean_object* lean_array_get_size(lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
uint8_t lean_usize_dec_lt(size_t, size_t);
lean_object* lean_nat_add(lean_object*, lean_object*);
@ -83,13 +83,12 @@ LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at__
_start:
{
lean_object* x_7; lean_object* x_13; lean_object* x_17;
x_17 = lean_array_fget(x_3, x_6);
x_17 = lean_array_fget_borrowed(x_3, x_6);
if (lean_obj_tag(x_17) == 0)
{
lean_object* x_18;
x_18 = lean_ctor_get(x_17, 2);
lean_inc_ref(x_18);
lean_dec_ref(x_17);
x_13 = x_18;
goto block_16;
}
@ -98,7 +97,6 @@ else
lean_object* x_19;
x_19 = lean_ctor_get(x_17, 0);
lean_inc_ref(x_19);
lean_dec_ref(x_17);
x_13 = x_19;
goto block_16;
}
@ -156,13 +154,12 @@ _start:
{
lean_object* x_3; lean_object* x_10; lean_object* x_11;
x_10 = l_Lean_Compiler_LCNF_instInhabitedAlt;
x_11 = lean_array_get(x_10, x_1, x_2);
x_11 = lean_array_get_borrowed(x_10, x_1, x_2);
if (lean_obj_tag(x_11) == 0)
{
lean_object* x_12;
x_12 = lean_ctor_get(x_11, 2);
lean_inc_ref(x_12);
lean_dec_ref(x_11);
x_3 = x_12;
goto block_9;
}
@ -171,7 +168,6 @@ else
lean_object* x_13;
x_13 = lean_ctor_get(x_11, 0);
lean_inc_ref(x_13);
lean_dec_ref(x_11);
x_3 = x_13;
goto block_9;
}
@ -256,7 +252,8 @@ else
lean_object* x_16;
lean_dec(x_13);
lean_dec(x_12);
x_16 = lean_array_fget(x_1, x_4);
x_16 = lean_array_fget_borrowed(x_1, x_4);
lean_inc_ref(x_16);
lean_ctor_set(x_3, 1, x_16);
lean_ctor_set(x_3, 0, x_14);
x_5 = x_3;
@ -288,7 +285,8 @@ else
lean_object* x_22; lean_object* x_23;
lean_dec(x_18);
lean_dec(x_17);
x_22 = lean_array_fget(x_1, x_4);
x_22 = lean_array_fget_borrowed(x_1, x_4);
lean_inc_ref(x_22);
x_23 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_23, 0, x_19);
lean_ctor_set(x_23, 1, x_22);
@ -333,13 +331,14 @@ x_2 = l_Lean_Compiler_LCNF_instInhabitedAlt;
x_3 = lean_unsigned_to_nat(1u);
x_4 = lean_array_get_size(x_1);
x_5 = lean_unsigned_to_nat(0u);
x_6 = lean_array_get(x_2, x_1, x_5);
x_6 = lean_array_get_borrowed(x_2, x_1, x_5);
x_7 = l___private_Lean_Compiler_LCNF_Simp_DefaultAlt_0__Lean_Compiler_LCNF_Simp_getMaxOccs_getNumOccsOf(x_1, x_5);
x_8 = lean_nat_dec_lt(x_3, x_4);
if (x_8 == 0)
{
lean_object* x_9;
lean_dec(x_4);
lean_inc_ref(x_6);
x_9 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_9, 0, x_6);
lean_ctor_set(x_9, 1, x_7);
@ -348,6 +347,7 @@ return x_9;
else
{
lean_object* x_10; lean_object* x_11; uint8_t x_12;
lean_inc_ref(x_6);
x_10 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_10, 0, x_7);
lean_ctor_set(x_10, 1, x_6);

19
stage0/stdlib/Lean/Compiler/LCNF/Simp/DiscrM.c generated
View file

@ -49,6 +49,7 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_findCtorName_x3f(lean_object*
LEAN_EXPORT lean_object* l_Lean_throwError___at___Lean_throwErrorAt___at___Lean_throwUnknownIdentifierAt___at___Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_getConstInfoCtor___at_____private_Lean_Compiler_LCNF_Simp_DiscrM_0__Lean_Compiler_LCNF_Simp_withDiscrCtorImp_updateCtx_spec__0_spec__0_spec__0_spec__0_spec__0_spec__1_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at_____private_Lean_Compiler_LCNF_Simp_DiscrM_0__Lean_Compiler_LCNF_Simp_withDiscrCtorImp_updateCtx_spec__9_spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Environment_find_x3f(lean_object*, lean_object*, uint8_t);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_findAux___at___Lean_PersistentHashMap_find_x3f___at___Lean_Compiler_LCNF_Simp_simpCtorDiscrCore_x3f_spec__0_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Data_PersistentHashMap_0__Lean_PersistentHashMap_insertAux_traverse___at___Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at_____private_Lean_Compiler_LCNF_Simp_DiscrM_0__Lean_Compiler_LCNF_Simp_withDiscrCtorImp_updateCtx_spec__9_spec__9_spec__11___redArg(size_t, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_stringToMessageData(lean_object*);
@ -3000,9 +3001,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_expr_eqv(x_3, x_12);
lean_dec_ref(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -3049,9 +3049,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_expr_eqv(x_3, x_26);
lean_dec_ref(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -3120,8 +3119,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Expr_hash(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -3132,6 +3131,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc_ref(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at_____private_Lean_Compiler_LCNF_Simp_DiscrM_0__Lean_Compiler_LCNF_Simp_withDiscrCtorImp_updateCtx_spec__9_spec__9___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -4356,9 +4357,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_expr_eqv(x_4, x_8);
lean_dec_ref(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -4371,8 +4371,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;

11
stage0/stdlib/Lean/Compiler/LCNF/Simp/InlineCandidate.c generated
View file

@ -31,6 +31,7 @@ static lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_
static lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_Compiler_LCNF_Simp_initFn___closed__19____x40_Lean_Compiler_LCNF_Simp_InlineCandidate___hyg_1478_;
static lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_Compiler_LCNF_Simp_initFn___closed__20____x40_Lean_Compiler_LCNF_Simp_InlineCandidate___hyg_1478_;
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_Compiler_LCNF_Simp_initFn____x40_Lean_Compiler_LCNF_Simp_InlineCandidate___hyg_1478_(lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_Compiler_LCNF_Simp_initFn___closed__18____x40_Lean_Compiler_LCNF_Simp_InlineCandidate___hyg_1478_;
static lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_Compiler_LCNF_Simp_initFn___closed__27____x40_Lean_Compiler_LCNF_Simp_InlineCandidate___hyg_1478_;
lean_object* l_Lean_Compiler_LCNF_Decl_instantiateTypeLevelParams(lean_object*, lean_object*);
@ -69,7 +70,7 @@ lean_object* l_Lean_Compiler_LCNF_findLetDecl_x3f___redArg(lean_object*, lean_ob
static lean_object* l_Lean_Compiler_LCNF_Simp_inlineCandidate_x3f___lam__2___closed__0;
static lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_Compiler_LCNF_Simp_initFn___closed__21____x40_Lean_Compiler_LCNF_Simp_InlineCandidate___hyg_1478_;
static lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_Compiler_LCNF_Simp_initFn___closed__28____x40_Lean_Compiler_LCNF_Simp_InlineCandidate___hyg_1478_;
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Compiler_LCNF_Simp_shouldInlineLocal___redArg(lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_Compiler_LCNF_Simp_initFn___closed__1____x40_Lean_Compiler_LCNF_Simp_InlineCandidate___hyg_1478_;
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
@ -89,7 +90,6 @@ lean_object* l_Lean_Compiler_LCNF_getType(lean_object*, lean_object*, lean_objec
static lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_Compiler_LCNF_Simp_initFn___closed__0____x40_Lean_Compiler_LCNF_Simp_InlineCandidate___hyg_1478_;
lean_object* lean_array_get_size(lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_inlineCandidate_x3f___lam__2(uint8_t, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_Compiler_LCNF_Simp_initFn___closed__4____x40_Lean_Compiler_LCNF_Simp_InlineCandidate___hyg_1478_;
lean_object* lean_nat_add(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_Simp_InlineCandidate_0__Lean_Compiler_LCNF_Simp_initFn___closed__8____x40_Lean_Compiler_LCNF_Simp_InlineCandidate___hyg_1478_;
@ -563,12 +563,11 @@ else
lean_object* x_77; lean_object* x_78; lean_object* x_79;
lean_dec(x_37);
x_77 = lean_box(0);
x_78 = lean_array_get(x_77, x_23, x_72);
x_78 = lean_array_get_borrowed(x_77, x_23, x_72);
lean_dec(x_72);
x_79 = l_Lean_Compiler_LCNF_Arg_isConstructorApp___redArg(x_78, x_9, x_11, x_68);
lean_dec(x_11);
lean_dec(x_9);
lean_dec(x_78);
if (lean_obj_tag(x_79) == 0)
{
lean_object* x_80; uint8_t x_81;
@ -2066,10 +2065,11 @@ else
{
lean_object* x_31; lean_object* x_32;
x_31 = lean_unsigned_to_nat(1u);
x_32 = lean_array_fget(x_24, x_31);
x_32 = lean_array_fget_borrowed(x_24, x_31);
if (lean_obj_tag(x_32) == 1)
{
lean_object* x_33; lean_object* x_34;
lean_inc_ref(x_32);
lean_dec_ref(x_1);
x_33 = lean_ctor_get(x_32, 0);
lean_inc(x_33);
@ -2163,7 +2163,6 @@ return x_50;
}
else
{
lean_dec(x_32);
x_11 = x_2;
x_12 = x_3;
x_13 = x_4;

33
stage0/stdlib/Lean/Compiler/LCNF/Simp/JpCases.c generated
View file

@ -53,6 +53,7 @@ static lean_object* l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at_____private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_collectJpCasesInfo_go_spec__1(lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_anyMUnsafe_any___at_____private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_mkJpAlt_go_spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_List_forIn_x27_loop___at___Lean_Compiler_LCNF_Simp_simpJpCases_x3f_spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_extractJpCases_go___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at_____private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_mkJmpArgsAtJp_spec__0(size_t, size_t, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_extractJpCases_go___closed__3;
@ -149,6 +150,7 @@ lean_object* l_Lean_NameSet_insert(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_collectJpCasesInfo___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at_____private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_collectJpCasesInfo_go_spec__0(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_forInStep___at_____private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_simpJpCases_x3f_visitJp_x3f_spec__0___lam__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_addTrace___at___Lean_Compiler_LCNF_Simp_simpJpCases_x3f_spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_mkJpAlt_go___closed__1;
static lean_object* l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_initFn___closed__16____x40_Lean_Compiler_LCNF_Simp_JpCases___hyg_3140_;
@ -164,7 +166,6 @@ static lean_object* l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler
static lean_object* l_Lean_Compiler_LCNF_Simp_simpJpCases_x3f___closed__6;
lean_object* l_Lean_FVarIdSet_insert(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_mkJpAlt___closed__1;
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_isJpCases_x3f_go___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_collectJpCasesInfo_go(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_map___at_____private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_mkJpAlt_go_spec__1(size_t, size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -2104,11 +2105,12 @@ LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at__
_start:
{
lean_object* x_15; lean_object* x_16; lean_object* x_23; lean_object* x_38; uint8_t x_39;
x_38 = lean_array_fget(x_1, x_8);
x_38 = lean_array_fget_borrowed(x_1, x_8);
x_39 = lean_nat_dec_eq(x_2, x_8);
if (x_39 == 0)
{
lean_object* x_40;
lean_inc_ref(x_38);
x_40 = l_Lean_Compiler_LCNF_Internalize_internalizeParam(x_38, x_9, x_10, x_11, x_12, x_13, x_14);
if (lean_obj_tag(x_40) == 0)
{
@ -2154,7 +2156,6 @@ else
if (x_3 == 0)
{
lean_object* x_48;
lean_dec_ref(x_38);
lean_inc_ref(x_4);
x_48 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_mkJpAlt_go_spec__2_spec__2___redArg___lam__0(x_4, x_7, x_5, x_9, x_10, x_11, x_12, x_13, x_14);
x_23 = x_48;
@ -2163,6 +2164,7 @@ goto block_37;
else
{
lean_object* x_49;
lean_inc_ref(x_38);
x_49 = l_Lean_Compiler_LCNF_Internalize_internalizeParam(x_38, x_9, x_10, x_11, x_12, x_13, x_14);
if (lean_obj_tag(x_49) == 0)
{
@ -2322,11 +2324,12 @@ LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at__
_start:
{
lean_object* x_17; lean_object* x_18; lean_object* x_25; lean_object* x_40; uint8_t x_41;
x_40 = lean_array_fget(x_1, x_10);
x_40 = lean_array_fget_borrowed(x_1, x_10);
x_41 = lean_nat_dec_eq(x_2, x_10);
if (x_41 == 0)
{
lean_object* x_42;
lean_inc_ref(x_40);
x_42 = l_Lean_Compiler_LCNF_Internalize_internalizeParam(x_40, x_11, x_12, x_13, x_14, x_15, x_16);
if (lean_obj_tag(x_42) == 0)
{
@ -2371,7 +2374,6 @@ else
if (x_3 == 0)
{
lean_object* x_50;
lean_dec_ref(x_40);
lean_inc_ref(x_4);
x_50 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_mkJpAlt_go_spec__2_spec__2___redArg___lam__0(x_4, x_9, x_5, x_11, x_12, x_13, x_14, x_15, x_16);
x_25 = x_50;
@ -2380,6 +2382,7 @@ goto block_39;
else
{
lean_object* x_51;
lean_inc_ref(x_40);
x_51 = l_Lean_Compiler_LCNF_Internalize_internalizeParam(x_40, x_11, x_12, x_13, x_14, x_15, x_16);
if (lean_obj_tag(x_51) == 0)
{
@ -2593,13 +2596,12 @@ _start:
{
uint8_t x_13; lean_object* x_14; lean_object* x_15; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; uint8_t x_53; lean_object* x_66; uint8_t x_67;
x_47 = l_Lean_Compiler_LCNF_instInhabitedParam;
x_48 = lean_array_get(x_47, x_2, x_3);
x_48 = lean_array_get_borrowed(x_47, x_2, x_3);
x_49 = lean_ctor_get(x_48, 0);
lean_inc(x_49);
lean_dec_ref(x_48);
x_50 = lean_box(1);
x_51 = lean_unsigned_to_nat(0u);
x_52 = l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_mkJpAlt_go___closed__2;
lean_inc(x_49);
x_66 = l_Lean_FVarIdSet_insert(x_50, x_49);
x_67 = l___private_Lean_Compiler_LCNF_DependsOn_0__Lean_Compiler_LCNF_depOn(x_5, x_66);
if (x_67 == 0)
@ -5804,19 +5806,18 @@ return x_14;
else
{
lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_15 = lean_array_fget(x_3, x_2);
x_15 = lean_array_fget_borrowed(x_3, x_2);
if (lean_obj_tag(x_15) == 0)
{
lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33;
x_29 = lean_ctor_get(x_15, 0);
lean_inc(x_29);
x_30 = lean_ctor_get(x_15, 1);
lean_inc_ref(x_30);
x_31 = lean_ctor_get(x_15, 2);
lean_inc_ref(x_31);
x_32 = lean_ctor_get(x_1, 2);
lean_inc_ref(x_9);
lean_inc_ref(x_6);
lean_inc_ref(x_30);
lean_inc(x_29);
lean_inc(x_32);
x_33 = l___private_Lean_Compiler_LCNF_Simp_DiscrM_0__Lean_Compiler_LCNF_Simp_withDiscrCtorImp_updateCtx(x_32, x_29, x_30, x_6, x_7, x_8, x_9, x_10, x_11);
if (lean_obj_tag(x_33) == 0)
@ -5831,6 +5832,7 @@ lean_inc(x_10);
lean_inc_ref(x_9);
lean_inc(x_8);
lean_inc_ref(x_7);
lean_inc_ref(x_31);
x_36 = l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_simpJpCases_x3f_visit(x_31, x_4, x_5, x_34, x_7, x_8, x_9, x_10, x_35);
if (lean_obj_tag(x_36) == 0)
{
@ -5849,7 +5851,6 @@ goto block_28;
else
{
uint8_t x_40;
lean_dec_ref(x_15);
lean_dec(x_10);
lean_dec_ref(x_9);
lean_dec(x_8);
@ -5881,8 +5882,6 @@ return x_43;
else
{
uint8_t x_44;
lean_dec_ref(x_31);
lean_dec_ref(x_15);
lean_dec(x_10);
lean_dec_ref(x_9);
lean_dec(x_8);
@ -5915,12 +5914,12 @@ else
{
lean_object* x_48; lean_object* x_49;
x_48 = lean_ctor_get(x_15, 0);
lean_inc_ref(x_48);
lean_inc(x_10);
lean_inc_ref(x_9);
lean_inc(x_8);
lean_inc_ref(x_7);
lean_inc_ref(x_6);
lean_inc_ref(x_48);
x_49 = l___private_Lean_Compiler_LCNF_Simp_JpCases_0__Lean_Compiler_LCNF_Simp_simpJpCases_x3f_visit(x_48, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11);
if (lean_obj_tag(x_49) == 0)
{
@ -5939,7 +5938,6 @@ goto block_28;
else
{
uint8_t x_53;
lean_dec_ref(x_15);
lean_dec(x_10);
lean_dec_ref(x_9);
lean_dec(x_8);
@ -5972,7 +5970,6 @@ block_28:
{
size_t x_18; size_t x_19; uint8_t x_20;
x_18 = lean_ptr_addr(x_15);
lean_dec_ref(x_15);
x_19 = lean_ptr_addr(x_16);
x_20 = lean_usize_dec_eq(x_18, x_19);
if (x_20 == 0)

137
stage0/stdlib/Lean/Compiler/LCNF/Simp/Main.c generated
View file

@ -78,6 +78,7 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_anyMUnsafe_a
lean_object* l_Lean_Compiler_LCNF_Cases_extractAlt_x21(lean_object*, lean_object*);
static size_t l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_Simp_inlineApp_x3f_spec__0_spec__0___redArg___closed__1;
lean_object* l_Lean_Environment_find_x3f(lean_object*, lean_object*, uint8_t);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe_fold___at___Lean_Compiler_LCNF_Simp_simp_spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Std_Data_DHashMap_Internal_Defs_0__Std_DHashMap_Internal_Raw_u2080_expand_go___at___Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_Compiler_LCNF_Simp_specializePartialApp_spec__1_spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_etaPolyApp_x3f___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -169,6 +170,7 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_isReturnOf___redArg___boxed(l
LEAN_EXPORT uint8_t l_Std_DHashMap_Internal_AssocList_contains___at___Lean_Compiler_LCNF_Simp_specializePartialApp_spec__0(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Compiler_LCNF_CompilerM_codeBind(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_BasicAux_0__mapMonoMImp_go___at___Lean_Compiler_LCNF_normParams___at___Lean_Compiler_LCNF_Simp_simpFunDecl_spec__0_spec__0___redArg(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Expr_isErased(lean_object*);
lean_object* lean_usize_to_nat(size_t);
LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_forIn_x27Unsafe_loop___at___Lean_Compiler_LCNF_Simp_simpCasesOnCtor_x3f_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -1395,7 +1397,8 @@ _start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_array_fget(x_3, x_2);
x_4 = lean_array_fget_borrowed(x_3, x_2);
lean_inc_ref(x_4);
return x_4;
}
}
@ -5666,9 +5669,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_name_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -5715,9 +5717,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_name_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -5786,8 +5787,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Name_hash___override(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -5798,6 +5799,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_Simp_inlineApp_x3f_spec__0_spec__0___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -8014,16 +8017,13 @@ return x_15;
else
{
lean_object* x_16; lean_object* x_17; lean_object* x_18;
x_16 = lean_array_fget(x_4, x_3);
x_16 = lean_array_fget_borrowed(x_4, x_3);
if (lean_obj_tag(x_16) == 0)
{
lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_50; uint8_t x_51; uint8_t x_74; lean_object* x_75; uint8_t x_77; lean_object* x_78; lean_object* x_80; lean_object* x_81; uint8_t x_82;
x_30 = lean_ctor_get(x_16, 0);
lean_inc(x_30);
x_31 = lean_ctor_get(x_16, 1);
lean_inc_ref(x_31);
x_32 = lean_ctor_get(x_16, 2);
lean_inc_ref(x_32);
x_80 = lean_unsigned_to_nat(0u);
x_81 = lean_array_get_size(x_31);
x_82 = lean_nat_dec_lt(x_80, x_81);
@ -8067,10 +8067,6 @@ goto block_79;
else
{
uint8_t x_89;
lean_dec_ref(x_32);
lean_dec_ref(x_31);
lean_dec(x_30);
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8107,6 +8103,8 @@ block_49:
lean_object* x_34;
lean_inc_ref(x_10);
lean_inc_ref(x_7);
lean_inc_ref(x_31);
lean_inc(x_30);
lean_inc(x_1);
x_34 = l___private_Lean_Compiler_LCNF_Simp_DiscrM_0__Lean_Compiler_LCNF_Simp_withDiscrCtorImp_updateCtx(x_1, x_30, x_31, x_7, x_8, x_9, x_10, x_11, x_33);
if (lean_obj_tag(x_34) == 0)
@ -8123,6 +8121,7 @@ lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_6);
lean_inc_ref(x_5);
lean_inc_ref(x_32);
x_37 = l_Lean_Compiler_LCNF_Simp_simp(x_32, x_5, x_6, x_35, x_8, x_9, x_10, x_11, x_36);
if (lean_obj_tag(x_37) == 0)
{
@ -8141,7 +8140,6 @@ goto block_29;
else
{
uint8_t x_41;
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8175,8 +8173,6 @@ return x_44;
else
{
uint8_t x_45;
lean_dec_ref(x_32);
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8217,8 +8213,6 @@ goto block_49;
else
{
lean_object* x_52;
lean_dec_ref(x_31);
lean_dec(x_30);
lean_inc_ref(x_32);
x_52 = l_Lean_Compiler_LCNF_Code_inferType(x_32, x_8, x_9, x_10, x_11, x_50);
if (lean_obj_tag(x_52) == 0)
@ -8230,7 +8224,6 @@ x_54 = lean_ctor_get(x_52, 1);
lean_inc(x_54);
lean_dec_ref(x_52);
x_55 = l_Lean_Compiler_LCNF_eraseCode___redArg(x_32, x_9, x_54);
lean_dec_ref(x_32);
if (lean_obj_tag(x_55) == 0)
{
lean_object* x_56; lean_object* x_57;
@ -8256,7 +8249,6 @@ else
{
uint8_t x_61;
lean_dec(x_53);
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8291,7 +8283,6 @@ else
{
uint8_t x_65;
lean_dec(x_53);
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8325,8 +8316,6 @@ return x_68;
else
{
uint8_t x_69;
lean_dec_ref(x_32);
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8401,7 +8390,6 @@ else
{
lean_object* x_93; lean_object* x_94;
x_93 = lean_ctor_get(x_16, 0);
lean_inc_ref(x_93);
lean_inc(x_11);
lean_inc_ref(x_10);
lean_inc(x_9);
@ -8409,6 +8397,7 @@ lean_inc_ref(x_8);
lean_inc_ref(x_7);
lean_inc(x_6);
lean_inc_ref(x_5);
lean_inc_ref(x_93);
x_94 = l_Lean_Compiler_LCNF_Simp_simp(x_93, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12);
if (lean_obj_tag(x_94) == 0)
{
@ -8427,7 +8416,6 @@ goto block_29;
else
{
uint8_t x_98;
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8462,7 +8450,6 @@ block_29:
{
size_t x_19; size_t x_20; uint8_t x_21;
x_19 = lean_ptr_addr(x_16);
lean_dec_ref(x_16);
x_20 = lean_ptr_addr(x_17);
x_21 = lean_usize_dec_eq(x_19, x_20);
if (x_21 == 0)
@ -8518,16 +8505,13 @@ return x_15;
else
{
lean_object* x_16; lean_object* x_17; lean_object* x_18;
x_16 = lean_array_fget(x_4, x_3);
x_16 = lean_array_fget_borrowed(x_4, x_3);
if (lean_obj_tag(x_16) == 0)
{
lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_50; uint8_t x_51; lean_object* x_74; uint8_t x_75; uint8_t x_77; lean_object* x_78; lean_object* x_80; lean_object* x_81; uint8_t x_82;
x_30 = lean_ctor_get(x_16, 0);
lean_inc(x_30);
x_31 = lean_ctor_get(x_16, 1);
lean_inc_ref(x_31);
x_32 = lean_ctor_get(x_16, 2);
lean_inc_ref(x_32);
x_80 = lean_unsigned_to_nat(0u);
x_81 = lean_array_get_size(x_31);
x_82 = lean_nat_dec_lt(x_80, x_81);
@ -8571,10 +8555,6 @@ goto block_79;
else
{
uint8_t x_89;
lean_dec_ref(x_32);
lean_dec_ref(x_31);
lean_dec(x_30);
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8610,6 +8590,8 @@ block_49:
lean_object* x_34;
lean_inc_ref(x_10);
lean_inc_ref(x_7);
lean_inc_ref(x_31);
lean_inc(x_30);
lean_inc(x_1);
x_34 = l___private_Lean_Compiler_LCNF_Simp_DiscrM_0__Lean_Compiler_LCNF_Simp_withDiscrCtorImp_updateCtx(x_1, x_30, x_31, x_7, x_8, x_9, x_10, x_11, x_33);
if (lean_obj_tag(x_34) == 0)
@ -8626,6 +8608,7 @@ lean_inc(x_9);
lean_inc_ref(x_8);
lean_inc(x_6);
lean_inc_ref(x_5);
lean_inc_ref(x_32);
x_37 = l_Lean_Compiler_LCNF_Simp_simp(x_32, x_5, x_6, x_35, x_8, x_9, x_10, x_11, x_36);
if (lean_obj_tag(x_37) == 0)
{
@ -8644,7 +8627,6 @@ goto block_29;
else
{
uint8_t x_41;
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8677,8 +8659,6 @@ return x_44;
else
{
uint8_t x_45;
lean_dec_ref(x_32);
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8718,8 +8698,6 @@ goto block_49;
else
{
lean_object* x_52;
lean_dec_ref(x_31);
lean_dec(x_30);
lean_inc_ref(x_32);
x_52 = l_Lean_Compiler_LCNF_Code_inferType(x_32, x_8, x_9, x_10, x_11, x_50);
if (lean_obj_tag(x_52) == 0)
@ -8731,7 +8709,6 @@ x_54 = lean_ctor_get(x_52, 1);
lean_inc(x_54);
lean_dec_ref(x_52);
x_55 = l_Lean_Compiler_LCNF_eraseCode___redArg(x_32, x_9, x_54);
lean_dec_ref(x_32);
if (lean_obj_tag(x_55) == 0)
{
lean_object* x_56; lean_object* x_57;
@ -8757,7 +8734,6 @@ else
{
uint8_t x_61;
lean_dec(x_53);
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8791,7 +8767,6 @@ else
{
uint8_t x_65;
lean_dec(x_53);
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8824,8 +8799,6 @@ return x_68;
else
{
uint8_t x_69;
lean_dec_ref(x_32);
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8899,7 +8872,6 @@ else
{
lean_object* x_93; lean_object* x_94;
x_93 = lean_ctor_get(x_16, 0);
lean_inc_ref(x_93);
lean_inc(x_11);
lean_inc_ref(x_10);
lean_inc(x_9);
@ -8907,6 +8879,7 @@ lean_inc_ref(x_8);
lean_inc_ref(x_7);
lean_inc(x_6);
lean_inc_ref(x_5);
lean_inc_ref(x_93);
x_94 = l_Lean_Compiler_LCNF_Simp_simp(x_93, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12);
if (lean_obj_tag(x_94) == 0)
{
@ -8925,7 +8898,6 @@ goto block_29;
else
{
uint8_t x_98;
lean_dec_ref(x_16);
lean_dec(x_11);
lean_dec_ref(x_10);
lean_dec(x_9);
@ -8959,7 +8931,6 @@ block_29:
{
size_t x_19; size_t x_20; uint8_t x_21;
x_19 = lean_ptr_addr(x_16);
lean_dec_ref(x_16);
x_20 = lean_ptr_addr(x_17);
x_21 = lean_usize_dec_eq(x_19, x_20);
if (x_21 == 0)
@ -11608,16 +11579,13 @@ goto block_568;
else
{
lean_object* x_571;
x_571 = lean_array_fget(x_539, x_533);
x_571 = lean_array_fget_borrowed(x_539, x_533);
if (lean_obj_tag(x_571) == 0)
{
lean_object* x_572; lean_object* x_573; lean_object* x_574; lean_object* x_585; lean_object* x_586; uint8_t x_599; lean_object* x_600; uint8_t x_602;
lean_free_object(x_529);
x_572 = lean_ctor_get(x_571, 1);
lean_inc_ref(x_572);
x_573 = lean_ctor_get(x_571, 2);
lean_inc_ref(x_573);
lean_dec_ref(x_571);
x_585 = lean_array_get_size(x_572);
x_602 = lean_nat_dec_lt(x_533, x_585);
if (x_602 == 0)
@ -11658,8 +11626,6 @@ else
{
uint8_t x_609;
lean_dec(x_585);
lean_dec_ref(x_573);
lean_dec_ref(x_572);
lean_dec_ref(x_543);
lean_dec(x_541);
lean_dec(x_539);
@ -11822,6 +11788,8 @@ block_601:
{
if (x_599 == 0)
{
lean_inc_ref(x_573);
lean_inc_ref(x_572);
lean_dec_ref(x_543);
lean_dec(x_541);
lean_dec(x_539);
@ -11842,8 +11810,6 @@ else
if (x_53 == 0)
{
lean_dec(x_585);
lean_dec_ref(x_573);
lean_dec_ref(x_572);
lean_dec(x_6);
x_554 = x_3;
x_555 = x_600;
@ -11851,6 +11817,8 @@ goto block_568;
}
else
{
lean_inc_ref(x_573);
lean_inc_ref(x_572);
lean_dec_ref(x_543);
lean_dec(x_541);
lean_dec(x_539);
@ -11872,6 +11840,7 @@ goto block_598;
else
{
lean_object* x_613;
lean_inc_ref(x_571);
lean_dec_ref(x_543);
lean_dec(x_541);
lean_dec(x_539);
@ -12183,15 +12152,12 @@ goto block_659;
else
{
lean_object* x_662;
x_662 = lean_array_fget(x_630, x_624);
x_662 = lean_array_fget_borrowed(x_630, x_624);
if (lean_obj_tag(x_662) == 0)
{
lean_object* x_663; lean_object* x_664; lean_object* x_665; lean_object* x_675; lean_object* x_676; uint8_t x_689; lean_object* x_690; uint8_t x_692;
x_663 = lean_ctor_get(x_662, 1);
lean_inc_ref(x_663);
x_664 = lean_ctor_get(x_662, 2);
lean_inc_ref(x_664);
lean_dec_ref(x_662);
x_675 = lean_array_get_size(x_663);
x_692 = lean_nat_dec_lt(x_624, x_675);
if (x_692 == 0)
@ -12232,8 +12198,6 @@ else
{
lean_object* x_699; lean_object* x_700; lean_object* x_701; lean_object* x_702;
lean_dec(x_675);
lean_dec_ref(x_664);
lean_dec_ref(x_663);
lean_dec_ref(x_634);
lean_dec(x_632);
lean_dec(x_630);
@ -12400,6 +12364,8 @@ block_691:
{
if (x_689 == 0)
{
lean_inc_ref(x_664);
lean_inc_ref(x_663);
lean_dec_ref(x_634);
lean_dec(x_632);
lean_dec(x_630);
@ -12420,8 +12386,6 @@ else
if (x_53 == 0)
{
lean_dec(x_675);
lean_dec_ref(x_664);
lean_dec_ref(x_663);
lean_dec(x_6);
x_645 = x_3;
x_646 = x_690;
@ -12429,6 +12393,8 @@ goto block_659;
}
else
{
lean_inc_ref(x_664);
lean_inc_ref(x_663);
lean_dec_ref(x_634);
lean_dec(x_632);
lean_dec(x_630);
@ -12450,6 +12416,7 @@ goto block_688;
else
{
lean_object* x_703; lean_object* x_704;
lean_inc_ref(x_662);
lean_dec_ref(x_634);
lean_dec(x_632);
lean_dec(x_630);
@ -15390,16 +15357,13 @@ goto block_1236;
else
{
lean_object* x_1239;
x_1239 = lean_array_fget(x_1207, x_1201);
x_1239 = lean_array_fget_borrowed(x_1207, x_1201);
if (lean_obj_tag(x_1239) == 0)
{
lean_object* x_1240; lean_object* x_1241; lean_object* x_1242; lean_object* x_1252; lean_object* x_1253; uint8_t x_1266; lean_object* x_1267; uint8_t x_1269;
lean_dec(x_1200);
x_1240 = lean_ctor_get(x_1239, 1);
lean_inc_ref(x_1240);
x_1241 = lean_ctor_get(x_1239, 2);
lean_inc_ref(x_1241);
lean_dec_ref(x_1239);
x_1252 = lean_array_get_size(x_1240);
x_1269 = lean_nat_dec_lt(x_1201, x_1252);
if (x_1269 == 0)
@ -15440,8 +15404,6 @@ else
{
lean_object* x_1276; lean_object* x_1277; lean_object* x_1278; lean_object* x_1279;
lean_dec(x_1252);
lean_dec_ref(x_1241);
lean_dec_ref(x_1240);
lean_dec_ref(x_1211);
lean_dec(x_1209);
lean_dec(x_1207);
@ -15608,6 +15570,8 @@ block_1268:
{
if (x_1266 == 0)
{
lean_inc_ref(x_1241);
lean_inc_ref(x_1240);
lean_dec_ref(x_1211);
lean_dec(x_1209);
lean_dec(x_1207);
@ -15628,8 +15592,6 @@ else
if (x_53 == 0)
{
lean_dec(x_1252);
lean_dec_ref(x_1241);
lean_dec_ref(x_1240);
lean_dec(x_6);
x_1222 = x_3;
x_1223 = x_1267;
@ -15637,6 +15599,8 @@ goto block_1236;
}
else
{
lean_inc_ref(x_1241);
lean_inc_ref(x_1240);
lean_dec_ref(x_1211);
lean_dec(x_1209);
lean_dec(x_1207);
@ -15658,6 +15622,7 @@ goto block_1265;
else
{
lean_object* x_1280; lean_object* x_1281;
lean_inc_ref(x_1239);
lean_dec_ref(x_1211);
lean_dec(x_1209);
lean_dec(x_1207);
@ -17522,12 +17487,11 @@ x_98 = lean_ctor_get(x_96, 1);
lean_inc(x_98);
lean_dec_ref(x_96);
x_99 = l_Lean_Compiler_LCNF_instInhabitedParam;
x_100 = lean_array_get(x_99, x_74, x_78);
x_100 = lean_array_get_borrowed(x_99, x_74, x_78);
x_101 = lean_ctor_get(x_100, 0);
lean_inc(x_101);
lean_dec_ref(x_100);
x_102 = lean_ctor_get(x_97, 0);
lean_inc(x_102);
lean_inc(x_101);
x_103 = l_Lean_Compiler_LCNF_Simp_addFVarSubst___redArg(x_101, x_102, x_3, x_6, x_7, x_8, x_98);
if (lean_obj_tag(x_103) == 0)
{
@ -17809,12 +17773,11 @@ x_151 = lean_ctor_get(x_149, 1);
lean_inc(x_151);
lean_dec_ref(x_149);
x_152 = l_Lean_Compiler_LCNF_instInhabitedParam;
x_153 = lean_array_get(x_152, x_74, x_132);
x_153 = lean_array_get_borrowed(x_152, x_74, x_132);
x_154 = lean_ctor_get(x_153, 0);
lean_inc(x_154);
lean_dec_ref(x_153);
x_155 = lean_ctor_get(x_150, 0);
lean_inc(x_155);
lean_inc(x_154);
x_156 = l_Lean_Compiler_LCNF_Simp_addFVarSubst___redArg(x_154, x_155, x_3, x_6, x_7, x_8, x_151);
if (lean_obj_tag(x_156) == 0)
{
@ -18422,12 +18385,11 @@ x_266 = lean_ctor_get(x_264, 1);
lean_inc(x_266);
lean_dec_ref(x_264);
x_267 = l_Lean_Compiler_LCNF_instInhabitedParam;
x_268 = lean_array_get(x_267, x_243, x_247);
x_268 = lean_array_get_borrowed(x_267, x_243, x_247);
x_269 = lean_ctor_get(x_268, 0);
lean_inc(x_269);
lean_dec_ref(x_268);
x_270 = lean_ctor_get(x_265, 0);
lean_inc(x_270);
lean_inc(x_269);
x_271 = l_Lean_Compiler_LCNF_Simp_addFVarSubst___redArg(x_269, x_270, x_3, x_6, x_7, x_8, x_266);
if (lean_obj_tag(x_271) == 0)
{
@ -19128,12 +19090,11 @@ x_398 = lean_ctor_get(x_396, 1);
lean_inc(x_398);
lean_dec_ref(x_396);
x_399 = l_Lean_Compiler_LCNF_instInhabitedParam;
x_400 = lean_array_get(x_399, x_375, x_379);
x_400 = lean_array_get_borrowed(x_399, x_375, x_379);
x_401 = lean_ctor_get(x_400, 0);
lean_inc(x_401);
lean_dec_ref(x_400);
x_402 = lean_ctor_get(x_397, 0);
lean_inc(x_402);
lean_inc(x_401);
x_403 = l_Lean_Compiler_LCNF_Simp_addFVarSubst___redArg(x_401, x_402, x_3, x_6, x_7, x_8, x_398);
if (lean_obj_tag(x_403) == 0)
{
@ -19584,9 +19545,8 @@ return x_9;
else
{
lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_10 = lean_array_fget(x_3, x_2);
x_10 = lean_array_fget_borrowed(x_3, x_2);
x_11 = lean_ctor_get(x_10, 2);
lean_inc_ref(x_11);
x_12 = lean_st_ref_get(x_4, x_6);
x_13 = lean_ctor_get(x_12, 0);
lean_inc(x_13);
@ -19596,6 +19556,7 @@ lean_dec_ref(x_12);
x_15 = lean_ctor_get(x_13, 0);
lean_inc_ref(x_15);
lean_dec(x_13);
lean_inc_ref(x_11);
x_16 = l___private_Lean_Compiler_LCNF_CompilerM_0__Lean_Compiler_LCNF_normExprImp_go(x_15, x_1, x_11);
lean_dec_ref(x_15);
lean_inc_ref(x_10);
@ -19609,7 +19570,6 @@ x_19 = lean_ctor_get(x_17, 1);
lean_inc(x_19);
lean_dec_ref(x_17);
x_20 = lean_ptr_addr(x_10);
lean_dec_ref(x_10);
x_21 = lean_ptr_addr(x_18);
x_22 = lean_usize_dec_eq(x_20, x_21);
if (x_22 == 0)
@ -19639,7 +19599,6 @@ goto _start;
else
{
uint8_t x_30;
lean_dec_ref(x_10);
lean_dec_ref(x_3);
lean_dec(x_2);
x_30 = !lean_is_exclusive(x_17);

7
stage0/stdlib/Lean/Compiler/LCNF/Simp/SimpM.c generated
View file

@ -64,6 +64,7 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_eraseFunDecl(lean_object*, le
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_incVisited(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Compiler_LCNF_getBinderName___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_withIncRecDepth___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_Simp_SimpM_0__Lean_Compiler_LCNF_Simp_withIncRecDepth_throwMaxRecDepth___redArg___closed__2;
lean_object* l_ReaderT_instApplicativeOfMonad___redArg___lam__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_eraseFunDecl___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -2858,9 +2859,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -2873,8 +2873,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;

17
stage0/stdlib/Lean/Compiler/LCNF/Simp/Used.c generated
View file

@ -47,6 +47,7 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_foldlMUnsafe
uint8_t lean_name_eq(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_markUsedFVar___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT uint8_t l_Std_DHashMap_Internal_AssocList_contains___at___Lean_Compiler_LCNF_Simp_markUsedFVar_spec__0___redArg(lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_AssocList_contains___at___Lean_Compiler_LCNF_Simp_markUsedFVar_spec__0___boxed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DHashMap_Internal_Raw_u2080_expand___at___Lean_Compiler_LCNF_Simp_markUsedFVar_spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_LCNF_eraseCodeDecl___redArg(lean_object*, lean_object*, lean_object*);
@ -73,7 +74,6 @@ lean_object* lean_array_uget(lean_object*, size_t);
lean_object* lean_st_ref_set(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_isUsed___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Simp_markUsedArg___redArg___boxed(lean_object*, lean_object*, lean_object*);
@ -1378,7 +1378,7 @@ x_15 = l_Lean_Compiler_LCNF_instInhabitedCodeDecl;
x_16 = lean_unsigned_to_nat(1u);
x_17 = lean_nat_sub(x_2, x_16);
lean_dec(x_2);
x_18 = lean_array_get(x_15, x_1, x_17);
x_18 = lean_array_get_borrowed(x_15, x_1, x_17);
x_19 = l_Lean_Compiler_LCNF_CodeDecl_fvarId(x_18);
x_20 = l_Lean_Compiler_LCNF_Simp_isUsed___redArg(x_19, x_5, x_11);
lean_dec(x_19);
@ -1393,7 +1393,6 @@ x_23 = lean_ctor_get(x_20, 1);
lean_inc(x_23);
lean_dec_ref(x_20);
x_24 = l_Lean_Compiler_LCNF_eraseCodeDecl___redArg(x_18, x_8, x_23);
lean_dec_ref(x_18);
if (lean_obj_tag(x_24) == 0)
{
lean_object* x_25;
@ -1440,8 +1439,6 @@ lean_inc(x_31);
lean_dec_ref(x_20);
x_32 = lean_ctor_get(x_18, 0);
lean_inc_ref(x_32);
lean_dec_ref(x_18);
lean_inc_ref(x_32);
x_33 = l_Lean_Compiler_LCNF_Simp_markUsedLetDecl(x_32, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_31);
x_34 = !lean_is_exclusive(x_33);
if (x_34 == 0)
@ -1450,6 +1447,7 @@ lean_object* x_35; lean_object* x_36;
x_35 = lean_ctor_get(x_33, 1);
x_36 = lean_ctor_get(x_33, 0);
lean_dec(x_36);
lean_inc_ref(x_32);
lean_ctor_set(x_33, 1, x_3);
lean_ctor_set(x_33, 0, x_32);
x_2 = x_17;
@ -1463,6 +1461,7 @@ lean_object* x_38; lean_object* x_39;
x_38 = lean_ctor_get(x_33, 1);
lean_inc(x_38);
lean_dec(x_33);
lean_inc_ref(x_32);
x_39 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_39, 0, x_32);
lean_ctor_set(x_39, 1, x_3);
@ -1480,8 +1479,6 @@ lean_inc(x_41);
lean_dec_ref(x_20);
x_42 = lean_ctor_get(x_18, 0);
lean_inc_ref(x_42);
lean_dec_ref(x_18);
lean_inc_ref(x_42);
x_43 = l_Lean_Compiler_LCNF_Simp_markUsedFunDecl(x_42, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_41);
x_44 = !lean_is_exclusive(x_43);
if (x_44 == 0)
@ -1490,6 +1487,7 @@ lean_object* x_45; lean_object* x_46;
x_45 = lean_ctor_get(x_43, 1);
x_46 = lean_ctor_get(x_43, 0);
lean_dec(x_46);
lean_inc_ref(x_42);
lean_ctor_set_tag(x_43, 1);
lean_ctor_set(x_43, 1, x_3);
lean_ctor_set(x_43, 0, x_42);
@ -1504,6 +1502,7 @@ lean_object* x_48; lean_object* x_49;
x_48 = lean_ctor_get(x_43, 1);
lean_inc(x_48);
lean_dec(x_43);
lean_inc_ref(x_42);
x_49 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_49, 0, x_42);
lean_ctor_set(x_49, 1, x_3);
@ -1521,8 +1520,6 @@ lean_inc(x_51);
lean_dec_ref(x_20);
x_52 = lean_ctor_get(x_18, 0);
lean_inc_ref(x_52);
lean_dec_ref(x_18);
lean_inc_ref(x_52);
x_53 = l_Lean_Compiler_LCNF_Simp_markUsedFunDecl(x_52, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_51);
x_54 = !lean_is_exclusive(x_53);
if (x_54 == 0)
@ -1531,6 +1528,7 @@ lean_object* x_55; lean_object* x_56;
x_55 = lean_ctor_get(x_53, 1);
x_56 = lean_ctor_get(x_53, 0);
lean_dec(x_56);
lean_inc_ref(x_52);
lean_ctor_set_tag(x_53, 2);
lean_ctor_set(x_53, 1, x_3);
lean_ctor_set(x_53, 0, x_52);
@ -1545,6 +1543,7 @@ lean_object* x_58; lean_object* x_59;
x_58 = lean_ctor_get(x_53, 1);
lean_inc(x_58);
lean_dec(x_53);
lean_inc_ref(x_52);
x_59 = lean_alloc_ctor(2, 2, 0);
lean_ctor_set(x_59, 0, x_52);
lean_ctor_set(x_59, 1, x_3);

118
stage0/stdlib/Lean/Compiler/LCNF/SpecInfo.c generated
View file

@ -83,6 +83,7 @@ LEAN_EXPORT uint8_t l_Lean_PersistentHashMap_contains___at___Lean_Compiler_LCNF_
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__17___boxed(lean_object**);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_instInhabitedSpecState;
static lean_object* l_Lean_Compiler_LCNF_instToMessageDataSpecParamInfo___lam__0___closed__3;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
lean_object* l_ReaderT_instApplicativeOfMonad___redArg___lam__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__5_spec__5___boxed(lean_object**);
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
@ -201,6 +202,7 @@ LEAN_EXPORT uint8_t l___private_Lean_Compiler_LCNF_SpecInfo_0__Lean_Compiler_LCN
static lean_object* l_Lean_Compiler_LCNF_initFn___closed__5____x40_Lean_Compiler_LCNF_SpecInfo___hyg_379_;
LEAN_EXPORT lean_object* l_Lean_PersistentHashMap_find_x3f___at___Lean_Compiler_LCNF_getSpecParamInfoCore_x3f_spec__0___redArg___boxed(lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_initFn___closed__0____x40_Lean_Compiler_LCNF_SpecInfo___hyg_379_;
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_reprSpecParamInfo___closed__1____x40_Lean_Compiler_LCNF_SpecInfo___hyg_20_;
LEAN_EXPORT uint8_t l___private_Init_Data_Array_Basic_0__Array_anyMUnsafe_any___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__9(lean_object*, size_t, size_t);
lean_object* lean_usize_to_nat(size_t);
@ -1040,9 +1042,8 @@ return x_1;
else
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_array_fget(x_6, x_2);
x_12 = lean_array_fget_borrowed(x_6, x_2);
x_13 = lean_name_eq(x_3, x_12);
lean_dec(x_12);
if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15;
@ -1089,9 +1090,8 @@ return x_25;
else
{
lean_object* x_26; uint8_t x_27;
x_26 = lean_array_fget(x_19, x_2);
x_26 = lean_array_fget_borrowed(x_19, x_2);
x_27 = lean_name_eq(x_3, x_26);
lean_dec(x_26);
if (x_27 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -1160,8 +1160,8 @@ return x_5;
else
{
lean_object* x_8; lean_object* x_9; uint64_t x_10; size_t x_11; size_t x_12; lean_object* x_13; size_t x_14; size_t x_15; size_t x_16; size_t x_17; lean_object* x_18; lean_object* x_19;
x_8 = lean_array_fget(x_2, x_4);
x_9 = lean_array_fget(x_3, x_4);
x_8 = lean_array_fget_borrowed(x_2, x_4);
x_9 = lean_array_fget_borrowed(x_3, x_4);
x_10 = l_Lean_Name_hash___override(x_8);
x_11 = lean_uint64_to_usize(x_10);
x_12 = 5;
@ -1172,6 +1172,8 @@ x_16 = lean_usize_mul(x_12, x_15);
x_17 = lean_usize_shift_right(x_11, x_16);
x_18 = lean_nat_add(x_4, x_13);
lean_dec(x_4);
lean_inc(x_9);
lean_inc(x_8);
x_19 = l_Lean_PersistentHashMap_insertAux___at___Lean_PersistentHashMap_insert___at___Lean_Compiler_LCNF_SpecState_addEntry_spec__0_spec__0___redArg(x_5, x_17, x_1, x_8, x_9);
x_4 = x_18;
x_5 = x_19;
@ -1791,9 +1793,8 @@ return x_5;
else
{
lean_object* x_6; uint8_t x_7;
x_6 = lean_array_fget(x_1, x_2);
x_6 = lean_array_fget_borrowed(x_1, x_2);
x_7 = lean_name_eq(x_3, x_6);
lean_dec(x_6);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9;
@ -2235,7 +2236,7 @@ _start:
{
lean_object* x_9; lean_object* x_15; lean_object* x_16; uint8_t x_17;
x_15 = lean_box(x_2);
x_16 = lean_array_get(x_15, x_3, x_8);
x_16 = lean_array_get_borrowed(x_15, x_3, x_8);
x_17 = lean_unbox(x_16);
switch (x_17) {
case 2:
@ -2251,13 +2252,10 @@ goto block_14;
default:
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21;
x_18 = lean_array_fget(x_4, x_8);
x_18 = lean_array_fget_borrowed(x_4, x_8);
x_19 = lean_ctor_get(x_18, 2);
lean_inc_ref(x_19);
lean_dec_ref(x_18);
x_20 = lean_ctor_get(x_5, 0);
x_21 = l___private_Lean_Expr_0__Lean_Expr_hasAnyFVar_visit___at___Lean_Expr_containsFVar_spec__0(x_20, x_19);
lean_dec_ref(x_19);
if (x_21 == 0)
{
x_9 = x_1;
@ -2340,10 +2338,9 @@ x_9 = lean_box(0);
x_10 = l___private_Lean_Compiler_LCNF_SpecInfo_0__Lean_Compiler_LCNF_hasFwdDeps___closed__0;
x_11 = l_Lean_Compiler_LCNF_instInhabitedParam;
x_12 = 0;
x_13 = lean_array_get(x_11, x_4, x_3);
x_13 = lean_array_get_borrowed(x_11, x_4, x_3);
x_14 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at_____private_Lean_Compiler_LCNF_SpecInfo_0__Lean_Compiler_LCNF_hasFwdDeps_spec__0___redArg(x_10, x_12, x_2, x_4, x_13, x_9, x_7, x_6);
lean_dec(x_7);
lean_dec_ref(x_13);
x_15 = lean_ctor_get(x_14, 0);
lean_inc(x_15);
lean_dec_ref(x_14);
@ -2477,11 +2474,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = lean_nat_dec_eq(x_8, x_9);
lean_dec(x_9);
lean_dec(x_8);
if (x_10 == 0)
{
lean_dec(x_7);
@ -2659,11 +2654,9 @@ lean_inc(x_30);
x_31 = lean_ctor_get(x_29, 1);
lean_inc(x_31);
lean_dec_ref(x_29);
x_32 = lean_array_fget(x_1, x_5);
x_32 = lean_array_fget_borrowed(x_1, x_5);
x_33 = lean_ctor_get(x_32, 2);
lean_inc_ref(x_33);
lean_dec_ref(x_32);
lean_inc_ref(x_33);
x_34 = l_Lean_Compiler_LCNF_isArrowClass_x3f___redArg(x_33, x_9, x_31);
if (lean_obj_tag(x_34) == 0)
{
@ -2738,7 +2731,6 @@ x_50 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeI
x_51 = l_Option_beqOption____x40_Init_Data_Option_Basic___hyg_161____at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__1(x_2, x_50);
if (x_51 == 0)
{
lean_dec_ref(x_33);
if (x_51 == 0)
{
goto block_43;
@ -2752,26 +2744,22 @@ else
{
if (lean_obj_tag(x_33) == 7)
{
lean_dec_ref(x_33);
goto block_40;
}
else
{
lean_dec_ref(x_33);
goto block_43;
}
}
}
else
{
lean_dec_ref(x_33);
goto block_46;
}
}
else
{
lean_dec_ref(x_35);
lean_dec_ref(x_33);
goto block_46;
}
}
@ -2779,7 +2767,6 @@ else
{
uint8_t x_52; lean_object* x_53;
lean_dec(x_35);
lean_dec_ref(x_33);
x_52 = 2;
x_53 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__5_spec__5___redArg___lam__0(x_4, x_52, x_6, x_7, x_8, x_9, x_36);
x_11 = x_53;
@ -2790,7 +2777,6 @@ else
{
uint8_t x_54; lean_object* x_55;
lean_dec(x_35);
lean_dec_ref(x_33);
x_54 = 4;
x_55 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__5_spec__5___redArg___lam__0(x_4, x_54, x_6, x_7, x_8, x_9, x_36);
x_11 = x_55;
@ -2802,7 +2788,6 @@ else
uint8_t x_56; lean_object* x_57;
lean_dec_ref(x_37);
lean_dec(x_35);
lean_dec_ref(x_33);
x_56 = 3;
x_57 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__5_spec__5___redArg___lam__0(x_4, x_56, x_6, x_7, x_8, x_9, x_36);
x_11 = x_57;
@ -2813,7 +2798,6 @@ goto block_28;
else
{
uint8_t x_63;
lean_dec_ref(x_33);
lean_dec(x_30);
lean_dec(x_5);
lean_dec_ref(x_4);
@ -2920,11 +2904,9 @@ lean_inc(x_32);
x_33 = lean_ctor_get(x_31, 1);
lean_inc(x_33);
lean_dec_ref(x_31);
x_34 = lean_array_fget(x_1, x_7);
x_34 = lean_array_fget_borrowed(x_1, x_7);
x_35 = lean_ctor_get(x_34, 2);
lean_inc_ref(x_35);
lean_dec_ref(x_34);
lean_inc_ref(x_35);
x_36 = l_Lean_Compiler_LCNF_isArrowClass_x3f___redArg(x_35, x_11, x_33);
if (lean_obj_tag(x_36) == 0)
{
@ -2999,7 +2981,6 @@ x_52 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeI
x_53 = l_Option_beqOption____x40_Init_Data_Option_Basic___hyg_161____at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__1(x_2, x_52);
if (x_53 == 0)
{
lean_dec_ref(x_35);
if (x_53 == 0)
{
goto block_45;
@ -3013,26 +2994,22 @@ else
{
if (lean_obj_tag(x_35) == 7)
{
lean_dec_ref(x_35);
goto block_42;
}
else
{
lean_dec_ref(x_35);
goto block_45;
}
}
}
else
{
lean_dec_ref(x_35);
goto block_48;
}
}
else
{
lean_dec_ref(x_37);
lean_dec_ref(x_35);
goto block_48;
}
}
@ -3040,7 +3017,6 @@ else
{
uint8_t x_54; lean_object* x_55;
lean_dec(x_37);
lean_dec_ref(x_35);
x_54 = 2;
x_55 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__5_spec__5___redArg___lam__0(x_6, x_54, x_8, x_9, x_10, x_11, x_38);
x_13 = x_55;
@ -3051,7 +3027,6 @@ else
{
uint8_t x_56; lean_object* x_57;
lean_dec(x_37);
lean_dec_ref(x_35);
x_56 = 4;
x_57 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__5_spec__5___redArg___lam__0(x_6, x_56, x_8, x_9, x_10, x_11, x_38);
x_13 = x_57;
@ -3063,7 +3038,6 @@ else
uint8_t x_58; lean_object* x_59;
lean_dec_ref(x_39);
lean_dec(x_37);
lean_dec_ref(x_35);
x_58 = 3;
x_59 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__5_spec__5___redArg___lam__0(x_6, x_58, x_8, x_9, x_10, x_11, x_38);
x_13 = x_59;
@ -3074,7 +3048,6 @@ goto block_30;
else
{
uint8_t x_65;
lean_dec_ref(x_35);
lean_dec(x_32);
lean_dec_ref(x_6);
x_65 = !lean_is_exclusive(x_36);
@ -4544,9 +4517,9 @@ return x_4;
else
{
lean_object* x_16; uint8_t x_17; lean_object* x_18; uint8_t x_19;
x_16 = lean_array_fget(x_1, x_3);
x_16 = lean_array_fget_borrowed(x_1, x_3);
x_17 = lean_unbox(x_16);
x_18 = lean_array_fget(x_2, x_3);
x_18 = lean_array_fget_borrowed(x_2, x_3);
x_19 = lean_unbox(x_18);
if (x_19 == 0)
{
@ -4590,7 +4563,7 @@ _start:
lean_object* x_7; lean_object* x_8; uint8_t x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18;
x_15 = 0;
x_16 = lean_box(x_15);
x_17 = lean_array_get(x_16, x_4, x_5);
x_17 = lean_array_get_borrowed(x_16, x_4, x_5);
x_18 = lean_unbox(x_17);
if (x_18 == 2)
{
@ -5270,15 +5243,12 @@ LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at__
_start:
{
lean_object* x_15; lean_object* x_16; lean_object* x_23; lean_object* x_28; lean_object* x_29; lean_object* x_30;
x_28 = lean_array_fget(x_1, x_9);
x_28 = lean_array_fget_borrowed(x_1, x_9);
x_29 = lean_ctor_get(x_28, 0);
lean_inc(x_29);
x_30 = l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at___Lean_NameMap_find_x3f_spec__0___redArg(x_2, x_29);
if (lean_obj_tag(x_30) == 0)
{
lean_object* x_31; lean_object* x_32;
lean_dec(x_29);
lean_dec_ref(x_28);
x_31 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___closed__3;
lean_inc(x_13);
lean_inc_ref(x_12);
@ -5320,16 +5290,15 @@ lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; uint
x_38 = lean_ctor_get(x_36, 0);
x_39 = lean_ctor_get(x_36, 1);
x_40 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___closed__7;
x_41 = lean_array_get(x_40, x_7, x_9);
x_41 = lean_array_get_borrowed(x_40, x_7, x_9);
x_42 = lean_unbox(x_38);
lean_dec(x_38);
if (x_42 == 0)
{
lean_object* x_43;
lean_free_object(x_36);
lean_inc(x_29);
x_43 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___lam__0(x_29, x_3, x_4, x_5, x_35, x_34, x_28, x_41, x_3, x_10, x_11, x_12, x_13, x_39);
lean_dec_ref(x_41);
lean_dec_ref(x_28);
lean_dec(x_34);
x_23 = x_43;
goto block_27;
@ -5364,9 +5333,8 @@ lean_inc(x_55);
x_56 = lean_ctor_get(x_54, 1);
lean_inc(x_56);
lean_dec_ref(x_54);
lean_inc(x_29);
x_57 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___lam__0(x_29, x_3, x_4, x_5, x_35, x_34, x_28, x_41, x_55, x_10, x_11, x_12, x_13, x_56);
lean_dec_ref(x_41);
lean_dec_ref(x_28);
lean_dec(x_34);
x_23 = x_57;
goto block_27;
@ -5381,15 +5349,14 @@ lean_inc(x_59);
lean_inc(x_58);
lean_dec(x_36);
x_60 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___closed__7;
x_61 = lean_array_get(x_60, x_7, x_9);
x_61 = lean_array_get_borrowed(x_60, x_7, x_9);
x_62 = lean_unbox(x_58);
lean_dec(x_58);
if (x_62 == 0)
{
lean_object* x_63;
lean_inc(x_29);
x_63 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___lam__0(x_29, x_3, x_4, x_5, x_35, x_34, x_28, x_61, x_3, x_10, x_11, x_12, x_13, x_59);
lean_dec_ref(x_61);
lean_dec_ref(x_28);
lean_dec(x_34);
x_23 = x_63;
goto block_27;
@ -5424,9 +5391,8 @@ lean_inc(x_76);
x_77 = lean_ctor_get(x_75, 1);
lean_inc(x_77);
lean_dec_ref(x_75);
lean_inc(x_29);
x_78 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___lam__0(x_29, x_3, x_4, x_5, x_35, x_34, x_28, x_61, x_76, x_10, x_11, x_12, x_13, x_77);
lean_dec_ref(x_61);
lean_dec_ref(x_28);
lean_dec(x_34);
x_23 = x_78;
goto block_27;
@ -5489,15 +5455,12 @@ LEAN_EXPORT lean_object* l_Std_PRange_RangeIterator_instIteratorLoop_loop___at__
_start:
{
lean_object* x_17; lean_object* x_18; lean_object* x_25; lean_object* x_30; lean_object* x_31; lean_object* x_32;
x_30 = lean_array_fget(x_1, x_11);
x_30 = lean_array_fget_borrowed(x_1, x_11);
x_31 = lean_ctor_get(x_30, 0);
lean_inc(x_31);
x_32 = l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at___Lean_NameMap_find_x3f_spec__0___redArg(x_3, x_31);
if (lean_obj_tag(x_32) == 0)
{
lean_object* x_33; lean_object* x_34;
lean_dec(x_31);
lean_dec_ref(x_30);
x_33 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___closed__3;
lean_inc(x_15);
lean_inc_ref(x_14);
@ -5538,16 +5501,15 @@ lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; uint
x_40 = lean_ctor_get(x_38, 0);
x_41 = lean_ctor_get(x_38, 1);
x_42 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___closed__7;
x_43 = lean_array_get(x_42, x_7, x_11);
x_43 = lean_array_get_borrowed(x_42, x_7, x_11);
x_44 = lean_unbox(x_40);
lean_dec(x_40);
if (x_44 == 0)
{
lean_object* x_45;
lean_free_object(x_38);
lean_inc(x_31);
x_45 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___lam__0(x_31, x_4, x_5, x_2, x_37, x_36, x_30, x_43, x_4, x_12, x_13, x_14, x_15, x_41);
lean_dec_ref(x_43);
lean_dec_ref(x_30);
lean_dec(x_36);
x_25 = x_45;
goto block_29;
@ -5582,9 +5544,8 @@ lean_inc(x_57);
x_58 = lean_ctor_get(x_56, 1);
lean_inc(x_58);
lean_dec_ref(x_56);
lean_inc(x_31);
x_59 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___lam__0(x_31, x_4, x_5, x_2, x_37, x_36, x_30, x_43, x_57, x_12, x_13, x_14, x_15, x_58);
lean_dec_ref(x_43);
lean_dec_ref(x_30);
lean_dec(x_36);
x_25 = x_59;
goto block_29;
@ -5599,15 +5560,14 @@ lean_inc(x_61);
lean_inc(x_60);
lean_dec(x_38);
x_62 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___closed__7;
x_63 = lean_array_get(x_62, x_7, x_11);
x_63 = lean_array_get_borrowed(x_62, x_7, x_11);
x_64 = lean_unbox(x_60);
lean_dec(x_60);
if (x_64 == 0)
{
lean_object* x_65;
lean_inc(x_31);
x_65 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___lam__0(x_31, x_4, x_5, x_2, x_37, x_36, x_30, x_63, x_4, x_12, x_13, x_14, x_15, x_61);
lean_dec_ref(x_63);
lean_dec_ref(x_30);
lean_dec(x_36);
x_25 = x_65;
goto block_29;
@ -5642,9 +5602,8 @@ lean_inc(x_78);
x_79 = lean_ctor_get(x_77, 1);
lean_inc(x_79);
lean_dec_ref(x_77);
lean_inc(x_31);
x_80 = l_Std_PRange_RangeIterator_instIteratorLoop_loop___at___Std_PRange_RangeIterator_instIteratorLoop_loop___at___Lean_Compiler_LCNF_saveSpecParamInfo_spec__19_spec__19___redArg___lam__0(x_31, x_4, x_5, x_2, x_37, x_36, x_30, x_63, x_78, x_12, x_13, x_14, x_15, x_79);
lean_dec_ref(x_63);
lean_dec_ref(x_30);
lean_dec(x_36);
x_25 = x_80;
goto block_29;
@ -6399,9 +6358,8 @@ return x_7;
else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_1, x_3);
x_8 = lean_array_fget_borrowed(x_1, x_3);
x_9 = lean_name_eq(x_4, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
@ -6414,8 +6372,9 @@ goto _start;
else
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_array_fget(x_2, x_3);
x_13 = lean_array_fget_borrowed(x_2, x_3);
lean_dec(x_3);
lean_inc(x_13);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;
@ -6607,7 +6566,7 @@ x_5 = lean_nat_add(x_3, x_4);
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_shiftr(x_5, x_6);
lean_dec(x_5);
x_8 = lean_array_fget(x_1, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = l___private_Init_Data_Array_QSort_Basic_0__Array_qsort_sort___at___Lean_Compiler_LCNF_initFn____x40_Lean_Compiler_LCNF_SpecInfo___hyg_379__spec__0___redArg___lam__0(x_8, x_2);
if (x_9 == 0)
{
@ -6619,6 +6578,7 @@ if (x_10 == 0)
lean_object* x_11;
lean_dec(x_7);
lean_dec(x_3);
lean_inc_ref(x_8);
x_11 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_11, 0, x_8);
return x_11;
@ -6626,7 +6586,6 @@ return x_11;
else
{
lean_object* x_12; uint8_t x_13;
lean_dec_ref(x_8);
x_12 = lean_unsigned_to_nat(0u);
x_13 = lean_nat_dec_eq(x_7, x_12);
if (x_13 == 0)
@ -6662,7 +6621,6 @@ return x_18;
else
{
lean_object* x_19; uint8_t x_20;
lean_dec_ref(x_8);
lean_dec(x_3);
x_19 = lean_nat_add(x_7, x_6);
lean_dec(x_7);

885
stage0/stdlib/Lean/Compiler/LCNF/Specialize.c generated
View file

File diff suppressed because it is too large Load diff

8
stage0/stdlib/Lean/Compiler/LCNF/Testing.c generated
View file

@ -42,6 +42,7 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Testing_assert___boxed(lean_object
static lean_object* l___private_Lean_Compiler_LCNF_Testing_0__Lean_Compiler_LCNF_Testing_assertAfterTest___lam__0___closed__10;
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Testing_assertAfterEachOccurrence___boxed(lean_object*, lean_object*, lean_object*);
static lean_object* l___private_Lean_Compiler_LCNF_Testing_0__Lean_Compiler_LCNF_Testing_assertAfterTest___lam__0___closed__12;
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_throwError___at___Lean_Compiler_LCNF_Testing_assertNoFun_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Testing_assertNoFun(uint8_t, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Testing_getOutputDecls___redArg(lean_object*, lean_object*);
@ -122,7 +123,6 @@ LEAN_EXPORT uint8_t l_panic___at_____private_Lean_Compiler_LCNF_Testing_0__Lean_
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Testing_assertAfter(uint8_t, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Testing_getDecls(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_throwError___at___Lean_Compiler_LCNF_Testing_assertNoFun_spec__0___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Testing_TestM_run___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static double l_Lean_addTrace___at_____private_Lean_Compiler_LCNF_Testing_0__Lean_Compiler_LCNF_Testing_assertAfterTest_spec__1___redArg___closed__0;
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Testing_assertNoFun___lam__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -3625,11 +3625,9 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_3, x_6);
lean_dec(x_3);
x_8 = lean_array_fget(x_1, x_7);
x_9 = lean_array_fget(x_2, x_7);
x_8 = lean_array_fget_borrowed(x_1, x_7);
x_9 = lean_array_fget_borrowed(x_2, x_7);
x_10 = l_Lean_Compiler_LCNF_beqDecl____x40_Lean_Compiler_LCNF_Basic___hyg_7769_(x_8, x_9);
lean_dec_ref(x_9);
lean_dec_ref(x_8);
if (x_10 == 0)
{
lean_dec(x_7);

9
stage0/stdlib/Lean/Compiler/LCNF/ToDecl.c generated
View file

@ -88,6 +88,7 @@ static lean_object* l___private_Lean_Compiler_LCNF_ToDecl_0__Lean_Compiler_LCNF_
LEAN_EXPORT lean_object* l_Lean_throwError___at___Lean_throwErrorAt___at___Lean_throwUnknownIdentifierAt___at___Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_macroInline_spec__0_spec__0_spec__0_spec__0_spec__1_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Environment_find_x3f(lean_object*, lean_object*, uint8_t);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_toDecl___lam__1(uint8_t, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_inlineMatchers___lam__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_mkUnknownIdentifierMessage___at___Lean_throwUnknownIdentifierAt___at___Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at_____private_Lean_Compiler_LCNF_ToDecl_0__Lean_Compiler_LCNF_inlineMatchers_inlineMatcher_spec__0_spec__0_spec__0_spec__0_spec__0(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_throwUnknownIdentifierAt___at___Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at_____private_Lean_Compiler_LCNF_ToDecl_0__Lean_Compiler_LCNF_inlineMatchers_inlineMatcher_spec__0_spec__0_spec__0_spec__0___redArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -204,6 +205,7 @@ LEAN_EXPORT lean_object* l_Lean_throwError___at___Lean_Compiler_LCNF_toDecl_spec
static lean_object* l_Lean_mkUnknownIdentifierMessage___at___Lean_throwUnknownIdentifierAt___at___Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_macroInline_spec__0_spec__0_spec__0_spec__0_spec__0___lam__0___closed__0;
LEAN_EXPORT lean_object* l_Lean_Meta_withLetDecl___at_____private_Lean_Compiler_LCNF_ToDecl_0__Lean_Compiler_LCNF_normalizeAlt_spec__0___redArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_throwUnknownConstantAt___at___Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_macroInline_spec__0_spec__0_spec__0___redArg___closed__3;
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_throwMaxRecDepthAt___at___Lean_Core_withIncRecDepth___at_____private_Lean_Meta_Transform_0__Lean_Core_transform_visit___at___Lean_Core_transform___at___Lean_Compiler_LCNF_macroInline_spec__8_spec__8_spec__13_spec__13___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MessageData_ofConstName(lean_object*, uint8_t);
static lean_object* l_Lean_Core_transform___at___Lean_Compiler_LCNF_macroInline_spec__8___closed__2;
@ -326,7 +328,6 @@ lean_object* lean_array_get_size(lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Meta_Transform_0__Lean_Meta_transformWithCache_visit___at___Lean_Meta_transform___at___Lean_Compiler_LCNF_inlineMatchers_spec__1_spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Meta_Transform_0__Lean_Core_transform_visit___at___Lean_Core_transform___at___Lean_Compiler_LCNF_macroInline_spec__8_spec__8(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_throwUnknownConstant___at___Lean_getConstInfo___at___Lean_Compiler_LCNF_macroInline_spec__0_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* lean_infer_type(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_getInlineAttribute_x3f(lean_object*, lean_object*);
@ -5755,13 +5756,15 @@ x_28 = lean_ctor_get(x_3, 2);
x_29 = l_Lean_Meta_Match_MatcherInfo_getFirstAltPos(x_3);
x_30 = lean_nat_add(x_4, x_29);
lean_dec(x_29);
x_31 = lean_array_fget(x_28, x_4);
x_31 = lean_array_fget_borrowed(x_28, x_4);
x_32 = l_Lean_instInhabitedExpr;
x_33 = lean_array_get(x_32, x_5, x_30);
x_33 = lean_array_get_borrowed(x_32, x_5, x_30);
lean_inc(x_10);
lean_inc_ref(x_9);
lean_inc(x_8);
lean_inc_ref(x_7);
lean_inc(x_31);
lean_inc_ref(x_33);
x_34 = l___private_Lean_Compiler_LCNF_ToDecl_0__Lean_Compiler_LCNF_normalizeAlt(x_33, x_31, x_7, x_8, x_9, x_10, x_11);
if (lean_obj_tag(x_34) == 0)
{

21
stage0/stdlib/Lean/Compiler/LCNF/ToExpr.c generated
View file

@ -32,6 +32,7 @@ LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_ToExpr_mkLambdaM(lean_object*, lea
lean_object* l_Lean_Expr_proj___override(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_bvar___override(lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_ToExpr_0__Lean_FVarId_toExpr___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget_borrowed(lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_ToExpr_run_x27___redArg___closed__3;
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_ToExpr_0__Lean_Expr_abstract_x27(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at_____private_Lean_Compiler_LCNF_ToExpr_0__Lean_FVarId_toExpr_spec__0___redArg(lean_object*, lean_object*);
@ -72,13 +73,13 @@ LEAN_EXPORT lean_object* l___private_Init_Data_Array_Basic_0__Array_mapMUnsafe_m
static lean_object* l_Lean_Compiler_LCNF_ToExpr_run_x27___redArg___closed__5;
lean_object* l_Lean_Compiler_LCNF_LetValue_toExpr(lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_ToExpr_0__Lean_Compiler_LCNF_ToExpr_mkLambdaM_go___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_borrowed(lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Code_toExpr(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_ToExpr_0__Lean_Compiler_LCNF_ToExpr_withParams_go___at___Lean_Compiler_LCNF_FunDecl_toExprM_spec__0___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Lean_Compiler_LCNF_Code_toExpr___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_ToExpr_0__Lean_Compiler_LCNF_ToExpr_withParams_go___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
static lean_object* l_Lean_Compiler_LCNF_ToExpr_run_x27___redArg___closed__7;
static lean_object* l_Lean_Compiler_LCNF_Code_toExprM___closed__6;
lean_object* lean_array_fget(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at_____private_Lean_Compiler_LCNF_ToExpr_0__Lean_FVarId_toExpr_spec__0___redArg___boxed(lean_object*, lean_object*);
LEAN_EXPORT lean_object* l___private_Lean_Compiler_LCNF_ToExpr_0__Lean_Expr_abstract_x27___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Id_instMonad___lam__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -111,7 +112,6 @@ size_t lean_array_size(lean_object*);
lean_object* l_Lean_Name_mkStr1(lean_object*);
lean_object* lean_array_get_size(lean_object*);
lean_object* l_Id_instMonad___lam__0(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
uint8_t lean_usize_dec_lt(size_t, size_t);
LEAN_EXPORT lean_object* l_Std_DTreeMap_Internal_Impl_Const_get_x3f___at_____private_Lean_Compiler_LCNF_ToExpr_0__Lean_FVarId_toExpr_spec__0___boxed(lean_object*, lean_object*, lean_object*);
@ -394,16 +394,15 @@ x_8 = l_Lean_Compiler_LCNF_instInhabitedParam;
x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_sub(x_4, x_9);
lean_dec(x_4);
x_11 = lean_array_get(x_8, x_1, x_10);
x_11 = lean_array_get_borrowed(x_8, x_1, x_10);
x_12 = lean_ctor_get(x_11, 1);
lean_inc(x_12);
x_13 = lean_ctor_get(x_11, 2);
lean_inc_ref(x_13);
lean_dec_ref(x_11);
x_14 = lean_nat_sub(x_2, x_9);
lean_dec(x_2);
lean_inc_ref(x_13);
x_15 = l___private_Lean_Compiler_LCNF_ToExpr_0__Lean_Expr_abstract_x27_go(x_3, x_14, x_13);
x_16 = 0;
lean_inc(x_12);
x_17 = l_Lean_Expr_lam___override(x_12, x_15, x_5, x_16);
x_2 = x_14;
x_4 = x_10;
@ -526,14 +525,13 @@ return x_8;
else
{
lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14;
x_9 = lean_array_fget(x_1, x_3);
x_9 = lean_array_fget_borrowed(x_1, x_3);
x_10 = lean_ctor_get(x_9, 0);
lean_inc(x_10);
lean_dec_ref(x_9);
x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_add(x_3, x_11);
lean_dec(x_3);
lean_inc(x_4);
lean_inc(x_10);
x_13 = l_Std_DTreeMap_Internal_Impl_insert___at___Lean_FVarIdSet_insert_spec__1___redArg(x_10, x_4, x_5);
x_14 = lean_nat_add(x_4, x_11);
lean_dec(x_4);
@ -904,14 +902,13 @@ return x_19;
else
{
lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25;
x_20 = lean_array_fget(x_3, x_4);
x_20 = lean_array_fget_borrowed(x_3, x_4);
x_21 = lean_ctor_get(x_20, 0);
lean_inc(x_21);
lean_dec_ref(x_20);
x_22 = lean_unsigned_to_nat(1u);
x_23 = lean_nat_add(x_4, x_22);
lean_dec(x_4);
lean_inc(x_5);
lean_inc(x_21);
x_24 = l_Std_DTreeMap_Internal_Impl_insert___at___Lean_FVarIdSet_insert_spec__1___redArg(x_21, x_5, x_6);
x_25 = lean_nat_add(x_5, x_22);
lean_dec(x_5);

Some files were not shown because too many files have changed in this diff Show more