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

tstringconstnode.changestringtype: fix buffer overrun

Browse Source 
Found by asan
This commit is contained in:
Jonas Maebe 2022-07-05 22:57:18 +02:00
parent 2ce3656ed3
commit 6dc47c71fb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncon.pas
View File

@ -1146,8 +1146,8 @@ implementation
l:=UnicodeToUtf8(nil,0,PUnicodeChar(pw^.data),len);
if l<>len then
ReAllocMem(value_str,l);
UnicodeToUtf8(value_str,l,PUnicodeChar(pw^.data),len);
len:=l-1;
UnicodeToUtf8(value_str,PUnicodeChar(pw^.data),l);
donewidestring(pw);
end
else