diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-23 05:27:38 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-23 05:27:38 +0200 |
| commit | 3d683addbbf4bd7a96e202a9949b4820590d6134 (patch) | |
| tree | fb79d9861794b89961fca95d475aaa2e132b6039 /src/synth/netlists.adb | |
| parent | 654af3d66369926159fb763cfaadf7ba8bc13d44 (diff) | |
| download | ghdl-3d683addbbf4bd7a96e202a9949b4820590d6134.tar.gz ghdl-3d683addbbf4bd7a96e202a9949b4820590d6134.tar.bz2 ghdl-3d683addbbf4bd7a96e202a9949b4820590d6134.zip | |
synth: use original entity to display netlist.
Diffstat (limited to 'src/synth/netlists.adb')
| -rw-r--r-- | src/synth/netlists.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/netlists.adb b/src/synth/netlists.adb index edc66dbf8..72ceac948 100644 --- a/src/synth/netlists.adb +++ b/src/synth/netlists.adb @@ -80,6 +80,12 @@ package body Netlists is return Snames_Table.Table (Name).Prefix; end Get_Sname_Prefix; + procedure Set_Sname_Prefix (Name : Sname; Prefix : Sname) is + begin + pragma Assert (Is_Valid (Name)); + Snames_Table.Table (Name).Prefix := Prefix; + end Set_Sname_Prefix; + function Get_Sname_Suffix (Name : Sname) return Name_Id is subtype Snames_Suffix is Sname_Kind range Sname_User .. Sname_Artificial; |