From 7199d2f8517d2fedbb13042173c14a6173f81c9b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 15 Dec 2000 13:16:30 +0000
Subject: [PATCH]   * fixed range check errors

---
 rtl/win32/crt.pp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/win32/crt.pp b/rtl/win32/crt.pp
index 0bd19a37bd..f476f85632 100644
--- a/rtl/win32/crt.pp
+++ b/rtl/win32/crt.pp
@@ -140,8 +140,8 @@ var Mode: DWORD;
 begin
   if GetConsoleMode(InputHandle, @Mode) then      { Turn the mouse-cursor off }
     begin
-      Mode := Mode AND NOT enable_processed_input
-                   AND NOT enable_mouse_input;
+      Mode := Mode AND cardinal(NOT enable_processed_input)
+                   AND cardinal(NOT enable_mouse_input);
 
       SetConsoleMode(InputHandle, Mode);
     end; { if }
@@ -1007,7 +1007,10 @@ end. { unit Crt }
 
 {
   $Log$
-  Revision 1.4  2000-12-09 13:27:41  florian
+  Revision 1.5  2000-12-15 13:16:30  jonas
+    * fixed range check errors
+
+  Revision 1.4  2000/12/09 13:27:41  florian
     * web bug 1228 fixed (keypressed ate too muck keys)
 
   Revision 1.3  2000/09/10 20:17:56  peter