diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-10-18 17:06:25 +0200 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-11-12 14:00:45 +0100 |
| commit | a5a0d605d8b86156e4e088e64aea16d80655a1a2 (patch) | |
| tree | ea820a8a2ce5951519d15ef7a9fc5454c445f438 /gcc/ada/sem_aux.adb | |
| parent | ca0f0154622c32123c57721b39bc9585119b02d7 (diff) | |
| download | gcc-a5a0d605d8b86156e4e088e64aea16d80655a1a2.zip gcc-a5a0d605d8b86156e4e088e64aea16d80655a1a2.tar.gz gcc-a5a0d605d8b86156e4e088e64aea16d80655a1a2.tar.bz2 | |
ada: Remove obsolete workaround for back-end limitation
This avoids a strange discrepancy in the handling of constants vs variables.
gcc/ada/ChangeLog:
* sem_aux.ads (Has_Unconstrained_Elements): Delete.
* sem_aux.adb (Has_Unconstrained_Elements): Likewise.
* sem_ch3.adb (Analyze_Object_Declaration): Remove obsolete code.
Diffstat (limited to 'gcc/ada/sem_aux.adb')
| -rw-r--r-- | gcc/ada/sem_aux.adb | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index 5edf667..e7d5c84 100644 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.adb @@ -699,24 +699,6 @@ package body Sem_Aux is return Present (Get_Rep_Pragma (E, Nam1, Nam2, Check_Parents)); end Has_Rep_Pragma; - -------------------------------- - -- Has_Unconstrained_Elements -- - -------------------------------- - - function Has_Unconstrained_Elements (T : Entity_Id) return Boolean is - U_T : constant Entity_Id := Underlying_Type (T); - begin - if No (U_T) then - return False; - elsif Is_Record_Type (U_T) then - return Has_Discriminants (U_T) and then not Is_Constrained (U_T); - elsif Is_Array_Type (U_T) then - return Has_Unconstrained_Elements (Component_Type (U_T)); - else - return False; - end if; - end Has_Unconstrained_Elements; - ---------------------- -- Has_Variant_Part -- ---------------------- |