From 6376a3c640009ed25a250d677fc7ff0fdd0a2c1c Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 6 Sep 2017 11:47:50 +0200 Subject: [multiple changes] 2017-09-06 Ed Schonberg * 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 * s-fileio.adb (Name): Do not raise Use_Error for temp files. 2017-09-06 Ed Schonberg * 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 --- gcc/ada/s-fileio.adb | 2 -- 1 file changed, 2 deletions(-) (limited to 'gcc/ada/s-fileio.adb') 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; -- cgit v1.1