Hi all,
1) perl6 driver program arrived in CVS/languages/perl6
CAVEATS: it generates a lot of intermediate files:
($filename.{warn,imc,pbc,pasm[,c,o,tree,])
an may therefore clobber e.g. mops.c if you run
languages/perl6> perl6 -C ../../examples/mops/mops.p6
So please test it in a copy of your CVS tree.
NB: source is a mess, but I wanted a quick start to get it running.
Thanks to Sean, for prd-perl and many hints.
and finally: perl6 will currently run only in languages/perl6
2) Some Mops numbers, all on i386/linux Athlon 800, slightly shortend:
(»make mops« in parrot root)
[lt@thu8:~/src/parrot-007/examples/assembly]
$ ../../parrot mops.pbc
M op/s: 18.270783
$ ../../parrot -j mops.pbc
M op/s: 363.468516
$ ./mops
M op/s: 196.355836
[lt@thu8:~/src/parrot-007/examples/mops]
$ ./mops
M op/s: 366.106527
[lt@thu8:~/src/parrot-007/languages/perl6]
$ perl6 ../../examples/mops/mops.p6
Iterations: 1000000
M op/s: 0.303587
$ perl6 ../../examples/mops/mops.p6 -Rj # run jit
M op/s: 1.148392
[lt@thu8:~/src/parrot-007/examples/mops]
$ perl mops.pl
Iterations: 10000000
M op/s: 2.22
(Iteration count for mops.pl was reduced, patch sent)
Summary:
Program
Mops
perl5.005_03
2.2
perl6
0.3
perl6 jit 1.1
parrot interpreted 18
parrot compiled 200
parrot jit 363
plain c 366
Remarks:
- jit is a lot faster then compiled
- plain mops.c is only slightly faster the jit, i.e. 1%
- perl6-jit, albeit still totally unoptimized, doesn't compare too bad
to perl5
- mops is a silly test ;-)
3) jit detection was broken, patch is on the way to bugs-parrot.
Have fun,
leo
