diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-13 20:46:58 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-13 20:46:58 +0200 |
| commit | b25f7f63976c9c24a9916e58eb9e73ba08e91988 (patch) | |
| tree | d2da08561ecfa493d2f3e63f4abd7a1b1171e5cf /src/synth | |
| parent | 347b9930c5a65d8cf96a6f7f5d92c37bfee7c21a (diff) | |
| download | ghdl-b25f7f63976c9c24a9916e58eb9e73ba08e91988.tar.gz ghdl-b25f7f63976c9c24a9916e58eb9e73ba08e91988.tar.bz2 ghdl-b25f7f63976c9c24a9916e58eb9e73ba08e91988.zip | |
synth-values-debug: handle all types.
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/synth-values-debug.adb | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/src/synth/synth-values-debug.adb b/src/synth/synth-values-debug.adb index 282082cda..fd797d81c 100644 --- a/src/synth/synth-values-debug.adb +++ b/src/synth/synth-values-debug.adb @@ -43,6 +43,9 @@ package body Synth.Values.Debug is procedure Debug_Memtyp (M : Memtyp) is begin case M.Typ.Kind is + when Type_Bit + | Type_Logic => + Put ("bit/logic"); when Type_Vector => Put ("vector ("); Debug_Bound (M.Typ.Vbound); @@ -79,8 +82,18 @@ package body Synth.Values.Debug is when Type_Discrete => Put ("discrete: "); Put_Int64 (Read_Discrete (M)); - when others => - Put ("others"); + when Type_Access => + Put ("access"); + when Type_File => + Put ("file"); + when Type_Float => + Put ("float"); + when Type_Slice => + Put ("slice"); + when Type_Unbounded_Vector => + Put ("unbounded vector"); + when Type_Unbounded_Array => + Put ("unbounded array"); end case; New_Line; end Debug_Memtyp; |