paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 20:09:40 +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; ppointer = ^pointer;
pvmt = ^tvmt; pvmt = ^tvmt;
tvmt=packed record tvmt=packed record
size,msize:longint; size,msize:ptrint;
parent:pointer; parent:pointer;
end; end;
var var
@ -401,7 +401,7 @@ type
ppointer = ^pointer; ppointer = ^pointer;
pvmt = ^tvmt; pvmt = ^tvmt;
tvmt = packed record tvmt = packed record
size,msize : longint; size,msize : ptrint;
parent : pointer; parent : pointer;
end; end;
begin begin
@ -427,7 +427,7 @@ type
ppointer = ^pointer; ppointer = ^pointer;
pvmt = ^tvmt; pvmt = ^tvmt;
tvmt = packed record tvmt = packed record
size,msize : longint; size,msize : ptrint;
parent : pointer; parent : pointer;
end; end;
begin begin
@ -488,7 +488,7 @@ procedure fpc_check_object(_vmt : pointer);saveregisters;[public,alias:'FPC_CHEC
type type
pvmt = ^tvmt; pvmt = ^tvmt;
tvmt = packed record tvmt = packed record
size,msize : longint; size,msize : ptrint;
parent : pointer; parent : pointer;
end; end;
begin begin
@ -509,7 +509,7 @@ procedure fpc_check_object_ext(vmt, expvmt : pointer);saveregisters;[public,alia
type type
pvmt = ^tvmt; pvmt = ^tvmt;
tvmt = packed record tvmt = packed record
size,msize : longint; size,msize : ptrint;
parent : pointer; parent : pointer;
end; end;
begin begin
@ -1139,7 +1139,10 @@ end;
{ {
$Log$ $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 * ordinal-pointer conversions fixed
Revision 1.70 2004/04/26 15:55:01 peter 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 instead of direct comparisons of low/high values of orddefs because
qword is a special case qword is a special case
} }