diff options
| author | Vincent Celier <celier@adacore.com> | 2006-10-31 19:00:14 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 19:00:14 +0100 |
| commit | ac36caab6be73f02af1e03f0bc859c45f86e9a00 (patch) | |
| tree | 5e020b43997063f84a1635efa6516b4f13846069 /gcc/ada/prj-ext.adb | |
| parent | ef6ea465e38970e96a0ab50641e761f1b7c4dcff (diff) | |
| download | gcc-ac36caab6be73f02af1e03f0bc859c45f86e9a00.zip gcc-ac36caab6be73f02af1e03f0bc859c45f86e9a00.tar.gz gcc-ac36caab6be73f02af1e03f0bc859c45f86e9a00.tar.bz2 | |
gnatls.adb: Take into account GPR_PROJECT_PATH...
2006-10-31 Vincent Celier <celier@adacore.com>
* gnatls.adb: Take into account GPR_PROJECT_PATH, when it is defined,
instead of ADA_PROJECT_PATH, for the project path.
(Gnatls): When displaying the project path directories, use host dir
specs.
* prj-ext.adb (Prj.Ext elaboration): On VMS, only expand relative path
names in the project path, as absolute paths may correspond to
multi-valued VMS logical names.
From-SVN: r118278
Diffstat (limited to 'gcc/ada/prj-ext.adb')
| -rw-r--r-- | gcc/ada/prj-ext.adb | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/gcc/ada/prj-ext.adb b/gcc/ada/prj-ext.adb index c92ca9f..649c2ba 100644 --- a/gcc/ada/prj-ext.adb +++ b/gcc/ada/prj-ext.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2000-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -24,9 +24,10 @@ -- -- ------------------------------------------------------------------------------ -with Namet; use Namet; -with Output; use Output; -with Osint; use Osint; +with Hostparm; +with Namet; use Namet; +with Output; use Output; +with Osint; use Osint; with Sdefault; with GNAT.HTable; @@ -73,7 +74,6 @@ package body Prj.Ext is is The_Key : Name_Id; The_Value : Name_Id; - begin Name_Len := Value'Length; Name_Buffer (1 .. Name_Len) := Value; @@ -251,10 +251,16 @@ begin Name_Len := Name_Len - No_Project_Default_Dir'Length - 1; - else + elsif not Hostparm.OpenVMS + or else not Is_Absolute_Path (Name_Buffer (First .. Last)) + then + -- On VMS, only expand relative path names, as absolute paths + -- may correspond to multi-valued VMS logical names. + declare New_Dir : constant String := - Normalize_Pathname (Name_Buffer (First .. Last)); + Normalize_Pathname (Name_Buffer (First .. Last)); + begin -- If the absolute path was resolved and is different from -- the original, replace original with the resolved path. |