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 <http://www.gnu.org/licenses/>. 10 */ 11 12 #include <gmp.h> 13 #include "flint.h" 14 #include "fmpz.h" 15 flint_mpz_init_set_readonly(mpz_t z,const fmpz_t f)16void flint_mpz_init_set_readonly(mpz_t z, const fmpz_t f) 17 { 18 if (COEFF_IS_MPZ(*f)) 19 { 20 *z = *COEFF_TO_PTR(*f); 21 } 22 else 23 { 24 flint_mpz_init_set_si(z, *f); 25 } 26 } 27 28