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

trealconstnode.printnodedata: fix currency values getting written to stdout

Browse Source
This commit is contained in:
Jonas Maebe 2023-12-02 22:08:25 +01:00
parent 1e066ba0bd
commit 82f025e9e7
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

@ -569,9 +569,9 @@ implementation
inherited printnodedata(t);
write(t,printnodeindention,'value = ',value_real);
if is_currency(resultdef) then
writeln(', value_currency = ',value_currency)
writeln(t,', value_currency = ',value_currency)
else
writeln;
writeln(t);
end;
function trealconstnode.emit_data(tcb:ttai_typedconstbuilder):sizeint;