osint.adb (Find_Program_Name): Fix handling of VMS version number.
authorArnaud Charlet <charlet@act-europe.fr>
Wed, 5 May 2004 13:47:50 +0000 (15:47 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Wed, 5 May 2004 13:47:50 +0000 (15:47 +0200)
* osint.adb (Find_Program_Name): Fix handling of VMS version
number.

From-SVN: r81527

gcc/ada/ChangeLog
gcc/ada/osint.adb

index 19d4b15b1f7b884def6aace891889b438d4e9777..c1531aa9093eae7877978873685bf94ebcf6793e 100644 (file)
@@ -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
index 7ca5fca77e50df8e0f3fba31a8eb81e76fa50037..0e83dbb7d061dec65904fd4d025ec1568b47805a 100644 (file)
@@ -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;