diff options
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 06a89a2b8ae..fbc72a8cafa 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -12656,6 +12656,11 @@ package body Sem_Util is begin case Ekind (E) is + when E_Constant => + if Present (Full_View (E)) then + U := Full_View (E); + end if; + when Type_Kind => if Present (Full_View (E)) then U := Full_View (E); |