mirror of
https://github.com/roc-lang/roc.git
synced 2025-08-04 12:18:19 +00:00
fix mono tests
This commit is contained in:
parent
6d7c329698
commit
2293aa2a91
3 changed files with 16 additions and 16 deletions
|
@ -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;
|
||||
|
|
|
@ -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";
|
||||
|
|
|
@ -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";
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue