diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 13:33:46 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 13:33:46 +0000 |
| commit | cba5827ce4e386a1537cf5b18a994277a5b20083 (patch) | |
| tree | 052ac6732f7be8fba5c29f5c0e5ebd0caf44d4b2 /gcc/ada/osint.adb | |
| parent | 18e968e255512b0bf533ab073ca2781c87c49b13 (diff) | |
| download | gcc-cba5827ce4e386a1537cf5b18a994277a5b20083.tar.gz | |
2009-11-30 Vincent Celier <celier@adacore.com>
* osint.adb (Executable_Name): Test the name instead of the name buffer
to check if there is a dot in the given name.
2009-11-30 Sergey Rybin <rybin@adacore.com>
* gnat_ugn.texi: Update gnatcheck doc.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154796 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/osint.adb')
| -rw-r--r-- | gcc/ada/osint.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 1fcff593c25..fd4210744b2 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -893,13 +893,13 @@ package body Osint is Add_Suffix := True; if Only_If_No_Suffix then - for J in reverse 1 .. Name_Len loop - if Name_Buffer (J) = '.' then + for J in reverse Canonical_Name'Range loop + if Canonical_Name (J) = '.' then Add_Suffix := False; exit; - elsif Name_Buffer (J) = '/' or else - Name_Buffer (J) = Directory_Separator + elsif Canonical_Name (J) = '/' or else + Canonical_Name (J) = Directory_Separator then exit; end if; |