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

put debug message under ifdef

Browse Source 
git-svn-id: trunk@8475 -
This commit is contained in:
micha 2006-01-09 18:24:56 +00:00
parent ab74ec8969
commit aaeb3b393d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32object.inc
View File

@ -303,9 +303,11 @@ var
retVal, index: dword; retVal, index: dword;
Begin Begin
repeat repeat
{$ifdef DEBUG_ASYNCEVENTS}
if Length(FWaitHandles) > 0 then if Length(FWaitHandles) > 0 then
DebugLn('[ProcessMessages] WaitHandleCount=,', IntToStr(FWaitHandleCount), DebugLn('[ProcessMessages] WaitHandleCount=', IntToStr(FWaitHandleCount),
'WaitHandle[0]=', IntToHex(FWaitHandles[0], 8)); ', WaitHandle[0]=', IntToHex(FWaitHandles[0], 8));
{$endif}
retVal := Windows.MsgWaitForMultipleObjects(FWaitHandleCount, retVal := Windows.MsgWaitForMultipleObjects(FWaitHandleCount,
FWaitHandles[0], false, 0, QS_ALLINPUT); FWaitHandles[0], false, 0, QS_ALLINPUT);
if (WAIT_OBJECT_0 <= retVal) and (retVal < WAIT_OBJECT_0 + FWaitHandleCount) then if (WAIT_OBJECT_0 <= retVal) and (retVal < WAIT_OBJECT_0 + FWaitHandleCount) then