diff options
Diffstat (limited to 'src/vhdl/vhdl-disp_tree.adb')
| -rw-r--r-- | src/vhdl/vhdl-disp_tree.adb | 14 |
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 => |