diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2020-07-26 15:13:06 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2020-07-26 15:13:06 +0300 |
| commit | 34c8c8d06b766703fdc86136a0656e4baeeb7b69 (patch) | |
| tree | 1d3169ad20dd942fdd0cc6e18e4d561c7df6db5a /extension/intdiv.c | |
| parent | 77d54285702af30644b2e028c10d4ad77e560e40 (diff) | |
| download | egawk-34c8c8d06b766703fdc86136a0656e4baeeb7b69.tar.gz egawk-34c8c8d06b766703fdc86136a0656e4baeeb7b69.tar.bz2 egawk-34c8c8d06b766703fdc86136a0656e4baeeb7b69.zip | |
Doc that API get_mpfr and get_mpz are obsolete.
Diffstat (limited to 'extension/intdiv.c')
| -rw-r--r-- | extension/intdiv.c | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/extension/intdiv.c b/extension/intdiv.c index 34b19a02..94c970ed 100644 --- a/extension/intdiv.c +++ b/extension/intdiv.c @@ -191,7 +191,7 @@ do_intdiv(int nargs, awk_value_t *result, struct awk_ext_func *unused) /* extended precision */ mpz_ptr numer, denom; mpz_t numer_tmp, denom_tmp; - mpz_ptr quotient, remainder; + mpz_t quotient, remainder; /* convert numerator and denominator to integer */ if (!(numer = mpz_conv(&nv, numer_tmp))) { @@ -213,9 +213,8 @@ do_intdiv(int nargs, awk_value_t *result, struct awk_ext_func *unused) return make_number(-1, result); } - /* ask gawk to allocate return values for us */ - quotient = get_mpz_ptr(); - remainder = get_mpz_ptr(); + mpz_init(quotient); + mpz_init(remainder); /* do the division */ mpz_tdiv_qr(quotient, remainder, numer, denom); @@ -223,12 +222,8 @@ do_intdiv(int nargs, awk_value_t *result, struct awk_ext_func *unused) array_set_mpz(array, "quotient", 8, quotient); array_set_mpz(array, "remainder", 9, remainder); - /* values were copied, so release out local ones */ mpz_clear(quotient); - gawk_free(quotient); - mpz_clear(remainder); - gawk_free(remainder); /* release temporary variables */ if (numer == numer_tmp) |