From bbc7bed2e0ba2c1533a3263f4b7057b0b03c6fa3 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 21 Jun 2010 15:24:03 +0000 Subject: 2010-06-21 Robert Dewar * exp_ch4.adb (Expand_N_Conditional_Expression): Fold if condition known at compile time. 2010-06-21 Gary Dismukes * atree.adb: Fix comment typo. 2010-06-21 Ed Schonberg * sem_eval.adb (Test_Ambiguous_Operator): New procedure to check whether a universal arithmetic expression in a conversion, which is rewritten from a function call with an expanded name, is ambiguous. 2010-06-21 Vincent Celier * prj-nmsc.adb (Name_Location): New Boolean component Listed, to record source files in specified list of sources. (Check_Package_Naming): Remove out parameters Bodies and Specs, as they are never used. (Add_Source): Set the Location of the new source (Process_Exceptions_File_Based): Call Add_Source with the Location (Get_Sources_From_File): If an exception is found, set its Listed to True (Find_Sources): When Source_Files is specified, if an exception is found, set its Listed to True. Remove any exception that is not in a specified list of sources. * prj.ads (Source_Data): New component Location 2010-06-21 Vincent Celier * gnatbind.adb (Closure_Sources): Global table, moved from block. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161088 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/gnatbind.adb | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) (limited to 'gcc/ada/gnatbind.adb') diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index 8b6edbd3aab..cc06ce39706 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -82,6 +82,16 @@ procedure Gnatbind is Mapping_File : String_Ptr := null; + package Closure_Sources is new Table.Table + (Table_Component_Type => File_Name_Type, + Table_Index_Type => Natural, + Table_Low_Bound => 1, + Table_Initial => 10, + Table_Increment => 100, + Table_Name => "Gnatbind.Closure_Sources"); + -- Table to record the sources in the closure, to avoid duplications. Used + -- only with switch -R. + function Gnatbind_Supports_Auto_Init return Boolean; -- Indicates if automatic initialization of elaboration procedure -- through the constructor mechanism is possible on the platform. @@ -817,16 +827,6 @@ begin if List_Closure then declare - package Sources is new Table.Table - (Table_Component_Type => File_Name_Type, - Table_Index_Type => Natural, - Table_Low_Bound => 1, - Table_Initial => 10, - Table_Increment => 100, - Table_Name => "Gnatbind.Sources"); - -- Table to record the sources in the closure, to avoid - -- dupications. - Source : File_Name_Type; function Put_In_Sources (S : File_Name_Type) return Boolean; @@ -842,17 +842,19 @@ begin return Boolean is begin - for J in 1 .. Sources.Last loop - if Sources.Table (J) = S then + for J in 1 .. Closure_Sources.Last loop + if Closure_Sources.Table (J) = S then return False; end if; end loop; - Sources.Append (S); + Closure_Sources.Append (S); return True; end Put_In_Sources; begin + Closure_Sources.Init; + if not Zero_Formatting then Write_Eol; Write_Str ("REFERENCED SOURCES"); -- cgit v1.2.1