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

* Should compile without c operators

Browse Source 
git-svn-id: trunk@26869 -
This commit is contained in:
michael 2014-02-24 15:36:51 +00:00
parent 8f6d8b849e
commit 3a34a371b3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/win32/serial.pp
View File

@ -420,13 +420,13 @@ begin
repeat
if mSec < quantum then begin
Sleep(mSec);
mSec := 0
mSec := 0;
end else begin
Sleep(quantum);
mSec -= quantum
mSec := msec-quantum;
end;
if (mSec > 0) and Assigned(SerialIdle) then
SerialIdle(Handle)
SerialIdle(Handle);
until mSec <= 0;
ClearCommBreak(Handle);
if sync then