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 --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb
index be200e0016e39a9267bd7db99d0f02ba1d388527..cef04d5daf293c59eed6241681c6eabba4466e99 100644 (file)
--- 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");