diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 14:36:29 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 14:36:29 +0100 |
| commit | c3ed199275440686b6a35225d9b698c27b5bef24 (patch) | |
| tree | 9a889615e4cf57aafdbebc212f3bddca1e73b845 /gcc/ada/osint.adb | |
| parent | 55277d8fb522f301d7a8bbcfd681517b3080dc16 (diff) | |
| download | gcc-c3ed199275440686b6a35225d9b698c27b5bef24.zip gcc-c3ed199275440686b6a35225d9b698c27b5bef24.tar.gz gcc-c3ed199275440686b6a35225d9b698c27b5bef24.tar.bz2 | |
[multiple changes]
2009-11-30 Emmanuel Briot <briot@adacore.com>
* gnat_ugn.texi: Extend doc for -eL
2009-11-30 Vincent Celier <celier@adacore.com>
* osint.adb (Executable_Name (File_Name_Type)): Put the Name in the
Name_Buffer before testing for a dot in the Name.
2009-11-30 Vincent Celier <celier@adacore.com>
* prj-part.adb (Project_Path_Name_Of): Resolve links for final result
if -eL has been specified.
From-SVN: r154798
Diffstat (limited to 'gcc/ada/osint.adb')
| -rw-r--r-- | gcc/ada/osint.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index fd42107..bf2b234 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -813,6 +813,8 @@ package body Osint is end if; if Exec_Suffix'Length /= 0 then + Get_Name_String (Name); + Add_Suffix := True; if Only_If_No_Suffix then for J in reverse 1 .. Name_Len loop @@ -829,8 +831,6 @@ package body Osint is end if; if Add_Suffix then - Get_Name_String (Name); - declare Buffer : String := Name_Buffer (1 .. Name_Len); |