mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 13:41:18 +08:00
Code Issues Packages Projects Releases Wiki Activity

sem_ch13.adb (Analyze_Aspect_Specifications): For a Pre/Post aspect that applies to a library subprogram...

Browse Source 
2013-01-02  Thomas Quinot  <quinot@adacore.com>

	* sem_ch13.adb (Analyze_Aspect_Specifications): For a Pre/Post
	aspect that applies to a library subprogram, prepend corresponding
	pragma to the Pragmas_After list, in order for split AND THEN
	sections to be processed in the expected order.

From-SVN: r194783
This commit is contained in:
Thomas Quinot 2013-01-02 09:39:36 +00:00 committed by Arnaud Charlet
parent c5d00db06f
commit 6a04272a9a
2 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/ChangeLog
View File

@ -1,3 +1,10 @@
2013-01-02 Thomas Quinot <quinot@adacore.com>
* sem_ch13.adb (Analyze_Aspect_Specifications): For a Pre/Post
aspect that applies to a library subprogram, prepend corresponding
pragma to the Pragmas_After list, in order for split AND THEN
sections to be processed in the expected order.
2013-01-02 Thomas Quinot <quinot@adacore.com>
* exp_prag.adb (Expand_Pragma_Check): The statements generated

17
gcc/ada/sem_ch13.adb
View File

@ -1602,10 +1602,21 @@ package body Sem_Ch13 is
-- with delay of visibility for the expression analysis.
-- If the entity is a library-level subprogram, the pre/
-- postconditions must be treated as late pragmas.
-- postconditions must be treated as late pragmas. Note
-- that they must be prepended, not appended, to the list,
-- so that split AND THEN sections are processed in the
-- correct order.
if Nkind (Parent (N)) = N_Compilation_Unit then
Add_Global_Declaration (Aitem);
declare
Aux : constant Node_Id := Aux_Decls_Node (Parent (N));
begin
if No (Pragmas_After (Aux)) then
Set_Pragmas_After (Aux, New_List);
end if;
Prepend (Aitem, Pragmas_After (Aux));
end;
-- If it is a subprogram body, add pragmas to list of
-- declarations in body.
@ -1930,7 +1941,7 @@ package body Sem_Ch13 is
else
if No (Pragmas_After (Aux)) then
Set_Pragmas_After (Aux, Empty_List);
Set_Pragmas_After (Aux, New_List);
end if;
Append (Aitem, Pragmas_After (Aux));