From ab7f0a4461fe36124d318b38e9db16db73d62ad7 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 1 Sep 2011 18:27:06 +0000
Subject: [PATCH]   * changed the parameters of the
 fpc_pchar_ansistr_intern_charmove() added in     r18906 from byte into
 sizeint (copy/paste error from the similar shortstring     helper, where both
 source and destination are shortstrings)

git-svn-id: branches/jvmbackend@18939 -
---
 rtl/inc/astrings.inc   | 2 +-
 rtl/java/jastrings.inc | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/astrings.inc b/rtl/inc/astrings.inc
index f6374c170e..a8f5f0c40f 100644
--- a/rtl/inc/astrings.inc
+++ b/rtl/inc/astrings.inc
@@ -54,7 +54,7 @@ Const
 
 {$ifndef FPC_HAS_PCHAR_ANSISTR_INTERN_CHARMOVE}
 {$define FPC_HAS_PCHAR_ANSISTR_INTERN_CHARMOVE}
-procedure fpc_pchar_ansistr_intern_charmove(const src: pchar; const srcindex: byte; var dst: ansistring; const dstindex, len: byte); {$ifdef SYSTEMINLINE}inline;{$endif}
+procedure fpc_pchar_ansistr_intern_charmove(const src: pchar; const srcindex: sizeint; var dst: ansistring; const dstindex, len: sizeint); {$ifdef SYSTEMINLINE}inline;{$endif}
 begin
   move(src[srcindex],pbyte(pointer(dst))[dstindex],len);
 end;
diff --git a/rtl/java/jastrings.inc b/rtl/java/jastrings.inc
index 66b3da01d4..fe1db1f668 100644
--- a/rtl/java/jastrings.inc
+++ b/rtl/java/jastrings.inc
@@ -185,7 +185,7 @@ end;
 
 {$ifndef FPC_HAS_PCHAR_ANSISTR_INTERN_CHARMOVE}
 {$define FPC_HAS_PCHAR_ANSISTR_INTERN_CHARMOVE}
-procedure fpc_pchar_ansistr_intern_charmove(const src: pchar; const srcindex: byte; var dst: ansistring; const dstindex, len: byte); {$ifdef SYSTEMINLINE}inline;{$endif}
+procedure fpc_pchar_ansistr_intern_charmove(const src: pchar; const srcindex: sizeint; var dst: ansistring; const dstindex, len: sizeint); {$ifdef SYSTEMINLINE}inline;{$endif}
 begin
   JLSystem.arraycopy(JLObject(src),srcindex,JLObject(AnsistringClass(dst).fdata),dstindex,len);
 end;