From 7c0725fdac50e854b2a8b7806f260cf19d4e877b Mon Sep 17 00:00:00 2001
From: mgaertner <mgaertner@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 27 Mar 2011 22:14:17 +0000
Subject: [PATCH] instantfpc: fixed for 2.5.1

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1541 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/instantfpc/instantfptools.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/applications/instantfpc/instantfptools.pas b/applications/instantfpc/instantfptools.pas
index a731206a6..e32aba49c 100644
--- a/applications/instantfpc/instantfptools.pas
+++ b/applications/instantfpc/instantfptools.pas
@@ -137,6 +137,7 @@ var
   Proc: TProcess;
   Count: Int64;
   ss: TStringStream;
+  buf : Array[1..4096] of byte;
 begin
   Compiler:=GetCompiler;
   CompParams:=GetCompilerParameters(CacheFilename,OutputFilename);
@@ -152,7 +153,9 @@ begin
   Proc.Execute;
   ss:=TStringStream.Create('');
   repeat
-    Count:=ss.CopyFrom(Proc.Output,4096);
+    Count:=Proc.Output.Read(Buf,4096);
+    if Count>0 then
+      ss.write(buf,count);
   until Count=0;
   if (not Proc.WaitOnExit) or (Proc.ExitStatus<>0) then begin
     write(ss.DataString);