https://gcc.gnu.org/g:7c487eb8eccaad7c4ce9e4920fe9eaa5a9fab0bf
commit r15-548-g7c487eb8eccaad7c4ce9e4920fe9eaa5a9fab0bf Author: Piotr Trojanek <troja...@adacore.com> Date: Wed Feb 21 12:14:48 2024 +0100 ada: Fix casing of CUDA in error messages Error messages now capitalize CUDA. gcc/ada/ * erroutc.adb (Set_Msg_Insertion_Reserved_Word): Fix casing for CUDA appearing in error message strings. (Set_Msg_Str): Likewise for CUDA being a part of a Name_Id. Diff: --- gcc/ada/erroutc.adb | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index be200e0016e3..cef04d5daf29 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -1475,12 +1475,17 @@ package body Erroutc is if Name_Len = 2 and then Name_Buffer (1 .. 2) = "RM" then Set_Msg_Name_Buffer; + -- We make a similar exception for CUDA + + elsif Name_Len = 4 and then Name_Buffer (1 .. 4) = "CUDA" then + Set_Msg_Name_Buffer; + -- We make a similar exception for SPARK elsif Name_Len = 5 and then Name_Buffer (1 .. 5) = "SPARK" then Set_Msg_Name_Buffer; - -- Neither RM nor SPARK: case appropriately and add surrounding quotes + -- Otherwise, case appropriately and add surrounding quotes else Set_Casing (Keyword_Casing (Flag_Source), All_Lower_Case); @@ -1608,6 +1613,12 @@ package body Erroutc is elsif Text = "Cpp_Vtable" then Set_Msg_Str ("CPP_Vtable"); + elsif Text = "Cuda_Device" then + Set_Msg_Str ("CUDA_Device"); + + elsif Text = "Cuda_Global" then + Set_Msg_Str ("CUDA_Global"); + elsif Text = "Persistent_Bss" then Set_Msg_Str ("Persistent_BSS");