OSDN Git Service

2007-04-06 Pascal Obry <obry@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 6 Apr 2007 09:21:59 +0000 (09:21 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 6 Apr 2007 09:21:59 +0000 (09:21 +0000)
commitc80139245feaab9a849ac1678c87caff817a58eb
treee68b3ce189bed3a993441a405a90602a0c30bea8
parent3402506faff248bf79e34951f447f9f161105034
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.

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