From 4887624ec89edfe47471a467732b9c85537b3ff5 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 1 Aug 2014 15:54:30 +0200 Subject: [multiple changes] 2014-08-01 Eric Botcazou * sem_ch7.adb: Fix minor oversight in condition. 2014-08-01 Bob Duff * projects.texi: Minor documentation improvements. 2014-08-01 Robert Dewar * aspects.ads, aspects.adb: Add aspect No_Elaboration_Code_All. * gnat_rm.texi: Document No_Elaboration_Code_All pragma and aspect. * lib-load.adb: Initialize No_Elab_Code_All field. * lib-writ.adb: Initialize No_Elab_Code_All. * lib.ads, lib.adb: New field No_Elab_Code_All. * par-prag.adb: Add dummy entry for pragma No_Elaboration_Code_All. * restrict.ads, restrict.adb: Restriction No_Elaboration_Code_All no longer exists. * sem_ch10.adb (Analyze_Context): Processing for No_Elaboration_Code_All removed. (Generate_Parent_References): Moved to Sem_Util. * sem_prag.adb: Add processing for pragma No_Elaboration_Code_All. * sem_util.ads, sem_util.adb (Get_Parent_Entity): Moved here from Sem_Ch10. * snames.ads-tmpl: Add entry for pragma No_Elaboration_Code_All. * targparm.adb: Minor comment updates Add comments on ignoring pragma No_Elaboration_Code_All. 2014-08-01 Nicolas Roche * adaint.c (__gnat_set_close_on_exec): Ensure that we can unset "close_on_exec" flag. 2014-08-01 Ed Schonberg * exp_ch9.adb (Build_Wrapper_Spec, Replicate_Formals): When building the parameter specs of the wrapper program for a primitive operation of a synchronized type that implements an interface, copy the null_exclusion indicator as well. 2014-08-01 Robert Dewar * sem_eval.ads: Minor reformatting. From-SVN: r213466 --- gcc/ada/restrict.adb | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'gcc/ada/restrict.adb') diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index 237ee42..3027ffa 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -858,8 +858,8 @@ package body Restrict is -- Process_Restriction_Synonyms -- ---------------------------------- - -- Note: body of this function must be coordinated with list of - -- renaming declarations in System.Rident. + -- Note: body of this function must be coordinated with list of renaming + -- declarations in System.Rident. function Process_Restriction_Synonyms (N : Node_Id) return Name_Id is @@ -883,11 +883,6 @@ package body Restrict is when Name_No_Task_Attributes => New_Name := Name_No_Task_Attributes_Package; - -- No_Elaboration_Code_All is special, no warning needed - - when Name_No_Elaboration_Code_All => - return Name_No_Elaboration_Code; - -- SPARK is special in that we unconditionally warn when Name_SPARK => -- cgit v1.1