diff options
author | Hristian Kirtchev <kirtchev@adacore.com> | 2008-05-20 14:48:03 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-20 14:48:03 +0200 |
commit | caebb7c302bd203f1dc7a243cef7f54b31273cfb (patch) | |
tree | 1e9e4bc8f4d88cd463f72cc4da8627f0a7dd662f | |
parent | 23e6615e0fb38cfb3b3480e2adfbf4b49cb9a7c0 (diff) | |
download | gcc-caebb7c302bd203f1dc7a243cef7f54b31273cfb.zip gcc-caebb7c302bd203f1dc7a243cef7f54b31273cfb.tar.gz gcc-caebb7c302bd203f1dc7a243cef7f54b31273cfb.tar.bz2 |
2008-05-20 Hristian Kirtchev <kirtchev@adacore.com>
* par-ch3.adb
(P_Access_Definition): Change the error message when parsing "access
all" in Ada 95 mode. The message no longer forces the user to recompile
in 05 mode only to discover that anonymous access types are not allowed
to have "all".
From-SVN: r135633
-rw-r--r-- | gcc/ada/par-ch3.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb index 8eb0e71..c2ec59b 100644 --- a/gcc/ada/par-ch3.adb +++ b/gcc/ada/par-ch3.adb @@ -3931,8 +3931,7 @@ package body Ch3 is if Token = Tok_All then if Ada_Version < Ada_05 then Error_Msg_SP - ("access-all in this context is an Ada 2005 extension"); - Error_Msg_SP ("\unit should be compiled with -gnat05 switch"); + ("ALL is not permitted for anonymous access types"); end if; Scan; -- past ALL |