diff options
| author | Tristan Gingold | 2015-01-23 06:40:20 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-01-23 06:40:20 +0100 |
| commit | 2031c52e845d17f4b96011b88f814b7af467cdd5 (patch) | |
| tree | 1684618ffd5b8fead3725a1678c7c1e2f38fe69f /src/vhdl/simulate/debugger.adb | |
| parent | bbb8b126da93d6a156dd19e37e7faa4aa3d199a1 (diff) | |
| download | ghdl-2031c52e845d17f4b96011b88f814b7af467cdd5.tar.gz ghdl-2031c52e845d17f4b96011b88f814b7af467cdd5.tar.bz2 ghdl-2031c52e845d17f4b96011b88f814b7af467cdd5.zip | |
Simulation: renaming.
Diffstat (limited to 'src/vhdl/simulate/debugger.adb')
| -rw-r--r-- | src/vhdl/simulate/debugger.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/simulate/debugger.adb b/src/vhdl/simulate/debugger.adb index 5966fc3..87cef49 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) & ": "); |