From 48664302decc24cfeebf28b477083773a6fdd5fe Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 5 May 2004 15:47:50 +0200 Subject: 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 --- gcc/ada/osint.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/osint.adb') diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 7ca5fca..0e83dbb 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; -- cgit v1.1