diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-22 03:29:47 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-22 07:32:57 +0200 |
| commit | 2cc224085058ddc27fac18092dc06bedfb1a6baf (patch) | |
| tree | 2669a4d18e6b01955ad8138fc337d48133bcd7e6 | |
| parent | 85188d52c057845dbad1d92e5fe55c14909421dc (diff) | |
| download | ghdl-2cc224085058ddc27fac18092dc06bedfb1a6baf.tar.gz ghdl-2cc224085058ddc27fac18092dc06bedfb1a6baf.tar.bz2 ghdl-2cc224085058ddc27fac18092dc06bedfb1a6baf.zip | |
ghdlsynth: preliminary work for wrapped generation.
| -rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 9 |
1 files changed, 8 insertions, 1 deletions
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; |