-
-;; TODO:
-;; [ ] Get rid out outside class & begin stuff
-;; [ ] Allow global const pool to be expanded continually
-;; [ ] Support global variable declaration & definition
-;; [ ] Support function definition: %fib = prototype ulong (ulong)
-;; [x] Support Type definition
-
implementation
+declare int "atoi"(sbyte *)
+
ulong "fib"(ulong %n)
begin
setlt ulong %n, 2 ; {bool}:0
end
ulong "main"(int %argc, sbyte ** %argv)
-;; %n2 = int 1
begin
seteq int %argc, 2 ; {bool}:0
br bool %0, label %HasArg, label %Continue
HasArg:
; %n1 = atoi(argv[1])
-;;; %n1 = add int 1, 1
+ %n1 = add int 1, 1
br label %Continue
Continue:
-;;; %n = phi int %n1, %n2
- %N = add ulong 1, 1 ;; TODO: CAST
+ %n = phi int [%n1, %HasArg], [1, %0]
+ %N = cast int %n to ulong
%F = call ulong(ulong) %fib(ulong %N)
ret ulong %F
end