diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-20 07:49:03 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-20 12:19:48 +0200 |
commit | cb72a1834f160d95d026b7e466886fd95fd82146 (patch) | |
tree | 87cd0fff5a8ce03b05b8e6a0a0129b60de90fe61 /src/synth/synth-values-debug.adb | |
parent | b6d42a577f4ee5f2084a165b0cdf66cadcc878a1 (diff) | |
download | ghdl-cb72a1834f160d95d026b7e466886fd95fd82146.tar.gz ghdl-cb72a1834f160d95d026b7e466886fd95fd82146.tar.bz2 ghdl-cb72a1834f160d95d026b7e466886fd95fd82146.zip |
types: introduce Direction_Type, which replaces Iir_Direction.
Global renaming.
Diffstat (limited to 'src/synth/synth-values-debug.adb')
-rw-r--r-- | src/synth/synth-values-debug.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-values-debug.adb b/src/synth/synth-values-debug.adb index e28b3ab5e..493c30e7e 100644 --- a/src/synth/synth-values-debug.adb +++ b/src/synth/synth-values-debug.adb @@ -23,12 +23,12 @@ with Utils_IO; use Utils_IO; with Vhdl.Nodes; use Vhdl.Nodes; package body Synth.Values.Debug is - procedure Put_Dir (Dir : Iir_Direction) is + procedure Put_Dir (Dir : Direction_Type) is begin case Dir is - when Iir_To => + when Dir_To => Put ("to"); - when Iir_Downto => + when Dir_Downto => Put ("downto"); end case; end Put_Dir; |