PMCmops

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
bwarnock@capita.com

• PMCmops by Bryan C. Warnock