r125468 - in /trunk/gcc/ada: a-direct.adb a-dir...

[charlet@gcc.gnu.org]

Author: charlet
Date: Wed Jun  6 10:49:20 2007
New Revision: 125468

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

	* a-dirval-vms.adb, a-dirval.ads, a-dirval.adb (Windows): New Boolean
	function.

	* a-dirval-mingw.adb (Is_Valid_Path_Name): Forbid a path with a drive
	letter if it is not followed by a '/' or a '\'.
	(Windows): New Boolean function

	* a-direct.ads, a-direct.adb: Remove unnecessary and misplaced pragma
	Ada 2005.
	(Containing_Directory): On Windows, keep at least one '/' or '\' after a
	drive letter.
	(Containing_Directory): Raise Use_Error when the directory is a root
	directory.
	(Extension): When returning the result, use a conversion to Result_Type,
	not a qualification.


Modified:
    trunk/gcc/ada/a-direct.adb
    trunk/gcc/ada/a-direct.ads
    trunk/gcc/ada/a-dirval-mingw.adb
    trunk/gcc/ada/a-dirval-vms.adb
    trunk/gcc/ada/a-dirval.adb
    trunk/gcc/ada/a-dirval.ads