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

* small optimization

Browse Source 
git-svn-id: branches/jvmbackend@18700 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:25:49 +00:00
parent 249b56d742
commit 5a1bca3b75
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/java/ustrings.inc
View File

@ -64,7 +64,7 @@ begin
result:=''; result:='';
Size:=Length(S2); Size:=Length(S2);
if Size>0 then if Size>0 then
result:=unicodestring(JLString.Create(TJByteArray(ShortstringClass(@S2).fdata),0,length(S2))); result:=unicodestring(JLString.Create(TJByteArray(ShortstringClass(@S2).fdata),0,Size));
end; end;
Function fpc_UnicodeStr_To_AnsiStr (const S2 : UnicodeString): AnsiString; compilerproc; Function fpc_UnicodeStr_To_AnsiStr (const S2 : UnicodeString): AnsiString; compilerproc;