Commit 682bca23 by Tristan Gingold Committed by Arnaud Charlet

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

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

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

From-SVN: r134012
parent ce4a6e84
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -823,7 +823,7 @@ package body System.File_IO is ...@@ -823,7 +823,7 @@ package body System.File_IO is
if Stream /= NULL_Stream then if Stream /= NULL_Stream then
Full_Name_Len := Name'Length + 1; Full_Name_Len := Name'Length + 1;
Fullname (1 .. Full_Name_Len - 1) := Name; 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 -- Normal case of Open or Create
...@@ -982,7 +982,7 @@ package body System.File_IO is ...@@ -982,7 +982,7 @@ package body System.File_IO is
Stream := fopen (Namestr'Address, Fopstr'Address, Encoding); Stream := fopen (Namestr'Address, Fopstr'Address, Encoding);
if Stream = NULL_Stream then 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; raise Name_Error;
else else
raise Use_Error; raise Use_Error;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment