OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[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
This commit is contained in:
Arnaud Charlet 2012-06-12 12:16:11 +02:00
parent 93901a431f
commit 05a0a2ead1
3 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/ada/ChangeLog
View File

@ -1,3 +1,13 @@
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.

12
gcc/ada/a-direct.adb
View File

@ -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

2
gcc/ada/lib-xref.ads
View File

@ -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.