diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-01-23 06:20:38 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-01-23 06:20:38 +0100 |
| commit | bbb8b126da93d6a156dd19e37e7faa4aa3d199a1 (patch) | |
| tree | 60259ba3bf6ae5f2134bc496b98f5904e9024e70 /src/vhdl/simulate/debugger.adb | |
| parent | 1fb5e0b79a8428ca3b0826bfdf4865d28350376a (diff) | |
| download | ghdl-bbb8b126da93d6a156dd19e37e7faa4aa3d199a1.tar.gz ghdl-bbb8b126da93d6a156dd19e37e7faa4aa3d199a1.tar.bz2 ghdl-bbb8b126da93d6a156dd19e37e7faa4aa3d199a1.zip | |
simulation: rework scope_level.
Diffstat (limited to 'src/vhdl/simulate/debugger.adb')
| -rw-r--r-- | src/vhdl/simulate/debugger.adb | 3 |
1 files changed, 1 insertions, 2 deletions
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) & ": "); |