From f8d8c61c81150294cf06f10684a8e4180426890b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 30 Aug 2017 05:36:10 +0200
Subject: Write assert and report messages to stdout

Fix #394
---
 src/grt/grt-errors.ads | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/grt/grt-errors.ads')

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);
-- 
cgit v1.2.3