paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 07:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ptrint fixes

Browse Source
This commit is contained in:
peter 2004-05-01 20:52:29 +00:00
parent 27a71635fd
commit 6d19671a84
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/mouse.inc
View File

@ -119,7 +119,7 @@ Procedure GetPendingEvent(Var MouseEvent:TMouseEvent);
begin
MouseEvent:=PendingMouseHead^;
inc(PendingMouseHead);
if longint(PendingMouseHead)=Ptrint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
if PtrInt(PendingMouseHead)=Ptrint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
PendingMouseHead:=@PendingMouseEvent;
dec(PendingMouseEvents);
if (LastMouseEvent.x<>MouseEvent.x) or
@ -161,7 +161,7 @@ begin
begin
PendingMouseTail^:=MouseEvent;
inc(PendingMouseTail);
if longint(PendingMouseTail)=Ptrint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
if PtrInt(PendingMouseTail)=Ptrint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
PendingMouseTail:=@PendingMouseEvent;
inc(PendingMouseEvents);
end
@ -210,7 +210,10 @@ end;
{
$Log$
Revision 1.5 2004-04-22 20:59:23 peter
Revision 1.6 2004-05-01 20:52:29 peter
* ptrint fixes
Revision 1.5 2004/04/22 20:59:23 peter
* longint to ptrint
Revision 1.4 2002/09/07 15:07:45 peter

10
rtl/linux/termiosproc.inc
View File

@ -90,7 +90,7 @@ end;
Function TCSendBreak(fd,duration:cint):cint;
begin
{$ifndef BSD}
TCSendBreak:=fpIOCtl(fd,TCSBRK,pointer(duration));
TCSendBreak:=fpIOCtl(fd,TCSBRK,pointer(ptrint(duration)));
{$else}
TCSendBreak:=fpIOCtl(fd,TIOCSBRK,0);
{$endif}
@ -99,7 +99,7 @@ end;
Function TCSetPGrp(fd,id:cint):cint;
begin
TCSetPGrp:=fpIOCtl(fd,TIOCSPGRP,pointer(id));
TCSetPGrp:=fpIOCtl(fd,TIOCSPGRP,pointer(ptrint(id)));
end;
@ -121,7 +121,7 @@ end;
Function TCFlow(fd,act:cint):cint;
begin
{$ifndef BSD}
TCFlow:=fpIOCtl(fd,TCXONC,pointer(act));
TCFlow:=fpIOCtl(fd,TCXONC,pointer(ptrint(act)));
{$else}
case act OF
TCOOFF : TCFlow:=fpIoctl(fd,TIOCSTOP,0);
@ -134,9 +134,9 @@ end;
Function TCFlush(fd,qsel:cint):cint;
begin
{$ifndef BSD}
TCFlush:=fpIOCtl(fd,TCFLSH,pointer(qsel));
TCFlush:=fpIOCtl(fd,TCFLSH,pointer(ptrint(qsel)));
{$else}
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(qsel));
TCFlush:=fpIOCtl(fd,TIOCFLUSH,pointer(ptrint(qsel)));
{$endif}
end;