Quellcode durchsuchen

trealconstnode.printnodedata: fix currency values getting written to stdout

Jonas Maebe vor 1 Jahr
Ursprung
Commit
82f025e9e7
1 geänderte Dateien mit 2 neuen und 2 gelöschten Zeilen
  1. 2 2
      compiler/ncon.pas

+ 2 - 2
compiler/ncon.pas

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