From a653c8e26e88e9e1a8a4f6a2bc6f0778e938d08f Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 31 Jul 2014 12:32:10 +0000 Subject: 2014-07-31 Vincent Celier * projects.texi: Minor spelling error fix. 2014-07-31 Robert Dewar * gnat_rm.texi: Document No_Elaboration_Code_All restriction. * lib-writ.adb, lib-load.adb: Initialize No_Elab_Code field in unit information. * lib.ads, lib.adb (No_Elab_Code): New field in unit information. * restrict.adb (Process_Restriction_Synonyms): Add handling of No_Elaboration_Code_All. * restrict.ads (Process_Restriction_Synonyms): Now handles No_Elaboration_Code_All. * sem_ch10.adb (Analyze_Context): Enforce transitive with for No_Elaboration_Code_All. * sem_prag.adb (Process_Restrictions_Or_Restriction_Warnings): Handle setting of No_Elab_Code in unit information. Handle No_Elaboration_Code_All. * snames.ads-tmpl (Name_No_Elaboration_Code): New name for pragma processing. (Name_No_Elaboration_Code_All): New name for pragma processing. 2014-07-31 Eric Botcazou * exp_aggr.adb (Aggr_Assignment_OK_For_Backend): Reject array types with a null range and use the Esize of the component instead of its RM_Size to identify appropriate values. 2014-07-31 Hristian Kirtchev * freeze.adb Add with and use clause for Aspects. (Freeze_Expression): Emit an error when a volatile constant lacks Boolean aspect Import. (Has_Boolean_Aspect_Import): New routine. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213347 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/lib.adb | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'gcc/ada/lib.adb') diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index 53b611d983a..b2f9c36e40e 100644 --- a/gcc/ada/lib.adb +++ b/gcc/ada/lib.adb @@ -146,6 +146,11 @@ package body Lib is return Units.Table (U).Munit_Index; end Munit_Index; + function No_Elab_Code (U : Unit_Number_Type) return No_Elab_Code_T is + begin + return Units.Table (U).No_Elab_Code; + end No_Elab_Code; + function OA_Setting (U : Unit_Number_Type) return Character is begin return Units.Table (U).OA_Setting; @@ -226,6 +231,11 @@ package body Lib is Units.Table (U).Main_Priority := P; end Set_Main_Priority; + procedure Set_No_Elab_Code (U : Unit_Number_Type; N : No_Elab_Code_T) is + begin + Units.Table (U).No_Elab_Code := N; + end Set_No_Elab_Code; + procedure Set_OA_Setting (U : Unit_Number_Type; C : Character) is begin Units.Table (U).OA_Setting := C; -- cgit v1.2.1