* adjust test so it also checks the full ParamFlags instead of only the reduced one

git-svn-id: trunk@35263 -

tests/test/trtti9.pp

@@ -11,7 +11,10 @@ type
 
 function TestParam(Param: PProcedureParam; Flags: TParamFlags; ParamType: Pointer; Name: ShortString): Boolean;
 begin
-  Result := (Param^.Flags = PByte(@Flags)^) and (Param^.ParamType = ParamType) and (Param^.Name = Name);
+  Result := (Param^.Flags = PByte(@Flags)^) and 
+            (Param^.ParamFlags = Flags) and
+            (Param^.ParamType = ParamType) and 
+            (Param^.Name = Name);
 end;
 
 var