Browse Source

+ add descriptive comment regarding the TVmtField* types

Sven/Sarah Barth 1 year ago
parent
commit
c74441323a
1 changed files with 3 additions and 0 deletions
  1. 3 0
      rtl/objpas/typinfo.pp

+ 3 - 0
rtl/objpas/typinfo.pp

@@ -197,6 +197,9 @@ unit TypInfo;
         property Tail: Pointer read GetTail;
       end;
 
+      { The following three types are essentially copies from the TObject.FieldAddress
+        function. If something is changed there, change it here as well }
+
       PVmtFieldClassTab = ^TVmtFieldClassTab;
       TVmtFieldClassTab =
 {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}