From 1773d80bb69879c5460954c729b3c254cb002426 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 29 Jul 2014 15:39:22 +0200 Subject: [multiple changes] 2014-07-29 Ed Schonberg * inline.ads, inline.adb, sem_ch10.adb: Rename Check_Body_For_Inlining to Check_Package_Body_For_Inlining, to prevent confusion with other inlining subprograms. 2014-07-29 Robert Dewar * opt.ads: Minor comment update. * sem_attr.adb (Uneval_Old_Msg): Deal with case of aspect, where we want setting of Uneval_Old at time of encountering the aspect. * sem_ch13.adb (Analyze_Aspect_Specifications): Capture setting of Opt.Uneval_Old. * sinfo.adb (Uneval_Old_Accept): New function (Uneval_Old_Warn): New function (Set_Uneval_Old_Accept): New procedure. (Set_Uneval_Old_Warn): New procedure. * sinfo.ads: Uneval_Old_Accept: New flag Uneval_Old_Warn: New flag. From-SVN: r213181 --- gcc/ada/sinfo.adb | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) (limited to 'gcc/ada/sinfo.adb') diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 3ea385c..aca92b3 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -3164,6 +3164,22 @@ package body Sinfo is return Node3 (N); end Type_Definition; + function Uneval_Old_Accept + (N : Node_Id) return Boolean is + begin + pragma Assert (False + or else NT (N).Nkind = N_Aspect_Specification); + return Flag13 (N); + end Uneval_Old_Accept; + + function Uneval_Old_Warn + (N : Node_Id) return Boolean is + begin + pragma Assert (False + or else NT (N).Nkind = N_Aspect_Specification); + return Flag18 (N); + end Uneval_Old_Warn; + function Unit (N : Node_Id) return Node_Id is begin @@ -6347,6 +6363,22 @@ package body Sinfo is Set_Elist3 (N, Val); -- semantic field, no parent set end Set_TSS_Elist; + procedure Set_Uneval_Old_Accept + (N : Node_Id; Val : Boolean := True) is + begin + pragma Assert (False + or else NT (N).Nkind = N_Aspect_Specification); + Set_Flag13 (N, Val); + end Set_Uneval_Old_Accept; + + procedure Set_Uneval_Old_Warn + (N : Node_Id; Val : Boolean := True) is + begin + pragma Assert (False + or else NT (N).Nkind = N_Aspect_Specification); + Set_Flag18 (N, Val); + end Set_Uneval_Old_Warn; + procedure Set_Type_Definition (N : Node_Id; Val : Node_Id) is begin -- cgit v1.1