/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- * * The contents of this file are subject to the Netscape Public License * Version 1.0 (the "NPL"); you may not use this file except in * compliance with the NPL. You may obtain a copy of the NPL at * http://www.mozilla.org/NPL/ * * Software distributed under the NPL is distributed on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL * for the specific language governing rights and limitations under the * NPL. * * The Initial Developer of this code under the NPL is Netscape * Communications Corporation. Portions created by Netscape are * Copyright (C) 1998 Netscape Communications Corporation. All Rights * Reserved. */ /*----------------------------------------------------------------------------- XPMem.h Cross-Platform Memory API -----------------------------------------------------------------------------*/ #ifndef _XP_MEM_ #define _XP_MEM_ #include "xp_core.h" #ifdef XP_WIN16 #include #endif /* global free routine */ #define XP_FREEIF(obj) do { if(obj) { XP_FREE(obj); obj = 0; }} while(0) /*----------------------------------------------------------------------------- Allocating Structures -----------------------------------------------------------------------------*/ #define XP_NEW( x ) (x*)malloc( sizeof( x ) ) #define XP_DELETE( p ) free( p ) /*----------------------------------------------------------------------------- Mallocs NOTE: this uses the same malloc as the structure allocator so it is ok and safe to use XP_DELETE or XP_FREE interchangeably! -----------------------------------------------------------------------------*/ #ifdef XP_MAC #define XP_ALLOC( s ) malloc( s ) #define XP_FREE( p ) free( p ) #define XP_REALLOC( p , s ) realloc( p, s ) #define XP_CALLOC( n, s ) calloc( (n), (s) ) #define XP_NEW_ZAP( t ) ((t*)calloc( 1, sizeof(t) ) ) #else /* !XP_MAC */ /* normal win and unix */ #ifdef XP_WIN16 XP_BEGIN_PROTOS extern void * WIN16_realloc(void * ptr, unsigned long size); extern void * WIN16_malloc(unsigned long size); XP_END_PROTOS #define XP_REALLOC(ptr, size) WIN16_realloc(ptr, size) #define XP_ALLOC(size) WIN16_malloc(size) #else /* this used to check for < 64K for win16, but we don't need it anymore! I'll leave the define in case someone else has another check they want to try. */ #define XP_CHECK_ALLOC_SIZE(size) size #define XP_REALLOC(ptr, size) realloc(ptr, XP_CHECK_ALLOC_SIZE(size)) #define XP_ALLOC(size) malloc(XP_CHECK_ALLOC_SIZE(size)) #endif #ifdef DEBUG #define XP_CALLOC(num, sz) (((num)*(sz))<64000 ? calloc((num),(sz)) : (XP_ASSERT(FALSE), calloc((num),(sz)))) #else #define XP_CALLOC(num, sz) calloc((num), (sz)) #endif #define XP_FREE(ptr) free(ptr) #define XP_NEW_ZAP(TYPE) ( (TYPE*) calloc (1, sizeof (TYPE) ) ) #endif /* !XP_MAC */ /* -------------------------------------------------------------------------- 16-bit windows requires space allocated bigger than 32K to be of type huge. For example: int HUGE * foo = halloc(100000); -----------------------------------------------------------------------------*/ /* There's no huge realloc because win16 doesn't have a hrealloc, * and there's no API to discover the original buffer's size. */ #ifdef XP_WIN16 #define XP_HUGE __huge #define XP_HUGE_ALLOC(SIZE) halloc(SIZE,1) #define XP_HUGE_FREE(SIZE) hfree(SIZE) #define XP_HUGE_MEMCPY(DEST, SOURCE, LEN) hmemcpy(DEST, SOURCE, LEN) #else #define XP_HUGE #define XP_HUGE_ALLOC(SIZE) malloc(SIZE) #define XP_HUGE_FREE(SIZE) free(SIZE) #define XP_HUGE_MEMCPY(DEST, SOURCE, LEN) memcpy(DEST, SOURCE, LEN) #endif #define XP_HUGE_CHAR_PTR char XP_HUGE * /*----------------------------------------------------------------------------- Allocating Large Buffers NOTE: this does not interchange with XP_ALLOC/XP_NEW/XP_FREE/XP_DELETE -----------------------------------------------------------------------------*/ #if defined(XP_UNIX) || defined(XP_WIN32) /* don't typedef this to void* unless you want obscure bugs... */ typedef unsigned long * XP_Block; #define XP_ALLOC_BLOCK(SIZE) malloc ((SIZE)) #define XP_FREE_BLOCK(BLOCK) free ((BLOCK)) #ifdef XP_UNIXu /* On SunOS, realloc(0,n) ==> 0 */ # define XP_REALLOC_BLOCK(BLOCK,SIZE) ((BLOCK) \ ? realloc ((BLOCK), (SIZE)) \ : malloc ((SIZE))) #else /* !XP_UNIX */ # define XP_REALLOC_BLOCK(BLOCK,SIZE) realloc ((BLOCK), (SIZE)) #endif /* !XP_UNIX */ #define XP_LOCK_BLOCK(PTR,TYPE,BLOCK) PTR = ((TYPE) (BLOCK)) #ifdef DEBUG #define XP_UNLOCK_BLOCK(BLOCK) (void)BLOCK #else #define XP_UNLOCK_BLOCK(BLOCK) #endif #endif /* XP_UNIX || XP_WIN32 */ #if defined(XP_OS2) /* don't typedef this to void* unless you want obscure bugs... */ typedef unsigned long * XP_Block; #define XP_ALLOC_BLOCK(SIZE) malloc ((SIZE)) #define XP_FREE_BLOCK(BLOCK) free ((BLOCK)) # define XP_REALLOC_BLOCK(BLOCK,SIZE) realloc ((BLOCK), (SIZE)) #define XP_LOCK_BLOCK(PTR,TYPE,BLOCK) PTR = ((TYPE) (BLOCK)) #ifdef DEBUG #define XP_UNLOCK_BLOCK(BLOCK) (void)BLOCK #else #define XP_UNLOCK_BLOCK(BLOCK) #endif #ifdef MCW_DEBUG #include #include #endif #endif /* XP_OS2 */ #ifdef XP_WIN16 typedef unsigned char * XP_Block; #define XP_ALLOC_BLOCK(SIZE) WIN16_malloc((SIZE)) #define XP_FREE_BLOCK(BLOCK) free ((BLOCK)) #define XP_REALLOC_BLOCK(BLOCK,SIZE) ((BLOCK) \ ? WIN16_realloc ((BLOCK), (SIZE)) \ : WIN16_malloc ((SIZE))) #define XP_LOCK_BLOCK(PTR,TYPE,BLOCK) PTR = ((TYPE) (BLOCK)) #ifdef DEBUG #define XP_UNLOCK_BLOCK(BLOCK) (void)BLOCK #else #define XP_UNLOCK_BLOCK(BLOCK) #endif #endif /* XP_WIN16 */ #ifdef XP_MAC typedef float* XP_Block; #define XP_ALLOC_BLOCK( s ) ((XP_Block)malloc( s ) ) #define XP_FREE_BLOCK( b ) free( b ) #define XP_REALLOC_BLOCK( b, s ) ((XP_Block)realloc( b, s ) ) #define XP_LOCK_BLOCK( p, t, b ) (p = ( t )( b )) #define XP_UNLOCK_BLOCK( b ) #endif /* XP_MAC */ #define PA_Block XP_Block #define PA_ALLOC(S) XP_ALLOC_BLOCK(S) #define PA_FREE(B) XP_FREE_BLOCK(B) #define PA_REALLOC(B,S) XP_REALLOC_BLOCK(B,S) #define PA_LOCK(P,T,B) XP_LOCK_BLOCK(P,T,B) #define PA_UNLOCK(B) XP_UNLOCK_BLOCK(B) /*----------------------------------------------------------------------------- Allocating many small structures. If allocating many small structures, it is often more efficient to allocate an array of a bunch of them, and maintain a free list of them. These utilities do that for you. You must provide a XP_AllocStructInfo structure which describes what it is you are trying to allocate it. If statically defined, use the XP_INITIALIZE_ALLOCSTRUCTINFO macro to initialize it; if you prefer to initialize it at runtime, use the XP_InitAllocStructInfo() routine. If you free everything you've ever allocated for a given XP_AllocStructInfo, all the memory used will be freed. Or, if you're *really sure* you're done with everything you've allocated for a given XP_AllocStructInfo, you can just call the scary XP_FreeAllStructs() routine. Don't mix calls to XP_AllocStruct/XP_FreeStruct and XP_ALLOC/XP_FREE !!! XP_AllocStructZero is the same as XP_AllocStruct, but it also zeros out the allocated memory. An example: struct foo { int a; int b; }; static XP_AllocStructInfo FooAlloc = { XP_INITIALIZE_ALLOCSTRUCTINFO(sizeof(struct foo)) }; . . . struct foo* ptr = (struct foo*) XP_AllocStruct(&FooAlloc); . . . XP_FreeStruct(FooAlloc, ptr); -----------------------------------------------------------------------------*/ typedef struct XP_AllocStructInfo { int size; void* curchunk; int leftinchunk; void* firstfree; void* firstchunk; int numalloced; } XP_AllocStructInfo; #define XP_INITIALIZE_ALLOCSTRUCTINFO(size) ((size + sizeof(void*) - 1) / sizeof(void*)) * sizeof(void*) XP_BEGIN_PROTOS void XP_InitAllocStructInfo(XP_AllocStructInfo* info, int size); void* XP_AllocStruct(XP_AllocStructInfo* info); void* XP_AllocStructZero(XP_AllocStructInfo* info); void XP_FreeStruct(XP_AllocStructInfo* info, void* ptr); void XP_FreeAllStructs(XP_AllocStructInfo* info); /* Danger! Use with care! */ XP_END_PROTOS #endif /* _XP_MEM_ */