diff options
Diffstat (limited to 'gcc/ada/make.adb')
| -rw-r--r-- | gcc/ada/make.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 07f960bddeb..eb062e38ce9 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -4057,8 +4057,7 @@ package body Make is begin First := Name'Last; while First > Name'First - and then Name (First - 1) /= Directory_Separator - and then Name (First - 1) /= '/' + and then not Is_Directory_Separator (Name (First - 1)) loop First := First - 1; end loop; @@ -6805,8 +6804,7 @@ package body Make is begin First := Name'Last; while First > Name'First - and then Name (First - 1) /= Directory_Separator - and then Name (First - 1) /= '/' + and then not Is_Directory_Separator (Name (First - 1)) loop First := First - 1; end loop; |