diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2020-11-23 15:30:06 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-14 10:51:56 -0500 |
commit | a21ec1de4e512e2aa26f8cb8e45f5ef98788b203 (patch) | |
tree | 2a529d2c00af8fbcbf5d69753d13a1800cfdc29f | |
parent | 7837a887d6672735d24737baf46ece96dc53a02d (diff) | |
download | gcc-a21ec1de4e512e2aa26f8cb8e45f5ef98788b203.zip gcc-a21ec1de4e512e2aa26f8cb8e45f5ef98788b203.tar.gz gcc-a21ec1de4e512e2aa26f8cb8e45f5ef98788b203.tar.bz2 |
[Ada] Analyze second parameter of attribute Scaling
gcc/ada/
* sem_attr.adb (Analyze_Attribute): Resolve second parameter of
attribute Scaling just like it is resolved for a similar
attribute Compose.
-rw-r--r-- | gcc/ada/sem_attr.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 5262244..1a574c6 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -5953,6 +5953,7 @@ package body Sem_Attr is Check_Floating_Point_Type_2; Set_Etype (N, P_Base_Type); Resolve (E1, P_Base_Type); + Resolve (E2, Any_Integer); ------------------ -- Signed_Zeros -- |