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

Fix mono tests

Browse source
This commit is contained in:
Ayaz Hafiz 2023-06-14 18:26:00 -05:00
parent a235055576
commit 5488b3a3eb
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
7 changed files with 37 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

20
crates/compiler/test_mono/generated/compose_recursive_lambda_set_productive_nullable_wrapped.txt
View file

@ -58,7 +58,7 @@ procedure Test.11 (Test.53, Test.54):
joinpoint Test.27 Test.12 #Attr.12:
let Test.8 : Int1 = UnionAtIndex (Id 2) (Index 1) #Attr.12;
let Test.7 : [<rnw><null>, C *self Int1, C *self Int1] = UnionAtIndex (Id 2) (Index 0) #Attr.12;
joinpoint #Derived_gen.0:
joinpoint #Derived_gen.2:
joinpoint Test.31 Test.29:
let Test.30 : U8 = GetTagId Test.7;
switch Test.30:
@ -85,14 +85,14 @@ procedure Test.11 (Test.53, Test.54):
jump Test.31 Test.32;
in
let #Derived_gen.1 : Int1 = lowlevel RefCountIsUnique #Attr.12;
if #Derived_gen.1 then
let #Derived_gen.3 : Int1 = lowlevel RefCountIsUnique #Attr.12;
if #Derived_gen.3 then
decref #Attr.12;
jump #Derived_gen.0;
jump #Derived_gen.2;
else
inc Test.7;
decref #Attr.12;
jump #Derived_gen.0;
jump #Derived_gen.2;
in
jump Test.27 Test.53 Test.54;
@ -125,7 +125,7 @@ procedure Test.6 (Test.7, Test.8, Test.5):
procedure Test.9 (Test.10, #Attr.12):
let Test.8 : Int1 = UnionAtIndex (Id 1) (Index 1) #Attr.12;
let Test.7 : [<rnw><null>, C *self Int1, C *self Int1] = UnionAtIndex (Id 1) (Index 0) #Attr.12;
joinpoint #Derived_gen.2:
joinpoint #Derived_gen.0:
let Test.37 : U8 = GetTagId Test.7;
joinpoint Test.38 Test.36:
switch Test.8:
@ -153,14 +153,14 @@ procedure Test.9 (Test.10, #Attr.12):
jump Test.38 Test.39;
in
let #Derived_gen.3 : Int1 = lowlevel RefCountIsUnique #Attr.12;
if #Derived_gen.3 then
let #Derived_gen.1 : Int1 = lowlevel RefCountIsUnique #Attr.12;
if #Derived_gen.1 then
decref #Attr.12;
jump #Derived_gen.2;
jump #Derived_gen.0;
else
inc Test.7;
decref #Attr.12;
jump #Derived_gen.2;
jump #Derived_gen.0;
procedure Test.0 ():
let Test.41 : Int1 = false;

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

@ -388,8 +388,8 @@ procedure Str.9 (Str.79):
else
let Str.300 : U8 = StructAtIndex 3 Str.80;
let Str.301 : U64 = StructAtIndex 0 Str.80;
let #Derived_gen.28 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.28;
let #Derived_gen.29 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.29;
let Str.299 : {U64, U8} = Struct {Str.301, Str.300};
let Str.298 : [C {U64, U8}, C Str] = TagId(0) Str.299;
ret Str.298;
@ -1331,14 +1331,14 @@ procedure TotallyNotJson.82 (TotallyNotJson.802, TotallyNotJson.803):
procedure TotallyNotJson.832 (TotallyNotJson.1493):
let TotallyNotJson.1868 : List Str = StructAtIndex 1 TotallyNotJson.1493;
let #Derived_gen.29 : List Str = StructAtIndex 0 TotallyNotJson.1493;
dec #Derived_gen.29;
let #Derived_gen.30 : List Str = StructAtIndex 0 TotallyNotJson.1493;
dec #Derived_gen.30;
ret TotallyNotJson.1868;
procedure TotallyNotJson.840 (TotallyNotJson.1214):
let TotallyNotJson.1589 : List Str = StructAtIndex 1 TotallyNotJson.1214;
let #Derived_gen.30 : List Str = StructAtIndex 0 TotallyNotJson.1214;
dec #Derived_gen.30;
let #Derived_gen.28 : List Str = StructAtIndex 0 TotallyNotJson.1214;
dec #Derived_gen.28;
ret TotallyNotJson.1589;
procedure TotallyNotJson.87 (TotallyNotJson.809):

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

@ -323,8 +323,8 @@ procedure Str.9 (Str.79):
else
let Str.300 : U8 = StructAtIndex 3 Str.80;
let Str.301 : U64 = StructAtIndex 0 Str.80;
let #Derived_gen.14 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.14;
let #Derived_gen.16 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.16;
let Str.299 : {U64, U8} = Struct {Str.301, Str.300};
let Str.298 : [C {U64, U8}, C Str] = TagId(0) Str.299;
ret Str.298;
@ -1215,8 +1215,8 @@ procedure TotallyNotJson.82 (TotallyNotJson.802, TotallyNotJson.803):
procedure TotallyNotJson.832 (TotallyNotJson.1493):
let TotallyNotJson.1494 : List Str = StructAtIndex 1 TotallyNotJson.1493;
let #Derived_gen.16 : List Str = StructAtIndex 0 TotallyNotJson.1493;
dec #Derived_gen.16;
let #Derived_gen.14 : List Str = StructAtIndex 0 TotallyNotJson.1493;
dec #Derived_gen.14;
ret TotallyNotJson.1494;
procedure TotallyNotJson.840 (TotallyNotJson.1214):

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

@ -330,8 +330,8 @@ procedure Str.9 (Str.79):
else
let Str.300 : U8 = StructAtIndex 3 Str.80;
let Str.301 : U64 = StructAtIndex 0 Str.80;
let #Derived_gen.18 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.18;
let #Derived_gen.20 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.20;
let Str.299 : {U64, U8} = Struct {Str.301, Str.300};
let Str.298 : [C {U64, U8}, C Str] = TagId(0) Str.299;
ret Str.298;
@ -1222,8 +1222,8 @@ procedure TotallyNotJson.82 (TotallyNotJson.802, TotallyNotJson.803):
procedure TotallyNotJson.832 (TotallyNotJson.1493):
let TotallyNotJson.1494 : List Str = StructAtIndex 1 TotallyNotJson.1493;
let #Derived_gen.20 : List Str = StructAtIndex 0 TotallyNotJson.1493;
dec #Derived_gen.20;
let #Derived_gen.18 : List Str = StructAtIndex 0 TotallyNotJson.1493;
dec #Derived_gen.18;
ret TotallyNotJson.1494;
procedure TotallyNotJson.840 (TotallyNotJson.1214):

8
crates/compiler/test_mono/generated/issue_4749.txt
View file

@ -247,8 +247,8 @@ procedure Str.9 (Str.79):
else
let Str.300 : U8 = StructAtIndex 3 Str.80;
let Str.301 : U64 = StructAtIndex 0 Str.80;
let #Derived_gen.0 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.0;
let #Derived_gen.1 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.1;
let Str.299 : {U64, U8} = Struct {Str.301, Str.300};
let Str.298 : [C {U64, U8}, C Str] = TagId(0) Str.299;
ret Str.298;
@ -365,8 +365,8 @@ procedure TotallyNotJson.534 (TotallyNotJson.535):
procedure TotallyNotJson.536 (TotallyNotJson.1192):
let TotallyNotJson.1193 : List U8 = StructAtIndex 1 TotallyNotJson.1192;
let #Derived_gen.1 : List U8 = StructAtIndex 0 TotallyNotJson.1192;
dec #Derived_gen.1;
let #Derived_gen.0 : List U8 = StructAtIndex 0 TotallyNotJson.1192;
dec #Derived_gen.0;
ret TotallyNotJson.1193;
procedure TotallyNotJson.60 ():

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

@ -6,10 +6,10 @@ procedure List.5 (#Attr.2, #Attr.3):
procedure Test.2 (Test.5):
let Test.6 : List [<rnnu>C List *self] = UnionAtIndex (Id 0) (Index 0) Test.5;
inc Test.6;
let #Derived_gen.1 : [<rnnu>C List *self] = Reset { symbol: Test.5, id: UpdateModeId { id: 1 } };
let #Derived_gen.0 : [<rnnu>C List *self] = Reset { symbol: Test.5, id: UpdateModeId { id: 0 } };
let Test.15 : {} = Struct {};
let Test.7 : List [<rnnu>C List *self] = CallByName List.5 Test.6 Test.15;
let Test.14 : [<rnnu>C List *self] = Reuse #Derived_gen.1 UpdateModeId { id: 1 } TagId(0) Test.7;
let Test.14 : [<rnnu>C List *self] = Reuse #Derived_gen.0 UpdateModeId { id: 0 } TagId(0) Test.7;
ret Test.14;
procedure Test.0 ():

14
crates/compiler/test_mono/generated/recursively_build_effect.txt
View file

@ -8,8 +8,8 @@ procedure Str.3 (#Attr.2, #Attr.3):
procedure Test.11 (Test.29, #Attr.12):
let Test.10 : {} = UnionAtIndex (Id 0) (Index 0) #Attr.12;
let #Derived_gen.2 : Int1 = lowlevel RefCountIsUnique #Attr.12;
if #Derived_gen.2 then
let #Derived_gen.0 : Int1 = lowlevel RefCountIsUnique #Attr.12;
if #Derived_gen.0 then
decref #Attr.12;
ret Test.10;
else
@ -23,7 +23,7 @@ procedure Test.14 (Test.62, Test.63):
joinpoint Test.37 Test.36 #Attr.12:
let Test.12 : {} = UnionAtIndex (Id 1) (Index 1) #Attr.12;
let Test.13 : I64 = UnionAtIndex (Id 1) (Index 0) #Attr.12;
joinpoint #Derived_gen.0:
joinpoint #Derived_gen.1:
let Test.43 : {} = Struct {};
let Test.42 : {} = CallByName Test.11 Test.43 Test.12;
let Test.38 : [<r>C {}, C I64 {}] = CallByName Test.9 Test.42 Test.13;
@ -38,13 +38,13 @@ procedure Test.14 (Test.62, Test.63):
jump Test.37 Test.40 Test.38;
in
let #Derived_gen.1 : Int1 = lowlevel RefCountIsUnique #Attr.12;
if #Derived_gen.1 then
let #Derived_gen.2 : Int1 = lowlevel RefCountIsUnique #Attr.12;
if #Derived_gen.2 then
decref #Attr.12;
jump #Derived_gen.0;
jump #Derived_gen.1;
else
decref #Attr.12;
jump #Derived_gen.0;
jump #Derived_gen.1;
in
jump Test.37 Test.62 Test.63;