gnatls.adb: (Corresponding_Sdep_Entry): Always return a value

2007-08-14  Vincent Celier  <celier@adacore.com>

	* gnatls.adb: (Corresponding_Sdep_Entry): Always return a value
	(Output_Source): Do nothing if parameter is No_Sdep_Id

	* make.adb (Gnatmake): Do not rebuild an archive simply because a
	shared library it imports has a later time stamp.
	(Check): Resolve the symbolic links in the path name of the object
	directory.
	Check that the ALI file is in the correct object directory
	Check if a file name does not correspond to the mapping of units
	to file names.
	(Display_Version): New procedure
	(Initialize): Process switches --version and --help
	Use type Path_Name_Type for path name

From-SVN: r127453

gcc/ada/gnatls.adb

@@ -263,6 +263,7 @@ procedure Gnatls is
       Write_Eol;
       Error_Msg ("wrong ALI format, can't find dependency line for $ in {");
       Exit_Program (E_Fatal);
+      return No_Sdep_Id;
    end Corresponding_Sdep_Entry;
 
    -------------------------
@@ -899,13 +900,21 @@ procedure Gnatls is
    -------------------
 
    procedure Output_Source (Sdep_I : Sdep_Id) is
-      Stamp       : constant Time_Stamp_Type := Sdep.Table (Sdep_I).Stamp;
-      Checksum    : constant Word            := Sdep.Table (Sdep_I).Checksum;
-      FS          : File_Name_Type           := Sdep.Table (Sdep_I).Sfile;
+      Stamp       : Time_Stamp_Type;
+      Checksum    : Word;
+      FS          : File_Name_Type;
       Status      : File_Status;
       Object_Name : String_Access;
 
    begin
+      if Sdep_I = No_Sdep_Id then
+         return;
+      end if;
+
+      Stamp    := Sdep.Table (Sdep_I).Stamp;
+      Checksum := Sdep.Table (Sdep_I).Checksum;
+      FS       := Sdep.Table (Sdep_I).Sfile;
+
       if Print_Source then
          Find_Status (FS, Stamp, Checksum, Status);
          Get_Name_String (FS);