diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-09 12:34:06 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-09 12:34:06 +0000 |
| commit | 56a442818e1d62f15e4d94b87cf3e59295f9b528 (patch) | |
| tree | 2ebb2b22186f80f5bd68f4133e0e4c4d701dad8f /gcc/ada/par-ch2.adb | |
| parent | 240887aae5365d5f04cecb616c4053f28701422e (diff) | |
| download | gcc-56a442818e1d62f15e4d94b87cf3e59295f9b528.tar.gz | |
2010-09-09 Ben Brosgol <brosgol@adacore.com>
* gnat_rm.texi: Minor wordsmithing of section on pragma Ordered.
2010-09-09 Arnaud Charlet <charlet@adacore.com>
* par-ch2.adb (Scan_Pragma_Argument_Association): In CodePeer mode,
do not generate an error for compatibility with legacy code.
ignored when generating SCIL.
* sem_attr.adb (Resolve_Attribute): Ignore AI-229 in CodePeer mode.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164082 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-ch2.adb')
| -rw-r--r-- | gcc/ada/par-ch2.adb | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/gcc/ada/par-ch2.adb b/gcc/ada/par-ch2.adb index def8ef5c521..e0bf09dd646 100644 --- a/gcc/ada/par-ch2.adb +++ b/gcc/ada/par-ch2.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2010, 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- -- @@ -501,11 +501,13 @@ package body Ch2 is Id_Present := False; end if; - if Identifier_Seen and not Id_Present then - Error_Msg_SC - ("|pragma argument identifier required here"); - Error_Msg_SC - ("\since previous argument had identifier (RM 2.8(4))"); + if Identifier_Seen and not Id_Present and not CodePeer_Mode then + -- In CodePeer mode, we do not generate an error for compatibility + -- with legacy code, since this error can be safely ignored when + -- generating SCIL. + + Error_Msg_SC ("|pragma argument identifier required here"); + Error_Msg_SC ("\since previous argument had identifier (RM 2.8(4))"); end if; if Id_Present then |