2005-03-29 Robert Dewar <dewar@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Mar 2005 16:22:32 +0000 (16:22 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Mar 2005 16:22:32 +0000 (16:22 +0000)
commit04630209a53b983d35daafe2979239b037b8f245
tree5fe482ead953da9596e3d6a901df2bdaac034483
parent566caa91e23553c7e9f47977a357a14ea755589d
2005-03-29  Robert Dewar  <dewar@adacore.com>

* a-direct.ads, a-direct.adb (Start_Search): Free allocated search
buffer if an exception is raised.

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