diff options
| author | gingold | 2005-11-01 03:04:50 +0000 |
|---|---|---|
| committer | gingold | 2005-11-01 03:04:50 +0000 |
| commit | efb30b021679ac1334e1d4fdffa073eaaa082a51 (patch) | |
| tree | 662fd4ed6a0ef3fb8e0f2e214d676f5720416c04 /disp_tree.adb | |
| parent | 1f7fba5473ed7e609d46ee9b75b738be92a28b86 (diff) | |
| download | ghdl-efb30b021679ac1334e1d4fdffa073eaaa082a51.tar.gz ghdl-efb30b021679ac1334e1d4fdffa073eaaa082a51.tar.bz2 ghdl-efb30b021679ac1334e1d4fdffa073eaaa082a51.zip | |
update: support of amd64 + more optimizations
Diffstat (limited to 'disp_tree.adb')
| -rw-r--r-- | disp_tree.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/disp_tree.adb b/disp_tree.adb index 8f4c967..fd51c14 100644 --- a/disp_tree.adb +++ b/disp_tree.adb @@ -1120,6 +1120,8 @@ package body Disp_Tree is Disp_Type_Resolved_Flag (Tree); Header ("signal_type_flag: ", False); Disp_Flag (Get_Signal_Type_Flag (Tree)); + Header ("has_signal_flag: ", False); + Disp_Flag (Get_Has_Signal_Flag (Tree)); Header ("type declarator:"); Disp_Tree (Get_Type_Declarator (Tree), Ntab, True); Header ("base type:"); @@ -1152,6 +1154,8 @@ package body Disp_Tree is Disp_Type_Resolved_Flag (Tree); Header ("signal_type_flag: ", False); Disp_Flag (Get_Signal_Type_Flag (Tree)); + Header ("has_signal_flag: ", False); + Disp_Flag (Get_Has_Signal_Flag (Tree)); Header ("type declarator:"); Disp_Tree_Flat (Get_Type_Declarator (Tree), Ntab); Header ("base type:"); @@ -1187,6 +1191,8 @@ package body Disp_Tree is Disp_Type_Resolved_Flag (Tree); Header ("signal_type_flag: ", False); Disp_Flag (Get_Signal_Type_Flag (Tree)); + Header ("has_signal_flag: ", False); + Disp_Flag (Get_Has_Signal_Flag (Tree)); Header ("base type:"); Disp_Tree (Get_Base_Type (Tree), Ntab, True); Header ("type mark:"); @@ -1205,6 +1211,8 @@ package body Disp_Tree is Disp_Type_Resolved_Flag (Tree); Header ("signal_type_flag: ", False); Disp_Flag (Get_Signal_Type_Flag (Tree)); + Header ("has_signal_flag: ", False); + Disp_Flag (Get_Has_Signal_Flag (Tree)); Header ("index_subtype_list:"); Disp_Tree_List (Get_Index_Subtype_List (Tree), Ntab, True); Header ("element_subtype:"); @@ -1219,6 +1227,8 @@ package body Disp_Tree is Disp_Type_Resolved_Flag (Tree); Header ("signal_type_flag: ", False); Disp_Flag (Get_Signal_Type_Flag (Tree)); + Header ("has_signal_flag: ", False); + Disp_Flag (Get_Has_Signal_Flag (Tree)); Header ("elements:"); Disp_Tree_Chain (Get_Element_Declaration_Chain (Tree), Ntab, True); when Iir_Kind_Record_Subtype_Definition => |