diff options
author | Eric Botcazou <ebotcazou@adacore.com> | 2021-06-21 16:13:25 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-20 12:31:27 +0000 |
commit | d41be878c91e2e72cbd8bd68f793abc2c4b70563 (patch) | |
tree | c5a2106f42ce1621258f7132bbff71a2b0ab7fa0 | |
parent | 47ee6e6fb99889325835eab87c995db23647c77b (diff) | |
download | gcc-d41be878c91e2e72cbd8bd68f793abc2c4b70563.zip gcc-d41be878c91e2e72cbd8bd68f793abc2c4b70563.tar.gz gcc-d41be878c91e2e72cbd8bd68f793abc2c4b70563.tar.bz2 |
[Ada] Remove inappropriate test from Is_By_Reference_Type
gcc/ada/
* sem_aux.adb (Is_By_Reference_Type): Do not test Error_Posted.
-rw-r--r-- | gcc/ada/sem_aux.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index ea3b59c..bce7c38 100644 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.adb @@ -846,10 +846,7 @@ package body Sem_Aux is Btype : constant Entity_Id := Base_Type (Ent); begin - if Error_Posted (Ent) or else Error_Posted (Btype) then - return False; - - elsif Is_Private_Type (Btype) then + if Is_Private_Type (Btype) then declare Utyp : constant Entity_Id := Underlying_Type (Btype); begin |