From: Ronan Desplanques <desplanques@adacore.com>
Date: Mon, 14 Oct 2024 08:15:11 +0000 (+0200)
Subject: ada: Display message on reproducer generation failure
X-Git-Tag: basepoints/gcc-16~4640
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ecd8a5990f6ebec89fc2f8ba79a349c3258c662c;p=thirdparty%2Fgcc.git

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 --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;