doc: Add serial to list of ci file reserved words
[charm.git] / src / conv-core / memory-verbose.c
1 /******************************************************************************
2
3 A caching memory allocator-- #included whole by memory.c
4
5 Orion Sky Lawlor, olawlor@acm.org, 6/22/2001
6
7 *****************************************************************************/
8
9 #if ! CMK_MEMORY_BUILD_OS
10 /* Use Gnumalloc as meta-meta malloc fallbacks (mm_*) */
11 #include "memory-gnu.c"
12 #endif
13
14 static int memInit=0;
15
16 static void meta_init(char **argv)
17 {
18   memInit=1;
19   if (memInit) CmiPrintf("CMI_MEMORY(%d)> Called meta_init\n",
20                          CmiMyPe());
21 }
22
23 static void *meta_malloc(size_t size)
24 {
25   void *ret=mm_malloc(size);
26   if (memInit) CmiPrintf("CMI_MEMORY(%d)> malloc(%d) => %p\n",
27                          CmiMyPe(),size,ret);
28   if (memInit>1) {int memBack=memInit; memInit=0; CmiPrintStackTrace(0); memInit=memBack;}
29   return ret;
30 }
31
32 static void meta_free(void *mem)
33 {
34   if (memInit) CmiPrintf("CMI_MEMORY(%d)> free(%p)\n",
35                          CmiMyPe(),mem);
36   if (memInit>1) {int memBack=memInit; memInit=0; CmiPrintStackTrace(0); memInit=memBack;}
37   mm_free(mem);
38 }
39
40 static void *meta_calloc(size_t nelem, size_t size)
41 {
42   void *ret=mm_calloc(nelem,size);
43   if (memInit) CmiPrintf("CMI_MEMORY(%d)> calloc(%d,%d) => %p\n",
44                          CmiMyPe(),nelem,size,ret);
45   return ret;
46 }
47
48 static void meta_cfree(void *mem)
49 {
50   if (memInit) CmiPrintf("CMI_MEMORY(%d)> free(%p)\n",
51                          CmiMyPe(),mem);
52   mm_cfree(mem);
53 }
54
55 static void *meta_realloc(void *mem, size_t size)
56 {
57   void *ret=mm_realloc(mem,size);
58   if (memInit) CmiPrintf("CMI_MEMORY(%d)> realloc(%p,%d) => %p\n",
59                          CmiMyPe(),mem,size,ret);
60   return ret;
61 }
62
63 static void *meta_memalign(size_t align, size_t size)
64 {
65   void *ret=mm_memalign(align,size);
66   if (memInit) CmiPrintf("CMI_MEMORY(%d)> memalign(%p,%d) => %p\n",
67                          CmiMyPe(),align,size,ret);
68   return ret;
69 }
70
71 static void *meta_valloc(size_t size)
72 {
73   void *ret=mm_valloc(size);
74   if (memInit) CmiPrintf("CMI_MEMORY(%d)> valloc(%d) => %p\n",
75                          CmiMyPe(),size,ret);  
76   return ret;
77 }
78
79