1 /*
2     Copyright (C) 2011 Sebastian Pancratz
3     Copyright (C) 2012 Andres Goens
4     Copyright (C) 2013 Mike Hansen
5 
6     This file is part of FLINT.
7 
8     FLINT is free software: you can redistribute it and/or modify it under
9     the terms of the GNU Lesser General Public License (LGPL) as published
10     by the Free Software Foundation; either version 2.1 of the License, or
11     (at your option) any later version.  See <http://www.gnu.org/licenses/>.
12 */
13 
14 #include "fq.h"
15 
16 void
fq_ctx_clear(fq_ctx_t ctx)17 fq_ctx_clear(fq_ctx_t ctx)
18 {
19     fmpz_mod_poly_clear(ctx->modulus);
20     fmpz_mod_poly_clear(ctx->inv);
21     fmpz_clear(fq_ctx_prime(ctx));
22     flint_free(ctx->var);
23     _fmpz_vec_clear(ctx->a, ctx->len);
24     flint_free(ctx->j);
25 }
26