types: introduce Direction_Type, which replaces Iir_Direction.

Global renaming.

1 files changed, 7 insertions, 7 deletions

diff --git a/src/vhdl/vhdl-disp_tree.adb b/src/vhdl/vhdl-disp_tree.adb
index 16aaab9f8..b9801ce89 100644
--- a/src/vhdl/vhdl-disp_tree.adb
+++ b/src/vhdl/vhdl-disp_tree.adb
@@ -328,15 +328,15 @@ package body Vhdl.Disp_Tree is
       return Files_Map.Image (Loc);
    end Image_Location_Type;
 
-   function Image_Iir_Direction (Dir : Iir_Direction) return String is
+   function Image_Direction_Type (Dir : Direction_Type) return String is
    begin
       case Dir is
-         when Iir_To =>
+         when Dir_To =>
             return "to";
-         when Iir_Downto =>
+         when Dir_Downto =>
             return "downto";
       end case;
-   end Image_Iir_Direction;
+   end Image_Direction_Type;
 
    function Image_Token_Type (Tok : Vhdl.Tokens.Token_Type) return String
      renames Vhdl.Tokens.Image;
@@ -574,9 +574,9 @@ package body Vhdl.Disp_Tree is
                when Type_Iir_Predefined_Functions =>
                   Log_Line (Image_Iir_Predefined_Functions
                               (Get_Iir_Predefined_Functions (N, F)));
-               when Type_Iir_Direction =>
-                  Log_Line (Image_Iir_Direction
-                              (Get_Iir_Direction (N, F)));
+               when Type_Direction_Type =>
+                  Log_Line (Image_Direction_Type
+                              (Get_Direction_Type (N, F)));
                when Type_Iir_Int32 =>
                   Log_Line (Iir_Int32'Image (Get_Iir_Int32 (N, F)));
                when Type_Int32 =>