From 4803449d989b50284ac51b6190dc4bc0c594a498 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 16 May 2022 04:34:01 +0200
Subject: elab-vhdl_debug: factorize code, make Put_Dir public

---
 src/synth/elab-vhdl_values-debug.ads | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/synth/elab-vhdl_values-debug.ads')

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;
-- 
cgit v1.2.3