diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-28 05:56:05 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-28 05:56:05 +0100 |
| commit | c861fd507ef2261f1a0b8f3cdf1edcd4e61500ae (patch) | |
| tree | 2ec8c2c6a7011a972d0d97737ede76243c8da57c /src/synth/synth-decls.adb | |
| parent | bfa61a8886ec2d3ff20f55b6192eea5c808a07ea (diff) | |
| download | ghdl-c861fd507ef2261f1a0b8f3cdf1edcd4e61500ae.tar.gz ghdl-c861fd507ef2261f1a0b8f3cdf1edcd4e61500ae.tar.bz2 ghdl-c861fd507ef2261f1a0b8f3cdf1edcd4e61500ae.zip | |
synth: rework the sname API.
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); |