diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 15:10:33 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 15:10:33 +0200 |
| commit | ded8909b241d9fd6e60981085c0fd9246392472f (patch) | |
| tree | 31260f5efb109439c9337953245e792f3b84b436 /gcc/ada/einfo.adb | |
| parent | 70c34e1c94f276d6f306ed92b892cbe7340acd65 (diff) | |
| download | gcc-ded8909b241d9fd6e60981085c0fd9246392472f.zip gcc-ded8909b241d9fd6e60981085c0fd9246392472f.tar.gz gcc-ded8909b241d9fd6e60981085c0fd9246392472f.tar.bz2 | |
[multiple changes]
2011-08-02 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_ch5.adb, sem_type.adb, switch-c.adb, switch-c.ads,
sem_prag.adb, sem_util.adb, sem_util.ads, sem_res.adb, warnsw.ads,
prepcomp.ads, cstand.adb, stand.ads, a-calfor.adb, s-stusta.adb:
Minor reformatting.
2011-08-02 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb: handle properly 'Result when it is a prefix of an
indexed component.
2011-08-02 Javier Miranda <miranda@adacore.com>
* einfo.ads, einfo.adb
(Original_Access_Type): Move this attribute to Node26 since there was
an undocumented use of Node21 in E_Access_Subprogram_Type entities
which causes conflicts and breaks the generation of the .NET compiler.
(Interface_Name): Add missing documentation on JGNAT only uses of
this attribute.
From-SVN: r177145
Diffstat (limited to 'gcc/ada/einfo.adb')
| -rw-r--r-- | gcc/ada/einfo.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 42217f5..c050776 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -181,7 +181,6 @@ package body Einfo is -- Default_Expr_Function Node21 -- Discriminant_Constraint Elist21 -- Interface_Name Node21 - -- Original_Access_Type Node21 -- Original_Array_Type Node21 -- Small_Value Ureal21 @@ -221,6 +220,7 @@ package body Einfo is -- Dispatch_Table_Wrappers Elist26 -- Last_Assignment Node26 + -- Original_Access_Type Node26 -- Overridden_Operation Node26 -- Package_Instantiation Node26 -- Relative_Deadline_Variable Node26 @@ -2357,7 +2357,7 @@ package body Einfo is function Original_Access_Type (Id : E) return E is begin pragma Assert (Ekind (Id) = E_Access_Subprogram_Type); - return Node21 (Id); + return Node26 (Id); end Original_Access_Type; function Original_Array_Type (Id : E) return E is @@ -4862,7 +4862,7 @@ package body Einfo is procedure Set_Original_Access_Type (Id : E; V : E) is begin pragma Assert (Ekind (Id) = E_Access_Subprogram_Type); - Set_Node21 (Id, V); + Set_Node26 (Id, V); end Set_Original_Access_Type; procedure Set_Original_Array_Type (Id : E; V : E) is @@ -8345,9 +8345,6 @@ package body Einfo is when Fixed_Point_Kind => Write_Str ("Small_Value"); - when E_Access_Subprogram_Type => - Write_Str ("Original_Access_Type"); - when E_In_Parameter => Write_Str ("Default_Expr_Function"); @@ -8550,6 +8547,9 @@ package body Einfo is procedure Write_Field26_Name (Id : Entity_Id) is begin case Ekind (Id) is + when E_Access_Subprogram_Type => + Write_Str ("Original_Access_Type"); + when E_Generic_Package | E_Package => Write_Str ("Package_Instantiation"); |