Add calls to print results in fib, simpleadd and sumarray.
indirectcall is the same as fib but uses function pointers.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@996 91177308-0d34-0410-b5e6-96231b3b80d8
diff --git a/test/Feature/indirectcall.ll b/test/Feature/indirectcall.ll
new file mode 100644
index 0000000..b4d042f
--- /dev/null
+++ b/test/Feature/indirectcall.ll
@@ -0,0 +1,50 @@
+implementation
+
+declare int "atoi"(sbyte *)
+
+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 "realmain"(int %argc, sbyte ** %argv)
+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, %HasArg], [1, %0]
+ %N = cast int %n to ulong
+ %F = call ulong(ulong) *%fib(ulong %N)
+ ret ulong %F
+end
+
+ulong "trampoline"(ulong %n, ulong(ulong)* %fibfunc)
+begin
+ %F = call ulong(ulong) *%fibfunc(ulong %n)
+ ret ulong %F
+end
+
+int "main"()
+begin
+ %Result = call ulong %trampoline(ulong 10, ulong(ulong) *%fib)
+ %Result = cast ulong %Result to int
+ ret int %Result
+end
+
diff --git a/test/fib.ll b/test/fib.ll
index 933311d..6d81174 100644
--- a/test/fib.ll
+++ b/test/fib.ll
@@ -1,6 +1,11 @@
-implementation
+%FmtString1 = constant [ubyte] c"fib = \00"
+%FmtString2 = constant [ubyte] c"\0A\00"
declare int "atoi"(sbyte *)
+declare void "printInt"(int)
+declare void "printString"([ubyte]*)
+
+implementation
ulong "fib"(ulong %n)
begin
@@ -39,6 +44,9 @@
begin
%Result = call ulong %fib(ulong 10)
%Result = cast ulong %Result to int
+ call void %printString([ubyte]* %FmtString1)
+ call void %printInt(int %Result)
+ call void %printString([ubyte]* %FmtString2)
ret int %Result
end