From 50c41dd34202b29983a862b5d326bab668402c17 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 12 May 2024 11:06:39 +0200 Subject: ada: Minor tweak in Snames gcc/ada/ * snames.ads-tmpl (Name_Present): Move to Repinfo section. --- gcc/ada/snames.ads-tmpl | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'gcc/ada') 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, -- cgit v1.1