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

* use sizesinttype instead of ptrsinttype to refer to vInstanceSize and

Browse Source 
vInstanceSize2 in the VMT

git-svn-id: trunk@34623 -
This commit is contained in:
nickysn 2016-10-04 15:25:13 +00:00
parent 6eeb6ee95a
commit f62be8f6e6
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgvmt.pas
View File

@ -1134,8 +1134,8 @@ implementation
{ determine the size with symtable.datasize, because }
{ size gives back 4 for classes }
tcb.emit_ord_const(tObjectSymtable(_class.symtable).datasize,ptrsinttype);
tcb.emit_ord_const(-int64(tObjectSymtable(_class.symtable).datasize),ptrsinttype);
tcb.emit_ord_const(tObjectSymtable(_class.symtable).datasize,sizesinttype);
tcb.emit_ord_const(-int64(tObjectSymtable(_class.symtable).datasize),sizesinttype);
{$ifdef WITHDMT}
if _class.classtype=ct_object then
begin

4
compiler/nobj.pas
View File

@ -859,8 +859,8 @@ implementation
odt_object:
begin
{ size, -size, parent vmt [, dmt ] (same names as for class) }
vmtdef.add_field_by_def('vInstanceSize',ptrsinttype);
vmtdef.add_field_by_def('vInstanceSize2',ptrsinttype);
vmtdef.add_field_by_def('vInstanceSize',sizesinttype);
vmtdef.add_field_by_def('vInstanceSize2',sizesinttype);
vmtdef.add_field_by_def('vParent',voidpointertype);
{$ifdef WITHDMT}
vmtdef.add_field_by_def('',voidpointertype);