Skip to content

R
riscv-gcc-1
Commit 682bca23 by Tristan Gingold Committed by Arnaud Charlet
Options

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
Showing with 3 additions and 3 deletions
gcc/ada/s-fileio.adb
......@@ -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;
......
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