r135805 - /trunk/gcc/ada/s-os_lib.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Fri May 23 13:29:02 2008
New Revision: 135805

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=135805
Log:
2008-05-23  Thomas Quinot  <quinot@adacore.com>

	* s-os_lib.adb:
	(copy_File): Do not open destination file if source file is unreadable.


Modified:
    trunk/gcc/ada/s-os_lib.adb