mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-03-19 12:21:15 +08:00
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:
parent
4bed378709
commit
48664302de
@ -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
|
||||
|
@ -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;
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user