roc/compiler/test_mono/generated/list_get.txt
2022-02-21 14:10:45 -05:00

23 lines
757 B
Text

procedure List.3 (#Attr.2, #Attr.3):
let Test.13 : U64 = lowlevel ListLen #Attr.2;
let Test.10 : Int1 = lowlevel NumLt #Attr.3 Test.13;
if Test.10 then
let Test.12 : I64 = lowlevel ListGetUnsafe #Attr.2 #Attr.3;
let Test.11 : [C {}, C I64] = Ok Test.12;
ret Test.11;
else
let Test.9 : {} = Struct {};
let Test.8 : [C {}, C I64] = Err Test.9;
ret Test.8;
procedure Test.1 (Test.2):
let Test.6 : List I64 = Array [1i64, 2i64, 3i64];
let Test.7 : U64 = 0i64;
let Test.5 : [C {}, C I64] = CallByName List.3 Test.6 Test.7;
dec Test.6;
ret Test.5;
procedure Test.0 ():
let Test.4 : {} = Struct {};
let Test.3 : [C {}, C I64] = CallByName Test.1 Test.4;
ret Test.3;