diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-01 12:44:14 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-01 12:44:14 +0200 |
| commit | fecbd77922c9772bb2823e111991349e0657241a (patch) | |
| tree | a1771b89906f482d6e4877b37d3a4348e9509916 /gcc/ada/sinfo.adb | |
| parent | 516f608f15dcef7a20a2e178c57e3e8078784331 (diff) | |
| download | gcc-fecbd77922c9772bb2823e111991349e0657241a.zip gcc-fecbd77922c9772bb2823e111991349e0657241a.tar.gz gcc-fecbd77922c9772bb2823e111991349e0657241a.tar.bz2 | |
[multiple changes]
2011-09-01 Robert Dewar <dewar@adacore.com>
* s-taskin.ads, s-tassta.adb, sem_ch13.adb: Minor reformatting.
2011-09-01 Thomas Quinot <quinot@adacore.com>
* Makefile.rtl: Move s-oscons.o from GNATRTL_TASKING_OBJS to
GNATRTL_NONTASKING_OBJS.
2011-09-01 Robert Dewar <dewar@adacore.com>
* einfo.ads (Is_Aliased): Fix existing documentation and add note on
possibility of this flag being set for formals in Ada 2012 mode.
* par-ch6.adb (P_Formal_Part): Handle aliased for parameters for Ada
2012.
* sem_ch6.adb (Process_Formals): Handle aliased parameters in Ada 2012
mode.
* sinfo.adb (Aliased_Present): Allowed in N_Parameter_Specification for
Ada 2012.
* sinfo.ads (Aliased_Present): Allowed in N_Parameter_Specification for
Ada 2012.
2011-09-01 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch4.adb (Find_Insertion_Node): New routine. Determines the proper
insertion node in a tree of nested Expression_With_Actions nodes.
(Process_Transient_Object): In the case where a complex if statement
has been converted into nested Expression_With_Actions nodes, the
"hook" object and the associated access type must be inserted before
the top most Expression_With_Actions.
From-SVN: r178401
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 4c9d6aa..67baab9 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -206,7 +206,8 @@ package body Sinfo is begin pragma Assert (False or else NT (N).Nkind = N_Component_Definition - or else NT (N).Nkind = N_Object_Declaration); + or else NT (N).Nkind = N_Object_Declaration + or else NT (N).Nkind = N_Parameter_Specification); return Flag4 (N); end Aliased_Present; @@ -3265,7 +3266,8 @@ package body Sinfo is begin pragma Assert (False or else NT (N).Nkind = N_Component_Definition - or else NT (N).Nkind = N_Object_Declaration); + or else NT (N).Nkind = N_Object_Declaration + or else NT (N).Nkind = N_Parameter_Specification); Set_Flag4 (N, Val); end Set_Aliased_Present; |