Explorar o código

Avoid range check error

git-svn-id: trunk@30156 -
pierre %!s(int64=10) %!d(string=hai) anos
pai
achega
d62a8b4b14
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      ide/fpmopts.inc

+ 2 - 1
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)));