diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-10-23 11:57:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-10-23 11:57:52 +0000 |
| commit | b743d2fec7f114a7ad9f774f53d9790ce38b30c1 (patch) | |
| tree | bdb15adb9e94a854c31457fc6b697589530ef086 /gcc/ada/exp_dbug.ads | |
| parent | fabb7dc5d9930bb83dc7372080383b31544caf1d (diff) | |
| download | gcc-b743d2fec7f114a7ad9f774f53d9790ce38b30c1.tar.gz | |
PR ada/11978:
* exp_ch13.adb (Expand_N_Freeze_Entity): Do not consider inherited
External_Tag attribute definition clauses.
PR ada/7613:
* exp_dbug.adb (Debug_Renaming_Declaration): For the renaming of a
child unit, generate a fully qualified name to avoid spurious errors
when the context contains renamings of different child units with
the same simple name.
* exp_dbug.ads: Add documentation on name qualification for renamings
of child units.
* g-regpat.ads, g-regpat.adb: Minor reformatting
* Makefile.in: Use the file 1atags.ads with the ZFP and cert run-times.
* trans.c: (tree_transform, case N_Real_Literal): Add extra arg to
Machine call.
* urealp.h: (Machine): Update to proper definition.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@72843 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_dbug.ads')
| -rw-r--r-- | gcc/ada/exp_dbug.ads | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/exp_dbug.ads b/gcc/ada/exp_dbug.ads index d17f14b0814..e8738b3aad5 100644 --- a/gcc/ada/exp_dbug.ads +++ b/gcc/ada/exp_dbug.ads @@ -951,7 +951,10 @@ package Exp_Dbug is -- x___XRP for a package renaming -- The name is fully qualified in the usual manner, i.e. qualified in - -- the same manner as the entity x would be. + -- the same manner as the entity x would be. In the case of a package + -- renaming where x is a child unit, the qualification includes the + -- name of the parent unit, to disambiguate child units with the same + -- simple name and (of necessity) different parents. -- Note: subprogram renamings are not encoded at the present time. @@ -1036,7 +1039,7 @@ package Exp_Dbug is -- type p__z___XR is -- (p__g___XEXS1XS5XRmXL2XS3); - -- p__q___XE--------------------outer entity is g + -- p__g___XE--------------------outer entity is g -- XS1-----------------first subscript for g -- XS5--------------second subscript for g -- XRm-----------select field m |