diff options
| -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, |