From dde006868a8864a9152ad396c519ddc4cbe9cfd8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 6 Apr 2020 18:41:34 +0200
Subject: ghdl -s: do not perform analysis in case of parse error.  Fix #1196

---
 src/ghdldrv/ghdllocal.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index 45a0152fa..1f70ceae1 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -862,7 +862,7 @@ package body Ghdllocal is
          Put_Line (":");
       end if;
       Design_File := Vhdl.Sem_Lib.Load_File_Name (Id);
-      if Design_File = Null_Iir then
+      if Errorout.Nbr_Errors /= 0 then
          return;
       end if;
 
-- 
cgit v1.2.3