* fixed uses of custom-length string types in parameter lists

git-svn-id: trunk@9488 -

tests/webtbs/tw1348.pp

@@ -1,4 +1,5 @@
 type mitem=array[0..8] of string[16];
+     tstr16=string[16];
 
 const chdiv:array[0..8] of string
       =('Eclipse','Elongation','Occultation','Conjonction',' Lever',
@@ -33,7 +34,7 @@ Procedure affint(const Rr:array of integer);
 End;
 
 
-Procedure affm(Rr:string{$ifdef fpc}[16]{$endif});
+Procedure affm(Rr:tstr16);
 Begin
   writeln(Rr);
 End;

tests/webtbs/tw3523.pp

@@ -1,5 +1,8 @@
-procedure ttt(i1:integer;s1:string[255];b1:byte;i2:integer;
-  i3:integer;i4:integer;c1:char;s2,s3,s4,s5:string[255]);
+type
+  tstr255 = string[255];
+
+procedure ttt(i1:integer;s1:tstr255;b1:byte;i2:integer;
+  i3:integer;i4:integer;c1:char;s2,s3,s4,s5:tstr255);
 
 begin
      if (i1 <> 1) or