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

Add support for DISABLE_SYSTEMINLINE inside heaptrc unit

Browse Source
This commit is contained in:
Pierre Muller 2024-05-02 07:56:33 +00:00
parent d1510840d0
commit cb6fe28898
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/heaptrc.pp
View File

@ -23,6 +23,10 @@ interface
{$define EXTRA}
{$inline off}
{$endif FPC_HEAPTRC_EXTRA}
{$ifndef DISABLE_SYSTEMINLINE}
{$define SYSTEMINLINE}
{$endif}
{$TYPEDADDRESS on}
@ -605,7 +609,7 @@ end;
*****************************************************************************}
function CheckFreeMemSize(loc_info: pheap_info; pp: pheap_mem_info;
size, ppsize: ptruint): boolean; inline;
size, ppsize: ptruint): boolean;{$ifdef SYSTEMINLINE}inline;{$endif}
var
ptext : ^text;
{$ifdef EXTRA}