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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
// file kernel/n/h/alloc.h: temporary storage allocator
/*-----------------------------------------------------------------------+
| Copyright 2005-2006, Michel Quercia (michel.quercia@prepas.org) |
| |
| This file is part of Numerix. Numerix is free software; you can |
| redistribute it and/or modify it under the terms of the GNU Lesser |
| General Public License as published by the Free Software Foundation; |
| either version 2.1 of the License, or (at your option) any later |
| version. |
| |
| The Numerix Library is distributed in the hope that it will be |
| useful, but WITHOUT ANY WARRANTY; without even the implied warranty |
| of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| Lesser General Public License for more details. |
| |
| You should have received a copy of the GNU Lesser General Public |
| License along with the GNU MP Library; see the file COPYING. If not, |
| write to the Free Software Foundation, Inc., 59 Temple Place - |
| Suite 330, Boston, MA 02111-1307, USA. |
+-----------------------------------------------------------------------+
| |
| Allocation de mmoire |
| |
+-----------------------------------------------------------------------*/
#ifdef debug_alloc
chiffre *xn(alloc)(unsigned long n);
void xn(free)(chiffre *x);
long xn(get_alloc_count)();
#else
/* alloue un bloc de n chiffres */
extern inline chiffre *xn(alloc)(unsigned long n) {
chiffre *p = (chiffre *)malloc(n*sizeof(chiffre));
if ((p) || (n==0)) return(p);
else xn(internal_error)("out of memory",0);
}
/* libration */
extern inline void xn(free)(chiffre *x) {free(x);}
#endif
/* Allocation temporaire
xn(alloc_tmp) alloue la mmoire dans la pile si use_alloca est dfini,
et dans le tas sinon. L'allocation dans la pile est plus rapide, mais
il n'y a pas de contrle de dbordement. N'utiliser cette option que
sur les systmes o la pile n'est pas limite (Linux) et que pour des
donnes "petites".
*/
#ifdef use_alloca
#include <alloca.h>
#define cn_alloc_tmp(n) (chiffre *)alloca((n)*sizeof(chiffre))
#define dn_alloc_tmp(n) (chiffre *)alloca((n)*sizeof(chiffre))
#define sn_alloc_tmp(n) (chiffre *)alloca((n)*sizeof(chiffre))
#define cn_free_tmp(x)
#define dn_free_tmp(x)
#define sn_free_tmp(x)
#else
#define cn_alloc_tmp cn_alloc
#define dn_alloc_tmp dn_alloc
#define sn_alloc_tmp sn_alloc
#define cn_free_tmp cn_free
#define dn_free_tmp dn_free
#define sn_free_tmp sn_free
#endif
/* vrifie que l*2^k < LMAX */
extern inline void xn(check_lmax)(long l, long k) {
if (l >= (LMAX >> k)) xn(internal_error)("number too big",0);
}
/* Initialisation
clear: a <- 0
fill : a <- BASE^la - 1
move : b <- a
*/
extern inline void xn(clear)(chiffre *a, long la) {memset( a, 0, (la)*(HW/8));}
extern inline void xn(fill) (chiffre *a, long la) {memset( a,255, (la)*(HW/8));}
extern inline void xn(move) (chiffre *a, long la, chiffre *b) {memmove(b, a, (la)*(HW/8));}
|
