Explorar o código

rtl: fix TTypeData comments

git-svn-id: trunk@24423 -
paul %!s(int64=12) %!d(string=hai) anos
pai
achega
802b7db26e
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  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);