fix mono tests

This commit is contained in:
Folkert 2022-07-04 18:02:37 +02:00
parent 6d7c329698
commit 2293aa2a91
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
3 changed files with 16 additions and 16 deletions

View file

@ -39,17 +39,17 @@ procedure Num.22 (#Attr.2, #Attr.3):
procedure Str.27 (#Attr.2):
let #Attr.3 : {I64, U8} = lowlevel StrToNum #Attr.2;
let Str.131 : U8 = StructAtIndex 1 #Attr.3;
let Str.132 : U8 = 0i64;
let Str.128 : Int1 = lowlevel NumGt Str.131 Str.132;
if Str.128 then
let Str.130 : Int1 = false;
let Str.129 : [C Int1, C I64] = TagId(0) Str.130;
ret Str.129;
let Str.159 : U8 = StructAtIndex 1 #Attr.3;
let Str.160 : U8 = 0i64;
let Str.156 : Int1 = lowlevel NumGt Str.159 Str.160;
if Str.156 then
let Str.158 : Int1 = false;
let Str.157 : [C Int1, C I64] = TagId(0) Str.158;
ret Str.157;
else
let Str.127 : I64 = StructAtIndex 0 #Attr.3;
let Str.126 : [C Int1, C I64] = TagId(1) Str.127;
ret Str.126;
let Str.155 : I64 = StructAtIndex 0 #Attr.3;
let Str.154 : [C Int1, C I64] = TagId(1) Str.155;
ret Str.154;
procedure Test.0 ():
let Test.4 : Int1 = true;

View file

@ -27,12 +27,12 @@ procedure Num.22 (#Attr.2, #Attr.3):
ret Num.188;
procedure Str.16 (#Attr.2, #Attr.3):
let Str.126 : Str = lowlevel StrRepeat #Attr.2 #Attr.3;
ret Str.126;
let Str.154 : Str = lowlevel StrRepeat #Attr.2 #Attr.3;
ret Str.154;
procedure Str.3 (#Attr.2, #Attr.3):
let Str.127 : Str = lowlevel StrConcat #Attr.2 #Attr.3;
ret Str.127;
let Str.155 : Str = lowlevel StrConcat #Attr.2 #Attr.3;
ret Str.155;
procedure Test.1 ():
let Test.21 : Str = "lllllllllllllllllllllooooooooooong";

View file

@ -29,8 +29,8 @@ procedure Num.22 (#Attr.2, #Attr.3):
ret Num.188;
procedure Str.3 (#Attr.2, #Attr.3):
let Str.127 : Str = lowlevel StrConcat #Attr.2 #Attr.3;
ret Str.127;
let Str.155 : Str = lowlevel StrConcat #Attr.2 #Attr.3;
ret Str.155;
procedure Test.1 ():
let Test.21 : Str = "lllllllllllllllllllllooooooooooong";