wrap more libTomMath subs in dynops

Author: moritz

src/ops/nqp_bigint.ops

@@ -51,6 +51,33 @@ inline op nqp_bigint_mul(out PMC, in PMC, in PMC) :base_core {
     mp_mul(a, b, get_bigint(interp, $1));
 }
 
+inline op nqp_bigint_div(out PMC, in PMC, in PMC) :base_core {
+    mp_int *a = get_bigint(interp, $2);
+    mp_int *b = get_bigint(interp, $3);
+    mp_int *remainder = get_bigint(interp, REPR($2)->instance_of(interp, $2));
+    $1 = REPR($2)->instance_of(interp, $2);
+    mp_div(a, b, get_bigint(interp, $1), remainder);
+    /* XXX do I need to destroy remainder myself? */
+}
+
+inline op nqp_bigint_mod(out PMC, in PMC, in PMC) :base_core {
+    mp_int *a = get_bigint(interp, $2);
+    mp_int *b = get_bigint(interp, $3);
+    $1 = REPR($2)->instance_of(interp, $2);
+    mp_mod(a, b, get_bigint(interp, $1));
+}
+
+inline op nqp_bigint_neg(out PMC, in PMC) :base_core {
+    mp_int *a = get_bigint(interp, $2);
+    $1 = REPR($2)->instance_of(interp, $2);
+    mp_neg(a, get_bigint(interp, $1));
+}
+inline op nqp_bigint_abs(out PMC, in PMC) :base_core {
+    mp_int *a = get_bigint(interp, $2);
+    $1 = REPR($2)->instance_of(interp, $2);
+    mp_abs(a, get_bigint(interp, $1));
+}
+
 inline op nqp_bigint_from_str(out PMC, in PMC, in STR) :base_core {
     char *buf = Parrot_str_cstring(interp, $3);
     $1 = REPR($2)->instance_of(interp, $2);