develooper Front page | perl.perl6.internals | Postings from July 2002

of Mops, jit and perl6

Thread Next
From:
Leopold Toetsch
Date:
July 28, 2002 04:35
Subject:
of Mops, jit and perl6
Message ID:
3D43AEF1.5070203@toetsch.at
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


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About