From 811ef5ba910ae7449d73226143271a89d1da6936 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 12 Oct 2010 10:20:00 +0000 Subject: par-ch13.adb (P_Aspect_Specifications): Fix handling of 'Class aspects 2010-10-12 Robert Dewar * par-ch13.adb (P_Aspect_Specifications): Fix handling of 'Class aspects * sem_ch13.adb (Analyze_Aspect_Specifications): Fix bad Sloc on aspects * sem_prag.adb (Fix_Error): Only change pragma names for pragmas from aspects. (Check_Optional_Identifier): Handle case of direct arguments (Chain_PPC): Test for abstract case, giving appropriate messages * sinfo.ads, sinfo.adb (Class_Present): Allowed on N_Pragma node From-SVN: r165355 --- 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 5a14484..ead2fcb 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -412,7 +412,8 @@ package body Sinfo is (N : Node_Id) return Boolean is begin pragma Assert (False - or else NT (N).Nkind = N_Aspect_Specification); + or else NT (N).Nkind = N_Aspect_Specification + or else NT (N).Nkind = N_Pragma); return Flag6 (N); end Class_Present; @@ -3372,7 +3373,8 @@ package body Sinfo is (N : Node_Id; Val : Boolean := True) is begin pragma Assert (False - or else NT (N).Nkind = N_Aspect_Specification); + or else NT (N).Nkind = N_Aspect_Specification + or else NT (N).Nkind = N_Pragma); Set_Flag6 (N, Val); end Set_Class_Present; -- cgit v1.1