paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 12:20:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add SysTinyGetMem and similar to interface to allow use in heaptrc unit

Browse Source 
git-svn-id: trunk@33680 -
This commit is contained in:
pierre 2016-05-11 14:36:19 +00:00
parent cbb29a7e5d
commit 4af209ac50
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/tnyheaph.inc
View File

@ -25,8 +25,16 @@
HeapEnd: Pointer = nil; { end of heap } HeapEnd: Pointer = nil; { end of heap }
FreeList: Pointer = nil; { pointer to the first free block } FreeList: Pointer = nil; { pointer to the first free block }
HeapPtr: Pointer = nil; { pointer to the last free block } HeapPtr: Pointer = nil; { pointer to the last free block }
HeapSize : {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
function MemAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif}; function MemAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
function MaxAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif}; function MaxAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
procedure Mark(var p: Pointer); procedure Mark(var p: Pointer);
procedure Release(var p: Pointer); procedure Release(var p: Pointer);
function SysTinyGetMem(Size: ptruint): pointer;
function SysTinyFreeMem(Addr: Pointer): ptruint;
function SysTinyFreeMemSize(Addr: Pointer; Size: Ptruint): ptruint;
function SysTinyMemSize(p: pointer): ptruint;
function SysTinyGetFPCHeapStatus : TFPCHeapStatus;
function SysTinyGetHeapStatus : THeapStatus;
function SysTinyTryResizeMem(var p: pointer; size: ptruint) : boolean;