[Ada] Treat attribute Img equivalent to attribute Image

2020-06-02  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* snames.ads-tmpl (Name_Img, Attribute_Img): Make it an
	attribute returning renamable functions.

diff --git a/gcc/ada/snames.ads-tmpl b/gcc/ada/snames.ads-tmpl
index 9d8f13ba5af1aa5d953ea9989c8195e89ebdc23a..112e2091c6e41836e005c373bf0c1312bfc4a3e2 100644 (file)
--- a/gcc/ada/snames.ads-tmpl
+++ b/gcc/ada/snames.ads-tmpl
@@ -956,7 +956,6 @@ package Snames is
    Name_Has_Same_Storage               : constant Name_Id := N + $; -- Ada 12
    Name_Has_Tagged_Values              : constant Name_Id := N + $; -- GNAT
    Name_Identity                       : constant Name_Id := N + $;
-   Name_Img                            : constant Name_Id := N + $; -- GNAT
    Name_Implicit_Dereference           : constant Name_Id := N + $; -- GNAT
    Name_Integer_Value                  : constant Name_Id := N + $; -- GNAT
    Name_Invalid_Value                  : constant Name_Id := N + $; -- GNAT
@@ -1059,6 +1058,7 @@ package Snames is
    Name_Fraction                       : constant Name_Id := N + $;
    Name_From_Any                       : constant Name_Id := N + $; -- GNAT
    Name_Image                          : constant Name_Id := N + $;
+   Name_Img                            : constant Name_Id := N + $; -- GNAT
    Name_Input                          : constant Name_Id := N + $;
    Name_Machine                        : constant Name_Id := N + $;
    Name_Max                            : constant Name_Id := N + $;
@@ -1629,7 +1629,6 @@ package Snames is
       Attribute_Has_Same_Storage,
       Attribute_Has_Tagged_Values,
       Attribute_Identity,
-      Attribute_Img,
       Attribute_Implicit_Dereference,
       Attribute_Integer_Value,
       Attribute_Invalid_Value,
@@ -1729,6 +1728,7 @@ package Snames is
       Attribute_Fraction,
       Attribute_From_Any,
       Attribute_Image,
+      Attribute_Img,
       Attribute_Input,
       Attribute_Machine,
       Attribute_Max,