diff options
Diffstat (limited to 'gcc/ada/sem_ch13.adb')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 9ab019a0648..c8cfd031b36 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -10304,7 +10304,8 @@ package body Sem_Ch13 is -- Check Ada derivation of CPP type - if Expander_Active -- why? losing errors in -gnatc mode??? + if Expander_Active -- why? losing errors in -gnatc mode??? + and then Present (Etype (E)) -- defend against errors and then Tagged_Type_Expansion and then Ekind (E) = E_Record_Type and then Etype (E) /= E |