nqp_bigint_bool op (checks != 0)

Author: moritz

src/PAST/NQP.pir

@@ -534,6 +534,7 @@ entry to produce the node to be returned.
     maphash['isgt_i']   = 'isgt__Iii'
     maphash['isge_i']   = 'isge__Iii'
 
+    maphash['bool_I']   = 'nqp_bigint_bool__iP'
     maphash['cmp_I']    = 'nqp_bigint_cmp__IPP'
     maphash['iseq_I']   = 'nqp_bigint_eq__IPP'
     maphash['isne_I']   = 'nqp_bigint_ne__IPP'

src/ops/nqp_bigint.ops

@@ -99,6 +99,10 @@ inline op nqp_bigint_cmp(out INT, in PMC, in PMC) :base_cor {
     $1 = mp_cmp(a, b);
 }
 
+inline op nqp_bigint_bool(out INT, in PMC) :base_core {
+    $1 = !mp_is_zero(get_bigint(interp, $2));
+}
+
 inline op nqp_bigint_eq(out INT, in PMC, in PMC) :base_cor {
     mp_int *a = get_bigint(interp, $2);
     mp_int *b = get_bigint(interp, $3);