From 6b3077ca2b4eac97d176f84f90e4e237315454a6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 10 Oct 2019 18:29:18 +0200
Subject: netlists: give a name to the free module.

In order to avoid crashes in dumps.
---
 src/synth/netlists.adb | 6 ++++--
 1 file 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,
-- 
cgit v1.2.3