chore: update stage0
This commit is contained in:
Sebastian Ullrich
parent
9d0302e749
commit
bbb448cdf6
1 changed files with 153 additions and 425 deletions
578
stage0/stdlib/Lean/Compiler/IR/EmitC.c
generated
578
stage0/stdlib/Lean/Compiler/IR/EmitC.c
generated
|
|
@ -59,7 +59,6 @@ static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__22;
|
|||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__1___closed__10;
|
||||
lean_object* l_Lean_IR_EmitC_emitArg___boxed(lean_object*, lean_object*, lean_object*);
|
||||
uint64_t lean_uint64_of_nat(lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__6;
|
||||
lean_object* l_Lean_IR_EmitC_emitUProj(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2;
|
||||
static lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__4;
|
||||
|
|
@ -139,13 +138,11 @@ static lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__15;
|
|||
static lean_object* l_Lean_IR_EmitC_declareVar___closed__1;
|
||||
static lean_object* l_Lean_IR_EmitC_emitExternCall___closed__1;
|
||||
LEAN_EXPORT lean_object* l_List_foldl___at_Lean_IR_EmitC_emitFnDecls___spec__1___boxed(lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__4;
|
||||
lean_object* l_Nat_nextPowerOfTwo_go(lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_IR_EmitC_emitSSet(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_IR_EmitC_emitFnDecl(lean_object*, uint8_t, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_toCType___closed__4;
|
||||
static lean_object* l_Lean_IR_EmitC_emitReuse___closed__2;
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__1;
|
||||
lean_object* l_Lean_IR_EmitC_emitCName(lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitInitFn___closed__5;
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__24;
|
||||
|
|
@ -154,7 +151,6 @@ static lean_object* l_Lean_IR_EmitC_emitJmp___lambda__1___closed__2;
|
|||
LEAN_EXPORT lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitArgs___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitNumLit___closed__4;
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__1___closed__16;
|
||||
uint8_t l_Lean_Name_isPrefixOf(lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__19;
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__1___closed__5;
|
||||
static lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___closed__1;
|
||||
|
|
@ -186,7 +182,6 @@ LEAN_EXPORT lean_object* l_Lean_RBNode_revFold___at_Lean_IR_EmitC_emitFnDecls___
|
|||
static lean_object* l_Lean_IR_EmitC_emitMainFn___closed__2;
|
||||
lean_object* l_Lean_IR_EmitC_emitSet___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_IR_EmitC_emitFnBody(lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_Name_mkStr3(lean_object*, lean_object*, lean_object*);
|
||||
LEAN_EXPORT lean_object* l_List_forM___at_Lean_IR_EmitC_emitLns___spec__1(lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitSSet___closed__6;
|
||||
LEAN_EXPORT lean_object* l_Nat_foldM_loop___at_Lean_IR_EmitC_emitSimpleExternalCall___spec__1___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
|
|
@ -208,7 +203,6 @@ static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__13;
|
|||
lean_object* l_Lean_IR_EmitC_emitNumLit___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
LEAN_EXPORT lean_object* l_Nat_anyTR_loop___at_Lean_IR_EmitC_overwriteParam___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__3___closed__3;
|
||||
uint8_t l_Lean_IR_EmitC_shouldExport(lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitInc___closed__2;
|
||||
lean_object* lean_string_utf8_next(lean_object*, lean_object*);
|
||||
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
|
||||
|
|
@ -237,7 +231,6 @@ static lean_object* l_Lean_IR_EmitC_toCName___closed__4;
|
|||
lean_object* l_Lean_IR_EmitC_toCType(lean_object*);
|
||||
lean_object* l_Lean_IR_EmitC_emitBoxFn(lean_object*, lean_object*, lean_object*);
|
||||
lean_object* lean_nat_div(lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__9;
|
||||
static lean_object* l_Lean_IR_EmitC_emitSProj___closed__5;
|
||||
LEAN_EXPORT lean_object* l_List_forM___at_Lean_IR_EmitC_emitFns___spec__1(lean_object*, lean_object*, lean_object*);
|
||||
extern lean_object* l_Lean_closureMaxArgs;
|
||||
|
|
@ -247,7 +240,6 @@ lean_object* l_Lean_IR_EmitC_emitUSet(lean_object*, lean_object*, lean_object*,
|
|||
static lean_object* l_String_foldlAux___at_Lean_IR_EmitC_quoteString___spec__1___closed__4;
|
||||
LEAN_EXPORT lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitArgs___spec__1___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
uint8_t l_Lean_IR_EmitC_overwriteParam(lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__12;
|
||||
extern lean_object* l_Lean_exportAttr;
|
||||
LEAN_EXPORT lean_object* l_List_forM___at_Lean_IR_EmitC_emitLns___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitTailCall___closed__1;
|
||||
|
|
@ -297,7 +289,6 @@ static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__1___closed__18;
|
|||
static lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__12;
|
||||
static lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__23;
|
||||
static lean_object* l_Lean_IR_EmitC_emitCtor___closed__1;
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__5;
|
||||
lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
LEAN_EXPORT uint8_t l_Nat_anyTR_loop___at_Lean_IR_EmitC_overwriteParam___spec__2(lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitInitFn___closed__8;
|
||||
|
|
@ -314,7 +305,6 @@ static lean_object* l_Lean_IR_EmitC_emitInitFn___closed__10;
|
|||
lean_object* l_Lean_IR_EmitC_emitMarkPersistent___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_Expr_constName_x3f(lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitInitFn___closed__11;
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__10;
|
||||
static lean_object* l_Lean_IR_EmitC_emitApp___closed__1;
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__1___closed__8;
|
||||
LEAN_EXPORT lean_object* l_String_foldlAux___at_Lean_IR_EmitC_quoteString___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
|
|
@ -331,12 +321,10 @@ lean_object* l_Lean_IR_EmitC_emitSet(lean_object*, lean_object*, lean_object*, l
|
|||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__6;
|
||||
lean_object* l_Lean_IR_EmitC_emitTailCall___lambda__1(lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_IR_EmitC_emitFnBody___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_IR_EmitC_shouldExport___boxed(lean_object*);
|
||||
lean_object* l_Lean_IR_EmitC_emitLns___at_Lean_IR_EmitC_emitMainFn___spec__1___boxed(lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__17;
|
||||
uint8_t lean_name_eq(lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_toCType___closed__1;
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__7;
|
||||
lean_object* l_Lean_Name_str___override(lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitBoxFn___closed__1;
|
||||
static lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__24;
|
||||
|
|
@ -350,7 +338,6 @@ lean_object* l_Lean_IR_EmitC_emitIf___boxed(lean_object*, lean_object*, lean_obj
|
|||
lean_object* l_Lean_IR_EmitC_emitBlock(lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitApp___closed__5;
|
||||
LEAN_EXPORT lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitTailCall___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__3;
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__1___closed__6;
|
||||
lean_object* l_Lean_IR_EmitC_emitReset___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_IR_EmitC_emitPartialApp(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
|
|
@ -422,7 +409,6 @@ static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__30;
|
|||
static lean_object* l_Lean_IR_EmitC_emitInitFn___closed__7;
|
||||
extern lean_object* l_Lean_NameSet_empty;
|
||||
static lean_object* l_List_forM___at_Lean_IR_EmitC_emitFnDecls___spec__5___closed__1;
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__13;
|
||||
static lean_object* l_Lean_IR_EmitC_emitPartialApp___closed__2;
|
||||
static lean_object* l_Lean_IR_EmitC_emitDeclAux___lambda__3___closed__2;
|
||||
lean_object* l_Lean_IR_EmitC_emitCtorScalarSize(lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
|
|
@ -462,8 +448,6 @@ lean_object* l_Lean_IR_EmitC_emit___rarg(lean_object*, lean_object*, lean_object
|
|||
LEAN_EXPORT lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitDeclAux___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_IR_EmitC_getJPParams___boxed(lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_Name_mkStr2(lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__8;
|
||||
lean_object* l_Lean_IR_getDecls(lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_toCType___closed__5;
|
||||
lean_object* l_Lean_ParametricAttribute_getParam_x3f___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
|
|
@ -539,7 +523,6 @@ static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__11;
|
|||
size_t lean_usize_sub(size_t, size_t);
|
||||
lean_object* l_Lean_IR_EmitC_emitInitFn___boxed(lean_object*, lean_object*);
|
||||
static lean_object* l_String_foldlAux___at_Lean_IR_EmitC_quoteString___spec__1___closed__1;
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__2;
|
||||
static lean_object* l_Lean_IR_EmitC_emitNumLit___closed__1;
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__29;
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___closed__1;
|
||||
|
|
@ -604,7 +587,6 @@ static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__7;
|
|||
lean_object* l_Lean_IR_collectUsedDecls(lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__1___closed__15;
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__16;
|
||||
static lean_object* l_Lean_IR_EmitC_shouldExport___closed__11;
|
||||
static lean_object* l_Lean_IR_EmitC_getDecl___closed__1;
|
||||
static lean_object* l_Lean_IR_EmitC_emitInitFn___closed__1;
|
||||
lean_object* l_Lean_IR_Decl_normalizeIds(lean_object*);
|
||||
|
|
@ -637,6 +619,7 @@ static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__1___closed__1;
|
|||
static lean_object* l_Lean_IR_EmitC_toCType___closed__7;
|
||||
lean_object* l_Lean_IR_EmitC_emitOffset___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Array_foldlMUnsafe_fold___at_Lean_IR_EmitC_emitCase___spec__1___closed__2;
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4;
|
||||
lean_object* l_Lean_IR_EmitC_emitCInitName___boxed(lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_IR_EmitC_emitDeclAux___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__14;
|
||||
|
|
@ -1817,202 +1800,6 @@ lean_dec(x_2);
|
|||
return x_4;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__1() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1;
|
||||
x_1 = lean_mk_string_unchecked("Lean", 4, 4);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__2() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1;
|
||||
x_1 = lean_mk_string_unchecked("Compiler", 8, 8);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__3() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1;
|
||||
x_1 = lean_mk_string_unchecked("LCNF", 4, 4);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__4() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
|
||||
x_1 = l_Lean_IR_EmitC_shouldExport___closed__1;
|
||||
x_2 = l_Lean_IR_EmitC_shouldExport___closed__2;
|
||||
x_3 = l_Lean_IR_EmitC_shouldExport___closed__3;
|
||||
x_4 = l_Lean_Name_mkStr3(x_1, x_2, x_3);
|
||||
return x_4;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__5() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1;
|
||||
x_1 = lean_mk_string_unchecked("IR", 2, 2);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__6() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1; lean_object* x_2; lean_object* x_3;
|
||||
x_1 = l_Lean_IR_EmitC_shouldExport___closed__1;
|
||||
x_2 = l_Lean_IR_EmitC_shouldExport___closed__5;
|
||||
x_3 = l_Lean_Name_mkStr2(x_1, x_2);
|
||||
return x_3;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__7() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1;
|
||||
x_1 = lean_mk_string_unchecked("Server", 6, 6);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__8() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1;
|
||||
x_1 = lean_mk_string_unchecked("Watchdog", 8, 8);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__9() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
|
||||
x_1 = l_Lean_IR_EmitC_shouldExport___closed__1;
|
||||
x_2 = l_Lean_IR_EmitC_shouldExport___closed__7;
|
||||
x_3 = l_Lean_IR_EmitC_shouldExport___closed__8;
|
||||
x_4 = l_Lean_Name_mkStr3(x_1, x_2, x_3);
|
||||
return x_4;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__10() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1;
|
||||
x_1 = lean_mk_string_unchecked("ImportCompletion", 16, 16);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__11() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
|
||||
x_1 = l_Lean_IR_EmitC_shouldExport___closed__1;
|
||||
x_2 = l_Lean_IR_EmitC_shouldExport___closed__7;
|
||||
x_3 = l_Lean_IR_EmitC_shouldExport___closed__10;
|
||||
x_4 = l_Lean_Name_mkStr3(x_1, x_2, x_3);
|
||||
return x_4;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__12() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1;
|
||||
x_1 = lean_mk_string_unchecked("Completion", 10, 10);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__13() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
|
||||
x_1 = l_Lean_IR_EmitC_shouldExport___closed__1;
|
||||
x_2 = l_Lean_IR_EmitC_shouldExport___closed__7;
|
||||
x_3 = l_Lean_IR_EmitC_shouldExport___closed__12;
|
||||
x_4 = l_Lean_Name_mkStr3(x_1, x_2, x_3);
|
||||
return x_4;
|
||||
}
|
||||
}
|
||||
uint8_t l_Lean_IR_EmitC_shouldExport(lean_object* x_1) {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_2; uint8_t x_3;
|
||||
x_2 = l_Lean_IR_EmitC_shouldExport___closed__4;
|
||||
x_3 = l_Lean_Name_isPrefixOf(x_2, x_1);
|
||||
if (x_3 == 0)
|
||||
{
|
||||
lean_object* x_4; uint8_t x_5;
|
||||
x_4 = l_Lean_IR_EmitC_shouldExport___closed__6;
|
||||
x_5 = l_Lean_Name_isPrefixOf(x_4, x_1);
|
||||
if (x_5 == 0)
|
||||
{
|
||||
lean_object* x_6; uint8_t x_7;
|
||||
x_6 = l_Lean_IR_EmitC_shouldExport___closed__9;
|
||||
x_7 = l_Lean_Name_isPrefixOf(x_6, x_1);
|
||||
if (x_7 == 0)
|
||||
{
|
||||
lean_object* x_8; uint8_t x_9;
|
||||
x_8 = l_Lean_IR_EmitC_shouldExport___closed__11;
|
||||
x_9 = l_Lean_Name_isPrefixOf(x_8, x_1);
|
||||
if (x_9 == 0)
|
||||
{
|
||||
lean_object* x_10; uint8_t x_11;
|
||||
x_10 = l_Lean_IR_EmitC_shouldExport___closed__13;
|
||||
x_11 = l_Lean_Name_isPrefixOf(x_10, x_1);
|
||||
if (x_11 == 0)
|
||||
{
|
||||
uint8_t x_12;
|
||||
x_12 = 1;
|
||||
return x_12;
|
||||
}
|
||||
else
|
||||
{
|
||||
uint8_t x_13;
|
||||
x_13 = 0;
|
||||
return x_13;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
uint8_t x_14;
|
||||
x_14 = 0;
|
||||
return x_14;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
uint8_t x_15;
|
||||
x_15 = 0;
|
||||
return x_15;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
uint8_t x_16;
|
||||
x_16 = 0;
|
||||
return x_16;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
uint8_t x_17;
|
||||
x_17 = 0;
|
||||
return x_17;
|
||||
}
|
||||
}
|
||||
}
|
||||
lean_object* l_Lean_IR_EmitC_shouldExport___boxed(lean_object* x_1) {
|
||||
_start:
|
||||
{
|
||||
uint8_t x_2; lean_object* x_3;
|
||||
x_2 = l_Lean_IR_EmitC_shouldExport(x_1);
|
||||
lean_dec(x_1);
|
||||
x_3 = lean_box(x_2);
|
||||
return x_3;
|
||||
}
|
||||
}
|
||||
LEAN_EXPORT lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___lambda__1(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:
|
||||
{
|
||||
|
|
@ -2406,60 +2193,56 @@ if (x_10 == 0)
|
|||
{
|
||||
if (x_3 == 0)
|
||||
{
|
||||
lean_object* x_11; uint8_t x_12;
|
||||
x_11 = l_Lean_IR_Decl_name(x_1);
|
||||
x_12 = l_Lean_IR_EmitC_shouldExport(x_11);
|
||||
lean_dec(x_11);
|
||||
if (x_12 == 0)
|
||||
{
|
||||
lean_object* x_13; lean_object* x_14;
|
||||
lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14;
|
||||
x_11 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1;
|
||||
x_12 = lean_string_append(x_9, x_11);
|
||||
x_13 = lean_box(0);
|
||||
x_14 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_13, x_4, x_9);
|
||||
x_14 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_13, x_4, x_12);
|
||||
lean_dec(x_8);
|
||||
return x_14;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18;
|
||||
x_15 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1;
|
||||
x_16 = lean_string_append(x_9, x_15);
|
||||
x_17 = lean_box(0);
|
||||
x_18 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_17, x_4, x_16);
|
||||
lean_object* x_15; lean_object* x_16;
|
||||
x_15 = lean_box(0);
|
||||
x_16 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_15, x_4, x_9);
|
||||
lean_dec(x_8);
|
||||
return x_18;
|
||||
return x_16;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_19; lean_object* x_20;
|
||||
x_19 = lean_box(0);
|
||||
x_20 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_19, x_4, x_9);
|
||||
lean_dec(x_8);
|
||||
return x_20;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_21; uint8_t x_22;
|
||||
x_21 = l_Lean_IR_Decl_name(x_1);
|
||||
x_22 = l_Lean_isClosedTermName(x_8, x_21);
|
||||
lean_dec(x_21);
|
||||
if (x_22 == 0)
|
||||
lean_object* x_17; uint8_t x_18;
|
||||
x_17 = l_Lean_IR_Decl_name(x_1);
|
||||
x_18 = l_Lean_isClosedTermName(x_8, x_17);
|
||||
lean_dec(x_17);
|
||||
if (x_18 == 0)
|
||||
{
|
||||
if (x_3 == 0)
|
||||
{
|
||||
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22;
|
||||
x_19 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1;
|
||||
x_20 = lean_string_append(x_9, x_19);
|
||||
x_21 = lean_box(0);
|
||||
x_22 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_21, x_4, x_20);
|
||||
lean_dec(x_8);
|
||||
return x_22;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26;
|
||||
x_23 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1;
|
||||
x_23 = l_Lean_IR_EmitC_emitFnDeclAux___closed__2;
|
||||
x_24 = lean_string_append(x_9, x_23);
|
||||
x_25 = lean_box(0);
|
||||
x_26 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_25, x_4, x_24);
|
||||
lean_dec(x_8);
|
||||
return x_26;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30;
|
||||
x_27 = l_Lean_IR_EmitC_emitFnDeclAux___closed__2;
|
||||
x_27 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3;
|
||||
x_28 = lean_string_append(x_9, x_27);
|
||||
x_29 = lean_box(0);
|
||||
x_30 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_29, x_4, x_28);
|
||||
|
|
@ -2467,17 +2250,6 @@ lean_dec(x_8);
|
|||
return x_30;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34;
|
||||
x_31 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3;
|
||||
x_32 = lean_string_append(x_9, x_31);
|
||||
x_33 = lean_box(0);
|
||||
x_34 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_33, x_4, x_32);
|
||||
lean_dec(x_8);
|
||||
return x_34;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
LEAN_EXPORT lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___lambda__1___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) {
|
||||
|
|
@ -3814,14 +3586,22 @@ return x_21;
|
|||
static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__1() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1;
|
||||
x_1 = lean_mk_string_unchecked("Lean", 4, 4);
|
||||
return x_1;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1; lean_object* x_2; lean_object* x_3;
|
||||
x_1 = lean_box(0);
|
||||
x_2 = l_Lean_IR_EmitC_shouldExport___closed__1;
|
||||
x_2 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__1;
|
||||
x_3 = l_Lean_Name_str___override(x_1, x_2);
|
||||
return x_3;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2() {
|
||||
static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1;
|
||||
|
|
@ -3829,7 +3609,7 @@ x_1 = lean_mk_string_unchecked("void lean_initialize_runtime_module();", 38, 38)
|
|||
return x_1;
|
||||
}
|
||||
}
|
||||
static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3() {
|
||||
static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4() {
|
||||
_start:
|
||||
{
|
||||
lean_object* x_1;
|
||||
|
|
@ -3847,12 +3627,12 @@ lean_inc(x_7);
|
|||
x_8 = lean_ctor_get(x_6, 1);
|
||||
lean_inc(x_8);
|
||||
lean_dec(x_6);
|
||||
x_9 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__1;
|
||||
x_9 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2;
|
||||
x_10 = l_Lean_IR_usesModuleFrom(x_7, x_9);
|
||||
if (x_10 == 0)
|
||||
{
|
||||
lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16;
|
||||
x_11 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2;
|
||||
x_11 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3;
|
||||
x_12 = lean_string_append(x_8, x_11);
|
||||
x_13 = l_Lean_IR_EmitC_emitLn___rarg___closed__1;
|
||||
x_14 = lean_string_append(x_12, x_13);
|
||||
|
|
@ -3863,7 +3643,7 @@ return x_16;
|
|||
else
|
||||
{
|
||||
lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22;
|
||||
x_17 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3;
|
||||
x_17 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4;
|
||||
x_18 = lean_string_append(x_8, x_17);
|
||||
x_19 = l_Lean_IR_EmitC_emitLn___rarg___closed__1;
|
||||
x_20 = lean_string_append(x_18, x_19);
|
||||
|
|
@ -13731,19 +13511,19 @@ lean_inc(x_10);
|
|||
x_11 = l_Lean_hasInitAttr(x_5, x_10);
|
||||
if (x_11 == 0)
|
||||
{
|
||||
uint8_t x_71;
|
||||
x_71 = 0;
|
||||
x_12 = x_71;
|
||||
goto block_70;
|
||||
uint8_t x_65;
|
||||
x_65 = 0;
|
||||
x_12 = x_65;
|
||||
goto block_64;
|
||||
}
|
||||
else
|
||||
{
|
||||
uint8_t x_72;
|
||||
x_72 = 1;
|
||||
x_12 = x_72;
|
||||
goto block_70;
|
||||
uint8_t x_66;
|
||||
x_66 = 1;
|
||||
x_12 = x_66;
|
||||
goto block_64;
|
||||
}
|
||||
block_70:
|
||||
block_64:
|
||||
{
|
||||
if (x_12 == 0)
|
||||
{
|
||||
|
|
@ -13783,205 +13563,177 @@ x_24 = lean_nat_dec_eq(x_22, x_23);
|
|||
lean_dec(x_22);
|
||||
if (x_24 == 0)
|
||||
{
|
||||
uint8_t x_25;
|
||||
x_25 = l_Lean_IR_EmitC_shouldExport(x_13);
|
||||
if (x_25 == 0)
|
||||
{
|
||||
lean_object* x_26; lean_object* x_27;
|
||||
x_26 = lean_box(0);
|
||||
x_27 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_20, x_26, x_2, x_21);
|
||||
lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28;
|
||||
x_25 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1;
|
||||
x_26 = lean_string_append(x_21, x_25);
|
||||
x_27 = lean_box(0);
|
||||
x_28 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_20, x_27, x_2, x_26);
|
||||
lean_dec(x_20);
|
||||
lean_dec(x_15);
|
||||
return x_27;
|
||||
return x_28;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31;
|
||||
x_28 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1;
|
||||
x_29 = lean_string_append(x_21, x_28);
|
||||
x_30 = lean_box(0);
|
||||
x_31 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_20, x_30, x_2, x_29);
|
||||
lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32;
|
||||
x_29 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3;
|
||||
x_30 = lean_string_append(x_21, x_29);
|
||||
x_31 = lean_box(0);
|
||||
x_32 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_20, x_31, x_2, x_30);
|
||||
lean_dec(x_20);
|
||||
lean_dec(x_15);
|
||||
return x_31;
|
||||
return x_32;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35;
|
||||
x_32 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3;
|
||||
x_33 = lean_string_append(x_21, x_32);
|
||||
x_34 = lean_box(0);
|
||||
x_35 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_20, x_34, x_2, x_33);
|
||||
lean_dec(x_20);
|
||||
lean_dec(x_15);
|
||||
return x_35;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
uint8_t x_36;
|
||||
uint8_t x_33;
|
||||
lean_dec(x_2);
|
||||
lean_dec(x_16);
|
||||
lean_dec(x_15);
|
||||
lean_dec(x_14);
|
||||
lean_dec(x_13);
|
||||
lean_dec(x_10);
|
||||
x_36 = !lean_is_exclusive(x_19);
|
||||
if (x_36 == 0)
|
||||
x_33 = !lean_is_exclusive(x_19);
|
||||
if (x_33 == 0)
|
||||
{
|
||||
return x_19;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_37; lean_object* x_38; lean_object* x_39;
|
||||
x_37 = lean_ctor_get(x_19, 0);
|
||||
x_38 = lean_ctor_get(x_19, 1);
|
||||
lean_object* x_34; lean_object* x_35; lean_object* x_36;
|
||||
x_34 = lean_ctor_get(x_19, 0);
|
||||
x_35 = lean_ctor_get(x_19, 1);
|
||||
lean_inc(x_35);
|
||||
lean_inc(x_34);
|
||||
lean_dec(x_19);
|
||||
x_36 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_36, 0, x_34);
|
||||
lean_ctor_set(x_36, 1, x_35);
|
||||
return x_36;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42;
|
||||
x_37 = lean_ctor_get(x_2, 0);
|
||||
x_38 = lean_ctor_get(x_2, 1);
|
||||
x_39 = lean_ctor_get(x_2, 3);
|
||||
x_40 = lean_ctor_get(x_2, 4);
|
||||
lean_inc(x_40);
|
||||
lean_inc(x_39);
|
||||
lean_inc(x_38);
|
||||
lean_inc(x_37);
|
||||
lean_dec(x_19);
|
||||
x_39 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_39, 0, x_37);
|
||||
lean_ctor_set(x_39, 1, x_38);
|
||||
return x_39;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45;
|
||||
x_40 = lean_ctor_get(x_2, 0);
|
||||
x_41 = lean_ctor_get(x_2, 1);
|
||||
x_42 = lean_ctor_get(x_2, 3);
|
||||
x_43 = lean_ctor_get(x_2, 4);
|
||||
lean_inc(x_43);
|
||||
lean_inc(x_42);
|
||||
lean_inc(x_41);
|
||||
lean_inc(x_40);
|
||||
lean_dec(x_2);
|
||||
x_44 = lean_alloc_ctor(0, 5, 0);
|
||||
lean_ctor_set(x_44, 0, x_40);
|
||||
lean_ctor_set(x_44, 1, x_41);
|
||||
lean_ctor_set(x_44, 2, x_9);
|
||||
lean_ctor_set(x_44, 3, x_42);
|
||||
lean_ctor_set(x_44, 4, x_43);
|
||||
x_41 = lean_alloc_ctor(0, 5, 0);
|
||||
lean_ctor_set(x_41, 0, x_37);
|
||||
lean_ctor_set(x_41, 1, x_38);
|
||||
lean_ctor_set(x_41, 2, x_9);
|
||||
lean_ctor_set(x_41, 3, x_39);
|
||||
lean_ctor_set(x_41, 4, x_40);
|
||||
lean_inc(x_13);
|
||||
x_45 = l_Lean_IR_EmitC_toCName(x_13, x_44, x_6);
|
||||
if (lean_obj_tag(x_45) == 0)
|
||||
x_42 = l_Lean_IR_EmitC_toCName(x_13, x_41, x_6);
|
||||
if (lean_obj_tag(x_42) == 0)
|
||||
{
|
||||
lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; uint8_t x_50;
|
||||
x_46 = lean_ctor_get(x_45, 0);
|
||||
lean_inc(x_46);
|
||||
x_47 = lean_ctor_get(x_45, 1);
|
||||
lean_inc(x_47);
|
||||
lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47;
|
||||
x_43 = lean_ctor_get(x_42, 0);
|
||||
lean_inc(x_43);
|
||||
x_44 = lean_ctor_get(x_42, 1);
|
||||
lean_inc(x_44);
|
||||
lean_dec(x_42);
|
||||
x_45 = lean_array_get_size(x_14);
|
||||
x_46 = lean_unsigned_to_nat(0u);
|
||||
x_47 = lean_nat_dec_eq(x_45, x_46);
|
||||
lean_dec(x_45);
|
||||
x_48 = lean_array_get_size(x_14);
|
||||
x_49 = lean_unsigned_to_nat(0u);
|
||||
x_50 = lean_nat_dec_eq(x_48, x_49);
|
||||
lean_dec(x_48);
|
||||
if (x_50 == 0)
|
||||
if (x_47 == 0)
|
||||
{
|
||||
uint8_t x_51;
|
||||
x_51 = l_Lean_IR_EmitC_shouldExport(x_13);
|
||||
if (x_51 == 0)
|
||||
{
|
||||
lean_object* x_52; lean_object* x_53;
|
||||
x_52 = lean_box(0);
|
||||
x_53 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_46, x_52, x_44, x_47);
|
||||
lean_dec(x_46);
|
||||
lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51;
|
||||
x_48 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1;
|
||||
x_49 = lean_string_append(x_44, x_48);
|
||||
x_50 = lean_box(0);
|
||||
x_51 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_43, x_50, x_41, x_49);
|
||||
lean_dec(x_43);
|
||||
lean_dec(x_15);
|
||||
return x_53;
|
||||
return x_51;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57;
|
||||
x_54 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1;
|
||||
x_55 = lean_string_append(x_47, x_54);
|
||||
x_56 = lean_box(0);
|
||||
x_57 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_46, x_56, x_44, x_55);
|
||||
lean_dec(x_46);
|
||||
lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55;
|
||||
x_52 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3;
|
||||
x_53 = lean_string_append(x_44, x_52);
|
||||
x_54 = lean_box(0);
|
||||
x_55 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_43, x_54, x_41, x_53);
|
||||
lean_dec(x_43);
|
||||
lean_dec(x_15);
|
||||
return x_57;
|
||||
return x_55;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61;
|
||||
x_58 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3;
|
||||
x_59 = lean_string_append(x_47, x_58);
|
||||
x_60 = lean_box(0);
|
||||
x_61 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_46, x_60, x_44, x_59);
|
||||
lean_dec(x_46);
|
||||
lean_dec(x_15);
|
||||
return x_61;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65;
|
||||
lean_dec(x_44);
|
||||
lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59;
|
||||
lean_dec(x_41);
|
||||
lean_dec(x_16);
|
||||
lean_dec(x_15);
|
||||
lean_dec(x_14);
|
||||
lean_dec(x_13);
|
||||
lean_dec(x_10);
|
||||
x_62 = lean_ctor_get(x_45, 0);
|
||||
lean_inc(x_62);
|
||||
x_63 = lean_ctor_get(x_45, 1);
|
||||
lean_inc(x_63);
|
||||
if (lean_is_exclusive(x_45)) {
|
||||
lean_ctor_release(x_45, 0);
|
||||
lean_ctor_release(x_45, 1);
|
||||
x_64 = x_45;
|
||||
x_56 = lean_ctor_get(x_42, 0);
|
||||
lean_inc(x_56);
|
||||
x_57 = lean_ctor_get(x_42, 1);
|
||||
lean_inc(x_57);
|
||||
if (lean_is_exclusive(x_42)) {
|
||||
lean_ctor_release(x_42, 0);
|
||||
lean_ctor_release(x_42, 1);
|
||||
x_58 = x_42;
|
||||
} else {
|
||||
lean_dec_ref(x_45);
|
||||
x_64 = lean_box(0);
|
||||
lean_dec_ref(x_42);
|
||||
x_58 = lean_box(0);
|
||||
}
|
||||
if (lean_is_scalar(x_64)) {
|
||||
x_65 = lean_alloc_ctor(1, 2, 0);
|
||||
if (lean_is_scalar(x_58)) {
|
||||
x_59 = lean_alloc_ctor(1, 2, 0);
|
||||
} else {
|
||||
x_65 = x_64;
|
||||
x_59 = x_58;
|
||||
}
|
||||
lean_ctor_set(x_65, 0, x_62);
|
||||
lean_ctor_set(x_65, 1, x_63);
|
||||
return x_65;
|
||||
lean_ctor_set(x_59, 0, x_56);
|
||||
lean_ctor_set(x_59, 1, x_57);
|
||||
return x_59;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_66; lean_object* x_67;
|
||||
lean_object* x_60; lean_object* x_61;
|
||||
lean_dec(x_10);
|
||||
lean_dec(x_9);
|
||||
lean_dec(x_2);
|
||||
lean_dec(x_1);
|
||||
x_66 = lean_box(0);
|
||||
x_60 = lean_box(0);
|
||||
if (lean_is_scalar(x_7)) {
|
||||
x_67 = lean_alloc_ctor(0, 2, 0);
|
||||
x_61 = lean_alloc_ctor(0, 2, 0);
|
||||
} else {
|
||||
x_67 = x_7;
|
||||
x_61 = x_7;
|
||||
}
|
||||
lean_ctor_set(x_67, 0, x_66);
|
||||
lean_ctor_set(x_67, 1, x_6);
|
||||
return x_67;
|
||||
lean_ctor_set(x_61, 0, x_60);
|
||||
lean_ctor_set(x_61, 1, x_6);
|
||||
return x_61;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_68; lean_object* x_69;
|
||||
lean_object* x_62; lean_object* x_63;
|
||||
lean_dec(x_10);
|
||||
lean_dec(x_9);
|
||||
lean_dec(x_2);
|
||||
lean_dec(x_1);
|
||||
x_68 = lean_box(0);
|
||||
x_62 = lean_box(0);
|
||||
if (lean_is_scalar(x_7)) {
|
||||
x_69 = lean_alloc_ctor(0, 2, 0);
|
||||
x_63 = lean_alloc_ctor(0, 2, 0);
|
||||
} else {
|
||||
x_69 = x_7;
|
||||
x_63 = x_7;
|
||||
}
|
||||
lean_ctor_set(x_69, 0, x_68);
|
||||
lean_ctor_set(x_69, 1, x_6);
|
||||
return x_69;
|
||||
lean_ctor_set(x_63, 0, x_62);
|
||||
lean_ctor_set(x_63, 1, x_6);
|
||||
return x_63;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
@ -15868,32 +15620,6 @@ l_Lean_IR_EmitC_toCName___closed__4 = _init_l_Lean_IR_EmitC_toCName___closed__4(
|
|||
lean_mark_persistent(l_Lean_IR_EmitC_toCName___closed__4);
|
||||
l_Lean_IR_EmitC_toCInitName___closed__1 = _init_l_Lean_IR_EmitC_toCInitName___closed__1();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_toCInitName___closed__1);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__1 = _init_l_Lean_IR_EmitC_shouldExport___closed__1();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__1);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__2 = _init_l_Lean_IR_EmitC_shouldExport___closed__2();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__2);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__3 = _init_l_Lean_IR_EmitC_shouldExport___closed__3();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__3);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__4 = _init_l_Lean_IR_EmitC_shouldExport___closed__4();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__4);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__5 = _init_l_Lean_IR_EmitC_shouldExport___closed__5();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__5);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__6 = _init_l_Lean_IR_EmitC_shouldExport___closed__6();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__6);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__7 = _init_l_Lean_IR_EmitC_shouldExport___closed__7();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__7);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__8 = _init_l_Lean_IR_EmitC_shouldExport___closed__8();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__8);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__9 = _init_l_Lean_IR_EmitC_shouldExport___closed__9();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__9);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__10 = _init_l_Lean_IR_EmitC_shouldExport___closed__10();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__10);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__11 = _init_l_Lean_IR_EmitC_shouldExport___closed__11();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__11);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__12 = _init_l_Lean_IR_EmitC_shouldExport___closed__12();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__12);
|
||||
l_Lean_IR_EmitC_shouldExport___closed__13 = _init_l_Lean_IR_EmitC_shouldExport___closed__13();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__13);
|
||||
l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___closed__1 = _init_l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___closed__1();
|
||||
lean_mark_persistent(l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___closed__1);
|
||||
l_Lean_IR_EmitC_emitFnDeclAux___lambda__1___closed__1 = _init_l_Lean_IR_EmitC_emitFnDeclAux___lambda__1___closed__1();
|
||||
|
|
@ -16032,6 +15758,8 @@ l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2 = _init_l_Lean_IR_EmitC_emitM
|
|||
lean_mark_persistent(l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2);
|
||||
l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3 = _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3);
|
||||
l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4 = _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4);
|
||||
l_Lean_IR_EmitC_emitMainFn___closed__1 = _init_l_Lean_IR_EmitC_emitMainFn___closed__1();
|
||||
lean_mark_persistent(l_Lean_IR_EmitC_emitMainFn___closed__1);
|
||||
l_Lean_IR_EmitC_emitMainFn___closed__2 = _init_l_Lean_IR_EmitC_emitMainFn___closed__2();
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue