language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-08-04 04:08:19 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

Update mono tests

Browse source
This commit is contained in:
Ayaz Hafiz 2022-08-10 10:25:21 -07:00
parent 64fc60f55f
commit 68bb03ec09
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
12 changed files with 61 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

4
crates/compiler/test_mono/generated/closure_in_list.txt
View file

@ -4,14 +4,14 @@ procedure List.6 (#Attr.2):
procedure Test.1 (Test.5):
let Test.2 : I64 = 41i64;
let Test.10 : I64 = StructAtIndex 0 Test.13;
let Test.13 : {I64} = Struct {Test.2};
let Test.10 : I64 = StructAtIndex 0 Test.13;
let Test.9 : List I64 = Array [Test.10];
ret Test.9;
procedure Test.3 (Test.8, #Attr.12):
let Test.2 : I64 = StructAtIndex 0 Test.12;
let Test.12 : {I64} = Struct {#Attr.12};
let Test.2 : I64 = StructAtIndex 0 Test.12;
ret Test.2;
procedure Test.0 ():

10
crates/compiler/test_mono/generated/encode.txt
View file

@ -13,21 +13,23 @@ procedure List.71 (#Attr.2, #Attr.3):
ret List.388;
procedure Test.23 (Test.24, Test.35, #Attr.12):
let Test.22 : U8 = StructAtIndex 0 #Attr.12;
let Test.38 : {U8} = Struct {#Attr.12};
let Test.22 : U8 = StructAtIndex 0 Test.38;
let Test.37 : List U8 = CallByName List.4 Test.24 Test.22;
ret Test.37;
procedure Test.8 (Test.22):
let Test.34 : {U8} = Struct {Test.22};
let Test.39 : {U8} = Struct {Test.22};
let Test.34 : U8 = StructAtIndex 0 Test.39;
ret Test.34;
procedure Test.9 (Test.27):
let Test.33 : {U8} = CallByName Test.8 Test.27;
let Test.33 : U8 = CallByName Test.8 Test.27;
ret Test.33;
procedure Test.0 ():
let Test.32 : U8 = 15i64;
let Test.28 : {U8} = CallByName Test.9 Test.32;
let Test.28 : U8 = CallByName Test.9 Test.32;
let Test.30 : List U8 = Array [];
let Test.31 : {} = Struct {};
let Test.29 : List U8 = CallByName Test.23 Test.30 Test.31 Test.28;

28
crates/compiler/test_mono/generated/encode_derived_nested_record_string.txt
View file

@ -1,16 +1,16 @@
procedure #Derived.0 (#Derived.1):
let #Derived_gen.2 : {Str} = Struct {#Derived.1};
let #Derived_gen.1 : Str = StructAtIndex 0 #Derived_gen.2;
inc #Derived_gen.1;
dec #Derived_gen.2;
let #Derived_gen.2 : {Str} = Struct {#Derived.1};
let #Derived_gen.0 : Str = CallByName Encode.22 #Derived_gen.1;
ret #Derived_gen.0;
procedure #Derived.2 (#Derived.3, #Derived.4, #Attr.12):
let #Derived_gen.11 : {Str} = Struct {#Attr.12};
let #Derived.1 : Str = StructAtIndex 0 #Derived_gen.11;
inc #Derived.1;
dec #Derived_gen.11;
let #Derived_gen.11 : {Str} = Struct {#Attr.12};
let #Derived_gen.8 : Str = "a";
let #Derived_gen.9 : Str = CallByName #Derived.5 #Derived.1;
let #Derived_gen.7 : {Str, Str} = Struct {#Derived_gen.8, #Derived_gen.9};
@ -20,18 +20,18 @@ procedure #Derived.2 (#Derived.3, #Derived.4, #Attr.12):
ret #Derived_gen.4;
procedure #Derived.5 (#Derived.6):
let #Derived_gen.18 : {Str} = Struct {#Derived.6};
let #Derived_gen.17 : Str = StructAtIndex 0 #Derived_gen.18;
inc #Derived_gen.17;
dec #Derived_gen.18;
let #Derived_gen.18 : {Str} = Struct {#Derived.6};
let #Derived_gen.16 : Str = CallByName Encode.22 #Derived_gen.17;
ret #Derived_gen.16;
procedure #Derived.7 (#Derived.8, #Derived.9, #Attr.12):
let #Derived_gen.27 : {Str} = Struct {#Attr.12};
let #Derived.6 : Str = StructAtIndex 0 #Derived_gen.27;
inc #Derived.6;
dec #Derived_gen.27;
let #Derived_gen.27 : {Str} = Struct {#Attr.12};
let #Derived_gen.24 : Str = "b";
let #Derived_gen.25 : Str = CallByName Json.18 #Derived.6;
let #Derived_gen.23 : {Str, Str} = Struct {#Derived_gen.24, #Derived_gen.25};
@ -86,10 +86,10 @@ procedure Json.1 ():
ret Json.318;
procedure Json.103 (Json.104, Json.321, #Attr.12):
let Json.356 : {List {Str, Str}} = Struct {#Attr.12};
let Json.102 : List {Str, Str} = StructAtIndex 0 Json.356;
inc Json.102;
dec Json.356;
let Json.356 : {List {Str, Str}} = Struct {#Attr.12};
let Json.355 : I32 = 123i64;
let Json.354 : U8 = CallByName Num.123 Json.355;
let Json.106 : List U8 = CallByName List.4 Json.104 Json.354;
@ -107,10 +107,10 @@ procedure Json.103 (Json.104, Json.321, #Attr.12):
ret Json.326;
procedure Json.103 (Json.104, Json.321, #Attr.12):
let Json.402 : {List {Str, Str}} = Struct {#Attr.12};
let Json.102 : List {Str, Str} = StructAtIndex 0 Json.402;
inc Json.102;
dec Json.402;
let Json.402 : {List {Str, Str}} = Struct {#Attr.12};
let Json.401 : I32 = 123i64;
let Json.400 : U8 = CallByName Num.123 Json.401;
let Json.106 : List U8 = CallByName List.4 Json.104 Json.400;
@ -206,34 +206,34 @@ procedure Json.105 (Json.324, Json.325):
jump Json.382 Json.113;
procedure Json.18 (Json.86):
let Json.370 : {Str} = Struct {Json.86};
let Json.368 : Str = StructAtIndex 0 Json.370;
inc Json.368;
dec Json.370;
let Json.370 : {Str} = Struct {Json.86};
let Json.367 : Str = CallByName Encode.22 Json.368;
ret Json.367;
procedure Json.20 (Json.102):
let Json.322 : {List {Str, Str}} = Struct {Json.102};
let Json.320 : List {Str, Str} = StructAtIndex 0 Json.322;
inc Json.320;
dec Json.322;
let Json.322 : {List {Str, Str}} = Struct {Json.102};
let Json.319 : List {Str, Str} = CallByName Encode.22 Json.320;
ret Json.319;
procedure Json.20 (Json.102):
let Json.366 : {List {Str, Str}} = Struct {Json.102};
let Json.364 : List {Str, Str} = StructAtIndex 0 Json.366;
inc Json.364;
dec Json.366;
let Json.366 : {List {Str, Str}} = Struct {Json.102};
let Json.363 : List {Str, Str} = CallByName Encode.22 Json.364;
ret Json.363;
procedure Json.87 (Json.88, Json.369, #Attr.12):
let Json.412 : {Str} = Struct {#Attr.12};
let Json.86 : Str = StructAtIndex 0 Json.412;
inc Json.86;
dec Json.412;
let Json.412 : {Str} = Struct {#Attr.12};
let Json.411 : I32 = 34i64;
let Json.410 : U8 = CallByName Num.123 Json.411;
let Json.408 : List U8 = CallByName List.4 Json.88 Json.410;
@ -245,22 +245,22 @@ procedure Json.87 (Json.88, Json.369, #Attr.12):
ret Json.404;
procedure List.133 (List.134, List.135, #Attr.12):
let List.132 : {} = StructAtIndex 0 List.436;
let List.436 : {{}} = Struct {#Attr.12};
let List.132 : {} = StructAtIndex 0 List.436;
let List.435 : {List U8, U64} = CallByName Json.105 List.134 List.135;
let List.434 : [C [], C {List U8, U64}] = TagId(1) List.435;
ret List.434;
procedure List.133 (List.134, List.135, #Attr.12):
let List.132 : {} = StructAtIndex 0 List.519;
let List.519 : {{}} = Struct {#Attr.12};
let List.132 : {} = StructAtIndex 0 List.519;
let List.518 : {List U8, U64} = CallByName Json.105 List.134 List.135;
let List.517 : [C [], C {List U8, U64}] = TagId(1) List.518;
ret List.517;
procedure List.18 (List.130, List.131, List.132):
let List.411 : {} = StructAtIndex 0 List.412;
let List.412 : {{}} = Struct {List.132};
let List.411 : {} = StructAtIndex 0 List.412;
let List.405 : [C [], C {List U8, U64}] = CallByName List.75 List.130 List.131 List.411;
let List.408 : U8 = 1i64;
let List.409 : U8 = GetTagId List.405;
@ -277,8 +277,8 @@ procedure List.18 (List.130, List.131, List.132):
ret List.407;
procedure List.18 (List.130, List.131, List.132):
let List.493 : {} = StructAtIndex 0 List.494;
let List.494 : {{}} = Struct {List.132};
let List.493 : {} = StructAtIndex 0 List.494;
let List.487 : [C [], C {List U8, U64}] = CallByName List.75 List.130 List.131 List.493;
let List.490 : U8 = 1i64;
let List.491 : U8 = GetTagId List.487;

16
crates/compiler/test_mono/generated/encode_derived_record_one_field_string.txt
View file

@ -1,16 +1,16 @@
procedure #Derived.0 (#Derived.1):
let #Derived_gen.2 : {Str} = Struct {#Derived.1};
let #Derived_gen.1 : Str = StructAtIndex 0 #Derived_gen.2;
inc #Derived_gen.1;
dec #Derived_gen.2;
let #Derived_gen.2 : {Str} = Struct {#Derived.1};
let #Derived_gen.0 : Str = CallByName Encode.22 #Derived_gen.1;
ret #Derived_gen.0;
procedure #Derived.2 (#Derived.3, #Derived.4, #Attr.12):
let #Derived_gen.11 : {Str} = Struct {#Attr.12};
let #Derived.1 : Str = StructAtIndex 0 #Derived_gen.11;
inc #Derived.1;
dec #Derived_gen.11;
let #Derived_gen.11 : {Str} = Struct {#Attr.12};
let #Derived_gen.8 : Str = "a";
let #Derived_gen.9 : Str = CallByName Json.18 #Derived.1;
let #Derived_gen.7 : {Str, Str} = Struct {#Derived_gen.8, #Derived_gen.9};
@ -51,10 +51,10 @@ procedure Json.1 ():
ret Json.318;
procedure Json.103 (Json.104, Json.321, #Attr.12):
let Json.360 : {List {Str, Str}} = Struct {#Attr.12};
let Json.102 : List {Str, Str} = StructAtIndex 0 Json.360;
inc Json.102;
dec Json.360;
let Json.360 : {List {Str, Str}} = Struct {#Attr.12};
let Json.359 : I32 = 123i64;
let Json.358 : U8 = CallByName Num.123 Json.359;
let Json.106 : List U8 = CallByName List.4 Json.104 Json.358;
@ -111,26 +111,26 @@ procedure Json.105 (Json.328, Json.329):
jump Json.340 Json.113;
procedure Json.18 (Json.86):
let Json.326 : {Str} = Struct {Json.86};
let Json.324 : Str = StructAtIndex 0 Json.326;
inc Json.324;
dec Json.326;
let Json.326 : {Str} = Struct {Json.86};
let Json.323 : Str = CallByName Encode.22 Json.324;
ret Json.323;
procedure Json.20 (Json.102):
let Json.322 : {List {Str, Str}} = Struct {Json.102};
let Json.320 : List {Str, Str} = StructAtIndex 0 Json.322;
inc Json.320;
dec Json.322;
let Json.322 : {List {Str, Str}} = Struct {Json.102};
let Json.319 : List {Str, Str} = CallByName Encode.22 Json.320;
ret Json.319;
procedure Json.87 (Json.88, Json.325, #Attr.12):
let Json.370 : {Str} = Struct {#Attr.12};
let Json.86 : Str = StructAtIndex 0 Json.370;
inc Json.86;
dec Json.370;
let Json.370 : {Str} = Struct {#Attr.12};
let Json.369 : I32 = 34i64;
let Json.368 : U8 = CallByName Num.123 Json.369;
let Json.366 : List U8 = CallByName List.4 Json.88 Json.368;
@ -142,15 +142,15 @@ procedure Json.87 (Json.88, Json.325, #Attr.12):
ret Json.362;
procedure List.133 (List.134, List.135, #Attr.12):
let List.132 : {} = StructAtIndex 0 List.443;
let List.443 : {{}} = Struct {#Attr.12};
let List.132 : {} = StructAtIndex 0 List.443;
let List.442 : {List U8, U64} = CallByName Json.105 List.134 List.135;
let List.441 : [C [], C {List U8, U64}] = TagId(1) List.442;
ret List.441;
procedure List.18 (List.130, List.131, List.132):
let List.417 : {} = StructAtIndex 0 List.418;
let List.418 : {{}} = Struct {List.132};
let List.417 : {} = StructAtIndex 0 List.418;
let List.411 : [C [], C {List U8, U64}] = CallByName List.75 List.130 List.131 List.417;
let List.414 : U8 = 1i64;
let List.415 : U8 = GetTagId List.411;

16
crates/compiler/test_mono/generated/encode_derived_record_two_field_strings.txt
View file

@ -1,16 +1,16 @@
procedure #Derived.0 (#Derived.1):
let #Derived_gen.2 : {{Str, Str}} = Struct {#Derived.1};
let #Derived_gen.1 : {Str, Str} = StructAtIndex 0 #Derived_gen.2;
inc #Derived_gen.1;
dec #Derived_gen.2;
let #Derived_gen.2 : {{Str, Str}} = Struct {#Derived.1};
let #Derived_gen.0 : {Str, Str} = CallByName Encode.22 #Derived_gen.1;
ret #Derived_gen.0;
procedure #Derived.2 (#Derived.3, #Derived.4, #Attr.12):
let #Derived_gen.15 : {{Str, Str}} = Struct {#Attr.12};
let #Derived.1 : {Str, Str} = StructAtIndex 0 #Derived_gen.15;
inc #Derived.1;
dec #Derived_gen.15;
let #Derived_gen.15 : {{Str, Str}} = Struct {#Attr.12};
let #Derived_gen.12 : Str = "a";
let #Derived_gen.14 : Str = StructAtIndex 0 #Derived.1;
inc #Derived_gen.14;
@ -59,10 +59,10 @@ procedure Json.1 ():
ret Json.318;
procedure Json.103 (Json.104, Json.321, #Attr.12):
let Json.364 : {List {Str, Str}} = Struct {#Attr.12};
let Json.102 : List {Str, Str} = StructAtIndex 0 Json.364;
inc Json.102;
dec Json.364;
let Json.364 : {List {Str, Str}} = Struct {#Attr.12};
let Json.363 : I32 = 123i64;
let Json.362 : U8 = CallByName Num.123 Json.363;
let Json.106 : List U8 = CallByName List.4 Json.104 Json.362;
@ -119,26 +119,26 @@ procedure Json.105 (Json.332, Json.333):
jump Json.344 Json.113;
procedure Json.18 (Json.86):
let Json.330 : {Str} = Struct {Json.86};
let Json.328 : Str = StructAtIndex 0 Json.330;
inc Json.328;
dec Json.330;
let Json.330 : {Str} = Struct {Json.86};
let Json.327 : Str = CallByName Encode.22 Json.328;
ret Json.327;
procedure Json.20 (Json.102):
let Json.322 : {List {Str, Str}} = Struct {Json.102};
let Json.320 : List {Str, Str} = StructAtIndex 0 Json.322;
inc Json.320;
dec Json.322;
let Json.322 : {List {Str, Str}} = Struct {Json.102};
let Json.319 : List {Str, Str} = CallByName Encode.22 Json.320;
ret Json.319;
procedure Json.87 (Json.88, Json.325, #Attr.12):
let Json.374 : {Str} = Struct {#Attr.12};
let Json.86 : Str = StructAtIndex 0 Json.374;
inc Json.86;
dec Json.374;
let Json.374 : {Str} = Struct {#Attr.12};
let Json.373 : I32 = 34i64;
let Json.372 : U8 = CallByName Num.123 Json.373;
let Json.370 : List U8 = CallByName List.4 Json.88 Json.372;
@ -150,15 +150,15 @@ procedure Json.87 (Json.88, Json.325, #Attr.12):
ret Json.366;
procedure List.133 (List.134, List.135, #Attr.12):
let List.132 : {} = StructAtIndex 0 List.443;
let List.443 : {{}} = Struct {#Attr.12};
let List.132 : {} = StructAtIndex 0 List.443;
let List.442 : {List U8, U64} = CallByName Json.105 List.134 List.135;
let List.441 : [C [], C {List U8, U64}] = TagId(1) List.442;
ret List.441;
procedure List.18 (List.130, List.131, List.132):
let List.417 : {} = StructAtIndex 0 List.418;
let List.418 : {{}} = Struct {List.132};
let List.417 : {} = StructAtIndex 0 List.418;
let List.411 : [C [], C {List U8, U64}] = CallByName List.75 List.130 List.131 List.417;
let List.414 : U8 = 1i64;
let List.415 : U8 = GetTagId List.411;

4
crates/compiler/test_mono/generated/encode_derived_string.txt
View file

@ -16,18 +16,18 @@ procedure Json.1 ():
ret Json.318;
procedure Json.18 (Json.86):
let Json.322 : {Str} = Struct {Json.86};
let Json.320 : Str = StructAtIndex 0 Json.322;
inc Json.320;
dec Json.322;
let Json.322 : {Str} = Struct {Json.86};
let Json.319 : Str = CallByName Encode.22 Json.320;
ret Json.319;
procedure Json.87 (Json.88, Json.321, #Attr.12):
let Json.332 : {Str} = Struct {#Attr.12};
let Json.86 : Str = StructAtIndex 0 Json.332;
inc Json.86;
dec Json.332;
let Json.332 : {Str} = Struct {#Attr.12};
let Json.331 : I32 = 34i64;
let Json.330 : U8 = CallByName Num.123 Json.331;
let Json.328 : List U8 = CallByName List.4 Json.88 Json.330;

12
crates/compiler/test_mono/generated/encode_derived_tag_one_field_string.txt
View file

@ -1,16 +1,16 @@
procedure #Derived.0 (#Derived.1):
let #Derived_gen.2 : {Str} = Struct {#Derived.1};
let #Derived_gen.1 : Str = StructAtIndex 0 #Derived_gen.2;
inc #Derived_gen.1;
dec #Derived_gen.2;
let #Derived_gen.2 : {Str} = Struct {#Derived.1};
let #Derived_gen.0 : Str = CallByName Encode.22 #Derived_gen.1;
ret #Derived_gen.0;
procedure #Derived.3 (#Derived.4, #Derived.5, #Attr.12):
let #Derived_gen.11 : {Str} = Struct {#Attr.12};
let #Derived.1 : Str = StructAtIndex 0 #Derived_gen.11;
inc #Derived.1;
dec #Derived_gen.11;
let #Derived_gen.11 : {Str} = Struct {#Attr.12};
joinpoint #Derived_gen.6 #Derived_gen.5:
let #Derived_gen.4 : List U8 = CallByName Encode.23 #Derived.4 #Derived_gen.5 #Derived.5;
ret #Derived_gen.4;
@ -115,10 +115,10 @@ procedure Json.119 (Json.327, Json.125):
jump Json.341 Json.126;
procedure Json.18 (Json.86):
let Json.325 : {Str} = Struct {Json.86};
let Json.323 : Str = StructAtIndex 0 Json.325;
inc Json.323;
dec Json.325;
let Json.325 : {Str} = Struct {Json.86};
let Json.322 : Str = CallByName Encode.22 Json.323;
ret Json.322;
@ -128,10 +128,10 @@ procedure Json.21 (Json.115, Json.116):
ret Json.319;
procedure Json.87 (Json.88, Json.324, #Attr.12):
let Json.373 : {Str} = Struct {#Attr.12};
let Json.86 : Str = StructAtIndex 0 Json.373;
inc Json.86;
dec Json.373;
let Json.373 : {Str} = Struct {#Attr.12};
let Json.372 : I32 = 34i64;
let Json.371 : U8 = CallByName Num.123 Json.372;
let Json.369 : List U8 = CallByName List.4 Json.88 Json.371;
@ -143,15 +143,15 @@ procedure Json.87 (Json.88, Json.324, #Attr.12):
ret Json.365;
procedure List.133 (List.134, List.135, #Attr.12):
let List.132 : {} = StructAtIndex 0 List.449;
let List.449 : {{}} = Struct {#Attr.12};
let List.132 : {} = StructAtIndex 0 List.449;
let List.448 : {List U8, U64} = CallByName Json.119 List.134 List.135;
let List.447 : [C [], C {List U8, U64}] = TagId(1) List.448;
ret List.447;
procedure List.18 (List.130, List.131, List.132):
let List.423 : {} = StructAtIndex 0 List.424;
let List.424 : {{}} = Struct {List.132};
let List.423 : {} = StructAtIndex 0 List.424;
let List.417 : [C [], C {List U8, U64}] = CallByName List.75 List.130 List.131 List.423;
let List.420 : U8 = 1i64;
let List.421 : U8 = GetTagId List.417;

12
crates/compiler/test_mono/generated/encode_derived_tag_two_payloads_string.txt
View file

@ -1,16 +1,16 @@
procedure #Derived.0 (#Derived.1):
let #Derived_gen.2 : {{Str, Str}} = Struct {#Derived.1};
let #Derived_gen.1 : {Str, Str} = StructAtIndex 0 #Derived_gen.2;
inc #Derived_gen.1;
dec #Derived_gen.2;
let #Derived_gen.2 : {{Str, Str}} = Struct {#Derived.1};
let #Derived_gen.0 : {Str, Str} = CallByName Encode.22 #Derived_gen.1;
ret #Derived_gen.0;
procedure #Derived.4 (#Derived.5, #Derived.6, #Attr.12):
let #Derived_gen.12 : {{Str, Str}} = Struct {#Attr.12};
let #Derived.1 : {Str, Str} = StructAtIndex 0 #Derived_gen.12;
inc #Derived.1;
dec #Derived_gen.12;
let #Derived_gen.12 : {{Str, Str}} = Struct {#Attr.12};
joinpoint #Derived_gen.6 #Derived_gen.5:
let #Derived_gen.4 : List U8 = CallByName Encode.23 #Derived.5 #Derived_gen.5 #Derived.6;
ret #Derived_gen.4;
@ -121,10 +121,10 @@ procedure Json.119 (Json.331, Json.125):
jump Json.345 Json.126;
procedure Json.18 (Json.86):
let Json.329 : {Str} = Struct {Json.86};
let Json.327 : Str = StructAtIndex 0 Json.329;
inc Json.327;
dec Json.329;
let Json.329 : {Str} = Struct {Json.86};
let Json.326 : Str = CallByName Encode.22 Json.327;
ret Json.326;
@ -134,10 +134,10 @@ procedure Json.21 (Json.115, Json.116):
ret Json.319;
procedure Json.87 (Json.88, Json.324, #Attr.12):
let Json.377 : {Str} = Struct {#Attr.12};
let Json.86 : Str = StructAtIndex 0 Json.377;
inc Json.86;
dec Json.377;
let Json.377 : {Str} = Struct {#Attr.12};
let Json.376 : I32 = 34i64;
let Json.375 : U8 = CallByName Num.123 Json.376;
let Json.373 : List U8 = CallByName List.4 Json.88 Json.375;
@ -149,15 +149,15 @@ procedure Json.87 (Json.88, Json.324, #Attr.12):
ret Json.369;
procedure List.133 (List.134, List.135, #Attr.12):
let List.132 : {} = StructAtIndex 0 List.449;
let List.449 : {{}} = Struct {#Attr.12};
let List.132 : {} = StructAtIndex 0 List.449;
let List.448 : {List U8, U64} = CallByName Json.119 List.134 List.135;
let List.447 : [C [], C {List U8, U64}] = TagId(1) List.448;
ret List.447;
procedure List.18 (List.130, List.131, List.132):
let List.423 : {} = StructAtIndex 0 List.424;
let List.424 : {{}} = Struct {List.132};
let List.423 : {} = StructAtIndex 0 List.424;
let List.417 : [C [], C {List U8, U64}] = CallByName List.75 List.130 List.131 List.423;
let List.420 : U8 = 1i64;
let List.421 : U8 = GetTagId List.417;

4
crates/compiler/test_mono/generated/lambda_capture_niches_have_captured_function_in_closure.txt
View file

@ -3,10 +3,10 @@ procedure Test.11 (Test.37):
ret Test.38;
procedure Test.13 (Test.51, #Attr.12):
let Test.54 : {Str} = Struct {#Attr.12};
let Test.12 : Str = StructAtIndex 0 Test.54;
inc Test.12;
dec Test.54;
let Test.54 : {Str} = Struct {#Attr.12};
ret Test.12;
procedure Test.15 (Test.39):
@ -30,10 +30,10 @@ procedure Test.3 (Test.17):
ret Test.36;
procedure Test.4 (Test.18):
let Test.55 : {Str} = Struct {Test.18};
let Test.50 : Str = StructAtIndex 0 Test.55;
inc Test.50;
dec Test.55;
let Test.55 : {Str} = Struct {Test.18};
ret Test.50;
procedure Test.9 (Test.29, #Attr.12):

4
crates/compiler/test_mono/generated/lambda_set_niche_same_layout_different_constructor.txt
View file

@ -1,15 +1,15 @@
procedure Test.1 (Test.4):
let Test.16 : {Str} = Struct {Test.4};
let Test.5 : Str = StructAtIndex 0 Test.16;
inc Test.5;
dec Test.16;
let Test.16 : {Str} = Struct {Test.4};
ret Test.5;
procedure Test.5 (Test.12, #Attr.12):
let Test.15 : {Str} = Struct {#Attr.12};
let Test.4 : Str = StructAtIndex 0 Test.15;
inc Test.4;
dec Test.15;
let Test.15 : {Str} = Struct {#Attr.12};
let Test.14 : Str = "";
ret Test.14;

4
crates/compiler/test_mono/generated/nested_closure.txt
View file

@ -1,12 +1,12 @@
procedure Test.1 (Test.5):
let Test.2 : I64 = 42i64;
let Test.3 : I64 = StructAtIndex 0 Test.13;
let Test.13 : {I64} = Struct {Test.2};
let Test.3 : I64 = StructAtIndex 0 Test.13;
ret Test.3;
procedure Test.3 (Test.9, #Attr.12):
let Test.2 : I64 = StructAtIndex 0 Test.12;
let Test.12 : {I64} = Struct {#Attr.12};
let Test.2 : I64 = StructAtIndex 0 Test.12;
ret Test.2;
procedure Test.0 ():

6
crates/compiler/test_mono/generated/recursive_call_capturing_function.txt
View file

@ -4,22 +4,22 @@ procedure Num.19 (#Attr.2, #Attr.3):
procedure Test.1 (Test.2):
let Test.9 : U32 = 0i64;
let Test.18 : U32 = StructAtIndex 0 Test.19;
let Test.19 : {U32} = Struct {Test.2};
let Test.18 : U32 = StructAtIndex 0 Test.19;
let Test.8 : U32 = CallByName Test.3 Test.9 Test.18;
ret Test.8;
procedure Test.3 (Test.21, Test.22):
joinpoint Test.10 Test.4 #Attr.12:
let Test.2 : U32 = StructAtIndex 0 Test.17;
let Test.17 : {U32} = Struct {#Attr.12};
let Test.2 : U32 = StructAtIndex 0 Test.17;
let Test.15 : Int1 = true;
if Test.15 then
ret Test.4;
else
let Test.12 : U32 = CallByName Num.19 Test.4 Test.2;
let Test.13 : U32 = StructAtIndex 0 Test.14;
let Test.14 : {U32} = Struct {Test.2};
let Test.13 : U32 = StructAtIndex 0 Test.14;
jump Test.10 Test.12 Test.13;
in
jump Test.10 Test.21 Test.22;