From bbb8b126da93d6a156dd19e37e7faa4aa3d199a1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 23 Jan 2015 06:20:38 +0100
Subject: simulation: rework scope_level.

---
 src/vhdl/simulate/debugger.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/vhdl/simulate/debugger.adb')

diff --git a/src/vhdl/simulate/debugger.adb b/src/vhdl/simulate/debugger.adb
index 4bceea97b..5966fc3b6 100644
--- a/src/vhdl/simulate/debugger.adb
+++ b/src/vhdl/simulate/debugger.adb
@@ -274,8 +274,7 @@ package body Debugger is
    --  Used to debug.
    procedure Disp_Block_Instance (Instance: Block_Instance_Acc) is
    begin
-      Put_Line ("scope level:"
-                  & Scope_Level_Type'Image (Instance.Scope_Level));
+      Put_Line ("scope:" & Image (Instance.Scope_Level));
       Put_Line ("Objects:");
       for I in Instance.Objects'Range loop
          Put (Object_Slot_Type'Image (I) & ": ");
-- 
cgit v1.2.3