diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-09-06 11:47:50 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-09-06 11:47:50 +0200 |
| commit | 6376a3c640009ed25a250d677fc7ff0fdd0a2c1c (patch) | |
| tree | 83a5026f78a61947711ce133b262c40c83dc2a81 /gcc/ada/s-fileio.adb | |
| parent | 8489c2956a08a7397d80cc21f67c1a1064c14cdc (diff) | |
| download | gcc-6376a3c640009ed25a250d677fc7ff0fdd0a2c1c.zip gcc-6376a3c640009ed25a250d677fc7ff0fdd0a2c1c.tar.gz gcc-6376a3c640009ed25a250d677fc7ff0fdd0a2c1c.tar.bz2 | |
[multiple changes]
2017-09-06 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb (Analyze_Attribute, case 'Loop_Entry): Handle
properly an attribute reference 'Loop_Entry that appears in the
list of indices of an indexed expression, to prevent an infinite
loop in the compiler.
2017-09-06 Bob Duff <duff@adacore.com>
* s-fileio.adb (Name): Do not raise Use_Error for temp files.
2017-09-06 Ed Schonberg <schonberg@adacore.com>
* sem_ch4.adb (Analyze_Set_Membership): If an alternative
in a set membership is an overloaded enumeration literal, and
the type of the alternative is resolved from a previous one,
replace the entity of the alternative as well as the type,
to prevent inconsistencies between the entity and the type.
From-SVN: r251761
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 6c44938..c8b44bd 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -742,8 +742,6 @@ package body System.File_IO is begin if File = null then raise Status_Error with "Name: file not open"; - elsif File.Is_Temporary_File then - raise Use_Error with "Name: temporary file has no name"; else return File.Name.all (1 .. File.Name'Length - 1); end if; |