fix tests

This commit is contained in:
Folkert 2020-08-13 01:40:03 +02:00
parent 5ca843822f
commit c52f866d8a

View file

@ -526,15 +526,15 @@ mod test_mono {
"#, "#,
indoc!( indoc!(
r#" r#"
procedure List.5 (#Attr.2, #Attr.3):
let Test.9 = lowlevel ListAppend #Attr.2 #Attr.3;
ret Test.9;
procedure Test.0 (Test.2): procedure Test.0 (Test.2):
let Test.8 = 42i64; let Test.8 = 42i64;
let Test.7 = CallByName List.5 Test.2 Test.8; let Test.7 = CallByName List.5 Test.2 Test.8;
ret Test.7; ret Test.7;
procedure List.5 (#Attr.2, #Attr.3):
let Test.9 = lowlevel ListAppend #Attr.2 #Attr.3;
ret Test.9;
let Test.5 = 1i64; let Test.5 = 1i64;
let Test.6 = 2i64; let Test.6 = 2i64;
let Test.4 = Array [Test.5, Test.6]; let Test.4 = Array [Test.5, Test.6];
@ -580,12 +580,16 @@ mod test_mono {
"#, "#,
indoc!( indoc!(
r#" r#"
procedure Num.14 (#Attr.2, #Attr.3):
let Test.13 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Test.13;
procedure List.7 (#Attr.2): procedure List.7 (#Attr.2):
let Test.9 = lowlevel ListLen #Attr.2; let Test.9 = lowlevel ListLen #Attr.2;
ret Test.9; ret Test.9;
procedure Num.14 (#Attr.2, #Attr.3): procedure List.7 (#Attr.2):
let Test.11 = lowlevel NumAdd #Attr.2 #Attr.3; let Test.11 = lowlevel ListLen #Attr.2;
ret Test.11; ret Test.11;
let Test.8 = 1f64; let Test.8 = 1f64;
@ -901,6 +905,12 @@ mod test_mono {
), ),
indoc!( indoc!(
r#" r#"
procedure Test.1 (Test.3):
let Test.9 = 0i64;
let Test.10 = 0i64;
let Test.8 = CallByName List.4 Test.3 Test.9 Test.10;
ret Test.8;
procedure List.4 (#Attr.2, #Attr.3, #Attr.4): procedure List.4 (#Attr.2, #Attr.3, #Attr.4):
let Test.14 = lowlevel ListLen #Attr.2; let Test.14 = lowlevel ListLen #Attr.2;
let Test.12 = lowlevel NumLt #Attr.3 Test.14; let Test.12 = lowlevel NumLt #Attr.3 Test.14;
@ -910,12 +920,6 @@ mod test_mono {
else else
ret #Attr.2; ret #Attr.2;
procedure Test.1 (Test.3):
let Test.9 = 0i64;
let Test.10 = 0i64;
let Test.8 = CallByName List.4 Test.3 Test.9 Test.10;
ret Test.8;
let Test.5 = 1i64; let Test.5 = 1i64;
let Test.6 = 2i64; let Test.6 = 2i64;
let Test.7 = 3i64; let Test.7 = 3i64;
@ -943,16 +947,16 @@ mod test_mono {
), ),
indoc!( indoc!(
r#" r#"
procedure Num.14 (#Attr.2, #Attr.3):
let Test.10 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Test.10;
procedure Test.0 (Test.2): procedure Test.0 (Test.2):
let Test.3 = Index 0 Test.2; let Test.3 = Index 0 Test.2;
let Test.4 = Index 1 Test.2; let Test.4 = Index 1 Test.2;
let Test.9 = CallByName Num.14 Test.3 Test.4; let Test.9 = CallByName Num.14 Test.3 Test.4;
ret Test.9; ret Test.9;
procedure Num.14 (#Attr.2, #Attr.3):
let Test.10 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Test.10;
let Test.7 = 4i64; let Test.7 = 4i64;
let Test.8 = 9i64; let Test.8 = 9i64;
let Test.6 = Struct {Test.7, Test.8}; let Test.6 = Struct {Test.7, Test.8};
@ -978,16 +982,16 @@ mod test_mono {
), ),
indoc!( indoc!(
r#" r#"
procedure Num.14 (#Attr.2, #Attr.3):
let Test.9 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Test.9;
procedure Test.0 (Test.2): procedure Test.0 (Test.2):
let Test.3 = 10i64; let Test.3 = 10i64;
let Test.4 = Index 1 Test.2; let Test.4 = Index 1 Test.2;
let Test.8 = CallByName Num.14 Test.3 Test.4; let Test.8 = CallByName Num.14 Test.3 Test.4;
ret Test.8; ret Test.8;
procedure Num.14 (#Attr.2, #Attr.3):
let Test.9 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Test.9;
let Test.7 = 9i64; let Test.7 = 9i64;
let Test.6 = Struct {Test.7}; let Test.6 = Struct {Test.7};
let Test.5 = CallByName Test.0 Test.6; let Test.5 = CallByName Test.0 Test.6;
@ -1010,17 +1014,15 @@ mod test_mono {
), ),
indoc!( indoc!(
r#" r#"
procedure Num.14 (#Attr.2, #Attr.3):
let Test.10 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Test.10;
procedure Test.0 (Test.4): procedure Test.0 (Test.4):
let Test.2 = Index 0 Test.4; let Test.2 = Index 0 Test.4;
let Test.3 = Index 1 Test.4; let Test.3 = Index 1 Test.4;
let Test.11 = CallByName Num.14 Test.2 Test.3; let Test.9 = CallByName Num.14 Test.2 Test.3;
jump Test.10 Test.11; ret Test.9;
joinpoint Test.10 Test.9:
ret Test.9;
procedure Num.14 (#Attr.2, #Attr.3):
let Test.12 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Test.12;
let Test.7 = 4i64; let Test.7 = 4i64;
let Test.8 = 9i64; let Test.8 = 9i64;
@ -1045,17 +1047,15 @@ mod test_mono {
), ),
indoc!( indoc!(
r#" r#"
procedure Num.14 (#Attr.2, #Attr.3):
let Test.9 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Test.9;
procedure Test.0 (Test.4): procedure Test.0 (Test.4):
let Test.2 = 10i64; let Test.2 = 10i64;
let Test.3 = Index 1 Test.4; let Test.3 = Index 1 Test.4;
let Test.10 = CallByName Num.14 Test.2 Test.3; let Test.8 = CallByName Num.14 Test.2 Test.3;
jump Test.9 Test.10; ret Test.8;
joinpoint Test.9 Test.8:
ret Test.8;
procedure Num.14 (#Attr.2, #Attr.3):
let Test.11 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Test.11;
let Test.7 = 9i64; let Test.7 = 9i64;
let Test.6 = Struct {Test.7}; let Test.6 = Struct {Test.7};
@ -1232,14 +1232,14 @@ mod test_mono {
let Test.10 = CallByName Num.16 Test.2 Test.3; let Test.10 = CallByName Num.16 Test.2 Test.3;
jump Test.20 Test.9 Test.10; jump Test.20 Test.9 Test.10;
procedure Num.15 (#Attr.2, #Attr.3):
let Test.14 = lowlevel NumSub #Attr.2 #Attr.3;
ret Test.14;
procedure Num.16 (#Attr.2, #Attr.3): procedure Num.16 (#Attr.2, #Attr.3):
let Test.11 = lowlevel NumMul #Attr.2 #Attr.3; let Test.11 = lowlevel NumMul #Attr.2 #Attr.3;
ret Test.11; ret Test.11;
procedure Num.15 (#Attr.2, #Attr.3):
let Test.14 = lowlevel NumSub #Attr.2 #Attr.3;
ret Test.14;
let Test.5 = 10i64; let Test.5 = 10i64;
let Test.6 = 1i64; let Test.6 = 1i64;
let Test.4 = CallByName Test.0 Test.5 Test.6; let Test.4 = CallByName Test.0 Test.5 Test.6;