diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-21 13:38:58 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-21 13:38:58 +0000 |
| commit | 79212397946d5f83b97323d05d17df474cb498c7 (patch) | |
| tree | 650b744da62c5c3827dabe350052202fdacae7c8 /gcc/ada/prj-nmsc.adb | |
| parent | 3cb12758d32dff65b6f7390442c88f946f153a24 (diff) | |
| download | gcc-79212397946d5f83b97323d05d17df474cb498c7.tar.gz | |
2010-06-21 Thomas Quinot <quinot@adacore.com>
* checks.adb: Add comments.
* prj-nmsc.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161077 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 9e114f6ae8d..ecfa4cee7ac 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -6835,22 +6835,24 @@ package body Prj.Nmsc is Num_Nod := Data.Tree.Number_Lists.Table (Src_Dir_Rank); Element := Data.Tree.String_Elements.Table (Source_Dir); + -- Use Element.Value in this test, not Display_Value, because we + -- want the symbolic links to be resolved when appropriate. + if Element.Value /= No_Name then declare - -- We use Element.Value, not Display_Value, because we want - -- the symbolic links to be resolved when appropriate. - Source_Directory : constant String := - Get_Name_String (Element.Value) - & Directory_Separator; - Dir_Last : constant Natural := - Compute_Directory_Last - (Source_Directory); - -- The Display_Source_Directory is to be able to open an - -- UTF-8 encoded directory on Windows. + Source_Directory : constant String := + Get_Name_String (Element.Value) + & Directory_Separator; + + Dir_Last : constant Natural := + Compute_Directory_Last (Source_Directory); + Display_Source_Directory : constant String := Get_Name_String (Element.Display_Value) & Directory_Separator; + -- Display_Source_Directory is to allow us to open a UTF-8 + -- encoded directory on Windows. begin if Current_Verbosity = High then |