From aebedcd4fd4183aaecaf7bc82b1345b6fd40bfc5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 23 Sep 2017 08:40:20 +0200
Subject: sem_scopes: improve debug procedure.

---
 src/vhdl/sem_scopes.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/sem_scopes.adb b/src/vhdl/sem_scopes.adb
index 0d87c9584..91408554b 100644
--- a/src/vhdl/sem_scopes.adb
+++ b/src/vhdl/sem_scopes.adb
@@ -1499,8 +1499,10 @@ package body Sem_Scopes is
          if Is_Potentially_Visible (Inter) then
             Put (" (use)");
          end if;
-         Put (": ");
+         Put (":");
          Decl := Get_Declaration (Inter);
+         Put (Iir'Image (Decl));
+         Put (':');
          Put (Iir_Kind'Image (Get_Kind (Decl)));
          Put_Line (", loc: " & Image (Get_Location (Decl)));
          if Get_Kind (Decl) in Iir_Kinds_Subprogram_Declaration then
-- 
cgit v1.2.3