mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-19 08:20:32 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
* 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
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

4
gcc/ada/osint.adb
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;