diff --git a/stage0/stdlib/Lean/Compiler/IR/EmitC.c b/stage0/stdlib/Lean/Compiler/IR/EmitC.c index 9469cfd6fc..1d6230be38 100644 --- a/stage0/stdlib/Lean/Compiler/IR/EmitC.c +++ b/stage0/stdlib/Lean/Compiler/IR/EmitC.c @@ -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();