* return an empty string for paramstr(value>paramcount) (already correct

    for other targets, mantis #11169)

git-svn-id: trunk@10704 -

.gitattributes

@@ -8138,6 +8138,7 @@ tests/webtbs/tw11042.pp svneol=native#text/plain
 tests/webtbs/tw11053.pp svneol=native#text/plain
 tests/webtbs/tw1111.pp svneol=native#text/plain
 tests/webtbs/tw11139.pp svneol=native#text/plain
+tests/webtbs/tw11169.pp svneol=native#text/plain
 tests/webtbs/tw1117.pp svneol=native#text/plain
 tests/webtbs/tw1122.pp svneol=native#text/plain
 tests/webtbs/tw1123.pp svneol=native#text/plain

rtl/beos/system.pp

@@ -272,11 +272,12 @@ begin
   begin
     paramstr := execpathstr;
   end
-  else
+  else if (l < argc) then
   begin
-    paramstr := '';
     paramstr:=strpas(argv[l]);
-  end;
+  end
+  else
+    paramstr := '';
 end;
 
 Procedure Randomize;

rtl/bsd/system.pp

@@ -103,7 +103,10 @@ function paramstr(l: longint) : string;
 //       paramstr := execpathstr;
 //     end
 //   else
-     paramstr:=strpas(argv[l]);
+     if (l < argc) then
+       paramstr:=strpas(argv[l])
+     else
+       paramstr:='';
  end;
 
 Procedure Randomize;

rtl/linux/system.pp

@@ -121,8 +121,10 @@ function paramstr(l: longint) : string;
      begin
        paramstr := execpathstr;
      end
+   else if (l < argc) then
+     paramstr:=strpas(argv[l])
    else
-     paramstr:=strpas(argv[l]);
+     paramstr:='';
  end;
 
 Procedure Randomize;

rtl/solaris/system.pp

@@ -83,7 +83,10 @@ function paramstr(l: longint) : string;
 //       paramstr := execpathstr;
 //     end
 //   else
-     paramstr:=strpas(argv[l]);
+     if (l < argc) then
+       paramstr:=strpas(argv[l])
+     else
+       paramstr:='';
  end;
 
 Procedure Randomize;

tests/webtbs/tw11169.pp

@@ -0,0 +1,7 @@
+var
+  l: longint;
+begin
+  for l:=1 to 255 do
+    if paramstr(l) <> '' then
+      halt(1);
+end.