OSDN Git Service

2004-10-26 Vincent Celier <celier@gnat.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 27 Oct 2004 13:56:03 +0000 (13:56 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 27 Oct 2004 13:56:03 +0000 (13:56 +0000)
commit8c3828db106ca2bf4289d30d8c147c9f005ac1ce
tree85eb479edf65adc3407f725706587f5f34cd16b8
parent3953c263937cc067774377ec4472caf3cfccc882
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
gcc/ada/a-direct.adb
gcc/ada/a-dirval-mingw.adb
gcc/ada/a-dirval-vms.adb
gcc/ada/a-dirval.adb
gcc/ada/a-dirval.ads