diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-11-23 16:50:17 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-15 06:41:50 -0500 |
| commit | e5f53db770e33d78e415be1766f9ebf36e5152e6 (patch) | |
| tree | 161ef6977174196ce09264fce2e14dadb79d2e01 /gcc/ada/sem_attr.adb | |
| parent | e30609bf042cbc937bece4ae00347a37f76af87f (diff) | |
| download | gcc-e5f53db770e33d78e415be1766f9ebf36e5152e6.zip gcc-e5f53db770e33d78e415be1766f9ebf36e5152e6.tar.gz gcc-e5f53db770e33d78e415be1766f9ebf36e5152e6.tar.bz2 | |
[Ada] Refactor duplicated code for Denorm and Signed_Zeros attributes
gcc/ada/
* sem_attr.adb (Analyze_Attribute): Merge identical code for
Denorm and Signed_Zeros attributes.
Diffstat (limited to 'gcc/ada/sem_attr.adb')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 8f118af..4ec22ae 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -3819,7 +3819,9 @@ package body Sem_Attr is -- Denorm -- ------------ - when Attribute_Denorm => + when Attribute_Denorm + | Attribute_Signed_Zeros + => Check_Floating_Point_Type_0; Set_Etype (N, Standard_Boolean); @@ -5949,9 +5951,7 @@ package body Sem_Attr is -- Signed_Zeros -- ------------------ - when Attribute_Signed_Zeros => - Check_Floating_Point_Type_0; - Set_Etype (N, Standard_Boolean); + -- Shares processing with Denorm attribute ---------- -- Size -- |