瀏覽代碼

* fix compilation after r39568 as Min() requires the Math unit

git-svn-id: trunk@39571 -
svenbarth 7 年之前
父節點
當前提交
7e0d7e118e
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      packages/fcl-process/src/process.pp

+ 2 - 1
packages/fcl-process/src/process.pp

@@ -18,7 +18,8 @@ interface
 
 Uses Classes,
      pipes,
-     SysUtils;
+     SysUtils,
+     Math;
 
 Type
   TProcessOption = (poRunSuspended,poWaitOnExit,