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
This commit is contained in:
Arnaud Charlet 2004-05-05 15:47:50 +02:00 committed by Arnaud Charlet
parent 4bed378709
commit 48664302de
2 changed files with 7 additions and 2 deletions

View 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

View 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;