examples/benchmarks/overload.pir

   1 # Copyright (C) 2004-2009, Parrot Foundation.
   2 # $Id$
   3
   4 .sub bench :main
   5 .include "pmctypes.pasm"
   6    .local int i
   7    .local pmc r
   8    .local pmc a
   9    .local pmc b
  10    a = new 'Integer'
  11    b = new 'Integer'
  12    r = new 'Integer'
  13    a = 7
  14    b = 6
  15    i = 1
  16 loop:
  17    r = a * b
  18    inc i
  19    if i <= 50000 goto loop
  20    print r
  21    print "\n"
  22    end
  23 .end
  24
  25
  26 .sub my_mul :multi(Integer, Integer, Integer)
  27    .param pmc left
  28    .param pmc right
  29    .param pmc dest
  30    $I0 = left
  31    $I1 = right
  32    $I2 = $I0 * $I1
  33    dest = $I2
  34    .return (dest)
  35 .end
  36
  37 # Local Variables:
  38 #   mode: pir
  39 #   fill-column: 100
  40 # End:
  41 # vim: expandtab shiftwidth=4 ft=pir: