From a8978361dde62d80ad98bc916ea90be46c5909dc Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 31 Aug 2015 19:36:15 +0000
Subject: [PATCH] * Fix signatures on all platforms

git-svn-id: trunk@31468 -
---
 rtl/inc/wstrings.inc  | 2 +-
 rtl/java/jsystemh.inc | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/wstrings.inc b/rtl/inc/wstrings.inc
index 292e04ec52..aee56e4487 100644
--- a/rtl/inc/wstrings.inc
+++ b/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;
diff --git a/rtl/java/jsystemh.inc b/rtl/java/jsystemh.inc
index 76047d74e1..37c4e91456 100644
--- a/rtl/java/jsystemh.inc
+++ b/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;
 
 
 {****************************************************************************