diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2021-10-20 09:46:38 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-25 15:07:20 +0000 |
commit | f977a792721cdaa0d6cbda689b3a6930cf510f7e (patch) | |
tree | dc7a94da49c8eff69ae4c557818242ba4d24e1c9 /gcc | |
parent | c652a33260b19ac1ee3cd15cadb4b3499ac587f9 (diff) | |
download | gcc-f977a792721cdaa0d6cbda689b3a6930cf510f7e.zip gcc-f977a792721cdaa0d6cbda689b3a6930cf510f7e.tar.gz gcc-f977a792721cdaa0d6cbda689b3a6930cf510f7e.tar.bz2 |
[Ada] Don't expect enumeration literals to be renamings
gcc/ada/
* lib-xref.adb (Get_Through_Renamings): Exit loop when an
enumeration literal is found.
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/lib-xref.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index 17de886..2c3c372 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -481,7 +481,9 @@ package body Lib.Xref is -- e.g. function call, slicing of a function call, -- pointer dereference, etc. - if No (Obj) then + if No (Obj) + or else Ekind (Obj) = E_Enumeration_Literal + then return Empty; end if; else |