diff options
| author | Vincent Celier <celier@adacore.com> | 2007-12-19 17:26:08 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-19 17:26:08 +0100 |
| commit | d71cdcc585d0b69c0e38c2628ade73b11e9062bc (patch) | |
| tree | 9b7e57e3865d2384b633ab55fe147a2e6a105814 /gcc/ada/makegpr.adb | |
| parent | 9b0b4cbe205a14d2afae355e70bf05c28ee773f8 (diff) | |
| download | gcc-d71cdcc585d0b69c0e38c2628ade73b11e9062bc.zip gcc-d71cdcc585d0b69c0e38c2628ade73b11e9062bc.tar.gz gcc-d71cdcc585d0b69c0e38c2628ade73b11e9062bc.tar.bz2 | |
makegpr.adb (Check_Compilation_Needed): Normalize C_Source_Path so that the source path name is always found in the...
2007-12-19 Vincent Celier <celier@adacore.com>
* makegpr.adb (Check_Compilation_Needed): Normalize C_Source_Path so
that the source path name is always found in the dependencies.
From-SVN: r131085
Diffstat (limited to 'gcc/ada/makegpr.adb')
| -rw-r--r-- | gcc/ada/makegpr.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/makegpr.adb b/gcc/ada/makegpr.adb index 3011c42..e884884 100644 --- a/gcc/ada/makegpr.adb +++ b/gcc/ada/makegpr.adb @@ -1822,7 +1822,11 @@ package body Makegpr is Object_Name : constant String := Get_Name_String (Source.Object_Name); C_Object_Name : String := Object_Name; Dep_Name : constant String := Get_Name_String (Source.Dep_Name); - C_Source_Path : String := Source_Path; + C_Source_Path : constant String := + Normalize_Pathname + (Name => Source_Path, + Resolve_Links => False, + Case_Sensitive => False); Source_In_Dependencies : Boolean := False; -- Set True if source was found in dependency file of its object file @@ -1835,7 +1839,6 @@ package body Makegpr is -- Set to True at the end of the first Big_Loop begin - Canonical_Case_File_Name (C_Source_Path); Canonical_Case_File_Name (C_Object_Name); -- Assume the worst, so that statement "return;" may be used if there |