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.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.adb')
| -rw-r--r-- | gcc/ada/a-dirval.adb | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/gcc/ada/a-dirval.adb b/gcc/ada/a-dirval.adb index f0740d2..ef643d5 100644 --- a/gcc/ada/a-dirval.adb +++ b/gcc/ada/a-dirval.adb @@ -36,6 +36,15 @@ package body Ada.Directories.Validity is + --------------------------------- + -- Is_Path_Name_Case_Sensitive -- + --------------------------------- + + function Is_Path_Name_Case_Sensitive return Boolean is + begin + return True; + end Is_Path_Name_Case_Sensitive; + ------------------------ -- Is_Valid_Path_Name -- ------------------------ @@ -86,5 +95,3 @@ package body Ada.Directories.Validity is end Is_Valid_Simple_Name; end Ada.Directories.Validity; - - |