diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-30 11:50:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-30 11:50:52 +0000 |
| commit | 30fe3fdc205d195f8632894966a8319f1c17fc4b (patch) | |
| tree | d142f637db09aa859f72a46fdd034128fa1bb9a5 /gcc/ada/sem_prag.adb | |
| parent | 27121718dadc1c9ae171f2b6ed95ab2d610c87b7 (diff) | |
| download | gcc-30fe3fdc205d195f8632894966a8319f1c17fc4b.tar.gz | |
2012-01-30 Robert Dewar <dewar@adacore.com>
* a-strhas.ads, einfo.adb, einfo.ads, exp_ch7.adb, exp_ch9.adb,
freeze.adb, prj.adb, prj.ads, prj-nmsc.adb, prj-proc.adb, s-llflex.ads,
s-ransee.adb, s-ransee.ads, sem_ch13.adb, sem_dim.adb, sem_prag.adb:
Minor reformatting/code reorganization.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183710 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 326573f6aa8..3a16969ac34 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -7084,7 +7084,7 @@ package body Sem_Prag is Check_Interrupt_Or_Attach_Handler; -- The expression that designates the attribute may depend on a - -- discriminant, and is therefore a per- object expression, to + -- discriminant, and is therefore a per-object expression, to -- be expanded in the init proc. If expansion is enabled, then -- perform semantic checks on a copy only. @@ -15308,13 +15308,12 @@ package body Sem_Prag is -- Make an aspect from any PPC pragma - Append ( + Append_To (Aspects, Make_Aspect_Specification (Loc, Identifier => Make_Identifier (Loc, Chars (Pragma_Identifier (Prag))), Expression => - Copy_Separate_Tree (Expression (Prag_Arg_Ass))), - Aspects); + Copy_Separate_Tree (Expression (Prag_Arg_Ass)))); -- Generate the analysis information in the pragma expression -- and then set the pragma node analyzed to avoid any further |