From: Vincent Celier Date: Wed, 26 Mar 2008 07:40:35 +0000 (+0100) Subject: osint-c.adb (Set_Library_Info_Name): Use canonical case file names to check if the... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e96db982d28a0ff3ab6e80226c272a072eba9cb7;p=gcc.git 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 * osint-c.adb (Set_Library_Info_Name): Use canonical case file names to check if the specified object file is correct. From-SVN: r133571 --- diff --git a/gcc/ada/osint-c.adb b/gcc/ada/osint-c.adb index a3d5b0ac8ca..541178da938 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;