2
0
Эх сурвалжийг харах

* small optimization

git-svn-id: branches/jvmbackend@18700 -
Jonas Maebe 14 жил өмнө
parent
commit
5a1bca3b75
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  1. 1 1
      rtl/java/ustrings.inc

+ 1 - 1
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;