diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-08-20 04:45:14 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-08-20 04:45:14 +0200 |
| commit | d81dfb85709da4daa9bac3fceec5716a0b410b5b (patch) | |
| tree | 90bf018f5af0006e471340f585f30c2cc006bdbf /src | |
| parent | c76c3172dd65971161ca926536b07d7134a8c500 (diff) | |
| download | ghdl-d81dfb85709da4daa9bac3fceec5716a0b410b5b.tar.gz ghdl-d81dfb85709da4daa9bac3fceec5716a0b410b5b.tar.bz2 ghdl-d81dfb85709da4daa9bac3fceec5716a0b410b5b.zip | |
synth: analyze input files.
Diffstat (limited to 'src')
| -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 b5629d1e7..8f423f5d9 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -106,6 +106,7 @@ package body Ghdlsynth is use Errorout; E_Opt : Integer; Opt_Arg : Natural; + Design_File : Iir; Config : Iir; Top : Iir; Prim_Id : Name_Id; @@ -137,8 +138,14 @@ package body Ghdlsynth is -- Analyze files (if any) for I in Args'First .. E_Opt - 1 loop - Ghdlcomp.Compile_Analyze_File (Args (I).all); + Design_File := Ghdlcomp.Compile_Analyze_File2 (Args (I).all); end loop; + pragma Unreferenced (Design_File); + + if Nbr_Errors > 0 then + -- No need to configure if there are missing units. + return Null_Iir; + end if; -- Elaborate if E_Opt = Args'Last then |