summaryrefslogtreecommitdiff
path: root/gcc/ada/a-dirval-vms.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2007-06-06 10:49:20 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2007-06-06 10:49:20 +0000
commite462e0735b2ccf90f2641b5d644e86f38a0d7b99 (patch)
tree4e4642e3fdd77b04204a596480780a81c06decec /gcc/ada/a-dirval-vms.adb
parentd570bc7b39f2a13790b984a9518262bf66d010dc (diff)
downloadgcc-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.adb13
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;