Implement missing falsey(num) for MoarVM backend.

Closes #194.
Raku · Jan 5, 2015 · 3933e32 · 3933e32
1 parent 806f945
commit 3933e32
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/src/vm/moar/NQP/Ops.nqp b/src/vm/moar/NQP/Ops.nqp
@@ -123,6 +123,14 @@ $ops.add_hll_op('nqp', 'falsey', -> $qastcomp, $op {
         push_op(@ins, 'isfalse_s', $not_reg, $val.result_reg);
         MAST::InstructionList.new(@ins, $not_reg, $MVM_reg_int64)
     }
+    elsif $val.result_kind == $MVM_reg_num64 {
+        my $tmp_reg := $regalloc.fresh_register($MVM_reg_num64);
+        my $res_reg := $regalloc.fresh_register($MVM_reg_int64);
+        my @ins := $val.instructions;
+        push_op(@ins, 'const_n64', $tmp_reg, MAST::NVal.new( :value(0.0) ));
+        push_op(@ins, 'eq_n', $res_reg, $val.result_reg, $tmp_reg);
+        MAST::InstructionList.new(@ins, $res_reg, $MVM_reg_int64)
+    }
     else {
         nqp::die("This case of nqp falsey op NYI");
     }

diff --git a/t/nqp/13-op.t b/t/nqp/13-op.t
@@ -2,7 +2,7 @@
 
 # checking basic operands and circumfix:( )
 
-plan(32);
+plan(33);
 
 ##Additive operators
 ok(      1+2  == 3, 'Checking addition 1+2');
@@ -45,6 +45,7 @@ ok( ?(2 >  1) );
 ok( !(2 >  3) );
 ok( ?(2 >= 1) );
 ok( !(2 >= 3) );
+ok( !0.0 );
 
 #Bitwise operators
 ok( (1 +| 3) == 3, 'Checking 1 +| 3' );