Merge branch 'bigint' of github.com:/perl6/nqp into bigint

Author: jnthn

src/PAST/NQP.pir

@@ -464,8 +464,8 @@ entry to produce the node to be returned.
 
     maphash['gcd_i']    = 'gcd__Ii'
     maphash['gcd_I']    = 'nqp_bigint_gcd__PP'
-    maphash['lcm_i']    = 'lcmd__Ii'
-    maphash['lcm_I']    = 'nqp_bigint_lcmd__PP'
+    maphash['lcm_i']    = 'lcm__Ii'
+    maphash['lcm_I']    = 'nqp_bigint_lcm__PP'
 
     maphash['ceil_n']   = 'ceil__Nn'
     maphash['floor_n']  = 'floor__NN'
@@ -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

@@ -96,6 +96,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_iszero(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);