diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-19 21:32:13 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-19 21:32:13 +0200 |
commit | 70cf91a7ccc9e8cce2277897efa10d9c6f59f1f1 (patch) | |
tree | 240078026a5bdc5b38a1fb377c60e4c8baa4d6ef /src/synth/synth-values-debug.adb | |
parent | f47797b921b2b86189528a742e729675131d27e3 (diff) | |
download | ghdl-70cf91a7ccc9e8cce2277897efa10d9c6f59f1f1.tar.gz ghdl-70cf91a7ccc9e8cce2277897efa10d9c6f59f1f1.tar.bz2 ghdl-70cf91a7ccc9e8cce2277897efa10d9c6f59f1f1.zip |
synth-values-debug: improve debug_typ.
Diffstat (limited to 'src/synth/synth-values-debug.adb')
-rw-r--r-- | src/synth/synth-values-debug.adb | 30 |
1 files changed, 26 insertions, 4 deletions
diff --git a/src/synth/synth-values-debug.adb b/src/synth/synth-values-debug.adb index ca289fbdd..e28b3ab5e 100644 --- a/src/synth/synth-values-debug.adb +++ b/src/synth/synth-values-debug.adb @@ -23,16 +23,21 @@ with Utils_IO; use Utils_IO; with Vhdl.Nodes; use Vhdl.Nodes; package body Synth.Values.Debug is - procedure Debug_Bound (Bnd : Bound_Type) is + procedure Put_Dir (Dir : Iir_Direction) is begin - Put_Int32 (Bnd.Left); - Put (' '); - case Bnd.Dir is + case Dir is when Iir_To => Put ("to"); when Iir_Downto => Put ("downto"); end case; + end Put_Dir; + + procedure Debug_Bound (Bnd : Bound_Type) is + begin + Put_Int32 (Bnd.Left); + Put (' '); + Put_Dir (Bnd.Dir); Put (' '); Put_Int32 (Bnd.Right); Put (" ["); @@ -66,6 +71,16 @@ package body Synth.Values.Debug is Put (")"); when Type_Discrete => Put ("discrete: "); + Put_Int64 (T.Drange.Left); + Put (' '); + Put_Dir (T.Drange.Dir); + Put (' '); + Put_Int64 (T.Drange.Right); + if T.Drange.Is_Signed then + Put (" [signed]"); + else + Put (" [unsigned]"); + end if; when Type_Access => Put ("access"); when Type_File => @@ -81,6 +96,13 @@ package body Synth.Values.Debug is when Type_Protected => Put ("protected"); end case; + Put (' '); + Put (" al="); + Put_Int32 (Int32 (T.Al)); + Put (" sz="); + Put_Uns32 (Uns32 (T.Sz)); + Put (" w="); + Put_Uns32 (Uns32 (T.W)); end Debug_Typ1; procedure Debug_Typ (T : Type_Acc) is |