diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-02-21 12:14:48 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-16 10:49:28 +0200 |
| commit | 7c487eb8eccaad7c4ce9e4920fe9eaa5a9fab0bf (patch) | |
| tree | 686b433c3752536c9d3d3e174fd3dcb7d9d590ab | |
| parent | f03905788cbe2799a692b1f2435020b26a5a2574 (diff) | |
| download | gcc-7c487eb8eccaad7c4ce9e4920fe9eaa5a9fab0bf.zip gcc-7c487eb8eccaad7c4ce9e4920fe9eaa5a9fab0bf.tar.gz gcc-7c487eb8eccaad7c4ce9e4920fe9eaa5a9fab0bf.tar.bz2 | |
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.
| -rw-r--r-- | gcc/ada/erroutc.adb | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index be200e0..cef04d5d 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"); |