From d81dfb85709da4daa9bac3fceec5716a0b410b5b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 20 Aug 2019 04:45:14 +0200
Subject: synth: analyze input files.

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

(limited to 'src/ghdldrv')

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
-- 
cgit v1.2.3