浏览代码

* make GetProcessID inline

florian 1 年之前
父节点
当前提交
9209f55112
共有 1 个文件被更改,包括 1 次插入1 次删除
  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}