* Fix signatures on all platforms

git-svn-id: trunk@31468 -

rtl/inc/wstrings.inc

@@ -584,7 +584,7 @@ var
   pc : pwidechar;
 begin
   Pos:=0;
-  if Length(SubStr)>0 and (Offset>0) and (Offset<Length(Source)) then
+  if (Length(SubStr)>0) and (Offset>0) and (Offset<Length(Source)) then
    begin
      MaxLen:=Length(source)-Length(SubStr);
      i:=Offset-1;

rtl/java/jsystemh.inc

@@ -500,7 +500,7 @@ Function  hexStr(Val:Pointer):shortstring;
 Function chr(b : byte) : Char;      [INTERNPROC: fpc_in_chr_byte];
 Function  upCase(c:Char):Char;
 Function  lowerCase(c:Char):Char; overload;
-function  pos(const substr : shortstring;c:char): SizeInt;
+function  pos(const substr : shortstring;c:char; Offset : Sizeint=1): SizeInt;
 
 
 {****************************************************************************