OSDN Git Service

2007-12-19 Vincent Celier <celier@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 19 Dec 2007 16:26:08 +0000 (16:26 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 19 Dec 2007 16:26:08 +0000 (16:26 +0000)
* makegpr.adb (Check_Compilation_Needed): Normalize C_Source_Path so
that the source path name is always found in the dependencies.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131085 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/makegpr.adb

index 3011c42..e884884 100644 (file)
@@ -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