浏览代码

* properly initialize FPipeBuffersize. Follow up to Mantis #22327

git-svn-id: trunk@21749 -
marco 13 年之前
父节点
当前提交
2c3787d415
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      packages/fcl-process/src/process.pp

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

@@ -249,6 +249,7 @@ begin
   {$ifdef UNIX}
   FForkEvent:=nil;
   {$endif UNIX}
+  FPipeBufferSize := 1024;
   FEnvironment:=TStringList.Create;
   FParameters:=TStringList.Create;
 end;