diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2008-05-20 14:48:30 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-20 14:48:30 +0200 |
| commit | 08de96f033fdf32b2c354c4679cf34cb41194ddc (patch) | |
| tree | 1f271cac4cf83c94ad1306b32b1830442bb13b47 /gcc | |
| parent | caebb7c302bd203f1dc7a243cef7f54b31273cfb (diff) | |
| download | gcc-08de96f033fdf32b2c354c4679cf34cb41194ddc.zip gcc-08de96f033fdf32b2c354c4679cf34cb41194ddc.tar.gz gcc-08de96f033fdf32b2c354c4679cf34cb41194ddc.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/par-ch9.adb | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/gcc/ada/par-ch9.adb b/gcc/ada/par-ch9.adb index 6a24776..fcf2d3c 100644 --- a/gcc/ada/par-ch9.adb +++ b/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 |