From 5a1bca3b75c1e6b5c38c105e040df64eb4734f87 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sat, 20 Aug 2011 08:25:49 +0000 Subject: [PATCH] * small optimization git-svn-id: branches/jvmbackend@18700 - --- rtl/java/ustrings.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rtl/java/ustrings.inc b/rtl/java/ustrings.inc index 5b6fac8648..1e482821a3 100644 --- a/rtl/java/ustrings.inc +++ b/rtl/java/ustrings.inc @@ -64,7 +64,7 @@ begin result:=''; Size:=Length(S2); 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; Function fpc_UnicodeStr_To_AnsiStr (const S2 : UnicodeString): AnsiString; compilerproc;