diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-05-16 04:34:01 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-05-16 04:34:01 +0200 |
commit | 4803449d989b50284ac51b6190dc4bc0c594a498 (patch) | |
tree | 9136f8f2c051371111fe8446f0c52fdb23725078 /src/synth/elab-vhdl_values-debug.ads | |
parent | 721d166110bd39b067aa064ebe8c7bf6f514effc (diff) | |
download | ghdl-4803449d989b50284ac51b6190dc4bc0c594a498.tar.gz ghdl-4803449d989b50284ac51b6190dc4bc0c594a498.tar.bz2 ghdl-4803449d989b50284ac51b6190dc4bc0c594a498.zip |
elab-vhdl_debug: factorize code, make Put_Dir public
Diffstat (limited to 'src/synth/elab-vhdl_values-debug.ads')
-rw-r--r-- | src/synth/elab-vhdl_values-debug.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_values-debug.ads b/src/synth/elab-vhdl_values-debug.ads index 000cd59c5..026625c76 100644 --- a/src/synth/elab-vhdl_values-debug.ads +++ b/src/synth/elab-vhdl_values-debug.ads @@ -23,4 +23,7 @@ package Elab.Vhdl_Values.Debug is -- Short description, no newline. procedure Debug_Type_Short (T : Type_Acc); + + -- Display 'to' or 'downto'. + procedure Put_Dir (Dir : Direction_Type); end Elab.Vhdl_Values.Debug; |