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-dirval-vms.adb | |
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-dirval-vms.adb')
-rw-r--r-- | gcc/ada/a-dirval-vms.adb | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/gcc/ada/a-dirval-vms.adb b/gcc/ada/a-dirval-vms.adb index e0321c7d0bf..a9321f28b3b 100644 --- a/gcc/ada/a-dirval-vms.adb +++ b/gcc/ada/a-dirval-vms.adb @@ -7,7 +7,7 @@ -- B o d y -- -- (VMS Version) -- -- -- --- Copyright (C) 2004-2006 Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2007, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -98,7 +98,7 @@ package body Ada.Directories.Validity is end if; end loop; - -- If name include a dot, it can only be ".", ".." or a the last + -- If name include a dot, it can only be ".", ".." or the last -- file name. if Dot_Found then @@ -190,4 +190,13 @@ package body Ada.Directories.Validity is return True; end OpenVMS; + ------------- + -- Windows -- + ------------- + + function Windows return Boolean is + begin + return False; + end Windows; + end Ada.Directories.Validity; |