[perl #54116] update for r28833

[Patrick R. Michaud]

Some updates as of r28833,  (kubuntu 8.04, x86)

Simple ranges seem to work:

  $ ./parrot perl6.pbc -e '1..1000'       # works

  $ ./parrot perl6.pbc -e 'say 1..1000'   # works

The original test case segfaults after 214 iterations:

  $ cat x
  for 1..1000 -> $a { say $a }
  $ ./parrot perl6.pbc x
  1
  2
  3
  [...4 through 211...]
  212
  213
  214
  Segmentation fault

But it works with the -G flag:

  $ ./parrot -G perl6.pbc x
  1
  2
  3
  [...4 through 997...]
  998
  999
  1000

If we read the program via the -e flag, it segfaults after 174 iterations:

  $ ./parrot perl6.pbc -e "$(cat x)"
  1
  2
  3
  [...4 through 171...]
  172
  173
  174
  Segmentation fault

Somewhat surprisingly, both reading from a file and executing via -e
produce the exact same PIR output:

  $ ./parrot perl6.pbc --target=pir x >x.pir
  $ ./parrot perl6.pbc --target=pir -e "$(cat x)" >e.pir
  $ diff e.pir x.pir
  $

To turn the generated .pir file into standalone executable, 
add a load_bytecode 'perl6.pbc' opcode inside of the first 
sub.  This then segfaults after 352 iterations:

  $ vi x.pir
  ...
  $ head -6 x.pir
  
  .namespace
  .sub "_block11"
      load_bytecode 'perl6.pbc'
      .lex "$_", $P12
      .lex "$/", $P13
  $ ./parrot x.pir
  1
  2
  3
  [...4 through 349...]
  350
  351
  352

Hope this helps,

Pm