From 1ae09faf95d176592771bfea4c47aee3fa3645be Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 3 Aug 2011 08:32:57 +0000 Subject: 2011-08-03 Olivier Hainque * tracebak.c (STOP_FRAME ppc AIX): Stop at null return address as well. 2011-08-03 Ed Schonberg * sem_ch8.adb (Analyze_Object_Renaming): if the renamed object is an explicit dereference of an unconstrained type, create a constrained subtype for it, as is done for function calls that return an unconstrained type. 2011-08-03 Thomas Quinot * g-pehage.adb (Finalize): Avoid possible double-free. 2011-08-03 Steve Baird * exp_attr.adb (Expand_N_Attribute_Reference): Don't expand Elab_Spec/Body attrs in CodePeer_Mode. 2011-08-03 Javier Miranda * exp_aggr.adb (Flatten): Convert to positional form aggregates whose low bound is not known at compile time but they have no others choice. Done because in this case the bounds can be obtained directly from the aggregate. 2011-08-03 Ed Falis * s-tasinf-vxworks.ads: Update comment to reflect 0 indexing of CPUs on VxWorks SMP. Remove unusable constant ANY_CPU. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177242 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/exp_attr.adb | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'gcc/ada/exp_attr.adb') diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 8990e0b293b..a2c2bcc8d4c 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2011, 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- -- @@ -1808,6 +1808,13 @@ package body Exp_Attr is when Attribute_Elab_Body | Attribute_Elab_Spec => + -- Leave attribute unexpanded in CodePeer mode: the gnat2scil + -- back-end knows how to handle this attribute directly. + + if CodePeer_Mode then + return; + end if; + Elab_Body : declare Ent : constant Entity_Id := Make_Temporary (Loc, 'E'); Str : String_Id; -- cgit v1.2.1