roc/compiler/test_mono/generated/peano1.txt
2021-07-16 18:23:57 +02:00

15 lines
372 B
Text

procedure Test.0 ():
let Test.14 = Z ;
let Test.13 = S Test.14;
let Test.12 = S Test.13;
let Test.2 = S Test.12;
let Test.9 = 1i64;
let Test.10 = GetTagId Test.2;
dec Test.2;
let Test.11 = lowlevel Eq Test.9 Test.10;
if Test.11 then
let Test.7 = 0i64;
ret Test.7;
else
let Test.8 = 1i64;
ret Test.8;