aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/simulate/simul-environments.ads
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2017-12-18 19:16:46 +0100
committerTristan Gingold <tgingold@free.fr>2017-12-21 07:36:46 +0100
commit0836f191563eae6cd5ada9dbc2b8a871a522bc5c (patch)
tree08d68285ddca7c64fad444cd00b15b4f9a1f78b3 /src/vhdl/simulate/simul-environments.ads
parentbb95ef066af608754d8ddb626d956c7a2a13563b (diff)
downloadghdl-0836f191563eae6cd5ada9dbc2b8a871a522bc5c.tar.gz
ghdl-0836f191563eae6cd5ada9dbc2b8a871a522bc5c.tar.bz2
ghdl-0836f191563eae6cd5ada9dbc2b8a871a522bc5c.zip
simul-debugger: improve info signals.
Diffstat (limited to 'src/vhdl/simulate/simul-environments.ads')
-rw-r--r--src/vhdl/simulate/simul-environments.ads6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/simulate/simul-environments.ads b/src/vhdl/simulate/simul-environments.ads
index a451ff5a7..f8104e096 100644
--- a/src/vhdl/simulate/simul-environments.ads
+++ b/src/vhdl/simulate/simul-environments.ads
@@ -16,7 +16,6 @@
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
-with Ada.Text_IO;
with Ada.Unchecked_Deallocation;
with Types; use Types;
with Iirs; use Iirs;
@@ -520,7 +519,10 @@ package Simul.Environments is
-- Disp a value_literal in raw form.
procedure Disp_Value (Value: Iir_Value_Literal_Acc);
procedure Disp_Value_Tab (Value: Iir_Value_Literal_Acc;
- Tab: Ada.Text_IO.Count);
+ Indent : Natural);
+
+ -- Disp literal of an enumerated type.
+ procedure Disp_Iir_Value_Enum (Pos : Natural; A_Type : Iir);
-- Disp a value_literal in readable form.
procedure Disp_Iir_Value (Value: Iir_Value_Literal_Acc; A_Type: Iir);