paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 02:09:29 +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); inherited printnodedata(t);
write(t,printnodeindention,'value = ',value_real); write(t,printnodeindention,'value = ',value_real);
if is_currency(resultdef) then if is_currency(resultdef) then
writeln(', value_currency = ',value_currency) writeln(t,', value_currency = ',value_currency)
else else
writeln; writeln(t);
end; end;
function trealconstnode.emit_data(tcb:ttai_typedconstbuilder):sizeint; function trealconstnode.emit_data(tcb:ttai_typedconstbuilder):sizeint;