浏览代码

rtl: fix TTypeData comments

git-svn-id: trunk@24423 -
paul 12 年之前
父节点
当前提交
802b7db26e
共有 1 个文件被更改,包括 2 次插入2 次删除
  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);