paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 03:07:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed unused variables

Browse Source 
* char -> ansichar

git-svn-id: branches/jvmbackend@18568 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:11:17 +00:00
parent 87f812c778
commit 13cf0e031e
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/java/astrings.inc
View File

@ -579,7 +579,7 @@ end;
{ pos(c: char; const s: shortstring) also exists, so otherwise }
{ using pos(char,pchar) will always call the shortstring version }
{ (exact match for first argument), also with $h+ (JM) }
Function Pos (c : Char; Const s : AnsiString) : SizeInt;
Function Pos (c : AnsiChar; Const s : AnsiString) : SizeInt;
var
i: SizeInt;
begin
@ -844,7 +844,6 @@ end;
function upcase(const s : ansistring) : ansistring;
var
i : SizeInt;
u : unicodestring;
begin
u:=s;
@ -854,7 +853,6 @@ end;
function lowercase(const s : ansistring) : ansistring;
var
i : SizeInt;
u : unicodestring;
begin
u:=s;