[multiple changes]

2012-06-12  Robert Dewar  <dewar@adacore.com>

	* lib-xref.ads: Minor reformatting.

2012-06-12  Pascal Obry  <obry@adacore.com>

	* a-direct.adb (Delete_File): Delete symbolic links silently
	instead of raising the Name_Error exception when the symbolic
	link is pointing to a non existent file.

From-SVN: r188440

gcc/ada/ChangeLog

 2012-06-12  Robert Dewar  <dewar@adacore.com>
 
+	* lib-xref.ads: Minor reformatting.
+
+2012-06-12  Pascal Obry  <obry@adacore.com>
+
+	* a-direct.adb (Delete_File): Delete symbolic links silently
+	instead of raising the Name_Error exception when the symbolic
+	link is pointing to a non existent file.
+
+2012-06-12  Robert Dewar  <dewar@adacore.com>
+
 	* xref_lib.adb, sem_ch13.adb, lib-xref.adb: Minor reformatting.
 
 2012-06-12  Javier Miranda  <miranda@adacore.com>

gcc/ada/a-direct.adb

@@ -31,20 +31,20 @@
 
 with Ada.Calendar;               use Ada.Calendar;
 with Ada.Calendar.Formatting;    use Ada.Calendar.Formatting;
+with Ada.Characters.Handling;    use Ada.Characters.Handling;
 with Ada.Directories.Validity;   use Ada.Directories.Validity;
-with Ada.Strings.Maps;           use Ada.Strings.Maps;
 with Ada.Strings.Fixed;
+with Ada.Strings.Maps;           use Ada.Strings.Maps;
 with Ada.Strings.Unbounded;      use Ada.Strings.Unbounded;
 with Ada.Unchecked_Conversion;
 with Ada.Unchecked_Deallocation;
-with Ada.Characters.Handling;    use Ada.Characters.Handling;
 
+with System;              use System;
 with System.CRTL;         use System.CRTL;
+with System.File_IO;      use System.File_IO;
 with System.OS_Constants; use System.OS_Constants;
 with System.OS_Lib;       use System.OS_Lib;
 with System.Regexp;       use System.Regexp;
-with System.File_IO;      use System.File_IO;
-with System;              use System;
 
 package body Ada.Directories is
 
@@ -561,7 +561,9 @@ package body Ada.Directories is
       if not Is_Valid_Path_Name (Name) then
          raise Name_Error with "invalid path name """ & Name & '"';
 
-      elsif not Is_Regular_File (Name) then
+      elsif not Is_Regular_File (Name)
+        and then not Is_Symbolic_Link (Name)
+      then
          raise Name_Error with "file """ & Name & """ does not exist";
 
       else

gcc/ada/lib-xref.ads

@@ -366,7 +366,7 @@ package Lib.Xref is
    --              of the current file.
 
    --              a reference (e.g. a call) at line 8 column 4 of the
-   --              of the current file.
+   --              current file.
 
    --              the END line of the body has an explicit reference to
    --              the name of the procedure at line 12, column 13.