projects / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 7837a88)
[Ada] Analyze second parameter of attribute Scaling
authorPiotr Trojanek <trojanek@adacore.com>
Mon, 23 Nov 2020 14:30:06 +0000 (15:30 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 14 Dec 2020 15:51:56 +0000 (10:51 -0500)
gcc/ada/

* sem_attr.adb (Analyze_Attribute): Resolve second parameter of
attribute Scaling just like it is resolved for a similar
attribute Compose.

gcc/ada/sem_attr.adb patch | blob | history

diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 526224454f628fa2ee6aae727b56bbabbef3b3a5..1a574c67b99c5be7dc57b4e74ebb2ae068351573 100644 (file)
--- 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 --