From ecd8a5990f6ebec89fc2f8ba79a349c3258c662c Mon Sep 17 00:00:00 2001
From: Ronan Desplanques <desplanques@adacore.com>
Date: Mon, 14 Oct 2024 10:15:11 +0200
Subject: [PATCH] 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.
---
 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;
-- 
2.47.2