Joe Wilson <[EMAIL PROTECTED]> wrote:
> I implemented the same variable argument function "varargs_adder"
> in both Perl 5 (addit.pl) and Parrot (f4.pasm).
I've put in the addit benchmarks and some variations of it:
- addit.pl ... as of Joe Wilson
- addit.pasm .. ditto but use PerlArray
- addit.imc ... rewritten as it would be generated and use pdd03
- addit2.imc ... optimized - pull return continuation creation
out of loop
Here are some results running this on my Athlon 800, parrot is *not*
optimized:
perl5.00503 addit.pl 5.9 s
perl5.8.0-threaded 5.6
perl5.8.0-long-double 5.3
parrot addit.pasm 4.3
parrot -C addit.pasm 3.5
parrot -j addit.pasm 2.9
parrot -C addit.imc 6.1
parrot -C -Oc addit.imc 5.3
parrot -j -Oc addit.imc 4.9
parrot -C addit2.imc 3.6
parrot -C -Oc addit2.imc 3.0
parrot -j -Oc addit2.imc 2.5
JIT results are correct BTW. Timings are user time rounded up.
leo
