1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/synth-vhdl_expr.ads b/src/synth/synth-vhdl_expr.ads
index 8f1edd5f3..5c81701c1 100644
--- a/src/synth/synth-vhdl_expr.ads
+++ b/src/synth/synth-vhdl_expr.ads
@@ -90,6 +90,11 @@ package Synth.Vhdl_Expr is
                                         Expr : Node;
                                         Expr_Type : Type_Acc) return Valtyp;
 
+   --  For value signal attribute (like 'Event).
+   type Hook_Signal_Attribute_Acc is access
+     function (Syn_Inst : Synth_Instance_Acc; Expr : Node) return Valtyp;
+   Hook_Signal_Attribute : Hook_Signal_Attribute_Acc;
+
    --  Use base type of EXPR to synthesize EXPR.  Useful when the type of
    --  EXPR is defined by itself or a range.
    function Synth_Expression_With_Basetype (Syn_Inst : Synth_Instance_Acc;