瀏覽代碼

* fix typo-gotcha probably introduced by an accidental save in the IDE after testing. Thanks to Karoly for reporting.

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

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

@@ -502,7 +502,7 @@ end;
 // helperfunction that does the bulk of the work.
 // We need to also collect stderr output in order to avoid
 // lock out if the stderr pipe is full.
-function internalRuncommand(out outputstring:string;
+function internalRuncommand(p:TProcess;out outputstring:string;
                             out stderrstring:string; out exitstatus:integer):integer;
 var
     numbytes,bytesread,available : integer;