1 | /**************************************** |
---|
2 | * Computer Algebra System SINGULAR * |
---|
3 | ****************************************/ |
---|
4 | /* $Id: mminit.cc,v 1.8 1998-04-27 10:03:07 pohl Exp $ */ |
---|
5 | /* |
---|
6 | * ABSTRACT: init of memory management |
---|
7 | */ |
---|
8 | |
---|
9 | #define _POSIX_SOURCE 1 |
---|
10 | |
---|
11 | #include <stdlib.h> |
---|
12 | #include <string.h> |
---|
13 | #include "mod2.h" |
---|
14 | #include "mmemory.h" |
---|
15 | #include "mmprivat.h" |
---|
16 | extern "C" { /* begin of "C" */ |
---|
17 | #ifdef HAVE_GMP |
---|
18 | #include <gmp.h> |
---|
19 | #endif |
---|
20 | |
---|
21 | #ifdef ALIGN_8 |
---|
22 | mcb mm_normList[MAXLIST]= |
---|
23 | { NULL,NULL,NULL,NULL, |
---|
24 | NULL,NULL,NULL,NULL, |
---|
25 | NULL,NULL,NULL,NULL, |
---|
26 | NULL,NULL,NULL,NULL, |
---|
27 | NULL,NULL}; |
---|
28 | ; |
---|
29 | mcb mm_tmpList[MAXLIST]= |
---|
30 | { NULL,NULL,NULL,NULL, |
---|
31 | NULL,NULL,NULL,NULL, |
---|
32 | NULL,NULL,NULL,NULL, |
---|
33 | NULL,NULL,NULL,NULL, |
---|
34 | NULL,NULL}; |
---|
35 | #ifdef MM_STAT |
---|
36 | int mm_active[MAXLIST+1]= |
---|
37 | { 0,0,0,0, |
---|
38 | 0,0,0,0, |
---|
39 | 0,0,0,0, |
---|
40 | 0,0,0,0, |
---|
41 | 0,0,0}; |
---|
42 | int mm_max[MAXLIST+2]= |
---|
43 | { 0,0,0,0, |
---|
44 | 0,0,0,0, |
---|
45 | 0,0,0,0, |
---|
46 | 0,0,0,0, |
---|
47 | 0,0,0,0}; |
---|
48 | #endif |
---|
49 | #else |
---|
50 | mcb mm_normList[MAXLIST]= |
---|
51 | { NULL,NULL,NULL,NULL, |
---|
52 | NULL,NULL,NULL, |
---|
53 | NULL,NULL,NULL,NULL, |
---|
54 | NULL,NULL,NULL,NULL, |
---|
55 | NULL,NULL,NULL,NULL, |
---|
56 | NULL,NULL}; |
---|
57 | mcb mm_tmpList[MAXLIST]= |
---|
58 | { NULL,NULL,NULL,NULL, |
---|
59 | NULL,NULL,NULL, |
---|
60 | NULL,NULL,NULL,NULL, |
---|
61 | NULL,NULL,NULL,NULL, |
---|
62 | NULL,NULL,NULL,NULL, |
---|
63 | NULL,NULL}; |
---|
64 | #ifdef MM_STAT |
---|
65 | int mm_active[MAXLIST+1]= |
---|
66 | { 0,0,0,0, |
---|
67 | 0,0,0, |
---|
68 | 0,0,0,0, |
---|
69 | 0,0,0,0, |
---|
70 | 0,0,0,0, |
---|
71 | 0,0,0}; |
---|
72 | int mm_max[MAXLIST+2]= |
---|
73 | { 0,0,0,0, |
---|
74 | 0,0,0, |
---|
75 | 0,0,0,0, |
---|
76 | 0,0,0,0, |
---|
77 | 0,0,0,0, |
---|
78 | 0,0,0,0}; |
---|
79 | #endif |
---|
80 | #endif |
---|
81 | |
---|
82 | |
---|
83 | mcb *mm_theList=mm_normList; |
---|
84 | |
---|
85 | #ifdef MPOLYPART |
---|
86 | void * mm_maxAddr=NULL; |
---|
87 | void * mm_minAddr=NULL; |
---|
88 | mcb mm_spec=NULL; |
---|
89 | void *mm_spec_part=NULL; |
---|
90 | #endif |
---|
91 | |
---|
92 | #ifdef MDEBUG |
---|
93 | |
---|
94 | DBMCB mm_theDBused={NULL,NULL,0,0,NULL,0,0,NULL}; |
---|
95 | DBMCB mm_theDBfree={NULL,NULL,0,0,NULL,0,0,NULL}; |
---|
96 | DBMCB mm_tmpDBused={NULL,NULL,0,0,NULL,0,0,NULL}; |
---|
97 | DBMCB mm_tmpDBfree={NULL,NULL,0,0,NULL,0,0,NULL}; |
---|
98 | DBMCB mm_normDBused={NULL,NULL,0,0,NULL,0,0,NULL}; |
---|
99 | DBMCB mm_normDBfree={NULL,NULL,0,0,NULL,0,0,NULL}; |
---|
100 | void * mm_maxAddr=NULL; |
---|
101 | void * mm_minAddr=NULL; |
---|
102 | |
---|
103 | #endif /* MDEBUG */ |
---|
104 | |
---|
105 | status_t mm_status = MM_NORMAL; |
---|
106 | |
---|
107 | int mm_bytesUsed=0; |
---|
108 | int mm_bytesReal=0; |
---|
109 | int mm_bytesTmp=0; |
---|
110 | int mm_bytesNorm=0; |
---|
111 | |
---|
112 | int mm_specIndex=0; |
---|
113 | size_t mm_specSize = mm_mcbSizes[0]; |
---|
114 | |
---|
115 | int mm_printMark=102400; |
---|
116 | } /* end of "C" */ |
---|
117 | |
---|
118 | void* operator new ( size_t size ) |
---|
119 | { |
---|
120 | #ifdef MDEBUG |
---|
121 | return mmDBAlloc( size, "new",0); |
---|
122 | #else |
---|
123 | return AllocL( size ); |
---|
124 | #endif |
---|
125 | } |
---|
126 | |
---|
127 | void operator delete ( void* block ) |
---|
128 | { |
---|
129 | #ifdef MDEBUG |
---|
130 | mmDBFree( block, "delete",0); |
---|
131 | #else |
---|
132 | FreeL( block ); |
---|
133 | #endif |
---|
134 | } |
---|
135 | |
---|
136 | #ifdef HAVE_GMP |
---|
137 | #ifdef MDEBUG |
---|
138 | void * mgAllocBlock( size_t t) |
---|
139 | { |
---|
140 | return mmDBAllocBlock(t,"gmp",0); |
---|
141 | } |
---|
142 | void mgFreeBlock( void* a, size_t t) |
---|
143 | { |
---|
144 | mmDBFreeBlock(a,t,"gmp",0); |
---|
145 | } |
---|
146 | void * mgReallocBlock( void* a, size_t t1, size_t t2) |
---|
147 | { |
---|
148 | return mmDBReallocBlock(a,t1,t2,"gmp",0); |
---|
149 | } |
---|
150 | #endif |
---|
151 | #endif |
---|
152 | |
---|
153 | int mmInit(); |
---|
154 | static int mmIsInitialized=mmInit(); |
---|
155 | |
---|
156 | int mmInit( void ) |
---|
157 | { |
---|
158 | #ifdef HAVE_GMP |
---|
159 | if(mmIsInitialized==0) |
---|
160 | { |
---|
161 | #ifndef MDEBUG |
---|
162 | mp_set_memory_functions(mmAllocBlock,mmReallocBlock,mmFreeBlock); |
---|
163 | #else |
---|
164 | mp_set_memory_functions(mgAllocBlock,mgReallocBlock,mgFreeBlock); |
---|
165 | #endif |
---|
166 | } |
---|
167 | #endif |
---|
168 | mmIsInitialized=1; |
---|
169 | return 1; |
---|
170 | } |
---|