From 2031c52e845d17f4b96011b88f814b7af467cdd5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 23 Jan 2015 06:40:20 +0100
Subject: Simulation: renaming.

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

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

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