* longint to ptrint

rtl/inc/mouse.inc

@@ -119,7 +119,7 @@ Procedure GetPendingEvent(Var MouseEvent:TMouseEvent);
 begin
   MouseEvent:=PendingMouseHead^;
   inc(PendingMouseHead);
-  if longint(PendingMouseHead)=longint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
+  if longint(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)=longint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
+    if longint(PendingMouseTail)=Ptrint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
       PendingMouseTail:=@PendingMouseEvent;
     inc(PendingMouseEvents);
     end
@@ -210,7 +210,10 @@ end;
 
 {
   $Log$
-  Revision 1.4  2002-09-07 15:07:45  peter
+  Revision 1.5  2004-04-22 20:59:23  peter
+    * longint to ptrint
+
+  Revision 1.4  2002/09/07 15:07:45  peter
     * old logs removed and tabs fixed
 
 }

rtl/inc/objects.pp

@@ -972,8 +972,8 @@ TYPE
 CONSTRUCTOR TObject.Init;
 VAR LinkSize: LongInt; Dummy: DummyObject;
 BEGIN
-   LinkSize := LongInt(@Dummy.Data)-LongInt(@Dummy);  { Calc VMT link size }
-   FillChar(Pointer(LongInt(@Self)+LinkSize)^,
+   LinkSize := PtrInt(@Dummy.Data)-PtrInt(@Dummy);  { Calc VMT link size }
+   FillChar(Pointer(PtrInt(@Self)+LinkSize)^,
      SizeOf(Self)-LinkSize, #0);                      { Clear data fields }
 END;
 
@@ -2950,7 +2950,10 @@ BEGIN
 END.
 {
   $Log$
-  Revision 1.29  2004-03-31 21:49:19  florian
+  Revision 1.30  2004-04-22 20:59:23  peter
+    * longint to ptrint
+
+  Revision 1.29  2004/03/31 21:49:19  florian
     * fixed GetParentFrame for ARM
 
   Revision 1.28  2004/02/18 21:59:23  peter