diff options
| author | Vincent Celier <celier@gnat.com> | 2004-10-27 15:56:03 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-10-27 15:56:03 +0200 |
| commit | 1cfd6c3a597923e35835256a0fb373ecb7e82966 (patch) | |
| tree | 85eb479edf65adc3407f725706587f5f34cd16b8 /gcc/ada/a-dirval-vms.adb | |
| parent | 04061aa5af34837ef99383b2a481aaff033cbc4c (diff) | |
| download | gcc-1cfd6c3a597923e35835256a0fb373ecb7e82966.zip gcc-1cfd6c3a597923e35835256a0fb373ecb7e82966.tar.gz gcc-1cfd6c3a597923e35835256a0fb373ecb7e82966.tar.bz2 | |
2004-10-26 Vincent Celier <celier@gnat.com>
* a-dirval.ads, a-dirval.adb, a-dirval-vms.adb, a-dirval-mingw.adb
(Is_Path_Name_Case_Sensitive): New function
* a-direct.adb (To_Lower_If_Case_Insensitive): New procedure
(Base_Name, Simple_Name, Current_Directory, Compose,
Containing_Directory, Full_Name): Call To_Lower_If_Case_Insensitive on
the result.
From-SVN: r89677
Diffstat (limited to 'gcc/ada/a-dirval-vms.adb')
| -rw-r--r-- | gcc/ada/a-dirval-vms.adb | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gcc/ada/a-dirval-vms.adb b/gcc/ada/a-dirval-vms.adb index 76cae74..a7f2d24 100644 --- a/gcc/ada/a-dirval-vms.adb +++ b/gcc/ada/a-dirval-vms.adb @@ -45,6 +45,15 @@ package body Ada.Directories.Validity is '_' | '$' | '-' | '.' => False, others => True); + --------------------------------- + -- Is_Path_Name_Case_Sensitive -- + --------------------------------- + + function Is_Path_Name_Case_Sensitive return Boolean is + begin + return False; + end Is_Path_Name_Case_Sensitive; + ------------------------ -- Is_Valid_Path_Name -- ------------------------ @@ -172,4 +181,3 @@ package body Ada.Directories.Validity is end Is_Valid_Simple_Name; end Ada.Directories.Validity; - |