The not op seems to be doing a logical not rather than a bitwise
not. Patch to fix it is as follows:
Index: basic_opcodes.ops
===================================================================
RCS file: /home/perlcvs/parrot/basic_opcodes.ops,v
retrieving revision 1.17
diff -u -r1.17 basic_opcodes.ops
--- basic_opcodes.ops 2001/09/16 15:49:22 1.17
+++ basic_opcodes.ops 2001/09/16 16:27:30
@@ -564,7 +564,7 @@
/* NOT_i */
AUTO_OP not_i {
- INT_REG(P1) = ! INT_REG(P2);
+ INT_REG(P1) = ~ INT_REG(P2);
}
/* OR_i */
Tom
--
Tom Hughes ([EMAIL PROTECTED])
http://www.compton.nu/
