From 59eff35c5dbec3267bdd7a7eef7ebf9694029b9b Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sun, 27 Dec 2015 14:21:59 +0000 Subject: [PATCH] * give fields added for VMT definition of TP-style objects the same name as the equivalent fields for class VMTs, so we can access them using common code git-svn-id: trunk@32763 - --- compiler/nobj.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/nobj.pas b/compiler/nobj.pas index 624edf89ff..3a684f8ee3 100644 --- a/compiler/nobj.pas +++ b/compiler/nobj.pas @@ -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}