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

* tvmt fixed (longint -> ptrint)

Browse Source
This commit is contained in:
florian 2004-04-28 21:01:29 +00:00
parent 8c60c6f93e
commit 704ce8035c
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/generic.inc
View File

@ -363,7 +363,7 @@ type
ppointer = ^pointer;
pvmt = ^tvmt;
tvmt=packed record
size,msize:longint;
size,msize:ptrint;
parent:pointer;
end;
var
@ -401,7 +401,7 @@ type
ppointer = ^pointer;
pvmt = ^tvmt;
tvmt = packed record
size,msize : longint;
size,msize : ptrint;
parent : pointer;
end;
begin
@ -427,7 +427,7 @@ type
ppointer = ^pointer;
pvmt = ^tvmt;
tvmt = packed record
size,msize : longint;
size,msize : ptrint;
parent : pointer;
end;
begin
@ -488,7 +488,7 @@ procedure fpc_check_object(_vmt : pointer);saveregisters;[public,alias:'FPC_CHEC
type
pvmt = ^tvmt;
tvmt = packed record
size,msize : longint;
size,msize : ptrint;
parent : pointer;
end;
begin
@ -509,7 +509,7 @@ procedure fpc_check_object_ext(vmt, expvmt : pointer);saveregisters;[public,alia
type
pvmt = ^tvmt;
tvmt = packed record
size,msize : longint;
size,msize : ptrint;
parent : pointer;
end;
begin
@ -1139,7 +1139,10 @@ end;
{
$Log$
Revision 1.71 2004-04-28 20:48:20 peter
Revision 1.72 2004-04-28 21:01:29 florian
* tvmt fixed (longint -> ptrint)
Revision 1.71 2004/04/28 20:48:20 peter
* ordinal-pointer conversions fixed
Revision 1.70 2004/04/26 15:55:01 peter
@ -1313,4 +1316,4 @@ end;
instead of direct comparisons of low/high values of orddefs because
qword is a special case
}
}