roc/crates/compiler/test_mono/generated/recursive_call_capturing_function.txt
Brendan Hansknecht fb1db19dca
mono test
2023-09-17 09:00:01 -07:00

28 lines
782 B
Text

procedure Bool.2 ():
let Bool.23 : Int1 = true;
ret Bool.23;
procedure Num.19 (#Attr.2, #Attr.3):
let Num.291 : U32 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Num.291;
procedure Test.1 (Test.2):
let Test.8 : U32 = 0i64;
let Test.7 : U32 = CallByName Test.3 Test.8 Test.2;
ret Test.7;
procedure Test.3 (#Derived_gen.0, #Derived_gen.1):
joinpoint Test.9 Test.4 Test.2:
let Test.13 : Int1 = CallByName Bool.2;
if Test.13 then
ret Test.4;
else
let Test.11 : U32 = CallByName Num.19 Test.4 Test.2;
jump Test.9 Test.11 Test.2;
in
jump Test.9 #Derived_gen.0 #Derived_gen.1;
procedure Test.0 ():
let Test.6 : U32 = 6i64;
let Test.5 : U32 = CallByName Test.1 Test.6;
ret Test.5;