diff options
Diffstat (limited to 'gcc/ada/sem_ch13.adb')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 69e324b..2030b30 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -2092,7 +2092,6 @@ package body Sem_Ch13 is -- tag to get an explicit position. elsif Nkind (Component_Name (CC)) = N_Attribute_Reference then - if Attribute_Name (Component_Name (CC)) = Name_Tag then Error_Msg_N ("position of tag cannot be specified", CC); else @@ -3422,10 +3421,7 @@ package body Sem_Ch13 is -- Rep_Item_Too_Early -- ------------------------ - function Rep_Item_Too_Early - (T : Entity_Id; - N : Node_Id) return Boolean - is + function Rep_Item_Too_Early (T : Entity_Id; N : Node_Id) return Boolean is begin -- Cannot apply rep items that are not operational items -- to generic types @@ -3646,6 +3642,10 @@ package body Sem_Ch13 is -- CD1 and CD2 are either components or discriminants. This -- function tests whether the two have the same representation + -------------- + -- Same_Rep -- + -------------- + function Same_Rep return Boolean is begin if No (Component_Clause (CD1)) then |