paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 17:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix signatures on all platforms

Browse Source 
git-svn-id: trunk@31468 -
This commit is contained in:
michael 2015-08-31 19:36:15 +00:00
parent 154b9bdd11
commit a8978361dd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/wstrings.inc
View File

@ -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;

2
rtl/java/jsystemh.inc
View File

@ -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;
{****************************************************************************