[Ada] Add debugging message
authorBob Duff <duff@adacore.com>
Thu, 27 Feb 2020 15:49:47 +0000 (10:49 -0500)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 9 Jun 2020 08:09:02 +0000 (04:09 -0400)
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.

gcc/ada/bindo-graphs.adb

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