diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-01-16 18:56:38 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-05 08:17:48 -0400 |
| commit | 2db2527a8dc7e2d2da8893a339ec863b72079bb4 (patch) | |
| tree | 2d816a11f020f093a40d78432b7e65bb4666574b /gcc/ada/sem_ch8.adb | |
| parent | 50554999f23127a962ef17f1ea06961a09811f75 (diff) | |
| download | gcc-2db2527a8dc7e2d2da8893a339ec863b72079bb4.zip gcc-2db2527a8dc7e2d2da8893a339ec863b72079bb4.tar.gz gcc-2db2527a8dc7e2d2da8893a339ec863b72079bb4.tar.bz2 | |
[Ada] Use Is_Incomplete_Type instead of a low-level Ekind test
2020-06-05 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* exp_ch3.adb, sem_ch8.adb, sem_util.adb: Use Is_Incomplete_Type
to make the code easier to read.
Diffstat (limited to 'gcc/ada/sem_ch8.adb')
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 41e2850..36c9520 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -8021,7 +8021,7 @@ package body Sem_Ch8 is -- limited-with clauses if From_Limited_With (T_Name) - and then Ekind (T_Name) in Incomplete_Kind + and then Is_Incomplete_Type (T_Name) and then Present (Non_Limited_View (T_Name)) and then Is_Interface (Non_Limited_View (T_Name)) then |