aboutsummaryrefslogtreecommitdiffstats
path: root/src/errorout-console.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2019-05-13 18:27:24 +0200
committerTristan Gingold <tgingold@free.fr>2019-05-13 18:27:24 +0200
commite1c0c598e11723f651aec8a3816fc7d3a36f24c5 (patch)
tree5626c7678e81379b32d937fbd2ea14c3628cb0c6 /src/errorout-console.adb
parent17eb0242dac5e119ec8f31a700c82aeff01b9869 (diff)
downloadghdl-e1c0c598e11723f651aec8a3816fc7d3a36f24c5.tar.gz
ghdl-e1c0c598e11723f651aec8a3816fc7d3a36f24c5.tar.bz2
ghdl-e1c0c598e11723f651aec8a3816fc7d3a36f24c5.zip
errorout-console: detect terminal during setup.
Diffstat (limited to 'src/errorout-console.adb')
-rw-r--r--src/errorout-console.adb4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/errorout-console.adb b/src/errorout-console.adb
index 632a7386e..9f25eebd5 100644
--- a/src/errorout-console.adb
+++ b/src/errorout-console.adb
@@ -164,8 +164,6 @@ package body Errorout.Console is
Current_Line := 1;
end if;
- Detect_Terminal;
-
-- And no program name.
Progname := False;
@@ -272,6 +270,8 @@ package body Errorout.Console is
procedure Install_Handler is
begin
+ Detect_Terminal;
+
Set_Report_Handler ((Console_Error_Start'Access,
Console_Message'Access,
Console_Message_End'Access,