1 /* 2 Copyright (C) 2011 Sebastian Pancratz 3 4 This file is part of FLINT. 5 6 FLINT is free software: you can redistribute it and/or modify it under 7 the terms of the GNU Lesser General Public License (LGPL) as published 8 by the Free Software Foundation; either version 2.1 of the License, or 9 (at your option) any later version. See <https://www.gnu.org/licenses/>. 10 */ 11 12 #include <gmp.h> 13 #include "flint.h" 14 #include "fmpz.h" 15 fmpz_clear_readonly(fmpz_t f)16void fmpz_clear_readonly(fmpz_t f) 17 { 18 if (COEFF_IS_MPZ(*f)) 19 { 20 __mpz_struct *ptr = COEFF_TO_PTR(*f); 21 22 mpz_init(ptr); 23 _fmpz_clear_mpz(*f); 24 *f = WORD(0); 25 } 26 } 27 28