diff options
| -rw-r--r-- | src/synth/synth-decls.adb | 3 | ||||
| -rw-r--r-- | src/synth/synth-stmts.adb | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb index d3a903b00..1539b0039 100644 --- a/src/synth/synth-decls.adb +++ b/src/synth/synth-decls.adb @@ -612,7 +612,8 @@ package body Synth.Decls is case Get_Kind (Obj) is when Iir_Kind_Signal_Declaration - | Iir_Kind_Variable_Declaration => + | Iir_Kind_Variable_Declaration + | Iir_Kind_Interface_Signal_Declaration => V := Get_Value (Syn_Inst, Obj); pragma Assert (V.Val.Kind = Value_Wire); Inst := Get_Net_Parent (Get_Wire_Gate (V.Val.W)); diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index a19ca987a..8ec6fdf33 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -3700,6 +3700,9 @@ package body Synth.Stmts is Synth_Attribute_Formal (Syn_Inst, Val, Id_Anyconst); when Name_Anyseq => Synth_Attribute_Formal (Syn_Inst, Val, Id_Anyseq); + when Name_Loc => + -- Applies to nets/ports. + null; when others => Warning_Msg_Synth (+Spec, "unhandled attribute %i", (1 => +Id)); end case; |