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

* Fixed oversight in TStringConstNode that stopped it building under DEBUG_NODE_XML

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2025-04-04 11:31:38 +01:00
parent 6c4d218b8d
commit 552096443b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncon.pas
View File

@ -1306,10 +1306,10 @@ implementation
begin
{ value_str is of type PCompilerWideString }
SetLength(OutputStr, len);
UnicodeToUtf8(PChar(OutputStr), PUnicodeChar(PCompilerWideString(value_str)^.data), len + 1); { +1 for the null terminator }
UnicodeToUtf8(PChar(OutputStr), PUnicodeChar(valuews.data), len + 1); { +1 for the null terminator }
end;
else
OutputStr := ansistring(value_str);
OutputStr := PAnsichar(@valueas[0]);
SetLength(OutputStr, len);
end;