paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 11:20:23 +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} {$define EXTRA}
{$inline off} {$inline off}
{$endif FPC_HEAPTRC_EXTRA} {$endif FPC_HEAPTRC_EXTRA}
{$ifndef DISABLE_SYSTEMINLINE}
{$define SYSTEMINLINE}
{$endif}
{$TYPEDADDRESS on} {$TYPEDADDRESS on}
@ -605,7 +609,7 @@ end;
*****************************************************************************} *****************************************************************************}
function CheckFreeMemSize(loc_info: pheap_info; pp: pheap_mem_info; function CheckFreeMemSize(loc_info: pheap_info; pp: pheap_mem_info;
size, ppsize: ptruint): boolean; inline; size, ppsize: ptruint): boolean;{$ifdef SYSTEMINLINE}inline;{$endif}
var var
ptext : ^text; ptext : ^text;
{$ifdef EXTRA} {$ifdef EXTRA}