diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-11 10:44:15 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-11 10:44:15 +0200 |
| commit | 313d6f2c343c47b112863540d468d905d82a070b (patch) | |
| tree | 27810ad9b311e93596255bce29ceb7fd146eba9e /gcc/ada/sprint.adb | |
| parent | 7b53cb49e265d06be341de2b1729cb3c7b63fbd9 (diff) | |
| download | gcc-313d6f2c343c47b112863540d468d905d82a070b.zip gcc-313d6f2c343c47b112863540d468d905d82a070b.tar.gz gcc-313d6f2c343c47b112863540d468d905d82a070b.tar.bz2 | |
[multiple changes]
2010-10-11 Arnaud Charlet <charlet@adacore.com>
* sem_prag.adb (Check_Interrupt_Or_Attach_Handler): Do not emit error
for AI05-0033 in CodePeer mode.
2010-10-11 Robert Dewar <dewar@adacore.com>
* atree.h, atree.ads, atree.adb (Flag3): New flag (replaces Unused_1)
* csinfo.adb: Aspect_Specifications is a new special field
* einfo.adb (Flag3): New unused flag
* exp_util.adb (Insert_Actions): Add processing for
N_Aspect_Specification.
* sem.adb: Add entry for N_Aspect_Specification.
* sinfo.ads, sinfo.adb (N_Aspect_Specification): New node
(Has_Aspect_Specifications): New flag
(Permits_Aspect_Specifications): New function
(Aspect_Specifications): New function
(Set_Aspect_Specifications): New procedure
* sprint.adb (Sprint_Node): Put N_At_Clause in proper alpha order
(Sprint_Node): Add dummy entry for N_Aspect_Specification
* treepr.adb (Flag3): New flag to be listed
2010-10-11 Vincent Celier <celier@adacore.com>
* adaint.c: Minor reformatting.
From-SVN: r165279
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index b2fe941..816750c 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -999,12 +999,8 @@ package body Sprint is Write_Str_Sloc (" and then "); Sprint_Right_Opnd (Node); - when N_At_Clause => - Write_Indent_Str_Sloc ("for "); - Write_Id (Identifier (Node)); - Write_Str_With_Col_Check (" use at "); - Sprint_Node (Expression (Node)); - Write_Char (';'); + when N_Aspect_Specification => + raise Program_Error; when N_Assignment_Statement => Write_Indent; @@ -1026,6 +1022,13 @@ package body Sprint is Sprint_Node (Abortable_Part (Node)); Write_Indent_Str ("end select;"); + when N_At_Clause => + Write_Indent_Str_Sloc ("for "); + Write_Id (Identifier (Node)); + Write_Str_With_Col_Check (" use at "); + Sprint_Node (Expression (Node)); + Write_Char (';'); + when N_Attribute_Definition_Clause => Write_Indent_Str_Sloc ("for "); Sprint_Node (Name (Node)); |