[gcc r15-4913] ada: Display message on reproducer generation failure

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:ecd8a5990f6ebec89fc2f8ba79a349c3258c662c

commit r15-4913-gecd8a5990f6ebec89fc2f8ba79a349c3258c662c
Author: Ronan Desplanques <desplanq...@adacore.com>
Date:   Mon Oct 14 10:15:11 2024 +0200

    ada: Display message on reproducer generation failure
    
    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.

Diff:
---
 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 e411ddb5d298..726f0ccadb05 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;