From b46aca2b7e2328551b6d12b8a37e48c8083b16bb Mon Sep 17 00:00:00 2001 From: charlet Date: Fri, 8 Oct 2010 12:40:25 +0000 Subject: 2010-10-08 Robert Dewar * par-ch3.adb: Minor reformatting. 2010-10-08 Javier Miranda * exp_disp.adb (Make_DT): Do not generate dispatch tables for CIL/Java types. 2010-10-08 Robert Dewar * 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 * 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 * 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 --- gcc/ada/sinfo.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gcc/ada/sinfo.adb') 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; -- cgit v1.2.1