diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 15:05:53 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 15:05:53 +0200 |
| commit | e34ca162e700cb23aa7a247b394bfbf17135498b (patch) | |
| tree | 4c2aff5aa77d2398eadd8e5d221c3a6d9885b3a1 /gcc/ada/s-os_lib.adb | |
| parent | ee9aa7b6637c3254a12f5887d9ca2b425543b5a0 (diff) | |
| download | gcc-e34ca162e700cb23aa7a247b394bfbf17135498b.zip gcc-e34ca162e700cb23aa7a247b394bfbf17135498b.tar.gz gcc-e34ca162e700cb23aa7a247b394bfbf17135498b.tar.bz2 | |
[multiple changes]
2009-04-20 Pascal Obry <obry@adacore.com>
* a-direct.adb (To_Lower_If_Case_Insensitive): Removed.
Remove all calls to To_Lower_If_Case_Insensitive to preserve
the pathname original casing.
2009-04-20 Robert Dewar <dewar@adacore.com>
* g-trasym.adb: Minor reformatting
* s-os_lib.adb: Minor reformatting
* sem.adb: Minor reformatting
Minor code reorganization
* sem_ch3.adb: Minor reformatting
* sem_ch4.adb: Minor reformatting
* sem_ch8.adb: Minor reformatting
* sem_type.adb: Minor reformatting
From-SVN: r146412
Diffstat (limited to 'gcc/ada/s-os_lib.adb')
| -rwxr-xr-x | gcc/ada/s-os_lib.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb index 41d1077..e24a02e 100755 --- a/gcc/ada/s-os_lib.adb +++ b/gcc/ada/s-os_lib.adb @@ -1833,7 +1833,8 @@ package body System.OS_Lib is -- By default, the drive letter on Windows is in upper case - if On_Windows and then Path_Len >= 2 + if On_Windows + and then Path_Len >= 2 and then Buffer (2) = ':' then System.Case_Util.To_Upper (Buffer (1 .. 1)); |