| 1 | * Summary: interface for the memory allocator
|
|---|
| 2 | * Description: provides interfaces for the memory allocator,
|
|---|
| 3 | * including debugging capabilities.
|
|---|
| 4 | *
|
|---|
| 5 | * Copy: See Copyright for the status of this software.
|
|---|
| 6 | *
|
|---|
| 7 | * Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
|
|---|
| 8 |
|
|---|
| 9 | /if not defined(DEBUG_MEMORY_ALLOC__)
|
|---|
| 10 | /define DEBUG_MEMORY_ALLOC__
|
|---|
| 11 |
|
|---|
| 12 | /include "libxmlrpg/xmlversion"
|
|---|
| 13 | /include "libxmlrpg/xmlTypesC"
|
|---|
| 14 |
|
|---|
| 15 | * DEBUG_MEMORY:
|
|---|
| 16 | *
|
|---|
| 17 | * DEBUG_MEMORY replaces the allocator with a collect and debug
|
|---|
| 18 | * shell to the libc allocator.
|
|---|
| 19 | * DEBUG_MEMORY should only be activated when debugging
|
|---|
| 20 | * libxml i.e. if libxml has been configured with --with-debug-mem too.
|
|---|
| 21 |
|
|---|
| 22 | * /define DEBUG_MEMORY_FREED
|
|---|
| 23 | * /define DEBUG_MEMORY_LOCATION
|
|---|
| 24 |
|
|---|
| 25 | /if defined(DEBUG)
|
|---|
| 26 | /if not defined(DEBUG_MEMORY)
|
|---|
| 27 | /define DEBUG_MEMORY
|
|---|
| 28 | /endif
|
|---|
| 29 | /endif
|
|---|
| 30 |
|
|---|
| 31 | * DEBUG_MEMORY_LOCATION:
|
|---|
| 32 | *
|
|---|
| 33 | * DEBUG_MEMORY_LOCATION should be activated only when debugging
|
|---|
| 34 | * libxml i.e. if libxml has been configured with --with-debug-mem too.
|
|---|
| 35 |
|
|---|
| 36 | /if defined(DEBUG_MEMORY_LOCATION)
|
|---|
| 37 | /endif
|
|---|
| 38 |
|
|---|
| 39 | * The XML memory wrapper support 4 basic overloadable functions.
|
|---|
| 40 |
|
|---|
| 41 | * xmlFreeFunc:
|
|---|
| 42 | * @mem: an already allocated block of memory
|
|---|
| 43 | *
|
|---|
| 44 | * Signature for a free() implementation.
|
|---|
| 45 |
|
|---|
| 46 | d xmlFreeFunc s * based(######typedef######)
|
|---|
| 47 | d procptr
|
|---|
| 48 |
|
|---|
| 49 | * xmlMallocFunc:
|
|---|
| 50 | * @size: the size requested in bytes
|
|---|
| 51 | *
|
|---|
| 52 | * Signature for a malloc() implementation.
|
|---|
| 53 | *
|
|---|
| 54 | * Returns a pointer to the newly allocated block or NULL in case of error.
|
|---|
| 55 |
|
|---|
| 56 | d xmlMallocFunc s * based(######typedef######)
|
|---|
| 57 | d procptr
|
|---|
| 58 |
|
|---|
| 59 | * xmlReallocFunc:
|
|---|
| 60 | * @mem: an already allocated block of memory
|
|---|
| 61 | * @size: the new size requested in bytes
|
|---|
| 62 | *
|
|---|
| 63 | * Signature for a realloc() implementation.
|
|---|
| 64 | *
|
|---|
| 65 | * Returns a pointer to the newly reallocated block or NULL in case of error.
|
|---|
| 66 |
|
|---|
| 67 | d xmlReallocFunc s * based(######typedef######)
|
|---|
| 68 | d procptr
|
|---|
| 69 |
|
|---|
| 70 | * xmlStrdupFunc:
|
|---|
| 71 | * @str: a zero terminated string
|
|---|
| 72 | *
|
|---|
| 73 | * Signature for an strdup() implementation.
|
|---|
| 74 | *
|
|---|
| 75 | * Returns the copy of the string or NULL in case of error.
|
|---|
| 76 |
|
|---|
| 77 | d xmlStrdupFunc s * based(######typedef######)
|
|---|
| 78 | d procptr
|
|---|
| 79 |
|
|---|
| 80 | * The 5 interfaces used for all memory handling within libxml.
|
|---|
| 81 | * Since indirect calls are only supported via a based prototype,
|
|---|
| 82 | * storage is accessed via functions.
|
|---|
| 83 |
|
|---|
| 84 | d get_xmlFree pr extproc('__get_xmlFree')
|
|---|
| 85 | d like(xmlFreeFunc)
|
|---|
| 86 |
|
|---|
| 87 | d set_xmlFree pr extproc('__set_xmlFree')
|
|---|
| 88 | d func value like(xmlFreeFunc)
|
|---|
| 89 |
|
|---|
| 90 | d xmlFree pr extproc('__call_xmlFree')
|
|---|
| 91 | d mem * value void *
|
|---|
| 92 |
|
|---|
| 93 | d get_xmlMalloc pr extproc('__get_xmlMalloc')
|
|---|
| 94 | d like(xmlMallocFunc)
|
|---|
| 95 |
|
|---|
| 96 | d set_xmlMalloc pr extproc('__set_xmlMalloc')
|
|---|
| 97 | d func value like(xmlMallocFunc)
|
|---|
| 98 |
|
|---|
| 99 | d xmlMalloc pr * extproc('__call_xmlMalloc') void *
|
|---|
| 100 | d size value like(xmlCsize_t)
|
|---|
| 101 |
|
|---|
| 102 | d get_xmlMallocAtomic...
|
|---|
| 103 | d pr extproc('__get_xmlMallocAtomic')
|
|---|
| 104 | d like(xmlMallocFunc)
|
|---|
| 105 |
|
|---|
| 106 | d set_xmlMallocAtomic...
|
|---|
| 107 | d pr extproc('__set_xmlMallocAtomic')
|
|---|
| 108 | d func value like(xmlMallocFunc)
|
|---|
| 109 |
|
|---|
| 110 | d xmlMallocAtomic...
|
|---|
| 111 | d pr * extproc('__call_xmlMallocAtomic') void *
|
|---|
| 112 | d size value like(xmlCsize_t)
|
|---|
| 113 |
|
|---|
| 114 | d get_xmlRealloc pr extproc('__get_xmlRealloc')
|
|---|
| 115 | d like(xmlReallocFunc)
|
|---|
| 116 |
|
|---|
| 117 | d set_xmlRealloc pr extproc('__set_xmlRealloc')
|
|---|
| 118 | d func value like(xmlReallocFunc)
|
|---|
| 119 |
|
|---|
| 120 | d xmlRealloc pr * extproc('__call_xmlRealloc') void *
|
|---|
| 121 | d mem * value void *
|
|---|
| 122 | d size value like(xmlCsize_t)
|
|---|
| 123 |
|
|---|
| 124 | d get_xmlMemStrdup...
|
|---|
| 125 | d pr extproc('__get_xmlMemStrdup')
|
|---|
| 126 | d like(xmlStrdupFunc)
|
|---|
| 127 |
|
|---|
| 128 | d set_xmlMemStrdup...
|
|---|
| 129 | d pr extproc('__set_xmlMemstrdup')
|
|---|
| 130 | d func value like(xmlStrdupFunc)
|
|---|
| 131 |
|
|---|
| 132 | d xmlMemStrdup pr * extproc('__call_xmlMemStrdup') void *
|
|---|
| 133 | d str * value options(*string) const char *
|
|---|
| 134 |
|
|---|
| 135 | * The way to overload the existing functions.
|
|---|
| 136 | * The xmlGc function have an extra entry for atomic block
|
|---|
| 137 | * allocations useful for garbage collected memory allocators
|
|---|
| 138 |
|
|---|
| 139 | d xmlMemSetup pr extproc('xmlMemSetup')
|
|---|
| 140 | d like(xmlCint)
|
|---|
| 141 | d freeFunc value like(xmlFreeFunc)
|
|---|
| 142 | d mallocFunc value like(xmlMallocFunc)
|
|---|
| 143 | d reallocFunc value like(xmlReallocFunc)
|
|---|
| 144 | d strdupFunc value like(xmlStrdupFunc)
|
|---|
| 145 |
|
|---|
| 146 | d xmlMemGet pr extproc('xmlMemGet')
|
|---|
| 147 | d like(xmlCint)
|
|---|
| 148 | d freeFunc like(xmlFreeFunc)
|
|---|
| 149 | d mallocFunc like(xmlMallocFunc)
|
|---|
| 150 | d reallocFunc like(xmlReallocFunc)
|
|---|
| 151 | d strdupFunc like(xmlStrdupFunc)
|
|---|
| 152 |
|
|---|
| 153 | d xmlGcMemSetup pr extproc('xmlGcMemSetup')
|
|---|
| 154 | d like(xmlCint)
|
|---|
| 155 | d freeFunc value like(xmlFreeFunc)
|
|---|
| 156 | d mallocFunc value like(xmlMallocFunc)
|
|---|
| 157 | d mallocAtomicFunc...
|
|---|
| 158 | d value like(xmlMallocFunc)
|
|---|
| 159 | d reallocFunc value like(xmlReallocFunc)
|
|---|
| 160 | d strdupFunc value like(xmlStrdupFunc)
|
|---|
| 161 |
|
|---|
| 162 | d xmlGcMemGet pr extproc('xmlGcMemGet')
|
|---|
| 163 | d like(xmlCint)
|
|---|
| 164 | d freeFunc like(xmlFreeFunc)
|
|---|
| 165 | d mallocFunc like(xmlMallocFunc)
|
|---|
| 166 | d mallocAtomicFunc...
|
|---|
| 167 | d like(xmlMallocFunc)
|
|---|
| 168 | d reallocFunc like(xmlReallocFunc)
|
|---|
| 169 | d strdupFunc like(xmlStrdupFunc)
|
|---|
| 170 |
|
|---|
| 171 | * Initialization of the memory layer.
|
|---|
| 172 |
|
|---|
| 173 | d xmlInitMemory pr extproc('xmlInitMemory')
|
|---|
| 174 | d like(xmlCint)
|
|---|
| 175 |
|
|---|
| 176 | * Cleanup of the memory layer.
|
|---|
| 177 |
|
|---|
| 178 | d xmlCleanupMemory...
|
|---|
| 179 | d pr extproc('xmlCleanupMemory')
|
|---|
| 180 |
|
|---|
| 181 | * These are specific to the XML debug memory wrapper.
|
|---|
| 182 |
|
|---|
| 183 | d xmlMemUsed pr extproc('xmlMemUsed')
|
|---|
| 184 | d like(xmlCint)
|
|---|
| 185 |
|
|---|
| 186 | d xmlMemBlocks pr extproc('xmlMemBlocks')
|
|---|
| 187 | d like(xmlCint)
|
|---|
| 188 |
|
|---|
| 189 | d xmlMemDisplay pr extproc('xmlMemDisplay')
|
|---|
| 190 | d fp * value FILE *
|
|---|
| 191 |
|
|---|
| 192 | d xmlMmDisplayLast...
|
|---|
| 193 | d pr extproc('xmlMemDisplayLast')
|
|---|
| 194 | d fp * value FILE *
|
|---|
| 195 | d nbBytes value like(xmlClong)
|
|---|
| 196 |
|
|---|
| 197 | d xmlMemShow pr extproc('xmlMemShow')
|
|---|
| 198 | d fp * value FILE *
|
|---|
| 199 | d nr value like(xmlCint)
|
|---|
| 200 |
|
|---|
| 201 | d xmlMemoryDump pr extproc('xmlMemoryDump')
|
|---|
| 202 |
|
|---|
| 203 | d xmlMemMalloc pr * extproc('xmlMemMalloc') void *
|
|---|
| 204 | d size value like(xmlCsize_t)
|
|---|
| 205 |
|
|---|
| 206 | d xmlMemRealloc pr * extproc('xmlMemRealloc') void *
|
|---|
| 207 | d ptr * value void *
|
|---|
| 208 | d size value like(xmlCsize_t)
|
|---|
| 209 |
|
|---|
| 210 | d xmlMemFree pr extproc('xmlMemFree')
|
|---|
| 211 | d ptr * value void *
|
|---|
| 212 |
|
|---|
| 213 | d xmlMemoryStrdup...
|
|---|
| 214 | d pr * extproc('xmlMemoryStrdup') char *
|
|---|
| 215 | d str * value options(*string) const char *
|
|---|
| 216 |
|
|---|
| 217 | d xmlMallocLoc pr * extproc('xmlMallocLoc') void *
|
|---|
| 218 | d size value like(xmlCsize_t)
|
|---|
| 219 | d file * value options(*string) const char *
|
|---|
| 220 | d line value like(xmlCint)
|
|---|
| 221 |
|
|---|
| 222 | d xmlReallocLoc pr * extproc('xmlReallocLoc') void *
|
|---|
| 223 | d ptr * value void *
|
|---|
| 224 | d size value like(xmlCsize_t)
|
|---|
| 225 | d file * value options(*string) const char *
|
|---|
| 226 | d line value like(xmlCint)
|
|---|
| 227 |
|
|---|
| 228 | d xmlMallocAtomicLoc...
|
|---|
| 229 | d pr * extproc('xmlMallocAtomicLoc') void *
|
|---|
| 230 | d size value like(xmlCsize_t)
|
|---|
| 231 | d file * value options(*string) const char *
|
|---|
| 232 | d line value like(xmlCint)
|
|---|
| 233 |
|
|---|
| 234 | d xmlMemStrdupLoc...
|
|---|
| 235 | d pr * extproc('xmlMemStrdupLoc') char *
|
|---|
| 236 | d str * value options(*string) const char *
|
|---|
| 237 | d file * value options(*string) const char *
|
|---|
| 238 | d line value like(xmlCint)
|
|---|
| 239 |
|
|---|
| 240 | /if not defined(XML_GLOBALS_H)
|
|---|
| 241 | /if not defined(XML_THREADS_H__)
|
|---|
| 242 | /include "libxmlrpg/threads"
|
|---|
| 243 | /include "libxmlrpg/globals"
|
|---|
| 244 | /endif
|
|---|
| 245 | /endif
|
|---|
| 246 |
|
|---|
| 247 | /endif DEBUG_MEMORY_ALLOC__
|
|---|
