mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-21 15:41:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

s-fileio.adb: Name_Error shouldn't be raised for a tempory file.

Browse Source 
2008-04-08  Tristan Gingold  <gingold@adacore.com>

	* s-fileio.adb: Name_Error shouldn't be raised for a tempory file.

From-SVN: r134012
This commit is contained in:
Tristan Gingold 2008-04-08 08:45:53 +02:00 committed by Arnaud Charlet
parent ce4a6e8468
commit 682bca235f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/s-fileio.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2008, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -823,7 +823,7 @@ package body System.File_IO is
if Stream /= NULL_Stream then
Full_Name_Len := Name'Length + 1;
Fullname (1 .. Full_Name_Len - 1) := Name;
Fullname (Full_Name_Len) := ASCII.Nul;
Fullname (Full_Name_Len) := ASCII.NUL;
-- Normal case of Open or Create
@ -982,7 +982,7 @@ package body System.File_IO is
Stream := fopen (Namestr'Address, Fopstr'Address, Encoding);
if Stream = NULL_Stream then
if file_exists (Namestr'Address) = 0 then
if not Tempfile and then file_exists (Namestr'Address) = 0 then
raise Name_Error;
else
raise Use_Error;