From cdda9d783f71a13fa2c828f6b8677f64932f6a6e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 7 Oct 2019 18:39:21 +0200
Subject: ghdlsynth: setup error messages for netlists.

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

diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb
index f06676097..fb1239442 100644
--- a/src/ghdldrv/ghdlsynth.adb
+++ b/src/ghdldrv/ghdlsynth.adb
@@ -269,6 +269,8 @@ package body Ghdlsynth is
          raise Errorout.Compilation_Error;
       end if;
 
+      Netlists.Errors.Initialize;
+
       Synthesis.Synth_Design (Config, Res, Inst);
       if Res = No_Module then
          raise Errorout.Compilation_Error;
-- 
cgit v1.2.3