[Ada] Improvement in Expanded_Name implementation

[Arnaud Charlet <charlet at adacore dot com>]

Tested on i686-linux, committed on trunk

This patch changes Full_Qualified_Name (which is used by Expanded_Name
in Ada.Tags) to provide decoded names instead of internally encoded
names. This seems more appropriate, although even RM 2005 says that
this is implementation defined, so this is not a conformance bug.

A test program is:

with Ada.Text_IO;           use Ada.Text_IO;
with Ada.Tags;              use Ada.Tags;

procedure Q is
    type X["1234"]Y is tagged null record;
begin
    Put_Line (Expanded_Name (X["1234"]Y'Tag));
end;

output used to be

Q.XW1234Y

but with this new patch, it is now:

Q.X["1234"]Y

which is a clear improvement

2005-12-05  Robert Dewar  <dewar@adacore.com>

	* sem_util.ads, sem_util.adb (Full_Qualified_Name): Now provides
	decoded names.

Attachment: difs.26
Description: Text document