aboutsummaryrefslogtreecommitdiffstats
path: root/test/fib.ll
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