From: Bob Duff <duff@adacore.com>
Date: Tue, 12 Jan 2021 18:25:07 +0000 (-0500)
Subject: [Ada] Fix s-os_lib.adb so vectorizing compilation works
X-Git-Tag: basepoints/gcc-13~7814
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=67207bd6e6c9b0bfc63bd6fd0a4e1056610c00fd;p=thirdparty%2Fgcc.git

[Ada] Fix s-os_lib.adb so vectorizing compilation works

gcc/ada/

	* libgnat/s-os_lib.adb (Missed_Drive_Letter): Simplify the code.
---

diff --git a/gcc/ada/libgnat/s-os_lib.adb b/gcc/ada/libgnat/s-os_lib.adb
index 592d04bd39c2..5c02b2d5239a 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;
 
       -----------------