From 7c56dbee1282cececc62332b6579a9eeb1fab55a Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 28 Aug 2011 19:22:29 +0000
Subject: [PATCH]   * make sure that when making an ansistring shorter using
 setlength(),     it remains null-terminated

git-svn-id: branches/jvmbackend@18883 -
---
 rtl/java/astrings.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rtl/java/astrings.inc b/rtl/java/astrings.inc
index de33f89688..4103df9027 100644
--- a/rtl/java/astrings.inc
+++ b/rtl/java/astrings.inc
@@ -417,6 +417,8 @@ begin
     result:=s;
   { +1 for terminating #0 }
   setlength(AnsistringClass(result).fdata,l+1);
+  { null-terminate in case the string became shorter }
+  AnsistringClass(result).fdata[l]:=#0;
 end;
 
 {*****************************************************************************