diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-27 13:56:03 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-27 13:56:03 +0000 |
| commit | 8c3828db106ca2bf4289d30d8c147c9f005ac1ce (patch) | |
| tree | 85eb479edf65adc3407f725706587f5f34cd16b8 /gcc/ada/a-dirval.adb | |
| parent | 3953c263937cc067774377ec4472caf3cfccc882 (diff) | |
| download | gcc-8c3828db106ca2bf4289d30d8c147c9f005ac1ce.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@89677 138bc75d-0d04-0410-961f-82ee72b054a4
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 f0740d2c0e0..ef643d5b4e1 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; - - |