diff options
| author | Bob Duff <duff@adacore.com> | 2021-01-12 13:25:07 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-05 04:19:03 -0400 |
| commit | 67207bd6e6c9b0bfc63bd6fd0a4e1056610c00fd (patch) | |
| tree | 82eb67403e94ed42206fb60d4842beb6bdbf35c6 | |
| parent | 680b9610addf4ff1f004f038e709e16cfab1a947 (diff) | |
| download | gcc-67207bd6e6c9b0bfc63bd6fd0a4e1056610c00fd.zip gcc-67207bd6e6c9b0bfc63bd6fd0a4e1056610c00fd.tar.gz gcc-67207bd6e6c9b0bfc63bd6fd0a4e1056610c00fd.tar.bz2 | |
[Ada] Fix s-os_lib.adb so vectorizing compilation works
gcc/ada/
* libgnat/s-os_lib.adb (Missed_Drive_Letter): Simplify the code.
| -rw-r--r-- | gcc/ada/libgnat/s-os_lib.adb | 6 |
1 files changed, 4 insertions, 2 deletions
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; ----------------- |