OSDN Git Service

2008-04-08 Vincent Celier <celier@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 8 Apr 2008 06:56:58 +0000 (06:56 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 8 Apr 2008 06:56:58 +0000 (06:56 +0000)
commit37e3a752b8c20277b6b5dc9857cb507b9afe04e8
tree44c6dffb5ed97a2aade0c729232cb1e81269f833
parent4c97c595a65cc773cdbb3294953f871f6b3d94ac
2008-04-08  Vincent Celier  <celier@adacore.com>

* a-direct.adb (Start_Search): Check for Name_Error before checking for
Use_Error, as specified in the RM. Check if directory is open and raise
Use_Error if it is not.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134059 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/a-direct.adb