From 6d19671a84a8e8d0e58a1574ce4fbef9ab6baace Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 1 May 2004 20:52:29 +0000
Subject: [PATCH]   * ptrint fixes

---
 rtl/inc/mouse.inc         |  9 ++++++---
 rtl/linux/termiosproc.inc | 10 +++++-----
 2 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/rtl/inc/mouse.inc b/rtl/inc/mouse.inc
index d38618f8d6..330d736b86 100644
--- a/rtl/inc/mouse.inc
+++ b/rtl/inc/mouse.inc
@@ -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
diff --git a/rtl/linux/termiosproc.inc b/rtl/linux/termiosproc.inc
index 154c6e91c3..f24f4dd9c4 100644
--- a/rtl/linux/termiosproc.inc
+++ b/rtl/linux/termiosproc.inc
@@ -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;