diff options
Diffstat (limited to 'gcc/ada/sem_ch9.adb')
| -rw-r--r-- | gcc/ada/sem_ch9.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb index 594bac9..bfd1249 100644 --- a/gcc/ada/sem_ch9.adb +++ b/gcc/ada/sem_ch9.adb @@ -499,7 +499,7 @@ package body Sem_Ch9 is elsif Kind = N_Pragma then declare Prag_Name : constant Name_Id := - Pragma_Name_Mapped (N); + Pragma_Name (N); Prag_Id : constant Pragma_Id := Get_Pragma_Id (Prag_Name); @@ -2149,7 +2149,7 @@ package body Sem_Ch9 is -- Pragma case else - Error_Msg_Name_1 := Pragma_Name_Mapped (Prio_Item); + Error_Msg_Name_1 := Pragma_Name (Prio_Item); Error_Msg_NE ("pragma% for & has no effect when Lock_Free given??", Prio_Item, Id); @@ -2189,7 +2189,7 @@ package body Sem_Ch9 is -- Pragma case elsif Nkind (Prio_Item) = N_Pragma - and then Pragma_Name_Mapped (Prio_Item) = Name_Priority + and then Pragma_Name (Prio_Item) = Name_Priority then Error_Msg_N ("pragma Interrupt_Priority is preferred in presence of " |