* Patch from Joe Care to fix bug ID #37758 (wrong brackets for array params)

git-svn-id: trunk@46878 -

packages/fcl-passrc/src/pastree.pp

@@ -5724,7 +5724,7 @@ begin
       Result:=Result+', ';
     Result:=Result+Params[I].GetDeclaration(Full);  
     end;
-  if Kind = pekSet then
+  if Kind in [pekSet,pekArrayParams] then
     Result := '[' + Result + ']'
   else
     Result := '(' + Result + ')';