Skip to content

R
riscv-gcc-1
Commit 8d75f39c by Arnaud Charlet
Options

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

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
parent fa0d3606
Showing with 6 additions and 2 deletions
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);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment