소스 검색

Add support for DISABLE_SYSTEMINLINE inside heaptrc unit

Pierre Muller 1 년 전
부모
커밋
cb6fe28898
1개의 변경된 파일5개의 추가작업 그리고 1개의 파일을 삭제
  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}