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:
Folkert 2024-01-20 22:31:54 +01:00
parent f1ffc36efe
commit 8b5269a66c
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
47 changed files with 2024 additions and 2024 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -11,115 +11,115 @@ procedure Encode.26 (Encode.105, Encode.106):
let Encode.108 : List U8 = CallByName Encode.24 Encode.109 Encode.110 Encode.106;
ret Encode.108;
procedure List.101 (List.484, List.485, List.486):
let List.612 : U64 = 0i64;
let List.613 : U64 = CallByName List.6 List.484;
let List.611 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.80 List.484 List.485 List.486 List.612 List.613;
ret List.611;
procedure List.102 (List.486, List.487, List.488):
let List.614 : U64 = 0i64;
let List.615 : U64 = CallByName List.6 List.486;
let List.613 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.80 List.486 List.487 List.488 List.614 List.615;
ret List.613;
procedure List.18 (List.156, List.157, List.158):
let List.583 : U64 = 0i64;
let List.584 : U64 = CallByName List.6 List.156;
let List.582 : List U8 = CallByName List.89 List.156 List.157 List.158 List.583 List.584;
ret List.582;
procedure List.18 (List.158, List.159, List.160):
let List.585 : U64 = 0i64;
let List.586 : U64 = CallByName List.6 List.158;
let List.584 : List U8 = CallByName List.90 List.158 List.159 List.160 List.585 List.586;
ret List.584;
procedure List.26 (List.197, List.198, List.199):
let List.605 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.101 List.197 List.198 List.199;
let List.608 : U8 = 1i64;
let List.609 : U8 = GetTagId List.605;
let List.610 : Int1 = lowlevel Eq List.608 List.609;
if List.610 then
let List.200 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.605;
ret List.200;
procedure List.26 (List.199, List.200, List.201):
let List.607 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.102 List.199 List.200 List.201;
let List.610 : U8 = 1i64;
let List.611 : U8 = GetTagId List.607;
let List.612 : Int1 = lowlevel Eq List.610 List.611;
if List.612 then
let List.202 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.607;
ret List.202;
else
let List.201 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.605;
ret List.201;
let List.203 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.607;
ret List.203;
procedure List.49 (List.416, List.417):
let List.596 : U64 = StructAtIndex 1 List.417;
let List.597 : U64 = StructAtIndex 0 List.417;
let List.595 : List U8 = CallByName List.72 List.416 List.596 List.597;
ret List.595;
procedure List.49 (List.418, List.419):
let List.598 : U64 = StructAtIndex 1 List.419;
let List.599 : U64 = StructAtIndex 0 List.419;
let List.597 : List U8 = CallByName List.72 List.418 List.598 List.599;
ret List.597;
procedure List.52 (List.431, List.432):
let List.433 : U64 = CallByName List.6 List.431;
joinpoint List.603 List.434:
let List.601 : U64 = 0i64;
let List.600 : {U64, U64} = Struct {List.434, List.601};
inc List.431;
let List.435 : List U8 = CallByName List.49 List.431 List.600;
let List.599 : U64 = CallByName Num.75 List.433 List.434;
let List.594 : {U64, U64} = Struct {List.599, List.434};
let List.436 : List U8 = CallByName List.49 List.431 List.594;
let List.593 : {List U8, List U8} = Struct {List.435, List.436};
ret List.593;
procedure List.52 (List.433, List.434):
let List.435 : U64 = CallByName List.6 List.433;
joinpoint List.605 List.436:
let List.603 : U64 = 0i64;
let List.602 : {U64, U64} = Struct {List.436, List.603};
inc List.433;
let List.437 : List U8 = CallByName List.49 List.433 List.602;
let List.601 : U64 = CallByName Num.75 List.435 List.436;
let List.596 : {U64, U64} = Struct {List.601, List.436};
let List.438 : List U8 = CallByName List.49 List.433 List.596;
let List.595 : {List U8, List U8} = Struct {List.437, List.438};
ret List.595;
in
let List.604 : Int1 = CallByName Num.24 List.433 List.432;
if List.604 then
jump List.603 List.432;
let List.606 : Int1 = CallByName Num.24 List.435 List.434;
if List.606 then
jump List.605 List.434;
else
jump List.603 List.433;
jump List.605 List.435;
procedure List.6 (#Attr.2):
let List.581 : U64 = lowlevel ListLen #Attr.2;
ret List.581;
let List.583 : U64 = lowlevel ListLen #Attr.2;
ret List.583;
procedure List.66 (#Attr.2, #Attr.3):
let List.592 : U8 = lowlevel ListGetUnsafe #Attr.2 #Attr.3;
ret List.592;
let List.594 : U8 = lowlevel ListGetUnsafe #Attr.2 #Attr.3;
ret List.594;
procedure List.68 (#Attr.2):
let List.579 : List U8 = lowlevel ListWithCapacity #Attr.2;
ret List.579;
let List.581 : List U8 = lowlevel ListWithCapacity #Attr.2;
ret List.581;
procedure List.72 (#Attr.2, #Attr.3, #Attr.4):
let List.598 : List U8 = lowlevel ListSublist #Attr.2 #Attr.3 #Attr.4;
ret List.598;
let List.600 : List U8 = lowlevel ListSublist #Attr.2 #Attr.3 #Attr.4;
ret List.600;
procedure List.8 (#Attr.2, #Attr.3):
let List.577 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3;
ret List.577;
let List.579 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3;
ret List.579;
procedure List.80 (#Derived_gen.8, #Derived_gen.9, #Derived_gen.10, #Derived_gen.11, #Derived_gen.12):
joinpoint List.614 List.487 List.488 List.489 List.490 List.491:
let List.616 : Int1 = CallByName Num.22 List.490 List.491;
if List.616 then
let List.625 : U8 = CallByName List.66 List.487 List.490;
let List.617 : [C {U64, Int1}, C {U64, Int1}] = CallByName TotallyNotJson.189 List.488 List.625;
let List.622 : U8 = 1i64;
let List.623 : U8 = GetTagId List.617;
let List.624 : Int1 = lowlevel Eq List.622 List.623;
if List.624 then
let List.492 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.617;
let List.620 : U64 = 1i64;
let List.619 : U64 = CallByName Num.51 List.490 List.620;
jump List.614 List.487 List.492 List.489 List.619 List.491;
joinpoint List.616 List.489 List.490 List.491 List.492 List.493:
let List.618 : Int1 = CallByName Num.22 List.492 List.493;
if List.618 then
let List.627 : U8 = CallByName List.66 List.489 List.492;
let List.619 : [C {U64, Int1}, C {U64, Int1}] = CallByName TotallyNotJson.189 List.490 List.627;
let List.624 : U8 = 1i64;
let List.625 : U8 = GetTagId List.619;
let List.626 : Int1 = lowlevel Eq List.624 List.625;
if List.626 then
let List.494 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.619;
let List.622 : U64 = 1i64;
let List.621 : U64 = CallByName Num.51 List.492 List.622;
jump List.616 List.489 List.494 List.491 List.621 List.493;
else
dec List.487;
let List.493 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.617;
let List.621 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) List.493;
ret List.621;
dec List.489;
let List.495 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.619;
let List.623 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) List.495;
ret List.623;
else
dec List.487;
let List.615 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.488;
ret List.615;
dec List.489;
let List.617 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.490;
ret List.617;
in
jump List.614 #Derived_gen.8 #Derived_gen.9 #Derived_gen.10 #Derived_gen.11 #Derived_gen.12;
jump List.616 #Derived_gen.8 #Derived_gen.9 #Derived_gen.10 #Derived_gen.11 #Derived_gen.12;
procedure List.89 (#Derived_gen.0, #Derived_gen.1, #Derived_gen.2, #Derived_gen.3, #Derived_gen.4):
joinpoint List.585 List.159 List.160 List.161 List.162 List.163:
let List.587 : Int1 = CallByName Num.22 List.162 List.163;
if List.587 then
let List.591 : U8 = CallByName List.66 List.159 List.162;
let List.164 : List U8 = CallByName TotallyNotJson.215 List.160 List.591;
let List.590 : U64 = 1i64;
let List.589 : U64 = CallByName Num.51 List.162 List.590;
jump List.585 List.159 List.164 List.161 List.589 List.163;
procedure List.90 (#Derived_gen.0, #Derived_gen.1, #Derived_gen.2, #Derived_gen.3, #Derived_gen.4):
joinpoint List.587 List.161 List.162 List.163 List.164 List.165:
let List.589 : Int1 = CallByName Num.22 List.164 List.165;
if List.589 then
let List.593 : U8 = CallByName List.66 List.161 List.164;
let List.166 : List U8 = CallByName TotallyNotJson.215 List.162 List.593;
let List.592 : U64 = 1i64;
let List.591 : U64 = CallByName Num.51 List.164 List.592;
jump List.587 List.161 List.166 List.163 List.591 List.165;
else
dec List.159;
ret List.160;
dec List.161;
ret List.162;
in
jump List.585 #Derived_gen.0 #Derived_gen.1 #Derived_gen.2 #Derived_gen.3 #Derived_gen.4;
jump List.587 #Derived_gen.0 #Derived_gen.1 #Derived_gen.2 #Derived_gen.3 #Derived_gen.4;
procedure Num.19 (#Attr.2, #Attr.3):
let Num.292 : U64 = lowlevel NumAdd #Attr.2 #Attr.3;