paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed handling of both #13#10 and #10 line separators when reading from the

Browse Source 
gdb/mi output on windows. Previous code only handled #13#10, but not #10.

git-svn-id: trunk@30085 -
This commit is contained in:
nickysn 2015-03-03 20:16:38 +00:00
parent 8dd9b46d60
commit f6250b3a5a
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ide/gdbmiproc.pas
View File

@ -61,20 +61,21 @@ begin
while FProcess.Running do
begin
FProcess.Output.Read(C, 1);
{$ifdef windows}
{ On windows we expect both #13 and #10 }
{$ifdef windows}
{ On windows we expect both #13#10 and #10 }
if C = #13 then
begin
FPRocess.Output.Read(C,1);
{$endif windows}
if C = #10 then
begin
DebugLn(Result);
exit;
end;
{$ifdef windows}
end;
{$endif windows}
begin
FProcess.Output.Read(C, 1);
if C <> #10 then
{ #13 not followed by #10, what should we do? }
Result := Result + #13;
end;
{$endif windows}
if C = #10 then
begin
DebugLn(Result);
exit;
end;
Result := Result + C;
end;
end;