From 30fe3fdc205d195f8632894966a8319f1c17fc4b Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 30 Jan 2012 11:50:52 +0000 Subject: 2012-01-30 Robert Dewar * 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 --- gcc/ada/sem_prag.adb | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'gcc/ada/sem_prag.adb') 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 -- cgit v1.2.1