[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