From 65c309f9d46d1a7f1dfc046d23e2b691fbfc6d57 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 4 Jun 2019 18:26:26 +0200
Subject: vhdl-prints: try to print error content.

---
 src/vhdl/vhdl-prints.adb | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb
index f1704476a..634e2be3c 100644
--- a/src/vhdl/vhdl-prints.adb
+++ b/src/vhdl/vhdl-prints.adb
@@ -3601,6 +3601,16 @@ package body Vhdl.Prints is
          when Iir_Kind_Signature =>
             Disp_Signature (Ctxt, Expr);
 
+         when Iir_Kind_Error =>
+            declare
+               Orig : constant Iir := Get_Error_Origin (Expr);
+            begin
+               if Orig /= Null_Iir then
+                  Print (Ctxt, Orig);
+               else
+                  Error_Kind ("print/error", Expr);
+               end if;
+            end;
          when others =>
             Error_Kind ("print", Expr);
       end case;
-- 
cgit v1.2.3