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

Use macros for msdos OS to translate SysGetMem into SysTinyGetMem and similar, fixes several RTE 203 isssues for msdos target OS

Browse Source 
git-svn-id: trunk@33682 -
This commit is contained in:
pierre 2016-05-11 14:38:46 +00:00
parent 91595447c6
commit fe6feb741b
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/heaptrc.pp
View File

@ -29,6 +29,18 @@ interface
{$define windows} {$define windows}
{$endif} {$endif}
{$ifdef msdos}
{$macro on}
{ msdos target OS uses tinyheap code }
{$define SysGetMem:=SysTinyGetMem}
{$define SysAllocMem:=SysTinyGetMem}
{$define SysFreeMem:=SysTinyFreeMem}
{$define SysFreeMemSize:=SysTinyFreeMemSize}
{$define SysMemSize:=SysTinyMemSize}
{$define SysTryResizeMem:=SysTinyTryResizeMem}
{$define SysGetFPCHeapStatus:=SysTinyGetFPCHeapStatus}
{$define SysGetHeapStatus:=SysTinyGetHeapStatus}
{$endif}
Procedure DumpHeap; Procedure DumpHeap;
Procedure DumpHeap(SkipIfNoLeaks : Boolean); Procedure DumpHeap(SkipIfNoLeaks : Boolean);