r125421 - in /trunk/gcc/ada: g-os_lib.adb g-os_...

[charlet@gcc.gnu.org]

Author: charlet
Date: Wed Jun  6 10:30:30 2007
New Revision: 125421

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=125421
Log:
2007-04-20  Vincent Celier  <celier@adacore.com>

	* g-os_lib.ads, g-os_lib.adb (Normalize_Pathname.Get_Directory):
	Correct obvious bug (return Dir; instead of return Directory;).
	(Normalize_Pathname): Use Reference_Dir'Length, not Reference_Dir'Last


Modified:
    trunk/gcc/ada/g-os_lib.adb
    trunk/gcc/ada/g-os_lib.ads