From 35a201cc8ef0c3f5b2df88d2e528aabee1048348 Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Fri, 30 Apr 2021 18:47:09 +0200 Subject: Initial/Final commit --- libxml2-2.9.10/os400/libxmlrpg/xmlmemory.rpgle | 247 +++++++++++++++++++++++++ 1 file changed, 247 insertions(+) create mode 100644 libxml2-2.9.10/os400/libxmlrpg/xmlmemory.rpgle (limited to 'libxml2-2.9.10/os400/libxmlrpg/xmlmemory.rpgle') diff --git a/libxml2-2.9.10/os400/libxmlrpg/xmlmemory.rpgle b/libxml2-2.9.10/os400/libxmlrpg/xmlmemory.rpgle new file mode 100644 index 0000000..472e941 --- /dev/null +++ b/libxml2-2.9.10/os400/libxmlrpg/xmlmemory.rpgle @@ -0,0 +1,247 @@ + * Summary: interface for the memory allocator + * Description: provides interfaces for the memory allocator, + * including debugging capabilities. + * + * Copy: See Copyright for the status of this software. + * + * Author: Patrick Monnerat , DATASPHERE S.A. + + /if not defined(DEBUG_MEMORY_ALLOC__) + /define DEBUG_MEMORY_ALLOC__ + + /include "libxmlrpg/xmlversion" + /include "libxmlrpg/xmlTypesC" + + * DEBUG_MEMORY: + * + * DEBUG_MEMORY replaces the allocator with a collect and debug + * shell to the libc allocator. + * DEBUG_MEMORY should only be activated when debugging + * libxml i.e. if libxml has been configured with --with-debug-mem too. + + * /define DEBUG_MEMORY_FREED + * /define DEBUG_MEMORY_LOCATION + + /if defined(DEBUG) + /if not defined(DEBUG_MEMORY) + /define DEBUG_MEMORY + /endif + /endif + + * DEBUG_MEMORY_LOCATION: + * + * DEBUG_MEMORY_LOCATION should be activated only when debugging + * libxml i.e. if libxml has been configured with --with-debug-mem too. + + /if defined(DEBUG_MEMORY_LOCATION) + /endif + + * The XML memory wrapper support 4 basic overloadable functions. + + * xmlFreeFunc: + * @mem: an already allocated block of memory + * + * Signature for a free() implementation. + + d xmlFreeFunc s * based(######typedef######) + d procptr + + * xmlMallocFunc: + * @size: the size requested in bytes + * + * Signature for a malloc() implementation. + * + * Returns a pointer to the newly allocated block or NULL in case of error. + + d xmlMallocFunc s * based(######typedef######) + d procptr + + * xmlReallocFunc: + * @mem: an already allocated block of memory + * @size: the new size requested in bytes + * + * Signature for a realloc() implementation. + * + * Returns a pointer to the newly reallocated block or NULL in case of error. + + d xmlReallocFunc s * based(######typedef######) + d procptr + + * xmlStrdupFunc: + * @str: a zero terminated string + * + * Signature for an strdup() implementation. + * + * Returns the copy of the string or NULL in case of error. + + d xmlStrdupFunc s * based(######typedef######) + d procptr + + * The 5 interfaces used for all memory handling within libxml. + * Since indirect calls are only supported via a based prototype, + * storage is accessed via functions. + + d get_xmlFree pr extproc('__get_xmlFree') + d like(xmlFreeFunc) + + d set_xmlFree pr extproc('__set_xmlFree') + d func value like(xmlFreeFunc) + + d xmlFree pr extproc('__call_xmlFree') + d mem * value void * + + d get_xmlMalloc pr extproc('__get_xmlMalloc') + d like(xmlMallocFunc) + + d set_xmlMalloc pr extproc('__set_xmlMalloc') + d func value like(xmlMallocFunc) + + d xmlMalloc pr * extproc('__call_xmlMalloc') void * + d size value like(xmlCsize_t) + + d get_xmlMallocAtomic... + d pr extproc('__get_xmlMallocAtomic') + d like(xmlMallocFunc) + + d set_xmlMallocAtomic... + d pr extproc('__set_xmlMallocAtomic') + d func value like(xmlMallocFunc) + + d xmlMallocAtomic... + d pr * extproc('__call_xmlMallocAtomic') void * + d size value like(xmlCsize_t) + + d get_xmlRealloc pr extproc('__get_xmlRealloc') + d like(xmlReallocFunc) + + d set_xmlRealloc pr extproc('__set_xmlRealloc') + d func value like(xmlReallocFunc) + + d xmlRealloc pr * extproc('__call_xmlRealloc') void * + d mem * value void * + d size value like(xmlCsize_t) + + d get_xmlMemStrdup... + d pr extproc('__get_xmlMemStrdup') + d like(xmlStrdupFunc) + + d set_xmlMemStrdup... + d pr extproc('__set_xmlMemstrdup') + d func value like(xmlStrdupFunc) + + d xmlMemStrdup pr * extproc('__call_xmlMemStrdup') void * + d str * value options(*string) const char * + + * The way to overload the existing functions. + * The xmlGc function have an extra entry for atomic block + * allocations useful for garbage collected memory allocators + + d xmlMemSetup pr extproc('xmlMemSetup') + d like(xmlCint) + d freeFunc value like(xmlFreeFunc) + d mallocFunc value like(xmlMallocFunc) + d reallocFunc value like(xmlReallocFunc) + d strdupFunc value like(xmlStrdupFunc) + + d xmlMemGet pr extproc('xmlMemGet') + d like(xmlCint) + d freeFunc like(xmlFreeFunc) + d mallocFunc like(xmlMallocFunc) + d reallocFunc like(xmlReallocFunc) + d strdupFunc like(xmlStrdupFunc) + + d xmlGcMemSetup pr extproc('xmlGcMemSetup') + d like(xmlCint) + d freeFunc value like(xmlFreeFunc) + d mallocFunc value like(xmlMallocFunc) + d mallocAtomicFunc... + d value like(xmlMallocFunc) + d reallocFunc value like(xmlReallocFunc) + d strdupFunc value like(xmlStrdupFunc) + + d xmlGcMemGet pr extproc('xmlGcMemGet') + d like(xmlCint) + d freeFunc like(xmlFreeFunc) + d mallocFunc like(xmlMallocFunc) + d mallocAtomicFunc... + d like(xmlMallocFunc) + d reallocFunc like(xmlReallocFunc) + d strdupFunc like(xmlStrdupFunc) + + * Initialization of the memory layer. + + d xmlInitMemory pr extproc('xmlInitMemory') + d like(xmlCint) + + * Cleanup of the memory layer. + + d xmlCleanupMemory... + d pr extproc('xmlCleanupMemory') + + * These are specific to the XML debug memory wrapper. + + d xmlMemUsed pr extproc('xmlMemUsed') + d like(xmlCint) + + d xmlMemBlocks pr extproc('xmlMemBlocks') + d like(xmlCint) + + d xmlMemDisplay pr extproc('xmlMemDisplay') + d fp * value FILE * + + d xmlMmDisplayLast... + d pr extproc('xmlMemDisplayLast') + d fp * value FILE * + d nbBytes value like(xmlClong) + + d xmlMemShow pr extproc('xmlMemShow') + d fp * value FILE * + d nr value like(xmlCint) + + d xmlMemoryDump pr extproc('xmlMemoryDump') + + d xmlMemMalloc pr * extproc('xmlMemMalloc') void * + d size value like(xmlCsize_t) + + d xmlMemRealloc pr * extproc('xmlMemRealloc') void * + d ptr * value void * + d size value like(xmlCsize_t) + + d xmlMemFree pr extproc('xmlMemFree') + d ptr * value void * + + d xmlMemoryStrdup... + d pr * extproc('xmlMemoryStrdup') char * + d str * value options(*string) const char * + + d xmlMallocLoc pr * extproc('xmlMallocLoc') void * + d size value like(xmlCsize_t) + d file * value options(*string) const char * + d line value like(xmlCint) + + d xmlReallocLoc pr * extproc('xmlReallocLoc') void * + d ptr * value void * + d size value like(xmlCsize_t) + d file * value options(*string) const char * + d line value like(xmlCint) + + d xmlMallocAtomicLoc... + d pr * extproc('xmlMallocAtomicLoc') void * + d size value like(xmlCsize_t) + d file * value options(*string) const char * + d line value like(xmlCint) + + d xmlMemStrdupLoc... + d pr * extproc('xmlMemStrdupLoc') char * + d str * value options(*string) const char * + d file * value options(*string) const char * + d line value like(xmlCint) + + /if not defined(XML_GLOBALS_H) + /if not defined(XML_THREADS_H__) + /include "libxmlrpg/threads" + /include "libxmlrpg/globals" + /endif + /endif + + /endif DEBUG_MEMORY_ALLOC__ -- cgit v1.2.3