From 2cc224085058ddc27fac18092dc06bedfb1a6baf Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 22 Jul 2019 03:29:47 +0200
Subject: ghdlsynth: preliminary work for wrapped generation.

---
 src/ghdldrv/ghdlsynth.adb | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb
index 6c5c7378f..d25d649e8 100644
--- a/src/ghdldrv/ghdlsynth.adb
+++ b/src/ghdldrv/ghdlsynth.adb
@@ -201,8 +201,15 @@ package body Ghdlsynth is
                              Args : Argument_List)
    is
       Res : Module;
+      Config : Iir;
    begin
-      Res := Ghdl_Synth (Args);
+      Config := Ghdl_Synth_Configure (Args);
+
+      if Config = Null_Iir then
+         raise Errorout.Compilation_Error;
+      end if;
+
+      Res := Synthesis.Synth_Design (Config);
       if Res = No_Module then
          raise Errorout.Compilation_Error;
       end if;
-- 
cgit v1.2.3