cvsuser 02/05/18 22:35:21
Modified: t/op number.t
Log:
-Implement PMC inc/dec functions and add ops to engine.
'inc P0, 5' is faster than 'set P0, P1, 5' which uses a vtable.
-Corrected 'inc Nx, Ny' to 'inc Nx, Iy' as per the PDD
-Added missing 'add Nx, Ny, Iz' op
Update mops_p.pasm to use dec op, however, the intent was
not to optimize mops_p benchmark, but to optimize for a very
common operation, which mops_p just happens to do. We now need
to re-evaluate mops_p and how to accurately represent a cross-section
of operations and not a specific case.
Revision Changes Path
1.15 +22 -22 parrot/t/op/number.t
Index: number.t
===================================================================
RCS file: /cvs/public/parrot/t/op/number.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -w -r1.14 -r1.15
--- number.t 18 May 2002 03:52:34 -0000 1.14
+++ number.t 19 May 2002 05:35:21 -0000 1.15
@@ -736,38 +736,38 @@
5.000000
OUTPUT
-output_is(<<CODE, <<OUTPUT, "inc_n_n");
+output_is(<<CODE, <<OUTPUT, "inc_n_i");
set N0, 0.0
- set N1, 0.5
- set N2, -1.0
+ set I1, 1
+ set I2, -1
- inc N0, N1
+ inc N0, I1
print N0
print "\\n"
- inc N0, N2
+ inc N0, I2
print N0
print "\\n"
end
CODE
-0.500000
--0.500000
+1.000000
+0.000000
OUTPUT
-output_is(<<CODE, <<OUTPUT, "inc_n_nc");
+output_is(<<CODE, <<OUTPUT, "inc_n_ic");
set N0, 0.0
- inc N0, 0.5
+ inc N0, 1
print N0
print "\\n"
- inc N0, -1.0
+ inc N0, -1
print N0
print "\\n"
end
CODE
-0.500000
--0.500000
+1.000000
+0.000000
OUTPUT
output_is(<<CODE, <<OUTPUT, "dec_n");
@@ -789,16 +789,16 @@
-5.000000
OUTPUT
-output_is(<<CODE, <<OUTPUT, "dec_n_n");
+output_is(<<CODE, <<OUTPUT, "dec_n_i");
set N0, 0.0
- set N1, 2.0
- set N2, -1.0
+ set I1, 2
+ set I2, -1
- dec N0, N1
+ dec N0, I1
print N0
print "\\n"
- dec N0, N2
+ dec N0, I2
print N0
print "\\n"
end
@@ -807,20 +807,20 @@
-1.000000
OUTPUT
-output_is(<<CODE, <<OUTPUT, "dec_n_nc");
+output_is(<<CODE, <<OUTPUT, "dec_n_ic");
set N0, 0.0
- dec N0, 0.5
+ dec N0, 1
print N0
print "\\n"
- dec N0, -1.0
+ dec N0, -1
print N0
print "\\n"
end
CODE
--0.500000
-0.500000
+-1.000000
+0.000000
OUTPUT
output_is(<<CODE, <<OUTPUT, "set_i_n");
