* string -> shortstring

rtl/nds/system.pp

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