pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

instantfpc: fixed for 2.5.1

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1541 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
mgaertner
2011-03-27 22:14:17 +00:00
parent ab5ec9ca7b
commit 7c0725fdac
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
applications/instantfpc/instantfptools.pas
View File

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