Handle 'pos/'leftof/'rightof/'succ/'prev attributes.

1 files changed, 4 insertions, 0 deletions

diff --git a/canon.adb b/canon.adb
index 5b2df9c..1836992 100644
--- a/canon.adb
+++ b/canon.adb
@@ -239,6 +239,10 @@ package body Canon is
             --Canon_Extract_Sensitivity
             --  (Get_Prefix (Expr), Sensitivity_List, Is_Target);
 
+         when Iir_Kinds_Scalar_Type_Attribute =>
+            Canon_Extract_Sensitivity
+              (Get_Parameter (Expr), Sensitivity_List, Is_Target);
+
          when Iir_Kind_Aggregate =>
             declare
                Aggr_Type : Iir;