diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-11-23 14:24:50 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-14 10:51:55 -0500 |
| commit | 041f8c70ad0e9cf0b40a3e51c444349bf00d35a3 (patch) | |
| tree | 4a8e0c0552b6f366a061aadcd9326df0855ea21f /gcc | |
| parent | b27e311783fd5fc6932a748c88cb8b7b1ed956c6 (diff) | |
| download | gcc-041f8c70ad0e9cf0b40a3e51c444349bf00d35a3.zip gcc-041f8c70ad0e9cf0b40a3e51c444349bf00d35a3.tar.gz gcc-041f8c70ad0e9cf0b40a3e51c444349bf00d35a3.tar.bz2 | |
[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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 847d863..b243af6 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 -- |