aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/synth-vhdl_expr.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth/synth-vhdl_expr.adb')
-rw-r--r--src/synth/synth-vhdl_expr.adb12
1 files changed, 9 insertions, 3 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb
index 073d015b2..e646f6b0b 100644
--- a/src/synth/synth-vhdl_expr.adb
+++ b/src/synth/synth-vhdl_expr.adb
@@ -2220,10 +2220,16 @@ package body Synth.Vhdl_Expr is
Error_Msg_Synth (+Expr, "out of bound expression");
return No_Valtyp;
when Iir_Kind_Event_Attribute =>
- if Hook_Signal_Attribute /= null then
- return Hook_Signal_Attribute (Syn_Inst, Expr);
+ if Hook_Event_Attribute /= null then
+ return Hook_Event_Attribute (Syn_Inst, Expr);
end if;
- Error_Msg_Synth (+Expr, "signal attributes not allowed");
+ Error_Msg_Synth (+Expr, "event attributes not allowed");
+ return No_Valtyp;
+ when Iir_Kind_Dot_Attribute =>
+ if Hook_Dot_Attribute /= null then
+ return Hook_Dot_Attribute (Syn_Inst, Expr);
+ end if;
+ Error_Msg_Synth (+Expr, "dot attribute not allowed");
return No_Valtyp;
when others =>
Error_Kind ("synth_expression_with_type", Expr);