From ffd9fe10d40a133786358828cfab361377b9e8de Mon Sep 17 00:00:00 2001
From: Brian Drummond <brian@shapes.demon.co.uk>
Date: Wed, 4 Oct 2017 19:05:36 +0100
Subject: Make error stream available for additional reporting : see issue #26

---
 src/grt/grt-errors.ads | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/src/grt/grt-errors.ads b/src/grt/grt-errors.ads
index b7ee4c24d..5d316aaea 100644
--- a/src/grt/grt-errors.ads
+++ b/src/grt/grt-errors.ads
@@ -31,7 +31,8 @@ package Grt.Errors is
 
    --  Set the stream for error messages.  Must be called before using this
    --  package.
-   procedure Set_Out_Stream (Stream : Grt.Stdio.FILEs);
+   procedure Set_Error_Stream (Stream : Grt.Stdio.FILEs);
+   function Get_Error_Stream return Grt.Stdio.FILEs;
 
    --  Multi-call error procedure.
    --  Start and continue with Error_C, finish by an Error_E.
-- 
cgit v1.2.3