diff options
author | Eric Botcazou <ebotcazou@adacore.com> | 2020-01-28 23:52:17 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-04 05:11:16 -0400 |
commit | 198064c06a1e1e85cf498ad42983c5eab1f27c4a (patch) | |
tree | 618446b3ba0b021d2dfa5bce1c6acaa899fc90a8 /gcc/ada/exp_ch7.adb | |
parent | 110d0820bfcb421b8c680409cf5c65aa2a0b4b8e (diff) | |
download | gcc-198064c06a1e1e85cf498ad42983c5eab1f27c4a.zip gcc-198064c06a1e1e85cf498ad42983c5eab1f27c4a.tar.gz gcc-198064c06a1e1e85cf498ad42983c5eab1f27c4a.tar.bz2 |
[Ada] Fix a couple of oversights in previous change
2020-06-04 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* exp_ch7.adb (Make_Final_Call): Add missing guard.
* sem_ch3.adb (Copy_And_Build): Adjust recursive call for
private types.
(Build_Derived_Private_Type): Deal with underlying full views.
Diffstat (limited to 'gcc/ada/exp_ch7.adb')
-rw-r--r-- | gcc/ada/exp_ch7.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 9d7ed12..fbdef9b 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -8290,6 +8290,7 @@ package body Exp_Ch7 is Ref := Convert_Concurrent (Ref, Typ); elsif Is_Private_Type (Typ) + and then Present (Underlying_Type (Typ)) and then Is_Concurrent_Type (Underlying_Type (Typ)) then Utyp := Corresponding_Record_Type (Underlying_Type (Typ)); |