diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-05-12 11:06:39 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-06-14 09:34:19 +0200 |
| commit | 50c41dd34202b29983a862b5d326bab668402c17 (patch) | |
| tree | bd5873af54ad9ace402b18cbaef3ef8c3ccbff9b | |
| parent | 262a5ffc41471aa4909f23279278dd37724da744 (diff) | |
| download | gcc-50c41dd34202b29983a862b5d326bab668402c17.zip gcc-50c41dd34202b29983a862b5d326bab668402c17.tar.gz gcc-50c41dd34202b29983a862b5d326bab668402c17.tar.bz2 | |
ada: Minor tweak in Snames
gcc/ada/
* snames.ads-tmpl (Name_Present): Move to Repinfo section.
| -rw-r--r-- | gcc/ada/snames.ads-tmpl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/snames.ads-tmpl b/gcc/ada/snames.ads-tmpl index 699b8df..d2f724f 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, |