浏览代码

+ add descriptive comment regarding the TVmtField* types

Sven/Sarah Barth 1 年之前
父节点
当前提交
c74441323a
共有 1 个文件被更改,包括 3 次插入0 次删除
  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}