From ce20ff0260c24c3da9012e4226e9eb04d01a5221 Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 24 Nov 2020 00:18:47 +0100
Subject: [PATCH] [Ada] Refactor repeated code for Width attributes
gcc/ada/
* sem_attr.adb (Analyze_Attribute): Merge identical code for
Wide_Wide_Width, Wide_Width and Width attributes.
---
gcc/ada/sem_attr.adb | 15 ++++++---------
1 file changed, 6 insertions(+), 9 deletions(-)
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 4e4c27a297a3..285b2606b7dc 100644
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -7219,7 +7219,10 @@ package body Sem_Attr is
-- Wide_Wide_Width --
---------------------
- when Attribute_Wide_Wide_Width =>
+ when Attribute_Wide_Wide_Width
+ | Attribute_Wide_Width
+ | Attribute_Width
+ =>
Check_E0;
Check_Scalar_Type;
Set_Etype (N, Universal_Integer);
@@ -7228,19 +7231,13 @@ package body Sem_Attr is
-- Wide_Width --
----------------
- when Attribute_Wide_Width =>
- Check_E0;
- Check_Scalar_Type;
- Set_Etype (N, Universal_Integer);
+ -- Shares processing with Wide_Wide_Width attribute
-----------
-- Width --
-----------
- when Attribute_Width =>
- Check_E0;
- Check_Scalar_Type;
- Set_Etype (N, Universal_Integer);
+ -- Shares processing with Wide_Wide_Width attribute
---------------
-- Word_Size --
--
GitLab