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 "fmpz_vec.h" 13 #include "padic.h" 14 #include "qadic.h" 15 qadic_ctx_clear(qadic_ctx_t ctx)16void qadic_ctx_clear(qadic_ctx_t ctx) 17 { 18 padic_ctx_clear(&ctx->pctx); 19 _fmpz_vec_clear(ctx->a, ctx->len); 20 flint_free(ctx->j); 21 flint_free(ctx->var); 22 } 23 24