diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-08 12:40:25 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-08 12:40:25 +0000 |
| commit | b46aca2b7e2328551b6d12b8a37e48c8083b16bb (patch) | |
| tree | e6822a354998f958f9429dbfd7485c85936e5cb8 /gcc/ada/sinfo.adb | |
| parent | 4b30b6a13dc9d8eca4977e0acd65b9048ccb5700 (diff) | |
| download | gcc-b46aca2b7e2328551b6d12b8a37e48c8083b16bb.tar.gz | |
2010-10-08 Robert Dewar <dewar@adacore.com>
* par-ch3.adb: Minor reformatting.
2010-10-08 Javier Miranda <miranda@adacore.com>
* exp_disp.adb (Make_DT): Do not generate dispatch tables for CIL/Java
types.
2010-10-08 Robert Dewar <dewar@adacore.com>
* par-ch8.adb (P_Use_Type_Clause): Recognize ALL keyword in Ada 2012
mode.
* sinfo.adb (Use_Type_Clause): Add All_Present flag.
* sinfo.ads (Use_Type_Clause): Add All_Present flag.
* s-rident.ads: Add entry for No_Allocators_After_Elaboration,
No_Anonymous_Allocators.
2010-10-08 Vincent Celier <celier@adacore.com>
* bindgen.adb (Gen_Restrictions_Ada): No new line after last
restriction, so that the last comma is always replaced with a left
parenthesis.
2010-10-08 Javier Miranda <miranda@adacore.com>
* sem_prag.adb (Analyze_Pragma): Add specific check on the type of the
first formal of delegates.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165169 138bc75d-0d04-0410-961f-82ee72b054a4
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 45659021e9b..cac6e7341b5 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -223,7 +223,8 @@ package body Sinfo is begin pragma Assert (False or else NT (N).Nkind = N_Access_Definition - or else NT (N).Nkind = N_Access_To_Object_Definition); + or else NT (N).Nkind = N_Access_To_Object_Definition + or else NT (N).Nkind = N_Use_Type_Clause); return Flag15 (N); end All_Present; @@ -3137,7 +3138,8 @@ package body Sinfo is begin pragma Assert (False or else NT (N).Nkind = N_Access_Definition - or else NT (N).Nkind = N_Access_To_Object_Definition); + or else NT (N).Nkind = N_Access_To_Object_Definition + or else NT (N).Nkind = N_Use_Type_Clause); Set_Flag15 (N, Val); end Set_All_Present; |