[Ada] Fix obscure bug in namet

[Arnaud Charlet <charlet at adacore dot com>]

Tested on x86-linux, committed on mainline.

This patch fixes an obscure violation of the Namet spec noticed during
code reading. The issue is that W can appear in internal names if
followed by an underscore or an upper case letter. But the code in
Get_Decoded_Name_With_Brackets was not allowing for this exception.
Not clear whether this could really cause trouble or not (we just
don't know whether there is any case of a Namet client taking
advantage of this permission in a context where a call to
Get_Decoded_Name_With_Brackets could cause trouble). So there
is no test program here, but it is an obviously correct clean up.

2005-01-03  Robert Dewar  <dewar@adacore.com>

	* namet.adb (Get_Decoded_Name_With_Brackets): Fix case of not allowing
	upper case letter or underscore after W, as allowed by spec.

Attachment: difs.17
Description: Text document