* osint.adb (Find_Program_Name): Fix handling of VMS version

	number.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81527 138bc75d-0d04-0410-961f-82ee72b054a4

2 files changed, 7 insertions, 2 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 19d4b15b1f7..c1531aa9093 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 7ca5fca77e5..0e83dbb7d06 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;