From e1c0c598e11723f651aec8a3816fc7d3a36f24c5 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 13 May 2019 18:27:24 +0200 Subject: errorout-console: detect terminal during setup. --- src/errorout-console.adb | 4 ++-- 1 file 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, -- cgit v1.2.3