diff options
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; |