diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-01-03 16:39:51 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-01-03 16:39:51 +0100 |
| commit | 8d75f39cb25d5068ad009729a174b0f93fb8e3ba (patch) | |
| tree | 0364b74a486de5fac143a426ca22d05f20707152 /gcc/ada | |
| parent | fa0d36062d9931c9fc76073b402b60a650f9c1a2 (diff) | |
| download | gcc-8d75f39cb25d5068ad009729a174b0f93fb8e3ba.zip gcc-8d75f39cb25d5068ad009729a174b0f93fb8e3ba.tar.gz gcc-8d75f39cb25d5068ad009729a174b0f93fb8e3ba.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/namet.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/namet.adb b/gcc/ada/namet.adb index 78c0df4..8bd7127 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); |