diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-06-14 17:13:48 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-06-14 17:13:48 +0200 |
| commit | 93861cf8c8670150a084f44089312dd146bc2cf3 (patch) | |
| tree | 40274970ba16488206f93501a19c596bb79dc390 | |
| parent | b6e81a443d6e9b44b60866a41a6c137e7ae0fa4e (diff) | |
| download | ghdl-93861cf8c8670150a084f44089312dd146bc2cf3.tar.gz ghdl-93861cf8c8670150a084f44089312dd146bc2cf3.tar.bz2 ghdl-93861cf8c8670150a084f44089312dd146bc2cf3.zip | |
disp_tree: improve display of array subtypes.
| -rw-r--r-- | disp_tree.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/disp_tree.adb b/disp_tree.adb index 8c3ef6269..1747280a5 100644 --- a/disp_tree.adb +++ b/disp_tree.adb @@ -1237,6 +1237,10 @@ package body Disp_Tree is end if; Header ("staticness:", false); Disp_Type_Staticness (Tree); + Header ("index_constraint: ", False); + Disp_Flag (Get_Index_Constraint_Flag (Tree)); + Header ("constraint_state: " + & Iir_Constraint'Image (Get_Constraint_State (Tree))); Header ("resolved flag: ", False); Disp_Type_Resolved_Flag (Tree); Header ("signal_type_flag: ", False); @@ -1268,10 +1272,6 @@ package body Disp_Tree is Disp_Tree (Get_Element_Subtype (Tree), Ntab, True); Header ("resolution function:"); Disp_Tree_Flat (Get_Resolution_Function (Tree), Ntab); - Header ("index_constraint: ", False); - Disp_Flag (Get_Index_Constraint_Flag (Tree)); - Header ("constraint_state: " - & Iir_Constraint'Image (Get_Constraint_State (Tree))); when Iir_Kind_Array_Type_Definition => if Flat_Decl and then Get_Type_Declarator (Tree) /= Null_Iir then return; |