mirror of
https://github.com/roc-lang/roc.git
synced 2025-08-03 19:58:18 +00:00
Update mono tests
These have changed because of how interned layouts are now sorted.
This commit is contained in:
parent
1aa89fc567
commit
dd6a72fc46
3 changed files with 28 additions and 28 deletions
|
@ -14,11 +14,11 @@ procedure Test.16 (Test.54):
|
|||
ret Test.56;
|
||||
|
||||
procedure Test.2 (Test.7, Test.8):
|
||||
let Test.30 : [C {} {}, C {} {}] = TagId(0) Test.7 Test.8;
|
||||
let Test.30 : [C {} {}, C {} {}] = TagId(1) Test.7 Test.8;
|
||||
ret Test.30;
|
||||
|
||||
procedure Test.2 (Test.7, Test.8):
|
||||
let Test.44 : [C {} {}, C {} {}] = TagId(1) Test.7 Test.8;
|
||||
let Test.44 : [C {} {}, C {} {}] = TagId(0) Test.7 Test.8;
|
||||
ret Test.44;
|
||||
|
||||
procedure Test.3 (Test.17):
|
||||
|
@ -32,17 +32,6 @@ procedure Test.4 (Test.18):
|
|||
procedure Test.9 (Test.29, #Attr.12):
|
||||
let Test.8 : {} = UnionAtIndex (Id 0) (Index 1) #Attr.12;
|
||||
let Test.7 : {} = UnionAtIndex (Id 0) (Index 0) #Attr.12;
|
||||
let Test.35 : {} = Struct {};
|
||||
let Test.34 : Str = CallByName Test.15 Test.35;
|
||||
let Test.31 : {} = CallByName Test.3 Test.34;
|
||||
dec Test.34;
|
||||
let Test.33 : {} = Struct {};
|
||||
let Test.32 : Str = CallByName Test.11 Test.33;
|
||||
ret Test.32;
|
||||
|
||||
procedure Test.9 (Test.29, #Attr.12):
|
||||
let Test.8 : {} = UnionAtIndex (Id 1) (Index 1) #Attr.12;
|
||||
let Test.7 : {} = UnionAtIndex (Id 1) (Index 0) #Attr.12;
|
||||
let Test.49 : {} = Struct {};
|
||||
let Test.48 : Str = CallByName Test.16 Test.49;
|
||||
let Test.45 : Str = CallByName Test.4 Test.48;
|
||||
|
@ -51,6 +40,17 @@ procedure Test.9 (Test.29, #Attr.12):
|
|||
let Test.46 : Str = CallByName Test.13 Test.47 Test.45;
|
||||
ret Test.46;
|
||||
|
||||
procedure Test.9 (Test.29, #Attr.12):
|
||||
let Test.8 : {} = UnionAtIndex (Id 1) (Index 1) #Attr.12;
|
||||
let Test.7 : {} = UnionAtIndex (Id 1) (Index 0) #Attr.12;
|
||||
let Test.35 : {} = Struct {};
|
||||
let Test.34 : Str = CallByName Test.15 Test.35;
|
||||
let Test.31 : {} = CallByName Test.3 Test.34;
|
||||
dec Test.34;
|
||||
let Test.33 : {} = Struct {};
|
||||
let Test.32 : Str = CallByName Test.11 Test.33;
|
||||
ret Test.32;
|
||||
|
||||
procedure Test.0 ():
|
||||
let Test.5 : Int1 = true;
|
||||
joinpoint Test.25 Test.6:
|
||||
|
|
|
@ -1,9 +1,9 @@
|
|||
procedure Test.1 (Test.5):
|
||||
let Test.19 : [C , C U64, C {}] = TagId(2) Test.5;
|
||||
let Test.19 : [C , C {}, C U64] = TagId(1) Test.5;
|
||||
ret Test.19;
|
||||
|
||||
procedure Test.1 (Test.5):
|
||||
let Test.27 : [C , C U64, C {}] = TagId(1) Test.5;
|
||||
let Test.27 : [C , C {}, C U64] = TagId(2) Test.5;
|
||||
ret Test.27;
|
||||
|
||||
procedure Test.2 (Test.8):
|
||||
|
@ -11,12 +11,12 @@ procedure Test.2 (Test.8):
|
|||
ret Test.24;
|
||||
|
||||
procedure Test.6 (Test.20, #Attr.12):
|
||||
let Test.5 : U64 = UnionAtIndex (Id 1) (Index 0) #Attr.12;
|
||||
let Test.5 : U64 = UnionAtIndex (Id 2) (Index 0) #Attr.12;
|
||||
let Test.30 : Str = "";
|
||||
ret Test.30;
|
||||
|
||||
procedure Test.6 (Test.20, #Attr.12):
|
||||
let Test.5 : {} = UnionAtIndex (Id 2) (Index 0) #Attr.12;
|
||||
let Test.5 : {} = UnionAtIndex (Id 1) (Index 0) #Attr.12;
|
||||
let Test.22 : Str = "";
|
||||
ret Test.22;
|
||||
|
||||
|
@ -45,15 +45,15 @@ procedure Test.0 ():
|
|||
switch Test.3:
|
||||
case 0:
|
||||
let Test.18 : {} = Struct {};
|
||||
let Test.17 : [C , C U64, C {}] = CallByName Test.1 Test.18;
|
||||
let Test.17 : [C , C {}, C U64] = CallByName Test.1 Test.18;
|
||||
jump Test.16 Test.17;
|
||||
|
||||
case 1:
|
||||
let Test.23 : [C , C U64, C {}] = TagId(0) ;
|
||||
let Test.23 : [C , C {}, C U64] = TagId(0) ;
|
||||
jump Test.16 Test.23;
|
||||
|
||||
default:
|
||||
let Test.26 : U64 = 1i64;
|
||||
let Test.25 : [C , C U64, C {}] = CallByName Test.1 Test.26;
|
||||
let Test.25 : [C , C {}, C U64] = CallByName Test.1 Test.26;
|
||||
jump Test.16 Test.25;
|
||||
|
||||
|
|
|
@ -1,23 +1,23 @@
|
|||
procedure Test.1 (Test.5):
|
||||
let Test.20 : [C U64, C {}, C Str] = TagId(1) Test.5;
|
||||
let Test.20 : [C {}, C U64, C Str] = TagId(0) Test.5;
|
||||
ret Test.20;
|
||||
|
||||
procedure Test.1 (Test.5):
|
||||
let Test.32 : [C U64, C {}, C Str] = TagId(0) Test.5;
|
||||
let Test.32 : [C {}, C U64, C Str] = TagId(1) Test.5;
|
||||
ret Test.32;
|
||||
|
||||
procedure Test.2 (Test.7):
|
||||
let Test.26 : [C U64, C {}, C Str] = TagId(2) Test.7;
|
||||
let Test.26 : [C {}, C U64, C Str] = TagId(2) Test.7;
|
||||
ret Test.26;
|
||||
|
||||
procedure Test.6 (Test.21, #Attr.12):
|
||||
let Test.5 : U64 = UnionAtIndex (Id 0) (Index 0) #Attr.12;
|
||||
let Test.5 : U64 = UnionAtIndex (Id 1) (Index 0) #Attr.12;
|
||||
dec #Attr.12;
|
||||
let Test.35 : Str = "";
|
||||
ret Test.35;
|
||||
|
||||
procedure Test.6 (Test.21, #Attr.12):
|
||||
let Test.5 : {} = UnionAtIndex (Id 1) (Index 0) #Attr.12;
|
||||
let Test.5 : {} = UnionAtIndex (Id 0) (Index 0) #Attr.12;
|
||||
dec #Attr.12;
|
||||
let Test.23 : Str = "";
|
||||
ret Test.23;
|
||||
|
@ -53,16 +53,16 @@ procedure Test.0 ():
|
|||
switch Test.3:
|
||||
case 0:
|
||||
let Test.19 : {} = Struct {};
|
||||
let Test.18 : [C U64, C {}, C Str] = CallByName Test.1 Test.19;
|
||||
let Test.18 : [C {}, C U64, C Str] = CallByName Test.1 Test.19;
|
||||
jump Test.17 Test.18;
|
||||
|
||||
case 1:
|
||||
let Test.25 : Str = "foo";
|
||||
let Test.24 : [C U64, C {}, C Str] = CallByName Test.2 Test.25;
|
||||
let Test.24 : [C {}, C U64, C Str] = CallByName Test.2 Test.25;
|
||||
jump Test.17 Test.24;
|
||||
|
||||
default:
|
||||
let Test.31 : U64 = 1i64;
|
||||
let Test.30 : [C U64, C {}, C Str] = CallByName Test.1 Test.31;
|
||||
let Test.30 : [C {}, C U64, C Str] = CallByName Test.1 Test.31;
|
||||
jump Test.17 Test.30;
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue