diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-27 11:13:20 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-27 11:13:20 +0000 |
| commit | 5293f8fe40e88fd9a8ce7d6db9f19708b8f35cf6 (patch) | |
| tree | 4c758bc00fe35a7855c231136fa3d7072d379a6f /gcc/ada/a-dirval-mingw.adb | |
| parent | 1be53fc5330a7976404bd5807048e2810c560f62 (diff) | |
| download | gcc-5293f8fe40e88fd9a8ce7d6db9f19708b8f35cf6.tar.gz | |
2015-10-27 Arnaud Charlet <charlet@adacore.com>
* gnat1drv.adb: Remove hard coded restrictions.
2015-10-27 Pascal Obry <obry@adacore.com>
* a-dirval-mingw.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@229415 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-dirval-mingw.adb')
| -rw-r--r-- | gcc/ada/a-dirval-mingw.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/a-dirval-mingw.adb b/gcc/ada/a-dirval-mingw.adb index d7d77622db7..bd8429c4767 100644 --- a/gcc/ada/a-dirval-mingw.adb +++ b/gcc/ada/a-dirval-mingw.adb @@ -7,7 +7,7 @@ -- B o d y -- -- (Windows Version) -- -- -- --- Copyright (C) 2004-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -74,8 +74,8 @@ package body Ada.Directories.Validity is if Name'Length >= 2 and then Name (Start + 1) = ':' and then - (Name (Start) in 'A' .. 'Z' or else - Name (Start) in 'a' .. 'z') + (Name (Start) in 'A' .. 'Z' + or else Name (Start) in 'a' .. 'z') then Start := Start + 2; @@ -93,8 +93,8 @@ package body Ada.Directories.Validity is loop -- Look for the start of the next directory or file name - while Start <= Name'Last and then - (Name (Start) = '\' or Name (Start) = '/') + while Start <= Name'Last + and then (Name (Start) = '\' or Name (Start) = '/') loop Start := Start + 1; end loop; |