roc/compiler/test_mono/generated/specialize_lowlevel.txt
2021-06-27 14:39:28 +02:00

45 lines
1.2 KiB
Plaintext

procedure Num.24 (#Attr.2, #Attr.3):
let Test.25 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Test.25;
procedure Num.26 (#Attr.2, #Attr.3):
let Test.21 = lowlevel NumMul #Attr.2 #Attr.3;
ret Test.21;
procedure Test.6 (Test.8, #Attr.12):
let Test.4 = UnionAtIndex (Id 0) (Index 0) #Attr.12;
let Test.24 = CallByName Num.24 Test.8 Test.4;
ret Test.24;
procedure Test.7 (Test.9, #Attr.12):
let Test.5 = UnionAtIndex (Id 1) (Index 0) #Attr.12;
let Test.20 = CallByName Num.26 Test.9 Test.5;
ret Test.20;
procedure Test.0 ():
let Test.4 = 1i64;
let Test.5 = 2i64;
let Test.12 = 42i64;
joinpoint Test.19 Test.13:
let Test.14 = GetTagId Test.13;
joinpoint Test.15 Test.11:
ret Test.11;
in
switch Test.14:
case 0:
let Test.16 = CallByName Test.6 Test.12 Test.13;
jump Test.15 Test.16;
default:
let Test.17 = CallByName Test.7 Test.12 Test.13;
jump Test.15 Test.17;
in
let Test.23 = true;
if Test.23 then
let Test.6 = ClosureTag(Test.6) Test.4;
jump Test.19 Test.6;
else
let Test.7 = ClosureTag(Test.7) Test.5;
jump Test.19 Test.7;