/**************************************************************************** * * Open Watcom Project * * Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved. * * ======================================================================== * * This file contains Original Code and/or Modifications of Original * Code as defined in and that are subject to the Sybase Open Watcom * Public License version 1.0 (the 'License'). You may not use this file * except in compliance with the License. BY USING THIS FILE YOU AGREE TO * ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is * provided with the Original Code and Modifications, and is also * available at www.sybase.com/developer/opensource. * * The Original Code and all software distributed under the License are * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER * EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM * ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR * NON-INFRINGEMENT. Please see the License for the specific language * governing rights and limitations under the License. * * ======================================================================== * * Description: Heap library configuration for various platforms. * ****************************************************************************/ #include "variety.h" #if defined(_M_IX86) #include #endif #if !defined(__DOS_EXT__) #if defined(__386__) && \ !defined(__WINDOWS_386__) && \ !defined(__WINDOWS__) && \ !defined(__OS2__) && \ !defined(__NT__) && \ !defined(__OSI__) && \ !defined(__UNIX__) #define __DOS_EXT__ #endif #endif typedef unsigned int tag; typedef struct freelistp frl; typedef struct freelistp _WCNEAR *frlptr; typedef struct freelist _WCFAR *farfrlptr; typedef unsigned char _WCNEAR *PTR; typedef unsigned char _WCFAR *FARPTR; typedef struct miniheapblkp _WCNEAR *mheapptr; /* ** NOTE: the size of these data structures is critical to the alignemnt ** of the pointers returned by malloc(). */ struct freelist { tag len; /* length of block in free list */ unsigned int prev; /* offset of previous block in free list */ unsigned int next; /* offset of next block in free list */ }; struct heapblk { tag heaplen; /* size of heap (0 = 64K) */ unsigned int prevseg; /* segment selector for previous heap */ unsigned int nextseg; /* segment selector for next heap */ unsigned int rover; /* roving pointer into free list */ unsigned int b4rover; /* largest block before rover */ unsigned int largest_blk; /* largest block in the heap */ unsigned int numalloc; /* number of allocated blocks in heap */ unsigned int numfree; /* number of free blocks in the heap */ struct freelist freehead; /* listhead of free blocks in heap */ }; struct freelistp { tag len; frlptr prev; frlptr next; }; struct heapblkp { tag heaplen; unsigned int prevseg; unsigned int nextseg; frlptr rover; unsigned int b4rover; unsigned int largest_blk; unsigned int numalloc; unsigned int numfree; frl freehead; }; struct miniheapblkp { tag len; mheapptr prev; mheapptr next; frlptr rover; unsigned int b4rover; unsigned int largest_blk; unsigned int numalloc; unsigned int numfree; frl freehead; }; struct heapstart { struct heapblk h; struct freelist first; }; struct heapend { tag last_tag; struct freelist last; }; #ifdef __DOS_EXT__ struct dpmi_hdr { unsigned long dpmi_handle; tag dos_seg_value; // 0 => DPMI block, else DOS segment }; #endif extern unsigned _curbrk; extern mheapptr _WCNEAR __nheapbeg; #if defined(_M_IX86) extern __segment __fheap; extern __segment __bheap; extern __segment __fheapRover; #endif extern int __heap_enabled; extern unsigned int __LargestSizeB4Rover; extern struct miniheapblkp _WCNEAR *__MiniHeapRover; extern unsigned int __LargestSizeB4MiniHeapRover; extern struct miniheapblkp _WCNEAR *__MiniHeapFreeRover; extern size_t __LastFree( void ); extern int __NHeapWalk( struct _heapinfo *entry, mheapptr heapbeg ); extern int __ExpandDGROUP( unsigned int __amt ); #if defined(_M_IX86) extern unsigned __AllocSeg( unsigned int __amt ); extern unsigned __GrowSeg( __segment __seg, unsigned int __amt ); extern int __FreeSeg( __segment seg ); extern int __HeapWalk( struct _heapinfo *entry, __segment seg, unsigned all ); extern int __HeapMin( __segment seg, unsigned one_seg ); extern int __HeapSet( __segment seg, unsigned fill ); #endif #if defined(__DOS_EXT__) extern void __FreeDPMIBlocks( void ); extern void *__ReAllocDPMIBlock( frlptr p1, unsigned req_size ); extern void *__ExpandDPMIBlock( frlptr, unsigned ); #endif extern int __HeapManager_expand( __segment seg, unsigned offset, size_t req_size, size_t *growth_size ); extern void _WCFAR __HeapInit( void _WCNEAR *start, unsigned int amount ); _WCRTLINK extern void _WCNEAR *__brk( unsigned ); #if defined(_M_IX86) #define _DGroup() FP_SEG((&__nheapbeg)) #else #define _DGroup() 0 #endif // __IsCtsNHeap() is used to determine whether the operating system provides // a continuous near heap block. __ExpandDGroup should slice for more near // heap under those operating systems with __IsCtsNHeap() == 1. #if defined(__WARP__) || \ defined(__NT__) || \ defined(__WINDOWS_386__) || \ defined(__WINDOWS_286__) #define __IsCtsNHeap() 0 #elif defined(__DOS_EXT__) #define __IsCtsNHeap() ((_IsRationalZeroBase() || _IsCodeBuilder()) ? 0 : 1) #else #define __IsCtsNHeap() 1 #endif extern unsigned __MemAllocator( unsigned __sz, unsigned __seg, unsigned __off ); extern void __MemFree( unsigned __ptr, unsigned __seg, unsigned __off ); #if defined(_M_IX86) #if defined(__386__) #pragma aux __MemAllocator "*" parm [eax] [edx] [ebx]; #pragma aux __MemFree "*" parm [eax] [edx] [ebx]; #else #pragma aux __MemAllocator "*" parm [ax] [dx] [bx]; #pragma aux __MemFree "*" parm [ax] [dx] [bx]; #endif #endif #define PARAS_IN_64K (0x1000) #define END_TAG (~0) #define TAG_SIZE (sizeof(tag)) #if defined(M_I86) #define ROUND_SIZE (TAG_SIZE-1) #else #define ROUND_SIZE (TAG_SIZE+TAG_SIZE-1) #endif #define FRL_SIZE ((sizeof(frl)+ROUND_SIZE)&~ROUND_SIZE) #define __HM_SUCCESS 0 #define __HM_FAIL 1 #define __HM_TRYGROW 2