diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-10 18:29:18 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-10 18:29:35 +0200 |
| commit | 6b3077ca2b4eac97d176f84f90e4e237315454a6 (patch) | |
| tree | 65ad427be2d747156e98ef319beea73bd65c0d39 /src/synth | |
| parent | bb55e3201f211ed7176993cbf1622ad4592f95e0 (diff) | |
| download | ghdl-6b3077ca2b4eac97d176f84f90e4e237315454a6.tar.gz ghdl-6b3077ca2b4eac97d176f84f90e4e237315454a6.tar.bz2 ghdl-6b3077ca2b4eac97d176f84f90e4e237315454a6.zip | |
netlists: give a name to the free module.
In order to avoid crashes in dumps.
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/netlists.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/synth/netlists.adb b/src/synth/netlists.adb index b152dccd5..ec63c36a1 100644 --- a/src/synth/netlists.adb +++ b/src/synth/netlists.adb @@ -18,9 +18,11 @@ -- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, -- MA 02110-1301, USA. +with Std_Names; +with Tables; + with Netlists.Utils; use Netlists.Utils; with Netlists.Gates; -with Tables; package body Netlists is @@ -854,7 +856,7 @@ begin pragma Assert (Modules_Table.Last = No_Module); Modules_Table.Append ((Parent => No_Module, - Name => No_Sname, + Name => New_Sname_Artificial (Std_Names.Name_None), Id => Id_Free, First_Port_Desc => No_Port_Desc_Idx, Nbr_Inputs => 0, |