From 63ce15f4aa9323b92348e53a285037a9c9f742bf Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 7 Apr 2020 06:46:01 +0200
Subject: ghdlsynth: avoid a bug-box in case of analysis error in plugin.

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

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb
index 3aeeed1a5..1015d7b22 100644
--- a/src/ghdldrv/ghdlsynth.adb
+++ b/src/ghdldrv/ghdlsynth.adb
@@ -394,7 +394,8 @@ package body Ghdlsynth is
       return Res;
 
    exception
-      when Option_Error =>
+      when Option_Error
+        | Errorout.Compilation_Error =>
          return No_Module;
       when E: others =>
          --  Avoid possible issues with exceptions...
-- 
cgit v1.2.3