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

* longint to ptrint

Browse Source
This commit is contained in:
peter 2004-04-22 20:59:23 +00:00
parent 934f5883b2
commit 7f2e327975
2 changed files with 12 additions and 6 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)=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
}

9
rtl/inc/objects.pp
View File

@ -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