diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:49:20 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:49:20 +0000 |
| commit | e462e0735b2ccf90f2641b5d644e86f38a0d7b99 (patch) | |
| tree | 4e4642e3fdd77b04204a596480780a81c06decec /gcc/ada/a-direct.ads | |
| parent | d570bc7b39f2a13790b984a9518262bf66d010dc (diff) | |
| download | gcc-e462e0735b2ccf90f2641b5d644e86f38a0d7b99.tar.gz | |
2007-04-20 Vincent Celier <celier@adacore.com>
* a-dirval-vms.adb, a-dirval.ads, a-dirval.adb (Windows): New Boolean
function.
* a-dirval-mingw.adb (Is_Valid_Path_Name): Forbid a path with a drive
letter if it is not followed by a '/' or a '\'.
(Windows): New Boolean function
* a-direct.ads, a-direct.adb: Remove unnecessary and misplaced pragma
Ada 2005.
(Containing_Directory): On Windows, keep at least one '/' or '\' after a
drive letter.
(Containing_Directory): Raise Use_Error when the directory is a root
directory.
(Extension): When returning the result, use a conversion to Result_Type,
not a qualification.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125468 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-direct.ads')
| -rw-r--r-- | gcc/ada/a-direct.ads | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/ada/a-direct.ads b/gcc/ada/a-direct.ads index aee3fb42199..8b918f638b8 100644 --- a/gcc/ada/a-direct.ads +++ b/gcc/ada/a-direct.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2004-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2007, Free Software Foundation, Inc. -- -- -- -- This specification is derived for use with GNAT from AI-00248, which is -- -- expected to be a part of a future expected revised Ada Reference Manual. -- @@ -77,9 +77,6 @@ with Ada.Strings.Unbounded; package Ada.Directories is - pragma Ada_05; - -- To be removed later ??? - ----------------------------------- -- Directory and File Operations -- ----------------------------------- @@ -322,7 +319,7 @@ package Ada.Directories is -- End_Search, the object Search will have no entries available. Note -- that is is not necessary to call End_Search if the call to Start_Search -- was unsuccessful and raised an exception (but it is harmless to make - -- the call in this case)> + -- the call in this case). function More_Entries (Search : Search_Type) return Boolean; -- Returns True if more entries are available to be returned by a call |