blob: 73d5e53bd3782f28b59c770c62688cc901247e0c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
;; 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
ulong "fib"(ulong %n)
begin
setlt ulong %n, 2 ; {bool}:0
br bool %0, label %BaseCase, label %RecurseCase
BaseCase:
ret ulong 1
RecurseCase:
%n2 = sub ulong %n, 2
%n1 = sub ulong %n, 1
%f2 = call ulong(ulong) %fib(ulong %n2)
%f1 = call ulong(ulong) %fib(ulong %n1)
%result = add ulong %f2, %f1
ret ulong %result
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
br label %Continue
Continue:
;;; %n = phi int %n1, %n2
%N = add ulong 1, 1 ;; TODO: CAST
%F = call ulong(ulong) %fib(ulong %N)
ret ulong %F
end
|
