diff options
| author | Bob Duff <duff@adacore.com> | 2020-02-27 10:49:47 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-09 04:09:02 -0400 |
| commit | 338c32f1375440aaeb66c65d5d40906a388d20c8 (patch) | |
| tree | aef59a41eb2a79aa5b405059fede7ebeee4034f9 /gcc | |
| parent | dc8adf598fb3a7d6086b69e02007098bd7555d16 (diff) | |
| download | gcc-338c32f1375440aaeb66c65d5d40906a388d20c8.zip gcc-338c32f1375440aaeb66c65d5d40906a388d20c8.tar.gz gcc-338c32f1375440aaeb66c65d5d40906a388d20c8.tar.bz2 | |
[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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/bindo-graphs.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/bindo-graphs.adb b/gcc/ada/bindo-graphs.adb index a720c0f..7cb6edf 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; |