paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 10:45:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give up timeslices while waiting in SysGetMouseEvent, compilation fix plus change of pointer conversion to unsigned

Browse Source 
git-svn-id: trunk@7937 -
This commit is contained in:
Tomas Hajny 2007-07-03 21:00:01 +00:00
parent bbf7c50479
commit 581515d8e5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/go32v2/mouse.pp
View File

@ -740,6 +740,8 @@ const
LastCallcounter : longint = 0;
procedure SysGetMouseEvent(var MouseEvent: TMouseEvent);
var
RR: TRealRegs;
begin
if not MousePresent then
begin
@ -754,11 +756,15 @@ begin
{$endif EXTMOUSEDEBUG}
LastCallcounter:=Callcounter;
{$endif DEBUG}
repeat until PendingMouseEvents>0;
while PendingMouseEvents = 0 do
begin
(* Give up time slices while waiting for mouse events. *)
RealIntr ($28, RR);
end;
MouseEvent:=PendingMouseHead^;
inc(PendingMouseHead);
if longint(PendingMouseHead)=longint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
PendingMouseHead:=@PendingMouseEvent;
if ptruint(PendingMouseHead)=ptruint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
PendingMouseHead:=PMouseEvent(@PendingMouseEvent);
dec(PendingMouseEvents);
if (LastMouseEvent.x<>MouseEvent.x) or (LastMouseEvent.y<>MouseEvent.y) then
MouseEvent.Action:=MouseActionMove;