[COMMITTED 24/38] ada: Display message on reproducer generation failure

[Marc Poulhiès]

From: Ronan Desplanques <desplanq...@adacore.com>

Before this patch, nothing was reported to the user when an exception
was raised during generation of a minimal reproducer. This patch fixes
this.

gcc/ada/ChangeLog:

        * comperr.adb (Compiler_Abort): Display message in exception handler.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/comperr.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb
index e411ddb5d29..726f0ccadb0 100644
--- a/gcc/ada/comperr.adb
+++ b/gcc/ada/comperr.adb
@@ -409,7 +409,8 @@ package body Comperr is
                Generate_Minimal_Reproducer;
             end if;
          exception
-            when others => null;
+            when others =>
+               Write_Str ("failed to generate reproducer");
          end;
 
          Write_Eol;
-- 
2.43.0