paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 05:30:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Fixed error handling for pseudo terminal

Browse Source 
git-svn-id: trunk@32266 -
This commit is contained in:
martin 2011-09-10 20:41:03 +00:00
parent 7fe312098e
commit 4afba661fa
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/gdbmimiscclasses.pp
View File

@ -548,6 +548,8 @@ var
buf: String;
i: Integer;
begin
if (FPTy = InvalHandle) then exit'');
SetLength(buf, BufLen + 1);
Result := FReadBuf;
FReadBuf := '';