* string -> shortstring

rtl/linux/suuid.inc

@@ -55,7 +55,7 @@ Const
 
 Var
   fd: Longint;
-  S : String;
+  S : AnsiString;
   
 begin
   fd:=FileOpen(KernelUUID,fmOpenRead or fmShareDenyNone);

rtl/linux/system.pp

@@ -457,7 +457,7 @@ begin
      execpathstr[0]:=AnsiChar(i);
 end;
 
-function paramstr(l: longint) : string;
+function paramstr(l: longint) : shortstring;
  begin
    { stricly conforming POSIX applications  }
    { have the executing filename as argv[0] }