* ptrint fixes

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

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;