Browse Source

Add support for DISABLE_SYSTEMINLINE inside heaptrc unit

Pierre Muller 1 year ago
parent
commit
cb6fe28898
1 changed files with 5 additions and 1 deletions
  1. 5 1
      rtl/inc/heaptrc.pp

+ 5 - 1
rtl/inc/heaptrc.pp

@@ -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}