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

fix mono tests, again

Browse source
This commit is contained in:
Folkert 2023-05-31 23:59:26 +02:00
parent 4af9788b51
commit f1375b27cc
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
7 changed files with 34 additions and 30 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.2:
joinpoint #Derived_gen.0:
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.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;
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.0:
joinpoint #Derived_gen.2:
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.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;
procedure Test.0 ():
let Test.41 : Int1 = false;

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

@ -803,14 +803,14 @@ procedure Json.81 (Json.801, Json.802):
procedure Json.831 (Json.1492):
let Json.1867 : List Str = StructAtIndex 1 Json.1492;
let #Derived_gen.30 : List Str = StructAtIndex 0 Json.1492;
dec #Derived_gen.30;
let #Derived_gen.28 : List Str = StructAtIndex 0 Json.1492;
dec #Derived_gen.28;
ret Json.1867;
procedure Json.839 (Json.1213):
let Json.1588 : List Str = StructAtIndex 1 Json.1213;
let #Derived_gen.28 : List Str = StructAtIndex 0 Json.1213;
dec #Derived_gen.28;
let #Derived_gen.30 : List Str = StructAtIndex 0 Json.1213;
dec #Derived_gen.30;
ret Json.1588;
procedure Json.86 (Json.808):

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

@ -725,14 +725,14 @@ procedure Json.81 (Json.801, Json.802):
procedure Json.831 (Json.1492):
let Json.1493 : List Str = StructAtIndex 1 Json.1492;
let #Derived_gen.16 : List Str = StructAtIndex 0 Json.1492;
dec #Derived_gen.16;
let #Derived_gen.14 : List Str = StructAtIndex 0 Json.1492;
dec #Derived_gen.14;
ret Json.1493;
procedure Json.839 (Json.1213):
let Json.1214 : List Str = StructAtIndex 1 Json.1213;
let #Derived_gen.14 : List Str = StructAtIndex 0 Json.1213;
dec #Derived_gen.14;
let #Derived_gen.16 : List Str = StructAtIndex 0 Json.1213;
dec #Derived_gen.16;
ret Json.1214;
procedure Json.86 (Json.808):

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

@ -732,8 +732,8 @@ procedure Json.81 (Json.801, Json.802):
procedure Json.831 (Json.1492):
let Json.1493 : List Str = StructAtIndex 1 Json.1492;
let #Derived_gen.18 : List Str = StructAtIndex 0 Json.1492;
dec #Derived_gen.18;
let #Derived_gen.19 : List Str = StructAtIndex 0 Json.1492;
dec #Derived_gen.19;
ret Json.1493;
procedure Json.839 (Json.1213):
@ -1369,8 +1369,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.19 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.19;
let #Derived_gen.18 : Str = StructAtIndex 1 Str.80;
dec #Derived_gen.18;
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;

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

@ -161,8 +161,8 @@ procedure Json.533 (Json.534):
procedure Json.535 (Json.1191):
let Json.1192 : List U8 = StructAtIndex 1 Json.1191;
let #Derived_gen.1 : List U8 = StructAtIndex 0 Json.1191;
dec #Derived_gen.1;
let #Derived_gen.0 : List U8 = StructAtIndex 0 Json.1191;
dec #Derived_gen.0;
ret Json.1192;
procedure Json.59 ():
@ -815,8 +815,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;

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

@ -135,8 +135,8 @@ procedure Json.533 (Json.534):
procedure Json.535 (Json.1191):
let Json.1192 : List U8 = StructAtIndex 1 Json.1191;
let #Derived_gen.0 : List U8 = StructAtIndex 0 Json.1191;
dec #Derived_gen.0;
let #Derived_gen.1 : List U8 = StructAtIndex 0 Json.1191;
dec #Derived_gen.1;
ret Json.1192;
procedure Json.59 ():
@ -816,8 +816,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;

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

@ -2,6 +2,10 @@ procedure Test.1 (Test.4):
let Test.12 : Int1 = false;
ret Test.12;
procedure Test.1 (Test.4):
let Test.14 : Int1 = false;
ret Test.14;
procedure Test.2 (Test.5, Test.6):
let Test.10 : U8 = 18i64;
ret Test.10;