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

* Prevent range check error at compile time.

Browse Source 
git-svn-id: trunk@7938 -
This commit is contained in:
daniel 2007-07-03 21:28:59 +00:00
parent 581515d8e5
commit 02bed23a11
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/mouse.inc
View File

@ -120,7 +120,7 @@ Procedure GetPendingEvent(Var MouseEvent:TMouseEvent);
begin
MouseEvent:=PendingMouseHead^;
inc(PendingMouseHead);
if PendingMouseHead=@PendingMouseEvent[MouseEventBufSize] then
if PendingMouseHead=@PendingMouseEvent[0]+MouseEventBufSize then
PendingMouseHead:=@PendingMouseEvent[0];
dec(PendingMouseEvents);
if (LastMouseEvent.x<>MouseEvent.x) or
@ -163,7 +163,7 @@ begin
begin
PendingMouseTail^:=MouseEvent;
inc(PendingMouseTail);
if PendingMouseTail=@PendingMouseEvent[MouseEventBufSize] then
if PendingMouseTail=@PendingMouseEvent[0]+MouseEventBufSize then
PendingMouseTail:=@PendingMouseEvent[0];
inc(PendingMouseEvents);
end