From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 23 Nov 2020 13:24:50 +0000 (+0100)
Subject: [Ada] Process Truncation just like other floating point attributes
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=041f8c70ad0e9cf0b40a3e51c444349bf00d35a3;p=gcc.git

[Ada] Process Truncation just like other floating point attributes

gcc/ada/

	* sem_attr.adb (Analyze_Attribute): Merge similar code for
	Truncation and other floating point attributes.
---

diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 847d86359a7..b243af6e1ff 100644
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -3402,6 +3402,7 @@ package body Sem_Attr is
          | Attribute_Machine_Rounding
          | Attribute_Model
          | Attribute_Rounding
+         | Attribute_Truncation
          | Attribute_Unbiased_Rounding
       =>
          Check_Floating_Point_Type_1;
@@ -6409,10 +6410,7 @@ package body Sem_Attr is
       -- Truncation --
       ----------------
 
-      when Attribute_Truncation =>
-         Check_Floating_Point_Type_1;
-         Resolve (E1, P_Base_Type);
-         Set_Etype (N, P_Base_Type);
+      --  Shares processing with Ceiling attribute
 
       ----------------
       -- Type_Class --