diff options
| author | Vincent Celier <celier@adacore.com> | 2008-03-26 08:40:35 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:40:35 +0100 |
| commit | e96db982d28a0ff3ab6e80226c272a072eba9cb7 (patch) | |
| tree | e070c97b2b77773217509b64e08bcc911f003912 /gcc/ada/osint-c.adb | |
| parent | 0503c53a3f0ba7c3c00a43084dd36daf382d920f (diff) | |
| download | gcc-e96db982d28a0ff3ab6e80226c272a072eba9cb7.zip gcc-e96db982d28a0ff3ab6e80226c272a072eba9cb7.tar.gz gcc-e96db982d28a0ff3ab6e80226c272a072eba9cb7.tar.bz2 | |
osint-c.adb (Set_Library_Info_Name): Use canonical case file names to check if the specified object file is correct.
2008-03-26 Vincent Celier <celier@adacore.com>
* osint-c.adb (Set_Library_Info_Name): Use canonical case file names
to check if the specified object file is correct.
From-SVN: r133571
Diffstat (limited to 'gcc/ada/osint-c.adb')
| -rw-r--r-- | gcc/ada/osint-c.adb | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/gcc/ada/osint-c.adb b/gcc/ada/osint-c.adb index a3d5b0a..541178d 100644 --- a/gcc/ada/osint-c.adb +++ b/gcc/ada/osint-c.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -315,14 +315,21 @@ package body Osint.C is -- Remove extension preparing to replace it declare - Name : constant String := Name_Buffer (1 .. Dot_Index); + Name : String := Name_Buffer (1 .. Dot_Index); First : Positive; begin Name_Buffer (1 .. Output_Object_File_Name'Length) := Output_Object_File_Name.all; - Dot_Index := 0; + -- Put two names in canonical case, to allow object file names + -- with upper-case letters on Windows. + + Canonical_Case_File_Name (Name); + Canonical_Case_File_Name + (Name_Buffer (1 .. Output_Object_File_Name'Length)); + + Dot_Index := 0; for J in reverse Output_Object_File_Name'Range loop if Name_Buffer (J) = '.' then Dot_Index := J; |