From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sun, 12 May 2024 09:06:39 +0000 (+0200)
Subject: ada: Minor tweak in Snames
X-Git-Tag: basepoints/gcc-16~8236
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=50c41dd34202b29983a862b5d326bab668402c17;p=thirdparty%2Fgcc.git

ada: Minor tweak in Snames

gcc/ada/

	* snames.ads-tmpl (Name_Present): Move to Repinfo section.
---

diff --git a/gcc/ada/snames.ads-tmpl b/gcc/ada/snames.ads-tmpl
index 699b8df5851..d2f724f86ca 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,