summaryrefslogtreecommitdiff
path: root/mips/rtl/java/jastrings.inc
diff options
context:
space:
mode:
Diffstat (limited to 'mips/rtl/java/jastrings.inc')
-rw-r--r--mips/rtl/java/jastrings.inc7
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);