From f1e21098a7fc40cfb760302437cc4e048a4d4148 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 17 Jun 2015 23:57:37 +0200
Subject: [PATCH] sompler

---
 src/ce_common.pas | 25 +------------------------
 1 file changed, 1 insertion(+), 24 deletions(-)

diff --git a/src/ce_common.pas b/src/ce_common.pas
index 0da4c5f4..4eb32521 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -717,30 +717,7 @@ begin
   if not (poUsePipes in aProcess.Options) then
     exit;
   //
-  sum := 0;
-  str := TMemoryStream.Create;
-  try
-    buffSz := aProcess.PipeBufferSize;
-    // temp fix: messages are cut if the TAsyncProcess version is used on simple TProcess.
-    if aProcess is TAsyncProcess then begin
-      while aProcess.Output.NumBytesAvailable <> 0 do begin
-        str.SetSize(sum + buffSz);
-        cnt := aProcess.Output.Read((str.Memory + sum)^, buffSz);
-        sum += cnt;
-      end;
-    end else begin
-      repeat
-        str.SetSize(sum + buffSz);
-        cnt := aProcess.Output.Read((str.Memory + sum)^, buffSz);
-        sum += cnt;
-      until
-        cnt = 0;
-    end;
-    str.Size := sum;
-    aList.LoadFromStream(str);
-  finally
-    str.Free;
-  end;
+  aList.LoadFromStream(aProcess.Output);
 end;
 
 procedure processOutputToStream(aProcess: TProcess; output: TMemoryStream);