From 3a34a371b362ab8b21cb942bf3c474098bda37c8 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 24 Feb 2014 15:36:51 +0000
Subject: [PATCH] * Should compile without c operators

git-svn-id: trunk@26869 -
---
 rtl/win32/serial.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/rtl/win32/serial.pp b/rtl/win32/serial.pp
index 50749cceff..5d48cbd702 100644
--- a/rtl/win32/serial.pp
+++ b/rtl/win32/serial.pp
@@ -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