simplify/fix M0 ops; all tests pass

parrot · Jul 23, 2011 · f9019ed · f9019ed
1 parent 702eb30
commit f9019ed
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/m0/perl5/m0_interp.pl b/src/m0/perl5/m0_interp.pl
@@ -436,7 +436,7 @@ sub m0_opfunc_not {
     my ($cf, $a1, $a2, $a3) = @_;
     m0_say "not $a1, $a2, $a3";
 
-    $$cf->[$a1] = i( i($$cf,$a2) ^ 0xFFFFFFFF);
+    $$cf->[$a1] = i( ~i($$cf,$a2));
 }
 
 sub m0_opfunc_gc_alloc {
@@ -511,7 +511,7 @@ sub m0_opfunc_get_byte {
     my ($cf, $a1, $a2, $a3) = @_;
     m0_say "get_byte $a1, $a2, $a3";
     
-    $$cf->[$a1] = bytes::ord(bytes::substr($$cf->[$a2], i($$cf,$a3), 1));
+    $$cf->[$a1] = i(bytes::ord(bytes::substr($$cf->[$a2], i($$cf,$a3), 1)))
 }
 
 sub m0_opfunc_set_word {