* config/stormy16/stormy16-lib2.c (__ucmpsi2): Fix thinko.

[pf3gnuchains/gcc-fork.git] / gcc / ada / prj-ext.adb

diff --git a/gcc/ada/prj-ext.adb b/gcc/ada/prj-ext.adb
index 2b41c67..fe6216f 100644 (file)
--- a/gcc/ada/prj-ext.adb
+++ b/gcc/ada/prj-ext.adb
@@ -26,6 +26,7 @@
 with System.OS_Lib; use System.OS_Lib;
 with Hostparm;
 with Makeutl;       use Makeutl;
+with Opt;
 with Osint;         use Osint;
 with Prj.Tree;      use Prj.Tree;
 with Sdefault;
@@ -36,7 +37,7 @@ package body Prj.Ext is
    --  Indicator in the project path to indicate that the default search
    --  directories should not be added to the path
 
-   Uninitialized_Prefix   : constant String := '#' & Path_Separator;
+   Uninitialized_Prefix : constant String := '#' & Path_Separator;
    --  Prefix to indicate that the project path has not been initilized yet.
    --  Must be two characters long
 
@@ -77,7 +78,6 @@ package body Prj.Ext is
    begin
       if Tree.Project_Path = null then
          Tree.Project_Path := new String'(Uninitialized_Prefix & Path);
-
       else
          Tmp := Tree.Project_Path;
          Tree.Project_Path := new String'(Tmp.all & Path_Separator & Path);
@@ -85,12 +85,14 @@ package body Prj.Ext is
       end if;
    end Add_Search_Project_Directory;
 
+   -----------
    -- Check --
    -----------
 
    function Check
      (Tree        : Prj.Tree.Project_Node_Tree_Ref;
-      Declaration : String) return Boolean is
+      Declaration : String) return Boolean
+   is
    begin
       for Equal_Pos in Declaration'Range loop
          if Declaration (Equal_Pos) = '=' then
@@ -211,7 +213,9 @@ package body Prj.Ext is
 
             declare
                New_Dir : constant String :=
-                           Normalize_Pathname (Name_Buffer (First .. Last));
+                           Normalize_Pathname
+                             (Name_Buffer (First .. Last),
+                              Resolve_Links => Opt.Follow_Links_For_Dirs);
 
             begin
                --  If the absolute path was resolved and is different from