paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 11:39:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug #12323. Bug is in getting default value of string parameters, unterminated memory copy

Browse Source 
git-svn-id: trunk@11870 -
This commit is contained in:
michael 2008-10-09 09:55:21 +00:00
parent 213f8a41c7
commit b40d826439
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symdef.pas
View File

@ -2805,7 +2805,13 @@ implementation
case hpc.consttyp of
conststring,
constresourcestring :
hs:=strpas(pchar(hpc.value.valueptr));
begin
If hpc.value.len>0 then
begin
setLength(hs,hpc.value.len);
move(hpc.value.valueptr^,hs[1],hpc.value.len);
end;
end;
constreal :
str(pbestreal(hpc.value.valueptr)^,hs);
constpointer :