diff options
| author | Vincent Celier <celier@adacore.com> | 2008-03-26 08:42:56 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:42:56 +0100 |
| commit | 8ee459524b2c80ef0cbc599b99cec41f1926e937 (patch) | |
| tree | a486ea33713c119eb2fbe582c216b422b21e8754 /gcc | |
| parent | 9a18e785b8c1ad490a3bb00a88735f57c0c60e4b (diff) | |
| download | gcc-8ee459524b2c80ef0cbc599b99cec41f1926e937.zip gcc-8ee459524b2c80ef0cbc599b99cec41f1926e937.tar.gz gcc-8ee459524b2c80ef0cbc599b99cec41f1926e937.tar.bz2 | |
a-direct.adb (Start_Search): Raise Use_Error if the directory is not readable.
2008-03-26 Vincent Celier <celier@adacore.com>
* a-direct.adb (Start_Search): Raise Use_Error if the directory is not
readable.
From-SVN: r133581
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/a-direct.adb | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb index ea7f02c..39a49c9 100644 --- a/gcc/ada/a-direct.adb +++ b/gcc/ada/a-direct.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2008, 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- -- @@ -1197,10 +1197,15 @@ package body Ada.Directories is C_File_Name : constant String := Directory & ASCII.NUL; begin - -- First, the invalid case + -- First, the invalid cases if not Is_Directory (Directory) then - raise Name_Error; + raise Name_Error + with "unknown directory """ & Simple_Name (Directory) & '"'; + + elsif not Is_Readable_File (Directory) then + raise Use_Error + with "unreadable directory """ & Simple_Name (Directory) & '"'; end if; -- If needed, finalize Search @@ -1219,7 +1224,8 @@ package body Ada.Directories is exception when Error_In_Regexp => Free (Search.Value); - raise Name_Error; + raise Name_Error + with "invalid pattern """ & Pattern & '"'; end; -- Initialize some Search components |