From d71cdcc585d0b69c0e38c2628ade73b11e9062bc Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Wed, 19 Dec 2007 17:26:08 +0100 Subject: [PATCH] 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 * makegpr.adb (Check_Compilation_Needed): Normalize C_Source_Path so that the source path name is always found in the dependencies. From-SVN: r131085 --- gcc/ada/makegpr.adb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/gcc/ada/makegpr.adb b/gcc/ada/makegpr.adb index 3011c420bb8..e8848846958 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 -- 2.30.2