[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 a720c0f6187e06c34568437b9e081679427069ea..7cb6edf00417fe7758c8629bd4c637f3ee2fd3fb 100644 (file)
--- 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;