diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2019-12-12 08:05:10 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-02 04:58:02 -0400 |
| commit | fb3fc196adab7147ebc146b946135197104e423d (patch) | |
| tree | 42bff24e7f49668d83e4747d021e564057ea9a7b /gcc | |
| parent | 0b8eceff72120b5378423fbc2475a95f4730edad (diff) | |
| download | gcc-fb3fc196adab7147ebc146b946135197104e423d.zip gcc-fb3fc196adab7147ebc146b946135197104e423d.tar.gz gcc-fb3fc196adab7147ebc146b946135197104e423d.tar.bz2 | |
[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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/snames.ads-tmpl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/snames.ads-tmpl b/gcc/ada/snames.ads-tmpl index 9d8f13b..112e209 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, |