Fix mono tests

This commit is contained in:
Richard Feldman 2022-07-02 13:13:19 -04:00
parent c6d409cc4c
commit 092654c463
No known key found for this signature in database
GPG key ID: 7E4127D1E4241798
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.70 : U8 = StructAtIndex 1 #Attr.3;
let Str.71 : U8 = 0i64;
let Str.67 : Int1 = lowlevel NumGt Str.70 Str.71;
if Str.67 then
let Str.69 : Int1 = false;
let Str.68 : [C Int1, C I64] = Err Str.69;
ret Str.68;
let Str.72 : U8 = StructAtIndex 1 #Attr.3;
let Str.73 : U8 = 0i64;
let Str.69 : Int1 = lowlevel NumGt Str.72 Str.73;
if Str.69 then
let Str.71 : Int1 = false;
let Str.70 : [C Int1, C I64] = Err Str.71;
ret Str.70;
else
let Str.66 : I64 = StructAtIndex 0 #Attr.3;
let Str.65 : [C Int1, C I64] = Ok Str.66;
ret Str.65;
let Str.68 : I64 = StructAtIndex 0 #Attr.3;
let Str.67 : [C Int1, C I64] = Ok Str.68;
ret Str.67;
procedure Test.0 ():
let Test.4 : Int1 = true;

View file

@ -27,12 +27,12 @@ procedure Num.22 (#Attr.2, #Attr.3):
ret Num.273;
procedure Str.16 (#Attr.2, #Attr.3):
let Str.65 : Str = lowlevel StrRepeat #Attr.2 #Attr.3;
ret Str.65;
let Str.67 : Str = lowlevel StrRepeat #Attr.2 #Attr.3;
ret Str.67;
procedure Str.3 (#Attr.2, #Attr.3):
let Str.66 : Str = lowlevel StrConcat #Attr.2 #Attr.3;
ret Str.66;
let Str.68 : Str = lowlevel StrConcat #Attr.2 #Attr.3;
ret Str.68;
procedure Test.1 ():
let Test.21 : Str = "lllllllllllllllllllllooooooooooong";

View file

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