Skip to content

Instantly share code, notes, and snippets.

/gist:563082

Created September 2, 2010 22:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/563082 to your computer and use it in GitHub Desktop.
Save anonymous/563082 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.perl
pmichaud@orange:~/parrot/trunk$ cat x.pir
.sub 'main' :main
$P0 = subclass 'Integer', 'MyInt'
$P1 = new ['ResizablePMCArray']
$I0 = 0
loop:
unless $I0 < 20000 goto done
$P2 = new $P0
assign $P2, $I0
push $P1, $P2
inc $I0
goto loop
done:
say 'about to join'
$S0 = join ' ', $P1
say $S0
.end
pmichaud@orange:~/parrot/trunk$ ./parrot x.pir
about to join
Segmentation fault
pmichaud@orange:~/parrot/trunk$
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment