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

* give fields added for VMT definition of TP-style objects the same

Browse Source 
name as the equivalent fields for class VMTs, so we can access them
    using common code

git-svn-id: trunk@32763 -
This commit is contained in:
Jonas Maebe 2015-12-27 14:21:59 +00:00
parent b47d158920
commit 59eff35c5d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nobj.pas
View File

@ -856,10 +856,10 @@ implementation
;
odt_object:
begin
{ size, -size, parent vmt [, dmt ] }
vmtdef.add_field_by_def('',ptrsinttype);
vmtdef.add_field_by_def('',ptrsinttype);
vmtdef.add_field_by_def('',voidpointertype);
{ 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('vParent',voidpointertype);
{$ifdef WITHDMT}
vmtdef.add_field_by_def('',voidpointertype);
{$endif WITHDMT}