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

* fixed buffer overrun in tai_aggregatetypedconst.add_to_string()

Browse Source 
git-svn-id: trunk@33988 -
This commit is contained in:
Jonas Maebe 2016-06-15 18:31:42 +00:00
parent 8c006f04e2
commit 8ca9ece66a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/aasmcnst.pas
View File

@ -682,7 +682,8 @@ implementation
begin
if tai_const(othertai).size<>1 then
internalerror(2014070101);
strtai.str:=reallocmem(strtai.str,strtai.len+1);
{ it was already len+1 to hold the #0 -> realloc to len+2 }
strtai.str:=reallocmem(strtai.str,strtai.len+2);
strtai.str[strtai.len]:=ansichar(tai_const(othertai).value);
strtai.str[strtai.len+1]:=#0;
inc(strtai.len);