From: Arnaud Charlet Date: Mon, 3 Jan 2005 15:39:51 +0000 (+0100) Subject: namet.adb (Get_Decoded_Name_With_Brackets): Fix case of not allowing upper case lette... X-Git-Tag: releases/gcc-4.0.0~1811 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=8d75f39cb25d5068ad009729a174b0f93fb8e3ba;p=thirdparty%2Fgcc.git namet.adb (Get_Decoded_Name_With_Brackets): Fix case of not allowing upper case letter or underscore after W... * 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 78c0df49895f..8bd712754f9f 100644 --- 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);