diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2020-07-13 16:05:49 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2020-07-13 16:05:49 +0300 |
| commit | 6f3a073ab7b564b34ec214363f50813d68ea623e (patch) | |
| tree | 395d5cb00059d4b47bbe51ba93338df9cdefb741 /extension/intdiv.c | |
| parent | 6023694f7921a228142427ff99fffd3e72e74889 (diff) | |
| parent | 0446a2679b81c5e319dfe74074d1b9ab441213f1 (diff) | |
| download | egawk-6f3a073ab7b564b34ec214363f50813d68ea623e.tar.gz egawk-6f3a073ab7b564b34ec214363f50813d68ea623e.tar.bz2 egawk-6f3a073ab7b564b34ec214363f50813d68ea623e.zip | |
Merge branch 'gawk-5.1-stable'
Diffstat (limited to 'extension/intdiv.c')
| -rw-r--r-- | extension/intdiv.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/extension/intdiv.c b/extension/intdiv.c index 4e3ae50d..34b19a02 100644 --- a/extension/intdiv.c +++ b/extension/intdiv.c @@ -223,6 +223,13 @@ 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) mpz_clear(numer); |