Fix !"string".

jnthn · Jan 28, 2013 · 056979a · 056979a
1 parent 8b22061
commit 056979a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/nqp-jvm-cc.nqp b/nqp-jvm-cc.nqp
@@ -162,9 +162,8 @@ $ops.add_hll_op('nqp', 'falsey', -> $qastcomp, $op {
             $TYPE_OPS, 'istrue', 'Long', $TYPE_SMO, $TYPE_TC ));
     }
     elsif $res.type == $RT_STR {
-        $il.append(JAST::Instruction.new( :op('aload_1') ));
         $il.append(JAST::Instruction.new( :op('invokestatic'),
-            $TYPE_OPS, 'isfalse_s', 'Long', $TYPE_STR, $TYPE_TC ));
+            $TYPE_OPS, 'isfalse_s', 'Long', $TYPE_STR ));
     }
     else {
         my $false := JAST::Label.new( :name($op.unique('not_false')) );

diff --git a/src/org/perl6/nqp/runtime/Ops.java b/src/org/perl6/nqp/runtime/Ops.java
@@ -1293,6 +1293,9 @@ public static long isfalse(SixModelObject obj, ThreadContext tc) {
     public static long istrue_s(String str) {
         return str.equals("") || str.equals("0") ? 0 : 1;
     }
+    public static long isfalse_s(String str) {
+        return str.equals("") || str.equals("0") ? 1 : 0;
+    }
 
     /* Smart coercions. */
     public static String smart_stringify(SixModelObject obj, ThreadContext tc) {