fix memory leak in arf_load_file (thanks Dave Platt)

This commit is contained in:
fredrik 2021-09-17 12:49:36 +02:00
parent eed5af28f8
commit d188914df2

View file

@ -79,23 +79,33 @@ arf_load_str(arf_t x, const char* data)
int arf_load_file(arf_t x, FILE* stream) int arf_load_file(arf_t x, FILE* stream)
{ {
mpz_t mantissa, exponent; fmpz_t mantissa, exponent;
fmpz_t mantissa_, exponent_; __mpz_struct *mpz_mantissa, *mpz_exponent;
int err;
mpz_init(mantissa); fmpz_init(mantissa);
mpz_init(exponent); fmpz_init(exponent);
if (mpz_inp_str(mantissa, stream, 16) == 0) return 1; mpz_mantissa = _fmpz_promote(mantissa);
if (mpz_inp_str(exponent, stream, 16) == 0) return 1; mpz_exponent = _fmpz_promote(exponent);
fmpz_init_set_readonly(mantissa_, mantissa); err = 0;
fmpz_init_set_readonly(exponent_, exponent);
arf_set_fmpz_2exp_dump(x, mantissa_, exponent_); if (mpz_inp_str(mpz_mantissa, stream, 16) == 0)
err = 1;
mpz_clear(mantissa); if (!err && mpz_inp_str(mpz_exponent, stream, 16) == 0)
mpz_clear(exponent); err = 1;
return 0; _fmpz_demote_val(mantissa);
_fmpz_demote_val(exponent);
if (!err)
arf_set_fmpz_2exp_dump(x, mantissa, exponent);
fmpz_clear(mantissa);
fmpz_clear(exponent);
return err;
} }