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

* Properly zero-terminate ansistring when calling unicode2ascii

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-15 18:58:20 +01:00
parent d98d0c5e62
commit 6652fa7919
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pexpr.pas
View File

@ -5012,6 +5012,7 @@ implementation
s : string;
pw : pcompilerwidestring;
pc : pansichar;
len : Integer;
begin
get_stringconst:='';
@ -5026,7 +5027,9 @@ implementation
else if (tstringconstnode(p).cst_type in [cst_unicodestring,cst_widestring]) then
begin
pw:=pcompilerwideString(tstringconstnode(p).value_str);
pc:=getmem(getlengthwidestring(pw));
len:=getlengthwidestring(pw);
pc:=getmem(Len+1);
pc[len]:=#0;
unicode2ascii(pw,pc,current_settings.sourcecodepage);
get_stringconst:=strpas(pc);
freemem(pc);