Charm++: Charm Source Code Documentation

00001 /******************************************************************************
00002 
00003 A caching memory allocator-- #included whole by memory.c
00004 
00005 Orion Sky Lawlor, olawlor@acm.org, 6/22/2001
00006 
00007 *****************************************************************************/
00008 
00009 #if ! CMK_MEMORY_BUILD_OS
00010 /* Use Gnumalloc as meta-meta malloc fallbacks (mm_*) */
00011 #include "memory-gnu.c"
00012 #endif
00013 
00014 static int memInit=0;
00015 
00016 static void meta_init(char **argv)
00017 {
00018   memInit=1;
00019   if (memInit) CmiPrintf("CMI_MEMORY(%d)> Called meta_init\n",
00020                          CmiMyPe());
00021 }
00022 
00023 static void *meta_malloc(size_t size)
00024 {
00025   void *ret=mm_malloc(size);
00026   if (memInit) CmiPrintf("CMI_MEMORY(%d)> malloc(%d) => %p\n",
00027                          CmiMyPe(),size,ret);
00028   if (memInit>1) {int memBack=memInit; memInit=0; CmiPrintStackTrace(0); memInit=memBack;}
00029   return ret;
00030 }
00031 
00032 static void meta_free(void *mem)
00033 {
00034   if (memInit) CmiPrintf("CMI_MEMORY(%d)> free(%p)\n",
00035                          CmiMyPe(),mem);
00036   if (memInit>1) {int memBack=memInit; memInit=0; CmiPrintStackTrace(0); memInit=memBack;}
00037   mm_free(mem);
00038 }
00039 
00040 static void *meta_calloc(size_t nelem, size_t size)
00041 {
00042   void *ret=mm_calloc(nelem,size);
00043   if (memInit) CmiPrintf("CMI_MEMORY(%d)> calloc(%d,%d) => %p\n",
00044                          CmiMyPe(),nelem,size,ret);
00045   return ret;
00046 }
00047 
00048 static void meta_cfree(void *mem)
00049 {
00050   if (memInit) CmiPrintf("CMI_MEMORY(%d)> free(%p)\n",
00051                          CmiMyPe(),mem);
00052   mm_cfree(mem);
00053 }
00054 
00055 static void *meta_realloc(void *mem, size_t size)
00056 {
00057   void *ret=mm_realloc(mem,size);
00058   if (memInit) CmiPrintf("CMI_MEMORY(%d)> realloc(%p,%d) => %p\n",
00059                          CmiMyPe(),mem,size,ret);
00060   return ret;
00061 }
00062 
00063 static void *meta_memalign(size_t align, size_t size)
00064 {
00065   void *ret=mm_memalign(align,size);
00066   if (memInit) CmiPrintf("CMI_MEMORY(%d)> memalign(%p,%d) => %p\n",
00067                          CmiMyPe(),align,size,ret);
00068   return ret;
00069 }
00070 
00071 static void *meta_valloc(size_t size)
00072 {
00073   void *ret=mm_valloc(size);
00074   if (memInit) CmiPrintf("CMI_MEMORY(%d)> valloc(%d) => %p\n",
00075                          CmiMyPe(),size,ret);  
00076   return ret;
00077 }
00078 
00079
conv-core/memory-verbose.c
