Browse Source

* make GetProcessID inline

florian 1 year ago
parent
commit
9209f55112
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/inc/systemh.inc

+ 1 - 1
rtl/inc/systemh.inc

@@ -1571,7 +1571,7 @@ Function IOResult:Word;
 Function SPtr:Pointer;[internconst:fpc_in_const_ptr];
 
 {$ifdef FPC_HAS_FEATURE_PROCESSES}
-Function GetProcessID:SizeUInt;
+Function GetProcessID:SizeUInt;{$ifdef SYSTEMINLINE}inline;{$endif}
 Function GetThreadID:TThreadID;{$ifdef SYSTEMINLINE}inline;{$endif}
 {$endif FPC_HAS_FEATURE_PROCESSES}