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

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

Browse Source 
git-svn-id: trunk@48437 -
This commit is contained in:
martin 2015-03-20 20:13:54 +00:00
parent 1a4529c1d8
commit ed83f63c99
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggergdbmi/cmdlinedebugger.pp
View File

@ -198,7 +198,7 @@ begin
if R > 0 if R > 0
then begin then begin
for n := 0 to Count do for n := 0 to Count do
if (AHandles[n] <> 0) if (AHandles[n] >= 0)
and (FpFD_ISSET(AHandles[n],FDSWait)=1) and (FpFD_ISSET(AHandles[n],FDSWait)=1)
then begin then begin
Result := Result or 1 shl n; Result := Result or 1 shl n;