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;