From d62a8b4b14cb8eae2d145e6bcb0f7f9d0baffb17 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 10 Mar 2015 07:51:46 +0000
Subject: [PATCH]  Avoid range check error

git-svn-id: trunk@30156 -
---
 ide/fpmopts.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ide/fpmopts.inc b/ide/fpmopts.inc
index 4a27f2e989..9ff1f5b3ea 100644
--- a/ide/fpmopts.inc
+++ b/ide/fpmopts.inc
@@ -548,7 +548,8 @@ begin
       L:=0;
     CB2^.SetData(L);
 {$ifdef GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
-    CB2^.EnableMask := CB2^.EnableMask and $fffffffe;
+    { EnableMask type is longint, avoid range check error here }
+    CB2^.EnableMask := CB2^.EnableMask and longint($7ffffffe);
 {$endif GDB_WINDOWS_ALWAYS_USE_ANOTHER_CONSOLE}
     R2.Move(0,-1);
     Insert(New(PLabel, Init(R2,label_debugger_redirection, CB2)));