# Copyright (C) 2006-2009, Parrot Foundation. # $Id$ .loadlib 'bit_ops' .sub 'main' :main $S0 = <<'PIR' .sub "rot_sub" .param int a .param int b $I0 = rot a, b, 16 .return ($I0) .end PIR $P0 = compreg 'PIR' $P0($S0) .local int a, b a = 0xDEADBEEF b = 13 $I0 = rot a, b, 16 say $I0 $I0 = 'rot_sub'(a, b) say $I0 .end # Local Variables: # mode: pir # fill-column: 100 # End: # vim: expandtab shiftwidth=4 ft=pir: