[gcc r15-1317] ada: Minor tweak in Snames
Marc Poulhi?s
dkm@gcc.gnu.org
Fri Jun 14 07:36:50 GMT 2024
https://gcc.gnu.org/g:50c41dd34202b29983a862b5d326bab668402c17
commit r15-1317-g50c41dd34202b29983a862b5d326bab668402c17
Author: Eric Botcazou <ebotcazou@adacore.com>
Date: Sun May 12 11:06:39 2024 +0200
ada: Minor tweak in Snames
gcc/ada/
* snames.ads-tmpl (Name_Present): Move to Repinfo section.
Diff:
---
gcc/ada/snames.ads-tmpl | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/gcc/ada/snames.ads-tmpl b/gcc/ada/snames.ads-tmpl
index 699b8df58515..d2f724f86cab 100644
--- a/gcc/ada/snames.ads-tmpl
+++ b/gcc/ada/snames.ads-tmpl
@@ -903,10 +903,6 @@ package Snames is
Name_Warn : constant Name_Id := N + $;
Name_Working_Storage : constant Name_Id := N + $;
- -- used by Repinfo JSON I/O
-
- Name_Present : constant Name_Id := N + $;
-
-- Names of recognized attributes. The entries with the comment "Ada 83"
-- are attributes that are defined in Ada 83, but not in Ada 95. These
-- attributes are implemented in all Ada modes in GNAT.
@@ -1372,6 +1368,7 @@ package Snames is
Name_Discriminant : constant Name_Id := N + $;
Name_Operands : constant Name_Id := N + $;
+ Name_Present : constant Name_Id := N + $;
-- Other miscellaneous names used in front end
-- Note that the UP_ prefix means use the rest of the name in uppercase,
More information about the Gcc-cvs
mailing list