From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 26 Mar 2024 14:05:47 +0000 (+0100)
Subject: ada: Avoid conversion from String to Name_Id at runtime
X-Git-Tag: basepoints/gcc-16~2918
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8f4194d6c3ccb5ab4bd4b420c37cdeb31b712c2a;p=thirdparty%2Fgcc.git

ada: Avoid conversion from String to Name_Id at runtime

Code cleanup.

gcc/ada/ChangeLog:

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

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 64b5b01869da..defa0d787949 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);