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

merge remote/main, fix merge conflicts, update mono

Browse source
This commit is contained in:
Luke Boswell 2023-06-08 19:41:53 +10:00
commit 15b7b62c4f
No known key found for this signature in database
GPG key ID: F6DB3C9DB47377B0
45 changed files with 850 additions and 638 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -97,7 +97,7 @@ procedure Test.2 (Test.6):
decref Test.6;
jump #Derived_gen.0;
else
let Test.9 : List [<r>C List *self, C *self] = UnionAtIndex (Id 0) (Index 0) Test.6;
let Test.9 : List [<r>C List [<r>C List *self, C *self], C [<r>C List *self, C *self]] = UnionAtIndex (Id 0) (Index 0) Test.6;
joinpoint #Derived_gen.2:
let Test.24 : {} = Struct {};
let Test.23 : List Str = CallByName List.5 Test.9 Test.24;
@ -116,7 +116,7 @@ procedure Test.2 (Test.6):
jump #Derived_gen.2;
procedure Test.0 ():
let Test.32 : List [<r>C List *self, C *self] = Array [];
let Test.32 : List [<r>C List [<r>C List *self, C *self], C [<r>C List *self, C *self]] = Array [];
let Test.15 : [<r>C List *self, C *self] = TagId(0) Test.32;
let Test.14 : Str = CallByName Test.2 Test.15;
ret Test.14;

12
crates/compiler/test_mono/generated/dbg_in_expect.txt Normal file
View file

@ -0,0 +1,12 @@
procedure Bool.2 ():
let Bool.23 : Int1 = true;
ret Bool.23;
procedure Test.1 ():
let Test.0 : Str = "";
dbg Test.0;
dec Test.0;
let Test.3 : Int1 = CallByName Bool.2;
expect Test.3;
let Test.2 : {} = Struct {};
ret Test.2;

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

@ -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.30 : List Str = StructAtIndex 0 TotallyNotJson.1493;
dec #Derived_gen.30;
let #Derived_gen.29 : List Str = StructAtIndex 0 TotallyNotJson.1493;
dec #Derived_gen.29;
ret TotallyNotJson.1868;
procedure TotallyNotJson.840 (TotallyNotJson.1214):
let TotallyNotJson.1589 : List Str = StructAtIndex 1 TotallyNotJson.1214;
let #Derived_gen.29 : List Str = StructAtIndex 0 TotallyNotJson.1214;
dec #Derived_gen.29;
let #Derived_gen.30 : List Str = StructAtIndex 0 TotallyNotJson.1214;
dec #Derived_gen.30;
ret TotallyNotJson.1589;
procedure TotallyNotJson.87 (TotallyNotJson.809):

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

@ -1222,14 +1222,14 @@ procedure TotallyNotJson.82 (TotallyNotJson.802, TotallyNotJson.803):
procedure TotallyNotJson.832 (TotallyNotJson.1493):
let TotallyNotJson.1494 : List Str = StructAtIndex 1 TotallyNotJson.1493;
let #Derived_gen.19 : List Str = StructAtIndex 0 TotallyNotJson.1493;
dec #Derived_gen.19;
let #Derived_gen.20 : List Str = StructAtIndex 0 TotallyNotJson.1493;
dec #Derived_gen.20;
ret TotallyNotJson.1494;
procedure TotallyNotJson.840 (TotallyNotJson.1214):
let TotallyNotJson.1215 : List Str = StructAtIndex 1 TotallyNotJson.1214;
let #Derived_gen.20 : List Str = StructAtIndex 0 TotallyNotJson.1214;
dec #Derived_gen.20;
let #Derived_gen.19 : List Str = StructAtIndex 0 TotallyNotJson.1214;
dec #Derived_gen.19;
ret TotallyNotJson.1215;
procedure TotallyNotJson.87 (TotallyNotJson.809):

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.1 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.1;
let #Derived_gen.0 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.0;
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.0 : List U8 = StructAtIndex 0 TotallyNotJson.1192;
dec #Derived_gen.0;
let #Derived_gen.1 : List U8 = StructAtIndex 0 TotallyNotJson.1192;
dec #Derived_gen.1;
ret TotallyNotJson.1193;
procedure TotallyNotJson.60 ():

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

@ -248,8 +248,8 @@ procedure Str.9 (Str.79):
else
let Str.314 : U8 = StructAtIndex 3 Str.80;
let Str.315 : U64 = StructAtIndex 0 Str.80;
let #Derived_gen.1 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.1;
let #Derived_gen.0 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.0;
let Str.313 : {U64, U8} = Struct {Str.315, Str.314};
let Str.312 : [C {U64, U8}, C Str] = TagId(0) Str.313;
ret Str.312;
@ -397,8 +397,8 @@ procedure TotallyNotJson.534 (TotallyNotJson.535):
procedure TotallyNotJson.536 (TotallyNotJson.1192):
let TotallyNotJson.1193 : List U8 = StructAtIndex 1 TotallyNotJson.1192;
let #Derived_gen.0 : List U8 = StructAtIndex 0 TotallyNotJson.1192;
dec #Derived_gen.0;
let #Derived_gen.1 : List U8 = StructAtIndex 0 TotallyNotJson.1192;
dec #Derived_gen.1;
ret TotallyNotJson.1193;
procedure TotallyNotJson.60 ():

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

@ -1,7 +1,13 @@
procedure Test.1 (Test.4):
ret Test.4;
let Test.13 : [C Str, C Str] = TagId(0) Test.4;
ret Test.13;
procedure Test.5 (Test.12, Test.4):
procedure Test.1 (Test.4):
let Test.18 : [C Str, C Str] = TagId(0) Test.4;
ret Test.18;
procedure Test.5 (Test.12, #Attr.12):
let Test.4 : Str = UnionAtIndex (Id 0) (Index 0) #Attr.12;
dec Test.4;
let Test.14 : Str = "";
ret Test.14;
@ -11,13 +17,13 @@ procedure Test.0 ():
joinpoint Test.9 Test.3:
ret Test.3;
in
let Test.19 : Int1 = true;
let Test.20 : Int1 = lowlevel Eq Test.19 Test.2;
if Test.20 then
let Test.20 : Int1 = true;
let Test.21 : Int1 = lowlevel Eq Test.20 Test.2;
if Test.21 then
let Test.15 : Str = "";
let Test.10 : Str = CallByName Test.1 Test.15;
let Test.10 : [C Str, C Str] = CallByName Test.1 Test.15;
jump Test.9 Test.10;
else
let Test.18 : Str = "";
let Test.16 : Str = CallByName Test.1 Test.18;
let Test.19 : Str = "";
let Test.16 : [C Str, C Str] = CallByName Test.1 Test.19;
jump Test.9 Test.16;