a-direct.ads, [...] (Start_Search): Free allocated search buffer if an exception...
authorRobert Dewar <dewar@adacore.com>
Tue, 29 Mar 2005 16:22:32 +0000 (18:22 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 29 Mar 2005 16:22:32 +0000 (18:22 +0200)
commitadb76d07cfd5fb25e3502d13523f1e808976d679
tree5fe482ead953da9596e3d6a901df2bdaac034483
parent077f6c59778318ca9eda5c339acce7810711614f
a-direct.ads, [...] (Start_Search): Free allocated search buffer if an exception is raised.

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.

From-SVN: r97188
gcc/ada/a-direct.adb
gcc/ada/a-direct.ads