omAllocSystem.c
Go to the documentation of this file.
1 /*******************************************************************
2  * File: omAllocSystem.c
3  * Purpose: implementation of main lowl-level alloc functions
4  * Author: obachman@mathematik.uni-kl.de (Olaf Bachmann)
5  * Created: 11/99
6  *******************************************************************/
7 #ifndef OM_ALLOC_SYSTEM_C
8 #define OM_ALLOC_SYSTEM_C
9 
10 #include <unistd.h>
11 #include <mylimits.h>
12 
13 
14 #include "omConfig.h"
15 #include "omDefaultConfig.h"
16 #include "omMalloc.h"
17 #include "omalloc.h"
18 /* include after omMalloc.h */
19 #include <string.h>
20 
21 #define OM_MALLOC_FROM_SYSTEM OM_MALLOC_MALLOC
22 #define OM_REALLOC_FROM_SYSTEM OM_MALLOC_REALLOC
23 #define OM_FREE_TO_SYSTEM OM_MALLOC_FREE
24 
25 /*******************************************************************
26  *
27  * AllocLarge/FreeLarge if malloc can not return sizeof(addr)
28  *
29  *******************************************************************/
30 /* allocation of large addr */
31 #if defined(HAVE_MALLOC_SIZE)
32 #include <malloc/malloc.h>
33 #define _omSizeOfLargeAddr(addr) (malloc_size(addr))
34 #elif defined(HAVE_MALLOC_USABLE_SIZE)
35 #define _omSizeOfLargeAddr(addr) (malloc_usable_size(addr))
36 #else
37 void* omAllocLarge(size_t size)
38 {
39  char* addr;
40  size = OM_ALIGN_SIZE(size);
41  addr = omAllocFromSystem(size + SIZEOF_STRICT_ALIGNMENT);
42  *((size_t*) addr) = size;
43  return (void *)(addr + SIZEOF_STRICT_ALIGNMENT);
44 }
45 
46 void* omReallocLarge(void* old_addr, size_t new_size)
47 {
48  char* _old_addr;
49  char* new_addr;
50 
51  omAssume(omIsLargeAddr(old_addr));
52 
53  new_size = OM_ALIGN_SIZE(new_size);
54  _old_addr = (char *)old_addr - SIZEOF_STRICT_ALIGNMENT;
55  new_addr = omReallocSizeFromSystem(_old_addr,
56  *((size_t*) _old_addr) + SIZEOF_STRICT_ALIGNMENT,
57  new_size + SIZEOF_STRICT_ALIGNMENT);
58  *((size_t*) new_addr) = new_size;
59  return (void *)(new_addr + SIZEOF_STRICT_ALIGNMENT);
60 }
61 
62 void omFreeLarge(void* addr)
63 {
64  char* _addr = (char *)addr - SIZEOF_STRICT_ALIGNMENT;
65  omFreeSizeToSystem(_addr, *((size_t*) _addr) + SIZEOF_STRICT_ALIGNMENT);
66 }
67 
68 #define _omSizeOfLargeAddr(addr) (*((size_t*) ((char*) addr - SIZEOF_STRICT_ALIGNMENT)))
69 #endif /* HAVE_MALLOC_SIZE/HAVE_MALLOC_USABLE_SIZE */
70 
71 void* omAlloc0Large(size_t size)
72 {
73  void* addr = omAllocLarge(size);
74  size = omSizeOfLargeAddr(addr);
75  memset(addr, 0, size);
76  return addr;
77 }
78 
79 void* omRealloc0Large(void* old_addr, size_t new_size)
80 {
81  size_t old_size;
82  char* new_addr;
83 
84  omAssume(!omIsBinPageAddr(old_addr));
85 
86  old_size = omSizeOfLargeAddr(old_addr);
87 
88  new_addr = omReallocLarge(old_addr, new_size);
89  new_size = omSizeOfLargeAddr(new_addr);
90  if (new_size > old_size)
91  memset(new_addr + old_size, 0, new_size - old_size);
92  return (void *)new_addr;
93 }
94 
95 size_t omSizeOfLargeAddr(void* addr)
96 {
97  return _omSizeOfLargeAddr((char *)addr);
98 }
99 
100 size_t omSizeOfAddr(const void* addr)
101 {
102  /*if (addr==NULL) return 0; */
103 
104  return (omIsBinPageAddr(addr) ?
105 #ifdef OM_HAVE_TRACK
106  (omIsBinAddrTrackAddr(addr) ? omOutSizeOfTrackAddr((char *)addr) : omSizeOfBinAddr(addr)) :
107 #else
108  omSizeOfBinAddr(addr) :
109 #endif
110  omSizeOfLargeAddr((char *)addr));
111 }
112 
113 size_t omSizeWOfAddr(void* addr)
114 {
115 
116  return (omIsBinPageAddr(addr) ?
117 #ifdef OM_HAVE_TRACK
118  (omIsBinAddrTrackAddr(addr) ? omOutSizeOfTrackAddr(addr) >> LOG_SIZEOF_LONG : omSizeWOfBinAddr(addr)) :
119 #else
120  omSizeWOfBinAddr(addr) :
121 #endif
122  omSizeOfLargeAddr(addr) >> LOG_SIZEOF_LONG);
123 }
124 
125 /*******************************************************************
126  *
127  * Valloc
128  *
129  *******************************************************************/
130 #ifdef OM_HAVE_VALLOC_MMAP
131 
132 #include "omMmap.c"
133 
134 #define OM_VALLOC_FROM_SYSTEM omVallocMmap
135 #define OM_VFREE_TO_SYSTEM omVfreeMmap
136 
137 #elif defined(OM_HAVE_VALLOC_MALLOC)
138 
139 #define OM_VALLOC_FROM_SYSTEM OM_MALLOC_VALLOC
140 #define OM_VFREE_TO_SYSTEM OM_MALLOC_VFREE
141 
142 #else
143 
144 #define OM_VALLOC_FROM_SYSTEM omEmulateValloc
145 #define OM_VFREE_TO_SYSTEM omEmulateVfree
146 
147 #define OM_ALIGN_PAGE(addr) ( ((long)addr + (SIZEOF_SYSTEM_PAGE -1)) & ~(SIZEOF_SYSTEM_PAGE - 1))
148 /* now we implement an emulation */
149 void* omEmulateValloc(size_t size)
150 {
151  void* addr;
152  size_t padding = SIZEOF_VOIDP;
153  size = OM_ALIGN_SIZE(size);
154  while (1)
155  {
156  addr = OM_MALLOC_FROM_SYSTEM(size + padding);
157  if (addr == NULL) return NULL;
158  if ((OM_ALIGN_PAGE(addr) + SIZEOF_VOIDP) - (long) addr <= padding)
159  {
160  void* ret_addr = (void*) OM_ALIGN_PAGE(addr);
161  *((void**) ((void*) ret_addr + size)) = addr;
162  return ret_addr;
163  }
164  else
165  {
166  OM_FREE_TO_SYSTEM(addr);
167  padding = padding << 1;
168  }
169  }
170 }
171 
172 void omEmulateVfree(void* addr, size_t size)
173 {
174  size = OM_ALIGN_SIZE(size);
175  OM_FREE_TO_SYSTEM( *((void**) ((void*) addr + size)) );
176 }
177 #endif /* OM_HAVE_VALLOC_MMAP */
178 
179 /*******************************************************************
180  *
181  * System-level Alloc/Free
182  *
183  *******************************************************************/
184 void* omAllocFromSystem(size_t size)
185 {
186  void* ptr;
187 
188  ptr = OM_MALLOC_FROM_SYSTEM(size);
189  if (ptr == NULL)
190  {
191  OM_MEMORY_LOW_HOOK();
192  ptr = OM_MALLOC_FROM_SYSTEM(size);
193  if (ptr == NULL)
194  {
195  OM_OUT_OF_MEMORY_HOOK();
196  exit(1);
197  }
198  }
199 
200  size=omSizeOfAddr(ptr);
201 #ifndef OM_NDEBUG
202  if (((unsigned long) ptr) + size > om_MaxAddr)
203  om_MaxAddr = ((unsigned long) ptr) + size;
204  if (((unsigned long) ptr) < om_MinAddr)
205  om_MinAddr = ((unsigned long) ptr);
206 #endif
207 
208  om_Info.CurrentBytesFromMalloc += size;
209  if (om_Info.CurrentBytesFromMalloc > om_Info.MaxBytesFromMalloc)
210  {
211  om_Info.MaxBytesFromMalloc = om_Info.CurrentBytesFromMalloc;
212 #if defined(OM_HAVE_VALLOC_MMAP) && defined(OM_MALLOC_MAX_BYTES_SYSTEM)
213  if (om_Info.CurrentBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM > om_Info.MaxBytesSystem)
214  om_Info.MaxBytesSystem = om_Info.CurrentBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM;
215 #endif
216 #if defined(HAVE_SBRK) && !defined(OM_MALLOC_MAX_BYTES_SBRK)
217  if (! om_SbrkInit) om_SbrkInit = (unsigned long) sbrk(0) - size;
218  if (om_Info.MaxBytesFromMalloc
219 #ifndef OM_HAVE_VALLOC_MMAP
220  + om_Info.CurrentBytesFromValloc
221 #endif
222  > om_Info.MaxBytesSbrk)
223  {
224  om_Info.MaxBytesSbrk = (unsigned long) sbrk(0) - om_SbrkInit;
225  }
226 #endif
227  }
228  OM_MALLOC_HOOK(size);
229  return ptr;
230 }
231 
232 void* omReallocFromSystem(void* addr, size_t newsize)
233 {
234  return omReallocSizeFromSystem(addr, omSizeOfAddr(addr), newsize);
235 }
236 
237 void* omReallocSizeFromSystem(void* addr, size_t oldsize, size_t newsize)
238 {
239  void* res;
240 
241  /*oldsize=omSizeOfLargeAddr(addr);*/
242  res = OM_REALLOC_FROM_SYSTEM(addr, newsize);
243  if (res == NULL)
244  {
245  OM_MEMORY_LOW_HOOK();
246  /* Can do a realloc again: manpage reads:
247  "If realloc() fails the original block is left untouched -
248  it is not freed or moved." */
249  res = OM_REALLOC_FROM_SYSTEM(addr, newsize);
250  if (res == NULL)
251  {
252  OM_OUT_OF_MEMORY_HOOK();
253  /* should never get here */
254  omAssume(0);
255  exit(1);
256  }
257  }
258  /*newsize=omSizeOfAddr(res);*/
259 
260 #ifndef OM_NDEBUG
261  if (((unsigned long) res) + newsize > om_MaxAddr)
262  om_MaxAddr = ((unsigned long) res) + newsize;
263  if (((unsigned long) res) < om_MinAddr)
264  om_MinAddr = ((unsigned long) res);
265 #endif
266 
267  om_Info.CurrentBytesFromMalloc += (long) newsize - (long) oldsize;
268 
269 
270  if (om_Info.CurrentBytesFromMalloc > om_Info.MaxBytesFromMalloc)
271  {
272  om_Info.MaxBytesFromMalloc = om_Info.CurrentBytesFromMalloc;
273 #if defined(OM_HAVE_VALLOC_MMAP) && defined(OM_MALLOC_MAX_BYTES_SYSTEM)
274  if (om_Info.CurrentBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM > om_Info.MaxBytesSystem)
275  om_Info.MaxBytesSystem = om_Info.CurrentBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM;
276 #endif
277 #if defined(HAVE_SBRK) && !defined(OM_MALLOC_MAX_BYTES_SBRK)
278  if (om_Info.MaxBytesFromMalloc
279 #ifndef OM_HAVE_VALLOC_MMAP
280  + om_Info.CurrentBytesFromValloc
281 #endif
282  > om_Info.MaxBytesSbrk)
283  {
284  om_Info.MaxBytesSbrk = (unsigned long) sbrk(0) - om_SbrkInit;
285  }
286 #endif
287  }
288 
289  OM_REALLOC_HOOK(oldsize, newsize);
290  return res;
291 }
292 
293 void omFreeToSystem(void* addr)
294 {
295  omFreeSizeToSystem(addr, omSizeOfAddr(addr));
296 }
297 
298 void omFreeSizeToSystem(void* addr, size_t size)
299 {
300  OM_FREE_TO_SYSTEM( addr );
301  om_Info.CurrentBytesFromMalloc -= size;
302  OM_FREE_HOOK(size);
303 }
304 
305 void* _omVallocFromSystem(size_t size, int fail)
306 {
307  void* page = OM_VALLOC_FROM_SYSTEM(size);
308  if (page == NULL)
309  {
310  OM_MEMORY_LOW_HOOK();
311  page = OM_VALLOC_FROM_SYSTEM(size);
312  if (page == NULL)
313  {
314  if (fail) return NULL;
315  else
316  {
317  OM_OUT_OF_MEMORY_HOOK();
318  /* should never get here */
319  omAssume(0);
320  exit(1);
321  }
322  }
323  }
324 
325 #ifndef OM_NDEBUG
326  if (((unsigned long) page) + size > om_MaxAddr)
327  om_MaxAddr = ((unsigned long) page) + size;
328  if (((unsigned long) page) < om_MinAddr)
329  om_MinAddr = ((unsigned long) page);
330 #endif
331 
333  om_Info.CurrentBytesFromValloc += size;
334  if (om_Info.CurrentBytesFromValloc > om_Info.MaxBytesFromValloc)
335  {
336  om_Info.MaxBytesFromValloc = om_Info.CurrentBytesFromValloc;
337 #if defined(OM_HAVE_VALLOC_MMAP) && defined(OM_MALLOC_MAX_BYTES_SYSTEM)
338  if (om_Info.MaxBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM > om_Info.MaxBytesSystem)
339  om_Info.MaxBytesSystem = om_Info.MaxBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM;
340 #endif
341 #if defined(HAVE_SBRK) && !defined(OM_HAVE_VALLOC_MMAP) && !defined(OM_MALLOC_MAX_BYTES_SBRK)
342  if (! om_SbrkInit) om_SbrkInit = (unsigned long) sbrk(0) - size;
343  if (om_Info.CurrentBytesFromMalloc + om_Info.CurrentBytesFromValloc > om_Info.MaxBytesSbrk)
344  {
345  om_Info.MaxBytesSbrk = (unsigned long) sbrk(0) - om_SbrkInit;
346  omAssume(om_Info.MaxBytesSbrk >= om_Info.CurrentBytesFromMalloc
347  + om_Info.CurrentBytesFromValloc);
348  }
349 #endif
350  }
351  OM_VALLOC_HOOK(size);
352  return page;
353 }
354 
355 void omVfreeToSystem(void* page, size_t size)
356 {
358  OM_VFREE_TO_SYSTEM(page, size);
359  om_Info.CurrentBytesFromValloc -= size;
360  OM_VFREE_HOOK(size);
361 }
362 
363 #endif /* OM_ALLOC_SYSTEM_C */
#define OM_MALLOC_FROM_SYSTEM
Definition: omAllocSystem.c:21
void * omAllocFromSystem(size_t size)
unsigned long om_SbrkInit
Definition: omStats.c:15
#define OM_ALIGN_PAGE(addr)
#define OM_VALLOC_FROM_SYSTEM
void * omReallocSizeFromSystem(void *addr, size_t oldsize, size_t newsize)
size_t omSizeOfAddr(const void *addr)
void omFreeLarge(void *addr)
Definition: omAllocSystem.c:62
void omEmulateVfree(void *addr, size_t size)
void * omEmulateValloc(size_t size)
size_t omSizeOfLargeAddr(void *addr)
Definition: omAllocSystem.c:95
size_t omSizeWOfAddr(void *addr)
void * _omVallocFromSystem(size_t size, int fail)
#define _omSizeOfLargeAddr(addr)
Definition: omAllocSystem.c:68
void * omAllocLarge(size_t size)
Definition: omAllocSystem.c:37
void * omReallocLarge(void *old_addr, size_t new_size)
Definition: omAllocSystem.c:46
poly res
Definition: myNF.cc:322
#define OM_REALLOC_FROM_SYSTEM
Definition: omAllocSystem.c:22
void omFreeSizeToSystem(void *addr, size_t size)
omInfo_t om_Info
Definition: omStats.c:13
#define omIsBinAddrTrackAddr(addr)
Definition: omDebug.h:15
#define omAssume(x)
Definition: omError.h:85
void * omReallocFromSystem(void *addr, size_t newsize)
void omVfreeToSystem(void *page, size_t size)
#define omSizeWOfBinAddr(addr)
#define OM_VFREE_TO_SYSTEM
int size(const CanonicalForm &f, const Variable &v)
int size ( const CanonicalForm & f, const Variable & v )
Definition: cf_ops.cc:600
#define omSizeOfBinAddr(addr)
#define NULL
Definition: omList.c:10
void * omRealloc0Large(void *old_addr, size_t new_size)
Definition: omAllocSystem.c:79
#define omIsBinPageAddr(addr)
Definition: omBinPage.h:68
void * omAlloc0Large(size_t size)
Definition: omAllocSystem.c:71
void omFreeToSystem(void *addr)
unsigned long om_MinAddr
Definition: omDebugCheck.c:20
unsigned long om_MaxAddr
Definition: omDebugCheck.c:19
#define omIsAddrPageAligned(addr)
Definition: omBinPage.h:16
#define OM_FREE_TO_SYSTEM
Definition: omAllocSystem.c:23