Skip to content

R
riscv-gcc-1
Commit 08de96f0 by Hristian Kirtchev Committed by Arnaud Charlet
Options

2008-05-20 Hristian Kirtchev <kirtchev@adacore.com> 

	* par-ch9.adb
	(P_Protected): Update the error message on missing "-gnat05" switch when
	using interfaces in conjunction with protected types. Remove the
	incorrect error message associated with the presence of "private" after
	a "with".

From-SVN: r135634
parent caebb7c3
Showing with 4 additions and 9 deletions
gcc/ada/par-ch9.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2008, 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- --
......@@ -477,7 +477,7 @@ package body Ch9 is
Scan; -- past NEW
if Ada_Version < Ada_05 then
Error_Msg_SP ("task interface is an Ada 2005 extension");
Error_Msg_SP ("protected interface is an Ada 2005 extension");
Error_Msg_SP ("\unit must be compiled with -gnat05 switch");
end if;
......@@ -496,11 +496,6 @@ package body Ch9 is
end if;
Scan; -- past WITH
if Token = Tok_Private then
Error_Msg_SP
("PRIVATE not allowed in protected type declaration");
end if;
end if;
Set_Protected_Definition (Protected_Node, P_Protected_Definition);
......@@ -561,8 +556,8 @@ package body Ch9 is
Append (Item_Node, Visible_Declarations (Def_Node));
end loop;
-- Deal with PRIVATE part (including graceful handling
-- of multiple PRIVATE parts).
-- Deal with PRIVATE part (including graceful handling of multiple
-- PRIVATE parts).
Private_Loop : while Token = Tok_Private loop
if No (Private_Declarations (Def_Node)) then
......
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