* string -> shortstring

rtl/amicommon/paramhandling.inc

@@ -27,12 +27,12 @@ begin
   end;
 end;
 
-function GetWBArg(Idx: Integer): string;
+function GetWBArg(Idx: Integer): shortstring;
 var
   startup: PWBStartup;
   wbarg: PWBArgList;
   Path: array[0..254] of AnsiChar;
-  strPath: string;
+  strPath: shortstring;
   Len: Integer;
 begin
   GetWBArg := '';
@@ -159,9 +159,9 @@ begin
   argc:=localindex;
 end;
 
-function GetProgDir: string;
+function GetProgDir: shortstring;
 var
-  s1: string;
+  s1: shortstring;
   alock: BPTR;
   counter: Byte;
 begin
@@ -183,10 +183,10 @@ begin
   end;
 end;
 
-function GetProgramName: string;
+function GetProgramName: shortstring;
 { Returns ONLY the program name }
 var
-  s1: string;
+  s1: shortstring;
   Counter: Byte;
 begin
   GetProgramName := '';
@@ -226,9 +226,9 @@ begin
 end;
 
 { argument number l }
-function ParamStr(l: LongInt): string;
+function ParamStr(l: LongInt): shortstring;
 var
-  s1: string;
+  s1: shortstring;
 begin
   ParamStr := '';
   if AOS_wbMsg <> nil then

rtl/amicommon/sysos.inc

@@ -127,7 +127,7 @@ end;
 
 
 { Converts an Unix-like path to Amiga-like path }
-function PathConv(path: string): string; alias: 'PATHCONV'; [public];
+function PathConv(path: shortstring): shortstring; alias: 'PATHCONV'; [public];
 var tmppos: longint;
 begin
   { check for short paths }