diff --git a/extension/intdiv.c b/extension/intdiv.c index 529ea36..95bb3c1 100644 --- a/extension/intdiv.c +++ b/extension/intdiv.c @@ -65,14 +65,18 @@ mpz_conv(const awk_value_t *arg, mpz_ptr tmp) { switch (arg->num_type) { case AWK_NUMBER_TYPE_MPZ: + fputs("converting mpz no-op\n", stderr); + gmp_printf("argument is %Zd\n", arg->num_ptr); return arg->num_ptr; case AWK_NUMBER_TYPE_MPFR: + fputs("converting mpfr\n", stderr); if (! mpfr_number_p(arg->num_ptr)) return NULL; mpz_init(tmp); mpfr_get_z(tmp, arg->num_ptr, MPFR_RNDZ); return tmp; case AWK_NUMBER_TYPE_DOUBLE: /* can this happen? */ + fputs("converting double\n", stderr); mpz_init(tmp); mpz_set_d(tmp, double_to_int(arg->num_value)); return tmp; @@ -183,6 +187,7 @@ do_intdiv(int nargs, awk_value_t *result, struct awk_ext_func *unused) /* do the division */ mpz_tdiv_qr(quotient, remainder, numer, denom); + gmp_printf("quotient is %Zd\n", quotient); array_set_mpz(array, "quotient", 8, quotient); array_set_mpz(array, "remainder", 9, remainder);