Perlito5::X64::Assembler - t5-x64/01_sanity.t runs in perl and node.js

fglock · Mar 24, 2013 · 810d6f3 · 810d6f3
1 parent d7f0089
commit 810d6f3
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/src5/lib/Perlito5/X64/Assembler.pm b/src5/lib/Perlito5/X64/Assembler.pm
@@ -25,7 +25,7 @@ sub emit {
 
 sub ret {
     my ( $self, $imm16 ) = @_;
-    if ( $imm16 == 0 ) {
+    if ( !$imm16 ) {
         emit(0xC3);
     }
     else {

diff --git a/t5-x64/01_sanity.t b/t5-x64/01_sanity.t
@@ -1,7 +1,16 @@
+#
+# this test can be run with:
+#
+#   perl -Isrc5/lib t5-x64/01_sanity.t
+#
+#   node perlito5.js -Isrc5/lib t5-x64/01_sanity.t
+#
+
+
 use strict;
 use warnings;
+use feature 'say';
 use Perlito5::X64::Assembler;
-use Perlito5::Test;
 
 say "1..1";