Commit fc713fb6 authored by jhugues's avatar jhugues

* Ensure all messages are redirected to the correct output



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@4381 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 4831c188
......@@ -97,10 +97,12 @@ package body Ocarina.Backends.Messages is
Fatal : Boolean;
Warning : Boolean := False)
is
Current_FD : constant File_Descriptor := Current_Output;
begin
Set_Standard_Error;
Write_Str (Image (Loc) & ' ');
Display_Error_Message (Message, Fatal, Warning);
Set_Output (Current_FD);
if Fatal then
OS_Exit (2);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment