From 9b70a1f0bf970706a62dc14e382c91f3616ab51c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 4 Jul 2019 18:22:14 +0200
Subject: libghdlsynth: catch all exceptions.

---
 src/synth/libghdlsynth.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/synth/libghdlsynth.adb b/src/synth/libghdlsynth.adb
index d9d844de1..0931b48b6 100644
--- a/src/synth/libghdlsynth.adb
+++ b/src/synth/libghdlsynth.adb
@@ -52,6 +52,9 @@ package body Libghdlsynth is
    exception
       when Option_Error =>
          return No_Module;
+      when others =>
+         --  Avoid possible issues with exceptions...
+         return No_Module;
    end Synth;
 
    Gnat_Version : constant String := "unknown compiler version" & ASCII.NUL;
-- 
cgit v1.2.3