[COMMITTED,17/31] ada: Avoid conversion from String to Name_Id at runtime

Message ID 20250107125350.619654-17-poulhies@adacore.com
State New
Headers
Series [COMMITTED,01/31] ada: Restrict previous change made to expansion of allocators |

Commit Message

Marc Poulhiès Jan. 7, 2025, 12:53 p.m. UTC
  From: Piotr Trojanek <trojanek@adacore.com>

Code cleanup.

gcc/ada/ChangeLog:

	* sem_prag.adb (Analyze_Attribute): Replace runtime conversion
	with existing constant.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/sem_prag.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
  

Patch

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 64b5b01869d..defa0d78794 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -14791,7 +14791,7 @@  package body Sem_Prag is
             GNAT_Pragma;
             Check_Valid_Configuration_Pragma;
             Check_Arg_Count (1);
-            Check_Optional_Identifier (Arg1, "max_size");
+            Check_Optional_Identifier (Arg1, Name_Max_Size);
 
             Arg := Get_Pragma_Arg (Arg1);
             Check_Arg_Is_OK_Static_Expression (Arg, Any_Integer);