[Ada] Guard against access to wrong fields in Is_Renaming
authorGhjuvan Lacambre <lacambre@adacore.com>
Wed, 3 Jun 2020 09:09:20 +0000 (11:09 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 15 Jul 2020 13:42:53 +0000 (09:42 -0400)
commitfbaadba2468d29178dbd7cde8089b12129e360dc
tree929c9f7b3b8e17a912a39a9d9a4dd92ebb522a21
parentae265cdd5b2e20bdf14a4ef8c2b1458ad09b9d03
[Ada] Guard against access to wrong fields in Is_Renaming

gcc/ada/

* sem_util.adb (Is_Renaming): Add ekind checks.
gcc/ada/sem_util.adb