* merged trunk up to r20882

   o support for the new codepage-aware ansistrings in the jvm branch
   o empty ansistrings are now always represented by a nil pointer rather than
     by an empty string, because an empty string also has a code page which
     can confuse code (although this will make ansistrings harder to use
     in Java code)
   o more string helpers code shared between the general and jvm rtl
   o support for indexbyte/word in the jvm rtl (warning: first parameter
     is an open array rather than an untyped parameter there, so
     indexchar(pcharvar^,10,0) will be equivalent to
     indexchar[pcharvar^],10,0) there, which is different from what is
     intended; changing it to an untyped parameter wouldn't help though)
   o default() support is not yet complete
   o calling fpcres is currently broken due to limitations in
     sysutils.executeprocess() regarding handling unix quoting and
     the compiler using the same command lines for scripts and directly
     calling external programs
   o compiling the Java compiler currently requires adding ALLOW_WARNINGS=1
     to the make command line


git-svn-id: http://svn.freepascal.org/svn/fpc/branches/jvmbackend@20887 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 0 deletions

diff --git a/rtl/java/jsstringh.inc b/rtl/java/jsstringh.inc
index bb7d3f153c..68b9fad7d8 100644
--- a/rtl/java/jsstringh.inc
+++ b/rtl/java/jsstringh.inc
@@ -35,6 +35,7 @@ type
     class function CreateEmpty(maxlen: byte): ShortstringClass; static;
     class function CreateFromLiteralStringBytes(const u: unicodestring): shortstring; static;
     procedure FpcDeepCopy(dest: ShortstringClass);
+    procedure copyFromAnsiCharArray(const arr: array of ansichar; maxlen: byte);
     procedure setChar(index: jint; char: ansichar);
     function charAt(index: jint): ansichar;
     function toUnicodeString: unicodestring;