From b38003fe6a2a12af7f2e13b4ac8c28245a48575e Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 17 Mar 2021 20:16:24 +0100 Subject: synth: handle loc attribute (for ports). Fix #1682 --- src/synth/synth-decls.adb | 3 ++- src/synth/synth-stmts.adb | 3 +++ 2 files changed, 5 insertions(+), 1 deletion(-) 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; -- cgit v1.2.3