From: Bob Duff <duff@adacore.com>
Date: Thu, 27 Feb 2020 15:49:47 +0000 (-0500)
Subject: [Ada] Add debugging message
X-Git-Tag: basepoints/gcc-12~7162
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=338c32f1375440aaeb66c65d5d40906a388d20c8;p=thirdparty%2Fgcc.git

[Ada] Add debugging message

2020-06-09  Bob Duff  <duff@adacore.com>

gcc/ada/

	* bindo-graphs.adb (Add_Edge_Kind_Check): Add the Image of the
	old and new Kinds to the raise Program_Error message.
---

diff --git a/gcc/ada/bindo-graphs.adb b/gcc/ada/bindo-graphs.adb
index a720c0f6187e..7cb6edf00417 100644
--- a/gcc/ada/bindo-graphs.adb
+++ b/gcc/ada/bindo-graphs.adb
@@ -1824,7 +1824,7 @@ package body Bindo.Graphs is
          end case;
 
          if not OK then
-            raise Program_Error;
+            raise Program_Error with Kind'Img & "-->" & Attributes.Kind'Img;
          end if;
       end Add_Edge_Kind_Check;