Explorar el Código

+ add descriptive comment regarding the TVmtField* types

Sven/Sarah Barth hace 1 año
padre
commit
c74441323a
Se han modificado 1 ficheros con 3 adiciones y 0 borrados
  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}