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

Avoid range check error

Browse Source 
git-svn-id: trunk@30156 -
This commit is contained in:
pierre 2015-03-10 07:51:46 +00:00
parent 1e536926e1
commit d62a8b4b14
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/fpmopts.inc
View File

@ -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)));