Explorar o código

* fixed copy(unicodestring,x,y) with x<>1 (second parameter of
JLString.subString() is end index, not total length to copy)

git-svn-id: branches/jvmbackend@19618 -

Jonas Maebe %!s(int64=14) %!d(string=hai) anos
pai
achega
c42e4178c5
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/java/justrings.inc

+ 1 - 1
rtl/java/justrings.inc

@@ -674,7 +674,7 @@ begin
      (Index+Size>Length(S)) then
    Size:=Length(S)-Index;
   If Size>0 then
-    result:=JLString(s).subString(Index,Size)
+    result:=JLString(s).subString(Index,Index+Size)
   else
     result:='';
 end;