paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 08:19:27 +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 begin
MouseEvent:=PendingMouseHead^; MouseEvent:=PendingMouseHead^;
inc(PendingMouseHead); inc(PendingMouseHead);
if PendingMouseHead=@PendingMouseEvent[MouseEventBufSize] then if PendingMouseHead=@PendingMouseEvent[0]+MouseEventBufSize then
PendingMouseHead:=@PendingMouseEvent[0]; PendingMouseHead:=@PendingMouseEvent[0];
dec(PendingMouseEvents); dec(PendingMouseEvents);
if (LastMouseEvent.x<>MouseEvent.x) or if (LastMouseEvent.x<>MouseEvent.x) or
@ -163,7 +163,7 @@ begin
begin begin
PendingMouseTail^:=MouseEvent; PendingMouseTail^:=MouseEvent;
inc(PendingMouseTail); inc(PendingMouseTail);
if PendingMouseTail=@PendingMouseEvent[MouseEventBufSize] then if PendingMouseTail=@PendingMouseEvent[0]+MouseEventBufSize then
PendingMouseTail:=@PendingMouseEvent[0]; PendingMouseTail:=@PendingMouseEvent[0];
inc(PendingMouseEvents); inc(PendingMouseEvents);
end end