paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make sure that when making an ansistring shorter using setlength(),

Browse Source 
it remains null-terminated

git-svn-id: branches/jvmbackend@18883 -
This commit is contained in:
Jonas Maebe 2011-08-28 19:22:29 +00:00
parent 3a423b331c
commit 7c56dbee12
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/java/astrings.inc
View File

@ -417,6 +417,8 @@ begin
result:=s; result:=s;
{ +1 for terminating #0 } { +1 for terminating #0 }
setlength(AnsistringClass(result).fdata,l+1); setlength(AnsistringClass(result).fdata,l+1);
{ null-terminate in case the string became shorter }
AnsistringClass(result).fdata[l]:=#0;
end; end;
{***************************************************************************** {*****************************************************************************