From 9d7d51be97bd43c0ecb60ca327c44f1fd9272224 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 23 Oct 2003 13:57:52 +0200 Subject: re PR ada/11978 (ada compiler crashes in a-tags.adb) 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. From-SVN: r72843 --- gcc/ada/exp_dbug.adb | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'gcc/ada/exp_dbug.adb') diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb index 9e7bcc0..aa47c00 100644 --- a/gcc/ada/exp_dbug.adb +++ b/gcc/ada/exp_dbug.adb @@ -358,6 +358,16 @@ package body Exp_Dbug is when N_Package_Renaming_Declaration => Add_Str_To_Name_Buffer ("___XRP"); + -- If it is a child unit create a fully qualified name, + -- to disambiguate multiple child units with the same + -- name and different parents. + + if Is_Child_Unit (Ent) then + Prepend_String_To_Buffer ("__"); + Prepend_String_To_Buffer + (Get_Name_String (Chars (Scope (Ent)))); + end if; + when others => return Empty; end case; -- cgit v1.1