Attached is a patch to actually make dec_n_nc do what it should.
(Also included is a minor doc patch which I've previously sent but
which hasn't yet been applied ;-)

Leon
-- 
Leon Brocard.............................http://www.astray.com/
Nanoware...............................http://www.nanoware.org/

... DON'T PANIC!
Index: basic_opcodes.ops
===================================================================
RCS file: /home/perlcvs/parrot/basic_opcodes.ops,v
retrieving revision 1.21
diff -u -u -r1.21 basic_opcodes.ops
--- basic_opcodes.ops   2001/09/19 21:32:29     1.21
+++ basic_opcodes.ops   2001/09/21 15:36:49
@@ -341,7 +341,7 @@
 
 /* DEC Nx, nnn */
 AUTO_OP dec_n_nc {
-  NUM_REG(P1) += P2;
+  NUM_REG(P1) -= P2;
 }
 
 /* ITON Nx, Iy */
@@ -452,6 +452,7 @@
     STR_REG(P1) = s;
 }
 
+/* CONCAT Sx, Sx */
 AUTO_OP concat_s {
     STRING *s = string_concat(STR_REG(P1), STR_REG(P2), 1);
     STR_REG(P1) = s;

Reply via email to