diff options
| author | Vikram S. Adve <vadve@cs.uiuc.edu> | 2001-10-28 21:16:34 +0000 |
|---|---|---|
| committer | Vikram S. Adve <vadve@cs.uiuc.edu> | 2001-10-28 21:16:34 +0000 |
| commit | ffcaa7bb00cb4b6e016f8c110f890edb97981576 (patch) | |
| tree | 90ed82c6b3570540794f31125dfa56b5dad018a5 /test/Feature | |
| parent | 15741cfb9b2bbfbf5c72592bf452086ca33fc8b7 (diff) | |
| download | external_llvm-ffcaa7bb00cb4b6e016f8c110f890edb97981576.zip external_llvm-ffcaa7bb00cb4b6e016f8c110f890edb97981576.tar.gz external_llvm-ffcaa7bb00cb4b6e016f8c110f890edb97981576.tar.bz2 | |
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
Diffstat (limited to 'test/Feature')
| -rw-r--r-- | test/Feature/indirectcall.ll | 50 |
1 files changed, 50 insertions, 0 deletions
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 + |