a-direct.adb (Start_Search): Raise Use_Error if the directory is not readable.
authorVincent Celier <celier@adacore.com>
Wed, 26 Mar 2008 07:42:56 +0000 (08:42 +0100)
committerArnaud Charlet <charlet@gcc.gnu.org>
Wed, 26 Mar 2008 07:42:56 +0000 (08:42 +0100)
commit8ee459524b2c80ef0cbc599b99cec41f1926e937
treea486ea33713c119eb2fbe582c216b422b21e8754
parent9a18e785b8c1ad490a3bb00a88735f57c0c60e4b
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
gcc/ada/a-direct.adb