language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-07-24 06:55:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

update mono tests?!

Browse source
This commit is contained in:
Folkert 2023-05-18 01:53:06 +02:00
parent dfed7b95e6
commit f609ec68fc
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
4 changed files with 18 additions and 22 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;

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.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 ():
@ -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.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;

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.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 ():
@ -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.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.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,10 +2,6 @@ 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;