Browse Source

trealconstnode.printnodedata: fix currency values getting written to stdout

Jonas Maebe 1 year ago
parent
commit
82f025e9e7
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/ncon.pas

+ 2 - 2
compiler/ncon.pas

@@ -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;