diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-12-03 10:27:57 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-12-03 10:27:57 +0100 |
commit | e62abb62264f7271ad5521d75a84fd689c3b49e0 (patch) | |
tree | e3a14524a135b4dad09f3b0833d77ef474fe601a /src/vhdl/simulate/simul-debugger.adb | |
parent | 2b61f516ef9775502da6dfcc8b21e79cf8482c87 (diff) | |
download | ghdl-e62abb62264f7271ad5521d75a84fd689c3b49e0.tar.gz ghdl-e62abb62264f7271ad5521d75a84fd689c3b49e0.tar.bz2 ghdl-e62abb62264f7271ad5521d75a84fd689c3b49e0.zip |
simul: refactoring: scope is now the corresponding sim_info.
Diffstat (limited to 'src/vhdl/simulate/simul-debugger.adb')
-rw-r--r-- | src/vhdl/simulate/simul-debugger.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/simulate/simul-debugger.adb b/src/vhdl/simulate/simul-debugger.adb index 105b16e81..648e99501 100644 --- a/src/vhdl/simulate/simul-debugger.adb +++ b/src/vhdl/simulate/simul-debugger.adb @@ -313,7 +313,7 @@ package body Simul.Debugger is -- Used to debug. procedure Disp_Block_Instance (Instance: Block_Instance_Acc) is begin - Put_Line ("scope:" & Image (Instance.Block_Scope)); + Put_Line ("scope:" & Image (Instance.Block_Scope.Frame_Scope)); Put_Line ("Objects:"); for I in Instance.Objects'Range loop Put (Object_Slot_Type'Image (I) & ": "); |