Răsfoiți Sursa

+ add descriptive comment regarding the TVmtField* types

Sven/Sarah Barth 1 an în urmă
părinte
comite
c74441323a
1 a modificat fișierele cu 3 adăugiri și 0 ștergeri
  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}