From ce20ff0260c24c3da9012e4226e9eb04d01a5221 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek 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 4e4c27a..285b260 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 -- -- 2.7.4