diff options
| author | Arnaud Charlet <charlet@act-europe.fr> | 2004-05-05 15:47:50 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-05-05 15:47:50 +0200 |
| commit | 48664302decc24cfeebf28b477083773a6fdd5fe (patch) | |
| tree | c5e41335c59f815a199939017bb7f215a7b65c42 /gcc | |
| parent | 4bed378709c6b95e918002425a23f5fa36943a93 (diff) | |
| download | gcc-48664302decc24cfeebf28b477083773a6fdd5fe.zip gcc-48664302decc24cfeebf28b477083773a6fdd5fe.tar.gz gcc-48664302decc24cfeebf28b477083773a6fdd5fe.tar.bz2 | |
osint.adb (Find_Program_Name): Fix handling of VMS version number.
* osint.adb (Find_Program_Name): Fix handling of VMS version
number.
From-SVN: r81527
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/osint.adb | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 19d4b15..c1531aa 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2004-05-05 Arnaud Charlet <charlet@act-europe.fr> + + * osint.adb (Find_Program_Name): Fix handling of VMS version + number. + 2004-05-05 Emmanuel Briot <briot@act-europe.fr> * g-os_lib.ads (Invalid_Time): New constant diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 7ca5fca..0e83dbb 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -1030,12 +1030,12 @@ package body Osint is if Command_Name (Cindex2) in '0' .. '9' then for J in reverse Cindex1 .. Cindex2 loop - exit when Command_Name (J) not in '0' .. '9'; - if Command_Name (J) = '.' or Command_Name (J) = ';' then Cindex2 := J - 1; exit; end if; + + exit when Command_Name (J) not in '0' .. '9'; end loop; end if; |