diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-05-13 18:27:24 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-05-13 18:27:24 +0200 |
| commit | e1c0c598e11723f651aec8a3816fc7d3a36f24c5 (patch) | |
| tree | 5626c7678e81379b32d937fbd2ea14c3628cb0c6 /src | |
| parent | 17eb0242dac5e119ec8f31a700c82aeff01b9869 (diff) | |
| download | ghdl-e1c0c598e11723f651aec8a3816fc7d3a36f24c5.tar.gz ghdl-e1c0c598e11723f651aec8a3816fc7d3a36f24c5.tar.bz2 ghdl-e1c0c598e11723f651aec8a3816fc7d3a36f24c5.zip | |
errorout-console: detect terminal during setup.
Diffstat (limited to 'src')
| -rw-r--r-- | src/errorout-console.adb | 4 |
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, |