diff options
Diffstat (limited to 'src/synth/synth-decls.adb')
| -rw-r--r-- | src/synth/synth-decls.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb index 4d520e578..737af2110 100644 --- a/src/synth/synth-decls.adb +++ b/src/synth/synth-decls.adb @@ -56,7 +56,8 @@ package body Synth.Decls is when Value_Wire => -- FIXME: get the width directly from the wire ? W := Get_Type_Width (Val.Typ); - Name := New_Sname (Get_Sname (Syn_Inst), Get_Identifier (Decl)); + Name := New_Sname_User (Get_Identifier (Decl), + Get_Sname (Syn_Inst)); if Init /= null then Ival := Get_Net (Init); pragma Assert (Get_Width (Ival) = W); |