From e401e17bdfaa22265f753151d9354f7de577a98c Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Fri, 23 May 2008 15:29:02 +0200 Subject: [PATCH] 2008-05-23 Thomas Quinot * s-os_lib.adb: (copy_File): Do not open destination file if source file is unreadable. From-SVN: r135805 --- gcc/ada/s-os_lib.adb | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb index f3e369cf853..5655b3c0d7c 100755 --- a/gcc/ada/s-os_lib.adb +++ b/gcc/ada/s-os_lib.adb @@ -452,7 +452,13 @@ package body System.OS_Lib is begin From := Open_Read (Name, Binary); - To := Create_File (To_Name, Binary); + + -- Do not clobber destination file if source file could not be opened + + if From /= Invalid_FD then + To := Create_File (To_Name, Binary); + end if; + Copy (From, To); -- Copy attributes @@ -545,10 +551,14 @@ package body System.OS_Lib is if Is_Regular_File (Pathname) then -- Append mode and destination file exists, append data at the - -- end of Pathname. + -- end of Pathname. But if we fail to open source file, do not + -- touch destination file at all. From := Open_Read (Name, Binary); - To := Open_Read_Write (Pathname, Binary); + if From /= Invalid_FD then + To := Open_Read_Write (Pathname, Binary); + end if; + Lseek (To, 0, Seek_End); Copy (From, To); -- 2.30.2