r138708 - in /trunk/gcc/ada: s-wchwts.adb s-wch...

[charlet@gcc.gnu.org]

Author: charlet
Date: Tue Aug  5 13:42:08 2008
New Revision: 138708

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=138708
Log:
2008-08-05  Vincent Celier  <celier@adacore.com>

	* s-wchwts.adb:
	(Wide_String_To_String): Returns a String with the same 'First as its
	parameter S.
	(Wide_Wide_String_To_String): Ditto
	
	* s-wchwts.ads:
	(Wide_String_To_String): Document that the lowest index of the returned
	String is equal to S'First.


Modified:
    trunk/gcc/ada/s-wchwts.adb
    trunk/gcc/ada/s-wchwts.ads