mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 23:31:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

exp_attr.adb (Is_Inline_Floating_Point_Attribute): Revert to previous state in CodePeer_Mode.

Browse Source 
2014-08-01  Arnaud Charlet  <charlet@adacore.com>

	* exp_attr.adb (Is_Inline_Floating_Point_Attribute): Revert to
	previous state in CodePeer_Mode.

From-SVN: r213435
This commit is contained in:
Arnaud Charlet 2014-08-01 09:46:10 +00:00 committed by Arnaud Charlet
parent 09c954dc79
commit 78433fec9a
2 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2014-08-01 Arnaud Charlet <charlet@adacore.com>
* exp_attr.adb (Is_Inline_Floating_Point_Attribute): Revert to
previous state in CodePeer_Mode.
2014-08-01 Robert Dewar <dewar@adacore.com>
* hostparm.ads: Put back definition of OpenVMS as False to aid

17
gcc/ada/exp_attr.adb
View File

@ -7955,8 +7955,16 @@ package body Exp_Attr is
Id : constant Attribute_Id := Get_Attribute_Id (Attribute_Name (N));
begin
-- Machine and Model can be expanded by the backend, but in CodePeer
-- mode, we prefer the front end to do the expansion, because CodePeer
-- is not prepared to handle these attributes.
if Id = Attribute_Machine or else Id = Attribute_Model then
return True;
return not CodePeer_Mode;
-- Remaining cases handled by the back end are Rounding and Truncatation
-- when appearing as the operand of a conversion to some integer type.
-- CodePeer can handle these cases fine.
elsif Nkind (Parent (N)) /= N_Type_Conversion
or else not Is_Integer_Type (Etype (Parent (N)))
@ -7964,8 +7972,11 @@ package body Exp_Attr is
return False;
end if;
-- Should also support 'Machine_Rounding and 'Unbiased_Rounding, but
-- required back end support has not been implemented yet ???
-- Here we are in the integer conversion context
-- Very probably we should also recognize the cases of Machine_Rounding
-- and unbiased rounding in this conversion context, but the back end is
-- not yet prepared to handle these cases ???
return Id = Attribute_Rounding or else Id = Attribute_Truncation;
end Is_Inline_Floating_Point_Attribute;