mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-11-02 22:04:55 +00:00
009505452b
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@2 91177308-0d34-0410-b5e6-96231b3b80d8
44 lines
989 B
LLVM
44 lines
989 B
LLVM
|
|
;; 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
|