diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-22 20:31:21 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-22 20:31:21 +0100 |
| commit | 7969ec4835be2e8745b648bf47cd97c30ae71ade (patch) | |
| tree | 630edddc6f39da1eb1ccab6f0a01efabdde38457 /src/grt/grt-disp_signals.adb | |
| parent | c651368248f0eaa4dd6b84fdc6d391c8f539684c (diff) | |
| download | ghdl-7969ec4835be2e8745b648bf47cd97c30ae71ade.tar.gz ghdl-7969ec4835be2e8745b648bf47cd97c30ae71ade.tar.bz2 ghdl-7969ec4835be2e8745b648bf47cd97c30ae71ade.zip | |
grt: fix incorrect use of stdout for some errors.
Diffstat (limited to 'src/grt/grt-disp_signals.adb')
| -rw-r--r-- | src/grt/grt-disp_signals.adb | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/src/grt/grt-disp_signals.adb b/src/grt/grt-disp_signals.adb index a9b613c60..e635733d9 100644 --- a/src/grt/grt-disp_signals.adb +++ b/src/grt/grt-disp_signals.adb @@ -247,26 +247,28 @@ package body Grt.Disp_Signals is procedure Disp_Signal_Name (Stream : FILEs; Ctxt : Rti_Context; - Sig : Ghdl_Rtin_Object_Acc) is + Sig : Ghdl_Rtin_Object_Acc) + is + procedure Disp_Prefix (Stream : FILEs; Ctxt : Rti_Context) is + begin + Put (Stream, Ctxt); + Put (Stream, "."); + end Disp_Prefix; begin case Sig.Common.Kind is when Ghdl_Rtik_Signal | Ghdl_Rtik_Port | Ghdl_Rtik_Guard => - Put (stdout, Ctxt); - Put ("."); + Disp_Prefix (Stream, Ctxt); Put (Stream, Sig.Name); when Ghdl_Rtik_Attribute_Quiet => - Put (stdout, Ctxt); - Put ("."); + Disp_Prefix (Stream, Ctxt); Put (Stream, " 'quiet"); when Ghdl_Rtik_Attribute_Stable => - Put (stdout, Ctxt); - Put ("."); + Disp_Prefix (Stream, Ctxt); Put (Stream, " 'stable"); when Ghdl_Rtik_Attribute_Transaction => - Put (stdout, Ctxt); - Put ("."); + Disp_Prefix (Stream, Ctxt); Put (Stream, " 'transaction"); when others => null; |