* declare the first field of TProcedureParam as TParamFlags to avoid potential problems if more than 8 entries should be used (especially if some day the hidden Self and High parameters should be written)

* rename first field of TProcedureParam to ParamFlags and introduce a property Flags for backwards and Delphi compatibility

git-svn-id: trunk@35174 -

rtl/objpas/typinfo.pp

@@ -169,10 +169,12 @@ unit typinfo;
       record
       private
         function GetParamType: PTypeInfo; inline;
+        function GetFlags: Byte; inline;
       public
         property ParamType: PTypeInfo read GetParamType;
+        property Flags: Byte read GetFlags;
       public
-        Flags: Byte;
+        ParamFlags: TParamFlags;
         ParamTypeRef: TypeInfoPtr;
         Name: ShortString;
       end;
@@ -2277,6 +2279,11 @@ begin
   Result := DerefTypeInfoPtr(ParamTypeRef);
 end;
 
+function TProcedureParam.GetFlags: Byte;
+begin
+  Result := Byte(ParamFlags);
+end;
+
 { TManagedField }
 
 function TManagedField.GetTypeRef: PTypeInfo;