g-arrspl.adb (Free): New routine to free the source string.
authorPascal Obry <obry@adacore.com>
Fri, 6 Apr 2007 09:21:59 +0000 (11:21 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 6 Apr 2007 09:21:59 +0000 (11:21 +0200)
commit358f47f3b16dc4af70740ae3a13a3016b20bd73a
treee68b3ce189bed3a993441a405a90602a0c30bea8
parent9a8bd0b556b1a5ec3f6029ce80860b6675a09b33
g-arrspl.adb (Free): New routine to free the source string.

2007-04-06  Pascal Obry  <obry@adacore.com>

* g-arrspl.adb (Free) [Element_Access]: New routine to free the source
string.
(Create): Free the source string before storing the new one.

From-SVN: r123571
gcc/ada/g-arrspl.adb