From d9f7965179885a72d801b1f2d873fe404ba40e17 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 2 Aug 2011 13:10:33 +0000 Subject: 2011-08-02 Robert Dewar * 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 * sem_attr.adb: handle properly 'Result when it is a prefix of an indexed component. 2011-08-02 Javier Miranda * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177145 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/einfo.ads | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) (limited to 'gcc/ada/einfo.ads') diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index 0366dbeb604..45dd3b4778f 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -1911,12 +1911,13 @@ package Einfo is -- instantiations. -- Interface_Name (Node21) --- Present in exceptions, functions, procedures, variables, constants, --- and packages. Set to Empty unless an export, import, or interface --- name pragma has explicitly specified an external name, in which --- case it references an N_String_Literal node for the specified --- external name. In the case of exceptions, the field is set by --- Import_Exception/Export_Exception (which can be used in OpenVMS +-- Present in constants, variables, exceptions, functions, procedures, +-- packages, components (JGNAT only), discriminants (JGNAT only), and +-- access to subprograms (JGNAT only). Set to Empty unless an export, +-- import, or interface name pragma has explicitly specified an external +-- name, in which case it references an N_String_Literal node for the +-- specified external name. In the case of exceptions, the field is set +-- by Import_Exception/Export_Exception (which can be used in OpenVMS -- versions only). Note that if this field is Empty, and Is_Imported -- or Is_Exported is set, then the default interface name is the name -- of the entity, cased in a manner that is appropriate to the system @@ -3206,7 +3207,7 @@ package Einfo is -- Optimize_Alignment (Off) mode applies to the type/object, then neither -- of the flags Optimize_Alignment_Space/Optimize_Alignment_Time is set. --- Original_Access_Type (Node21) +-- Original_Access_Type (Node26) -- Present in E_Access_Subprogram_Type entities. Set only if the access -- type was generated by the expander as part of processing an access -- to protected subprogram type. Points to the access to protected @@ -4882,8 +4883,9 @@ package Einfo is -- E_Access_Subprogram_Type -- Equivalent_Type (Node18) (remote types only) -- Directly_Designated_Type (Node20) - -- Original_Access_Type (Node21) + -- Interface_Name (Node21) (JGNAT usage only) -- Needs_No_Actuals (Flag22) + -- Original_Access_Type (Node26) -- Can_Use_Internal_Rep (Flag229) -- (plus type attributes) @@ -5004,7 +5006,7 @@ package Einfo is -- Renamed_Object (Node18) -- Size_Check_Code (Node19) (constants only) -- Prival_Link (Node20) (privals only) - -- Interface_Name (Node21) + -- Interface_Name (Node21) (constants only) -- Related_Type (Node27) (constants only) -- Has_Alignment_Clause (Flag46) -- Has_Atomic_Components (Flag86) -- cgit v1.2.1