diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-12-18 19:16:46 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-12-21 07:36:46 +0100 |
commit | 0836f191563eae6cd5ada9dbc2b8a871a522bc5c (patch) | |
tree | 08d68285ddca7c64fad444cd00b15b4f9a1f78b3 /src/vhdl/simulate/simul-environments.ads | |
parent | bb95ef066af608754d8ddb626d956c7a2a13563b (diff) | |
download | ghdl-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.ads | 6 |
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); |