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

* Do not set strval for unicode strings in tc_emit_stringdef

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-21 14:38:37 +01:00
parent d3a0a2dddf
commit 6ba102ee57
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ngtcon.pas
View File

@ -506,7 +506,11 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
(node.nodetype=stringconstn) then
begin
strlength:=tstringconstnode(node).len;
strval:=tstringconstnode(node).asconstpchar;
if (tstringconstnode(node).cst_type in [cst_unicodestring,cst_widestring]) then
{ further on, tstringconstnode(node).valuews is used directly for this case }
strval:=nil
else
strval:=tstringconstnode(node).asconstpchar;
{ the def may have changed from e.g. RawByteString to
AnsiString(CP_ACP) }
if node.resultdef.typ=stringdef then