diff options
| author | Vincent Celier <celier@adacore.com> | 2007-06-06 12:49:20 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:49:20 +0200 |
| commit | c2a49ce6276acab7961cc99b9692f77181721ecd (patch) | |
| tree | 4e4642e3fdd77b04204a596480780a81c06decec /gcc/ada/a-dirval-vms.adb | |
| parent | cb65368d57a94a8b9b2e4a5c098cf3777f4d8dad (diff) | |
| download | gcc-c2a49ce6276acab7961cc99b9692f77181721ecd.zip gcc-c2a49ce6276acab7961cc99b9692f77181721ecd.tar.gz gcc-c2a49ce6276acab7961cc99b9692f77181721ecd.tar.bz2 | |
a-dirval-vms.adb, [...] (Windows): New Boolean function.
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.
From-SVN: r125468
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 e0321c7..a9321f2 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; |