diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-08-30 05:36:10 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-08-30 05:36:10 +0200 |
commit | f8d8c61c81150294cf06f10684a8e4180426890b (patch) | |
tree | ebeeced7c62ae0042f185d232bf2d0117ba9f1a1 /src/grt/grt-errors.ads | |
parent | af74db16db371518111858e0ab123a52276059bc (diff) | |
download | ghdl-f8d8c61c81150294cf06f10684a8e4180426890b.tar.gz ghdl-f8d8c61c81150294cf06f10684a8e4180426890b.tar.bz2 ghdl-f8d8c61c81150294cf06f10684a8e4180426890b.zip |
Write assert and report messages to stdout
Fix #394
Diffstat (limited to 'src/grt/grt-errors.ads')
-rw-r--r-- | src/grt/grt-errors.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/grt/grt-errors.ads b/src/grt/grt-errors.ads index 974ef3820..b7ee4c24d 100644 --- a/src/grt/grt-errors.ads +++ b/src/grt/grt-errors.ads @@ -24,10 +24,15 @@ -- covered by the GNU Public License. with Grt.Types; use Grt.Types; with Grt.Hooks; +with Grt.Stdio; package Grt.Errors is pragma Preelaborate (Grt.Errors); + -- Set the stream for error messages. Must be called before using this + -- package. + procedure Set_Out_Stream (Stream : Grt.Stdio.FILEs); + -- Multi-call error procedure. -- Start and continue with Error_C, finish by an Error_E. procedure Error_C (Str : String); |