From 67207bd6e6c9b0bfc63bd6fd0a4e1056610c00fd Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Tue, 12 Jan 2021 13:25:07 -0500 Subject: [Ada] Fix s-os_lib.adb so vectorizing compilation works gcc/ada/ * libgnat/s-os_lib.adb (Missed_Drive_Letter): Simplify the code. --- gcc/ada/libgnat/s-os_lib.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/libgnat/s-os_lib.adb b/gcc/ada/libgnat/s-os_lib.adb index 592d04b..5c02b2d 100644 --- a/gcc/ada/libgnat/s-os_lib.adb +++ b/gcc/ada/libgnat/s-os_lib.adb @@ -2158,8 +2158,10 @@ package body System.OS_Lib is return On_Windows and then not Is_With_Drive (Name) and then (Name'Length < 2 -- not \\name case - or else Name (Name'First .. Name'First + 1) - /= Directory_Separator & Directory_Separator); + or else Name (Name'First) + /= Directory_Separator + or else Name (Name'First + 1) + /= Directory_Separator); end Missed_Drive_Letter; ----------------- -- cgit v1.1