sem_res.adb (Make_Call_Into_Operator): Use First_Subtype for better error reporting with generic types.

2010-06-22  Thomas Quinot  <quinot@adacore.com>

	* sem_res.adb (Make_Call_Into_Operator): Use First_Subtype for better
	error reporting with generic types.

2010-06-22  Thomas Quinot  <quinot@adacore.com>

	* bindgen.adb, bindusg.adb, gnatbind.adb, gnat_ugn.texi, opt.ads,
	osint-b.adb, osint-b.ads, output.adb, output.ads, switch-b.adb,
	vms_data.ads: Add a new command line switch -A to gnatbind to output
	the list of all ALI files for the partition.

From-SVN: r161153

1 files changed, 27 insertions, 1 deletions

diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb
index bdd9702..c09f795 100644
--- a/gcc/ada/gnatbind.adb
+++ b/gcc/ada/gnatbind.adb
@@ -738,7 +738,7 @@ begin
          Free (Text);
       end if;
 
-      --  Acquire all information in ALI files that have been read in
+      --  Load ALIs for all dependent units
 
       for Index in ALIs.First .. ALIs.Last loop
          Read_Withed_ALIs (Index);
@@ -750,6 +750,32 @@ begin
          raise Unrecoverable_Error;
       end if;
 
+      --  Output list of ALI files in closure
+
+      if Output_ALI_List then
+         declare
+            FD : File_Descriptor;
+         begin
+            if ALI_List_Filename /= null then
+               Set_List_File (ALI_List_Filename.all);
+            end if;
+
+            for Index in ALIs.First .. ALIs.Last loop
+               declare
+                  Full_Afile : constant File_Name_Type :=
+                                 Find_File (ALIs.Table (Index).Afile, Library);
+               begin
+                  Write_Name (Full_Afile);
+                  Write_Eol;
+               end;
+            end loop;
+
+            if ALI_List_Filename /= null then
+               Close_List_File;
+            end if;
+         end;
+      end if;
+
       --  Build source file table from the ALI files we have read in
 
       Set_Source_Table;