diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:39:51 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:39:51 +0000 |
| commit | fc76db3544cabf63c83423f01baff7a54a07cbcc (patch) | |
| tree | 0364b74a486de5fac143a426ca22d05f20707152 | |
| parent | 87cbc78338b17f2f848873df2650253171b48cd1 (diff) | |
| download | gcc-fc76db3544cabf63c83423f01baff7a54a07cbcc.tar.gz | |
* namet.adb (Get_Decoded_Name_With_Brackets): Fix case of not allowing
upper case letter or underscore after W, as allowed by spec.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92844 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 78c0df49895..8bd712754f9 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); |