Here's a PMC-based version of mops.pasm. Cuts processing power in about
half. (Not entirely PMC-based, but the loop is.)
#
# pmcmops.pasm
#
# Copyright (C) 2001 The Parrot Team. All rights reserved.
# This program is free software. It is subject to the same
# license as The Parrot Interpreter.
#
# $RCS$
#
new P2, PerlInt
set P2, 0
new P3, PerlInt
set P3, 1
new P4, PerlInt
set P4, 100000000
print "Iterations: "
print P4
print "\n"
new P1, PerlInt
new P5, PerlInt
set P1, 2
mul P5, P4, P1
print "Estimated ops: "
print P5
print "\n"
time N1
REDO: sub P4, P4, P3
if P4, REDO
DONE: time N5
sub N2, N5, N1
print "Elapsed time: "
print N2
print "\n"
set N1, P5
div N1, N1, N2
set N2, 1000000.0
div N1, N1, N2
print "M op/s: "
print N1
print "\n"
end
--
Bryan C. Warnock
[EMAIL PROTECTED]
