namet.adb (Get_Decoded_Name_With_Brackets): Fix case of not allowing upper case lette...

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

From-SVN: r92844

diff --git a/gcc/ada/namet.adb b/gcc/ada/namet.adb
index 78c0df49895f67e6742cc8e67e791c3b0db10a0b..8bd712754f9fa04b21ba64271e00438a6531bcb9 100644 (file)
--- a/gcc/ada/namet.adb
+++ b/gcc/ada/namet.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -516,7 +516,11 @@ package body Namet is
                Name_Buffer (P + 5) := ']';
                P := P + 6;
 
-            elsif Name_Buffer (P) = 'W' then
+            elsif Name_Buffer (P) = 'W'
+              and then P < Name_Len
+              and then Name_Buffer (P + 1) not in 'A' .. 'Z'
+              and then Name_Buffer (P + 1) /= '_'
+            then
                Name_Buffer (P + 8 .. P + Name_Len + 5) :=
                  Name_Buffer (P + 5 .. Name_Len);
                Name_Buffer (P + 5) := Name_Buffer (P + 4);