diff options
Diffstat (limited to 'gcc/ada/sem_ch8.adb')
-rw-r--r-- | gcc/ada/sem_ch8.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 2e3b22f..c1c3d93 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -953,13 +953,13 @@ package body Sem_Ch8 is -- Ada 2005 (AI-327) - if Ada_Version >= Ada_05 + if Ada_Version >= Ada_2005 and then Nkind (Nam) = N_Attribute_Reference and then Attribute_Name (Nam) = Name_Priority then null; - elsif Ada_Version >= Ada_05 + elsif Ada_Version >= Ada_2005 and then Nkind (Nam) in N_Has_Entity then declare @@ -1102,7 +1102,7 @@ package body Sem_Ch8 is -- Ada 2005 (AI-327) - elsif Ada_Version >= Ada_05 + elsif Ada_Version >= Ada_2005 and then Nkind (Nam) = N_Attribute_Reference and then Attribute_Name (Nam) = Name_Priority then @@ -2142,7 +2142,7 @@ package body Sem_Ch8 is -- when performing a null exclusion check between a renaming and a -- renamed subprogram that has been found to be illegal. - if Ada_Version >= Ada_05 + if Ada_Version >= Ada_2005 and then Entity (Nam) /= Any_Id then Check_Null_Exclusion @@ -2448,7 +2448,7 @@ package body Sem_Ch8 is -- is dispatching. Test is skipped if some previous error was detected -- that set Old_S to Any_Id. - if Ada_Version >= Ada_05 + if Ada_Version >= Ada_2005 and then Old_S /= Any_Id and then not Is_Dispatching_Operation (Old_S) and then Is_Dispatching_Operation (New_S) @@ -5675,7 +5675,7 @@ package body Sem_Ch8 is -- view of a type. if not Is_Tagged_Type (T) - and then Ada_Version >= Ada_05 + and then Ada_Version >= Ada_2005 then if From_With_Type (T) then Error_Msg_N @@ -5881,7 +5881,7 @@ package body Sem_Ch8 is -- nor anywhere else in the declaration because entries -- cannot have access parameters. - if Ada_Version >= Ada_05 + if Ada_Version >= Ada_2005 and then Nkind (Parent (N)) = N_Access_Definition then Set_Entity (N, T_Name); @@ -5907,7 +5907,7 @@ package body Sem_Ch8 is -- In Ada 2005, a protected name can be used in an access -- definition within its own body. - if Ada_Version >= Ada_05 + if Ada_Version >= Ada_2005 and then Nkind (Parent (N)) = N_Access_Definition then Set_Entity (N, T_Name); |