test/Feature/indirectcall.ll

   1 implementation
   2
   3 declare int "atoi"(sbyte *)
   4
   5 ulong "fib"(ulong %n)
   6 begin
   7   setlt ulong %n, 2       ; {bool}:0
   8   br bool %0, label %BaseCase, label %RecurseCase
   9
  10 BaseCase:
  11   ret ulong 1
  12
  13 RecurseCase:
  14   %n2 = sub ulong %n, 2
  15   %n1 = sub ulong %n, 1
  16   %f2 = call ulong(ulong) * %fib(ulong %n2)
  17   %f1 = call ulong(ulong) * %fib(ulong %n1)
  18   %result = add ulong %f2, %f1
  19   ret ulong %result
  20 end
  21
  22 ulong "realmain"(int %argc, sbyte ** %argv)
  23 begin
  24   seteq int %argc, 2      ; {bool}:0
  25   br bool %0, label %HasArg, label %Continue
  26 HasArg:
  27   ; %n1 = atoi(argv[1])
  28   %n1 = add int 1, 1
  29   br label %Continue
  30
  31 Continue:
  32   %n = phi int [%n1, %HasArg], [1, %0]
  33   %N = cast int %n to ulong
  34   %F = call ulong(ulong) *%fib(ulong %N)
  35   ret ulong %F
  36 end
  37
  38 ulong "trampoline"(ulong %n, ulong(ulong)* %fibfunc)
  39 begin
  40   %F = call ulong(ulong) *%fibfunc(ulong %n)
  41   ret ulong %F
  42 end
  43
  44 int "main"()
  45 begin
  46   %Result = call ulong %trampoline(ulong 10, ulong(ulong) *%fib)
  47   %Result = cast ulong %Result to int
  48   ret int %Result
  49 end
  50