Browse Source

rtl: fix TTypeData comments

git-svn-id: trunk@24423 -
paul 12 years ago
parent
commit
802b7db26e
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/objpas/typinfo.pp

+ 2 - 2
rtl/objpas/typinfo.pp

@@ -171,9 +171,9 @@ unit typinfo;
                   end;
               followed by
                   ResultType : ShortString     // for mkFunction, mkClassFunction only
-                  ResultTypeRef : PPTypeInfo;  // for mkFunction, mkClassFunction only
+                  ResultTypeRef : PTypeInfo;  // for mkFunction, mkClassFunction only
                   CC : TCallConv;
-                  ParamTypeRefs : array[1..ParamCount] of PPTypeInfo;}
+                  ParamTypeRefs : array[1..ParamCount] of PTypeInfo;}
               );
             tkInt64:
               (MinInt64Value, MaxInt64Value: Int64);