My Project  debian-1:4.1.1-p2+ds-4build3
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 <limits.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 #include <stdlib.h>
36 #define _omSizeOfLargeAddr(addr) (malloc_usable_size(addr))
37 #else
38 void* omAllocLarge(size_t size)
39 {
40  char* addr;
41  size = OM_ALIGN_SIZE(size);
42  addr = omAllocFromSystem(size + SIZEOF_STRICT_ALIGNMENT);
43  *((size_t*) addr) = size;
44  return (void *)(addr + SIZEOF_STRICT_ALIGNMENT);
45 }
46 
47 void* omReallocLarge(void* old_addr, size_t new_size)
48 {
49  char* _old_addr;
50  char* new_addr;
51 
52  omAssume(omIsLargeAddr(old_addr));
53 
54  new_size = OM_ALIGN_SIZE(new_size);
55  _old_addr = (char *)old_addr - SIZEOF_STRICT_ALIGNMENT;
56  new_addr = omReallocSizeFromSystem(_old_addr,
57  *((size_t*) _old_addr) + SIZEOF_STRICT_ALIGNMENT,
58  new_size + SIZEOF_STRICT_ALIGNMENT);
59  *((size_t*) new_addr) = new_size;
60  return (void *)(new_addr + SIZEOF_STRICT_ALIGNMENT);
61 }
62 
63 void omFreeLarge(void* addr)
64 {
65  char* _addr = (char *)addr - SIZEOF_STRICT_ALIGNMENT;
66  omFreeSizeToSystem(_addr, *((size_t*) _addr) + SIZEOF_STRICT_ALIGNMENT);
67 }
68 
69 #define _omSizeOfLargeAddr(addr) (*((size_t*) ((char*) addr - SIZEOF_STRICT_ALIGNMENT)))
70 #endif /* HAVE_MALLOC_SIZE/HAVE_MALLOC_USABLE_SIZE */
71 
72 void* omAlloc0Large(size_t size)
73 {
74  void* addr = omAllocLarge(size);
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 
189  if (ptr == NULL)
190  {
191  OM_MEMORY_LOW_HOOK();
193  if (ptr == NULL)
194  {
195  OM_OUT_OF_MEMORY_HOOK();
196  exit(1);
197  }
198  }
199 #if defined(HAVE_MALLOC_SIZE) || defined(HAVE_MALLOC_USABLE_SIZE)
201 #else
202  size=omSizeOfAddr(ptr);
203 #endif
204 #ifndef OM_NDEBUG
205  if (((unsigned long) ptr) + size > om_MaxAddr)
206  om_MaxAddr = ((unsigned long) ptr) + size;
207  if (((unsigned long) ptr) < om_MinAddr)
208  om_MinAddr = ((unsigned long) ptr);
209 #endif
210 
211  om_Info.CurrentBytesFromMalloc += size;
212  if (om_Info.CurrentBytesFromMalloc > om_Info.MaxBytesFromMalloc)
213  {
214  om_Info.MaxBytesFromMalloc = om_Info.CurrentBytesFromMalloc;
215 #if defined(OM_HAVE_VALLOC_MMAP) && defined(OM_MALLOC_MAX_BYTES_SYSTEM)
216  if (om_Info.CurrentBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM > om_Info.MaxBytesSystem)
217  om_Info.MaxBytesSystem = om_Info.CurrentBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM;
218 #endif
219 #if defined(HAVE_SBRK) && !defined(OM_MALLOC_MAX_BYTES_SBRK)
220  if (! om_SbrkInit) om_SbrkInit = (unsigned long) sbrk(0) - size;
221  if (om_Info.MaxBytesFromMalloc
222 #ifndef OM_HAVE_VALLOC_MMAP
223  + om_Info.CurrentBytesFromValloc
224 #endif
225  > om_Info.MaxBytesSbrk)
226  {
227  om_Info.MaxBytesSbrk = (unsigned long) sbrk(0) - om_SbrkInit;
228  }
229 #endif
230  }
231  OM_MALLOC_HOOK(size);
232  return ptr;
233 }
234 
235 void* omReallocFromSystem(void* addr, size_t newsize)
236 {
237  return omReallocSizeFromSystem(addr, omSizeOfAddr(addr), newsize);
238 }
239 
240 void* omReallocSizeFromSystem(void* addr, size_t oldsize, size_t newsize)
241 {
242  void* res;
243 
244  /*oldsize=omSizeOfLargeAddr(addr);*/
245  res = OM_REALLOC_FROM_SYSTEM(addr, newsize);
246  if (res == NULL)
247  {
248  OM_MEMORY_LOW_HOOK();
249  /* Can do a realloc again: manpage reads:
250  "If realloc() fails the original block is left untouched -
251  it is not freed or moved." */
252  res = OM_REALLOC_FROM_SYSTEM(addr, newsize);
253  if (res == NULL)
254  {
255  OM_OUT_OF_MEMORY_HOOK();
256  /* should never get here */
257  omAssume(0);
258  exit(1);
259  }
260  }
261  /*newsize=omSizeOfAddr(res);*/
262 
263 #ifndef OM_NDEBUG
264  if (((unsigned long) res) + newsize > om_MaxAddr)
265  om_MaxAddr = ((unsigned long) res) + newsize;
266  if (((unsigned long) res) < om_MinAddr)
267  om_MinAddr = ((unsigned long) res);
268 #endif
269 
270  om_Info.CurrentBytesFromMalloc += (long) newsize - (long) oldsize;
271 
272 
273  if (om_Info.CurrentBytesFromMalloc > om_Info.MaxBytesFromMalloc)
274  {
275  om_Info.MaxBytesFromMalloc = om_Info.CurrentBytesFromMalloc;
276 #if defined(OM_HAVE_VALLOC_MMAP) && defined(OM_MALLOC_MAX_BYTES_SYSTEM)
277  if (om_Info.CurrentBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM > om_Info.MaxBytesSystem)
278  om_Info.MaxBytesSystem = om_Info.CurrentBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM;
279 #endif
280 #if defined(HAVE_SBRK) && !defined(OM_MALLOC_MAX_BYTES_SBRK)
281  if (om_Info.MaxBytesFromMalloc
282 #ifndef OM_HAVE_VALLOC_MMAP
283  + om_Info.CurrentBytesFromValloc
284 #endif
285  > om_Info.MaxBytesSbrk)
286  {
287  om_Info.MaxBytesSbrk = (unsigned long) sbrk(0) - om_SbrkInit;
288  }
289 #endif
290  }
291 
292  OM_REALLOC_HOOK(oldsize, newsize);
293  return res;
294 }
295 
296 void omFreeToSystem(void* addr)
297 {
298  omFreeSizeToSystem(addr, omSizeOfAddr(addr));
299 }
300 
301 void omFreeSizeToSystem(void* addr, size_t size)
302 {
303  OM_FREE_TO_SYSTEM( addr );
304  om_Info.CurrentBytesFromMalloc -= size;
305  OM_FREE_HOOK(size);
306 }
307 
308 void* _omVallocFromSystem(size_t size, int fail)
309 {
310  void* page = OM_VALLOC_FROM_SYSTEM(size);
311  if (page == NULL)
312  {
313  OM_MEMORY_LOW_HOOK();
314  page = OM_VALLOC_FROM_SYSTEM(size);
315  if (page == NULL)
316  {
317  if (fail) return NULL;
318  else
319  {
320  OM_OUT_OF_MEMORY_HOOK();
321  /* should never get here */
322  omAssume(0);
323  exit(1);
324  }
325  }
326  }
327 
328 #ifndef OM_NDEBUG
329  if (((unsigned long) page) + size > om_MaxAddr)
330  om_MaxAddr = ((unsigned long) page) + size;
331  if (((unsigned long) page) < om_MinAddr)
332  om_MinAddr = ((unsigned long) page);
333 #endif
334 
336  om_Info.CurrentBytesFromValloc += size;
337  if (om_Info.CurrentBytesFromValloc > om_Info.MaxBytesFromValloc)
338  {
339  om_Info.MaxBytesFromValloc = om_Info.CurrentBytesFromValloc;
340 #if defined(OM_HAVE_VALLOC_MMAP) && defined(OM_MALLOC_MAX_BYTES_SYSTEM)
341  if (om_Info.MaxBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM > om_Info.MaxBytesSystem)
342  om_Info.MaxBytesSystem = om_Info.MaxBytesFromValloc + OM_MALLOC_MAX_BYTES_SYSTEM;
343 #endif
344 #if defined(HAVE_SBRK) && !defined(OM_HAVE_VALLOC_MMAP) && !defined(OM_MALLOC_MAX_BYTES_SBRK)
345  if (! om_SbrkInit) om_SbrkInit = (unsigned long) sbrk(0) - size;
346  if (om_Info.CurrentBytesFromMalloc + om_Info.CurrentBytesFromValloc > om_Info.MaxBytesSbrk)
347  {
348  om_Info.MaxBytesSbrk = (unsigned long) sbrk(0) - om_SbrkInit;
349  omAssume(om_Info.MaxBytesSbrk >= om_Info.CurrentBytesFromMalloc
350  + om_Info.CurrentBytesFromValloc);
351  }
352 #endif
353  }
354  OM_VALLOC_HOOK(size);
355  return page;
356 }
357 
358 void omVfreeToSystem(void* page, size_t size)
359 {
361  OM_VFREE_TO_SYSTEM(page, size);
362  om_Info.CurrentBytesFromValloc -= size;
363  OM_VFREE_HOOK(size);
364 }
365 
366 #endif /* OM_ALLOC_SYSTEM_C */
omAllocFromSystem
void * omAllocFromSystem(size_t size)
Definition: omAllocSystem.c:184
omFreeToSystem
void omFreeToSystem(void *addr)
Definition: omAllocSystem.c:296
om_SbrkInit
unsigned long om_SbrkInit
Definition: omStats.c:15
omalloc.h
OM_ALIGN_PAGE
#define OM_ALIGN_PAGE(addr)
Definition: omAllocSystem.c:147
OM_FREE_TO_SYSTEM
#define OM_FREE_TO_SYSTEM
Definition: omAllocSystem.c:23
omReallocSizeFromSystem
void * omReallocSizeFromSystem(void *addr, size_t oldsize, size_t newsize)
Definition: omAllocSystem.c:240
omSizeOfAddr
size_t omSizeOfAddr(const void *addr)
Definition: omAllocSystem.c:100
omEmulateVfree
void omEmulateVfree(void *addr, size_t size)
Definition: omAllocSystem.c:172
omFreeLarge
void omFreeLarge(void *addr)
Definition: omAllocSystem.c:63
omSizeWOfBinAddr
#define omSizeWOfBinAddr(addr)
Definition: omAllocPrivate.h:103
OM_MALLOC_FROM_SYSTEM
#define OM_MALLOC_FROM_SYSTEM
Definition: omAllocSystem.c:21
OM_VALLOC_FROM_SYSTEM
#define OM_VALLOC_FROM_SYSTEM
Definition: omAllocSystem.c:144
omSizeOfLargeAddr
size_t omSizeOfLargeAddr(void *addr)
Definition: omAllocSystem.c:95
_omSizeOfLargeAddr
#define _omSizeOfLargeAddr(addr)
Definition: omAllocSystem.c:69
omAllocLarge
void * omAllocLarge(size_t size)
Definition: omAllocSystem.c:38
omEmulateValloc
void * omEmulateValloc(size_t size)
Definition: omAllocSystem.c:149
OM_REALLOC_FROM_SYSTEM
#define OM_REALLOC_FROM_SYSTEM
Definition: omAllocSystem.c:22
omAssume
#define omAssume(x)
Definition: omError.h:85
omIsBinPageAddr
#define omIsBinPageAddr(addr)
Definition: omBinPage.h:68
res
CanonicalForm res
Definition: facAbsFact.cc:64
om_Info
omInfo_t om_Info
Definition: omStats.c:13
omSizeWOfAddr
size_t omSizeWOfAddr(void *addr)
Definition: omAllocSystem.c:113
_omVallocFromSystem
void * _omVallocFromSystem(size_t size, int fail)
Definition: omAllocSystem.c:308
OM_VFREE_TO_SYSTEM
#define OM_VFREE_TO_SYSTEM
Definition: omAllocSystem.c:145
size
int size(const CanonicalForm &f, const Variable &v)
int size ( const CanonicalForm & f, const Variable & v )
Definition: cf_ops.cc:600
omVfreeToSystem
void omVfreeToSystem(void *page, size_t size)
Definition: omAllocSystem.c:358
omReallocLarge
void * omReallocLarge(void *old_addr, size_t new_size)
Definition: omAllocSystem.c:47
omFreeSizeToSystem
void omFreeSizeToSystem(void *addr, size_t size)
Definition: omAllocSystem.c:301
omRealloc0Large
void * omRealloc0Large(void *old_addr, size_t new_size)
Definition: omAllocSystem.c:79
omReallocFromSystem
void * omReallocFromSystem(void *addr, size_t newsize)
Definition: omAllocSystem.c:235
omMmap.c
omIsBinAddrTrackAddr
#define omIsBinAddrTrackAddr(addr)
Definition: omDebug.h:15
omAlloc0Large
void * omAlloc0Large(size_t size)
Definition: omAllocSystem.c:72
NULL
#define NULL
Definition: omList.c:10
om_MaxAddr
unsigned long om_MaxAddr
Definition: omDebugCheck.c:19
omIsAddrPageAligned
#define omIsAddrPageAligned(addr)
Definition: omBinPage.h:16
om_MinAddr
unsigned long om_MinAddr
Definition: omDebugCheck.c:20
omSizeOfBinAddr
#define omSizeOfBinAddr(addr)
Definition: omAllocPrivate.h:97
omMalloc.h