* string -> shortstring

rtl/aix/system.pp

@@ -76,10 +76,10 @@ Begin
 end;
 
 
-function paramstr(l: longint) : string;
+function paramstr(l: longint) : shortstring;
  var
-  s: string;
-  s1: string;
+  s: shortstring;
+  s1: shortstring;
  begin
    { stricly conforming POSIX applications  }
    { have the executing filename as argv[0] }