diff options
Diffstat (limited to 'test/fib.ll')
-rw-r--r-- | test/fib.ll | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/test/fib.ll b/test/fib.ll new file mode 100644 index 0000000000..73d5e53bd3 --- /dev/null +++ b/test/fib.ll @@ -0,0 +1,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 |