[Ada] Remove left-overs of Unaligned_Valid attribute

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

View File

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

View File

@ -1400,7 +1400,6 @@ package Snames is
-- Note that the UP_ prefix means use the rest of the name in uppercase,
-- 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_Suspension_Object : constant Name_Id := N + $;
Name_Synchronous_Task_Control : constant Name_Id := N + $;