From: Arnaud Charlet Date: Thu, 12 Dec 2019 13:05:10 +0000 (-0500) Subject: [Ada] Treat attribute Img equivalent to attribute Image X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=fb3fc196adab7147ebc146b946135197104e423d;p=gcc.git [Ada] Treat attribute Img equivalent to attribute Image 2020-06-02 Arnaud Charlet 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 9d8f13ba5af..112e2091c6e 100644 --- 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,