1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb
index a625294a5..f6d21731a 100644
--- a/src/vhdl/vhdl-parse.adb
+++ b/src/vhdl/vhdl-parse.adb
@@ -597,9 +597,9 @@ package body Vhdl.Parse is
 
       case Current_Token is
          when Tok_To =>
-            Set_Direction (Res, Iir_To);
+            Set_Direction (Res, Dir_To);
          when Tok_Downto =>
-            Set_Direction (Res, Iir_Downto);
+            Set_Direction (Res, Dir_Downto);
          when others =>
             raise Internal_Error;
       end case;