소스 검색

+ 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}