Make error stream available for additional reporting : see issue #26

1 files changed, 15 insertions, 10 deletions

diff --git a/src/grt/grt-errors.adb b/src/grt/grt-errors.adb
index 28ee85963..e9e2f54ad 100644
--- a/src/grt/grt-errors.adb
+++ b/src/grt/grt-errors.adb
@@ -30,12 +30,17 @@ with Grt.Backtraces;
 
 package body Grt.Errors is
    --  Output stream to send error messages
-   Out_Stream : FILEs;
+   Error_Stream : FILEs;
 
-   procedure Set_Out_Stream (Stream : Grt.Stdio.FILEs) is
+   procedure Set_Error_Stream (Stream : Grt.Stdio.FILEs) is
    begin
-      Out_Stream := Stream;
-   end Set_Out_Stream;
+      Error_Stream := Stream;
+   end Set_Error_Stream;
+
+   function Get_Error_Stream return Grt.Stdio.FILEs is
+   begin
+      return Error_Stream;
+   end Get_Error_Stream;
 
    --  Called in case of premature exit.
    --  CODE is 0 for success, 1 for failure.
@@ -82,27 +87,27 @@ package body Grt.Errors is
 
    procedure Put_Err (Str : String) is
    begin
-      Put (Out_Stream, Str);
+      Put (Error_Stream, Str);
    end Put_Err;
 
    procedure Put_Err (C : Character) is
    begin
-      Put (Out_Stream, C);
+      Put (Error_Stream, C);
    end Put_Err;
 
    procedure Put_Err (Str : Ghdl_C_String) is
    begin
-      Put (Out_Stream, Str);
+      Put (Error_Stream, Str);
    end Put_Err;
 
    procedure Put_Err (N : Integer) is
    begin
-      Put_I32 (Out_Stream, Ghdl_I32 (N));
+      Put_I32 (Error_Stream, Ghdl_I32 (N));
    end Put_Err;
 
    procedure Newline_Err is
    begin
-      New_Line (Out_Stream);
+      New_Line (Error_Stream);
    end Newline_Err;
 
 --    procedure Put_Err (Str : Ghdl_Str_Len_Type)
@@ -141,7 +146,7 @@ package body Grt.Errors is
 
    procedure Report_Now_C is
    begin
-      Put_Time (Out_Stream, Grt.Types.Current_Time);
+      Put_Time (Error_Stream, Grt.Types.Current_Time);
    end Report_Now_C;
 
    procedure Report_E (Str : String) is