r123571 - /trunk/gcc/ada/g-arrspl.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Fri Apr  6 10:21:59 2007
New Revision: 123571

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=123571
Log:
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.


Modified:
    trunk/gcc/ada/g-arrspl.adb