diff options
Diffstat (limited to 'src/vhdl/disp_tree.adb')
| -rw-r--r-- | src/vhdl/disp_tree.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/disp_tree.adb b/src/vhdl/disp_tree.adb index 062f98d9a..78a8096a8 100644 --- a/src/vhdl/disp_tree.adb +++ b/src/vhdl/disp_tree.adb @@ -437,8 +437,9 @@ package body Disp_Tree is Put_Line (Source_Ptr'Image (Get_Source_Ptr (N, F))); when Type_Date_Type => Put_Line (Date_Type'Image (Get_Date_Type (N, F))); - when Type_Base_Type => - Put_Line (Base_Type'Image (Get_Base_Type (N, F))); + when Type_Number_Base_Type => + Put_Line (Number_Base_Type'Image + (Get_Number_Base_Type (N, F))); when Type_Iir_Constraint => Put_Line (Image_Iir_Constraint (Get_Iir_Constraint (N, F))); |