diff options
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 77cf6dc47ae..c7a1330a151 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -883,10 +883,9 @@ procedure GNATCmd is if not Is_Absolute_Path (Exec_File_Name) then for Index in Exec_File_Name'Range loop if Exec_File_Name (Index) = Directory_Separator then - Fail ("relative executable (""" & - Exec_File_Name & - """) with directory part not allowed " & - "when using project files"); + Fail ("relative executable (""" & Exec_File_Name + & """) with directory part not allowed " + & "when using project files"); end if; end loop; @@ -1398,9 +1397,7 @@ procedure GNATCmd is else for K in Switch'Range loop - if Switch (K) = '/' - or else Switch (K) = Directory_Separator - then + if Is_Directory_Separator (Switch (K)) then Test_Existence := True; exit; end if; |