merge to trunk 21856foxsen

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

1 files changed, 7 insertions, 0 deletions

diff --git a/mips/rtl/java/jastrings.inc b/mips/rtl/java/jastrings.inc
index 6eccb4827f..276f7829ca 100644
--- a/mips/rtl/java/jastrings.inc
+++ b/mips/rtl/java/jastrings.inc
@@ -79,6 +79,13 @@ begin
 end;
 
 
+constructor AnsistringClass.Create(const u: unicodestring);
+begin
+  { for use in Java code }
+  Create(u,DefaultSystemCodePage);
+end;
+
+
 constructor AnsistringClass.Create(const a: RawByteString; cp: TSystemCodePage);
 begin
   Create(AnsistringClass(a).fdata,system.length(AnsistringClass(a).fdata)-1,cp);