1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
/*
Copyright (C) 2013 Mike Hansen
This file is part of FLINT.
FLINT is free software: you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License (LGPL) as published
by the Free Software Foundation; either version 2.1 of the License, or
(at your option) any later version. See <http://www.gnu.org/licenses/>.
*/
#ifndef FQ_VEC_H
#define FQ_VEC_H
#ifdef FQ_VEC_INLINES_C
#define FQ_VEC_TEMPLATES_INLINE FLINT_DLL
#define FQ_VEC_INLINE FLINT_DLL
#else
#define FQ_VEC_TEMPLATES_INLINE static __inline__
#define FQ_VEC_INLINE static __inline__
#endif
#include "fq.h"
#define FQ_VEC_NORM(vec, i, ctx) \
do { \
while ((i) && fq_is_zero((vec) (i) - 1, ctx)) \
(i)--; \
} while (0)
#define FQ_VEC_SWAP(vec1, len1, vec2, len2) \
do { \
fq_struct *__t; \
slong __tn; \
__t = (vec1); \
(vec1) = (vec2); \
(vec2) = __t; \
__tn = (len1); \
(len1) = (len2); \
(len2) = __tn; \
} while (0);
#define T fq
#define CAP_T FQ
#include "fq_vec_templates.h"
#undef CAP_T
#undef T
#endif
|
