mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-21 10:05:27 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Ada] Remove left-overs of Unaligned_Valid attribute

Browse Source 
gcc/ada/

	* exp_attr.adb (Expand_Fpt_Attribute): Likewise.
	* snames.ads-tmpl (Name_Unaligned_Valid): Delete.
This commit is contained in:
Eric Botcazou 2021-09-23 11:18:02 +02:00 committed by Pierre-Marie de Rodat
parent 2f22e8d396
commit c46dffc657
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/ada/exp_attr.adb
View File

@ -165,8 +165,7 @@ package body Exp_Attr is
-- the appropriate instantiation of System.Fat_Gen. Float arguments in Args -- the appropriate instantiation of System.Fat_Gen. Float arguments in Args
-- have already been converted to the floating-point type for which Pkg was -- have already been converted to the floating-point type for which Pkg was
-- instantiated. The Nam argument is the relevant attribute processing -- instantiated. The Nam argument is the relevant attribute processing
-- routine to be called. This is the same as the attribute name, except in -- routine to be called. This is the same as the attribute name.
-- the Unaligned_Valid case.
procedure Expand_Fpt_Attribute_R (N : Node_Id); procedure Expand_Fpt_Attribute_R (N : Node_Id);
-- This procedure expands a call to a floating-point attribute function -- This procedure expands a call to a floating-point attribute function

1
gcc/ada/snames.ads-tmpl
View File

@ -1400,7 +1400,6 @@ package Snames is
-- Note that the UP_ prefix means use the rest of the name in uppercase, -- Note that the UP_ prefix means use the rest of the name in uppercase,
-- e.g. Name_UP_RESULT corresponds to the name "RESULT". -- e.g. Name_UP_RESULT corresponds to the name "RESULT".
Name_Unaligned_Valid : constant Name_Id := N + $;
Name_UP_RESULT : constant Name_Id := N + $; Name_UP_RESULT : constant Name_Id := N + $;
Name_Suspension_Object : constant Name_Id := N + $; Name_Suspension_Object : constant Name_Id := N + $;
Name_Synchronous_Task_Control : constant Name_Id := N + $; Name_Synchronous_Task_Control : constant Name_Id := N + $;