paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 06:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

Debugger GDBMI: Fix checking for handle to gdb (unix)

Browse Source 
git-svn-id: trunk@48409 -
This commit is contained in:
martin 2015-03-17 22:54:46 +00:00
parent ca503d94f3
commit 9cefd73299
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazdebuggergdbmi/cmdlinedebugger.pp
View File

@ -137,9 +137,10 @@ begin
// set bits for all waiting handles
for n := 0 to Count do
begin
if Max < AHandles[n] then Max := AHandles[n];
if AHandles[n] <> 0 then
FpFD_Set(AHandles[n], FDS);
if AHandles[n] < 0 then
continue;
if Max < AHandles[n] + 1 then Max := AHandles[n] + 1;
FpFD_Set(AHandles[n], FDS);
end;
if Max=0 then begin
// no valid handle, so no change possible
@ -158,7 +159,7 @@ begin
// Select:
// R = -1 on error, 0 on timeout, >0 on success and is number of handles
// FDSWait is changed, and indicates what descriptors have changed
R := FpSelect(Max + 1, @FDSWait, nil, nil, TimeOut);
R := FpSelect(Max, @FDSWait, nil, nil, TimeOut);
if CurCallStamp <> FReadLineCallStamp then
exit;