test/fib.ll

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