paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 15:59:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed outputfilter for lines without newline chars

Browse Source 
git-svn-id: trunk@3366 -
This commit is contained in:
lazarus 2002-09-19 21:21:47 +00:00
parent e77897d318
commit 9fe39dbb20
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/outputfilter.pas
View File

@ -179,7 +179,7 @@ begin
end;
inc(i);
end;
OutputLine:=copy(Buf,LineStart,Count-LineStart+1);
OutputLine:=OutputLine+copy(Buf,LineStart,Count-LineStart+1);
until Count=0;
TheProcess.WaitOnExit;
if ErrorExists and (ofoExceptionOnError in Options) then
@ -483,7 +483,7 @@ begin
dec(i);
inc(i);
while (i<fOutput.Count) do begin
if (fOutput[i]<>'') and (fOutput[i][1]='-') then
if (fOutput[i]<>'') then
DoAddFilteredLine(fOutput[i]);
inc(i);
end;