Add ghdlsynth in ghdl_simul

3 files changed, 13 insertions, 1 deletions

diff --git a/src/ghdldrv/ghdl_simul.adb b/src/ghdldrv/ghdl_simul.adb
index d4d0abd7a..57d5758fd 100644
--- a/src/ghdldrv/ghdl_simul.adb
+++ b/src/ghdldrv/ghdl_simul.adb
@@ -20,12 +20,15 @@ with Ghdllocal;
 with Ghdlprint;
 with Ghdlsimul;
 
+with Ghdlsynth;
+
 procedure Ghdl_Simul is
 begin
    --  Manual elaboration so that the order is known (because it is the order
    --  used to display help).
    Ghdlmain.Version_String := new String'("interpretation");
    Ghdlsimul.Register_Commands;
+   Ghdlsynth.Register_Commands;
    Ghdllocal.Register_Commands;
    Ghdlprint.Register_Commands;
    Ghdlmain.Register_Commands;
diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index 2f2e13ce5..31f084d62 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -23,7 +23,6 @@ with Ghdllocal; use Ghdllocal;
 with GNAT.OS_Lib; use GNAT.OS_Lib;
 
 with Types;
-with Iirs; use Iirs;
 with Flags;
 with Name_Table;
 with Errorout; use Errorout;
@@ -205,6 +204,11 @@ package body Ghdlsimul is
       Put_Line (" --debug        Run with debugger");
    end Disp_Long_Help;
 
+   function Get_Top_Config return Iir is
+   begin
+      return Top_Conf;
+   end Get_Top_Config;
+
    procedure Set_Hooks is
    begin
       Ghdlcomp.Hooks := (Compile_Init'Access,
diff --git a/src/ghdldrv/ghdlsimul.ads b/src/ghdldrv/ghdlsimul.ads
index 4345d1349..3423b1152 100644
--- a/src/ghdldrv/ghdlsimul.ads
+++ b/src/ghdldrv/ghdlsimul.ads
@@ -15,9 +15,14 @@
 --  along with GCC; see the file COPYING.  If not, write to the Free
 --  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 --  02111-1307, USA.
+
+with Iirs; use Iirs;
+
 package Ghdlsimul is
    procedure Register_Commands;
 
    --  Functional interface.
    procedure Compile_Init;
+
+   function Get_Top_Config return Iir;
 end Ghdlsimul;