diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-08-30 13:30:19 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-08-30 13:30:19 +0000 |
| commit | cd9300765e7e3fd43e450777e98a778146f700c2 (patch) | |
| tree | f013fea17ae4eee9c1649e63b99b9bfe377fafb4 /disp_tree.adb | |
| parent | 4b6571671497ecc1f846bfa49678254e14511fc9 (diff) | |
| download | ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.tar.gz ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.tar.bz2 ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.zip | |
Switch to gcc 4.3
Don't use tagged types in grt (not supported by recent versions of GNAT)
Fix warnings
Diffstat (limited to 'disp_tree.adb')
| -rw-r--r-- | disp_tree.adb | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/disp_tree.adb b/disp_tree.adb index cb2349d37..4fc44166d 100644 --- a/disp_tree.adb +++ b/disp_tree.adb @@ -25,7 +25,7 @@ with Files_Map; package body Disp_Tree is procedure Disp_Tab (Tab: Natural) is - Blanks : String (1 .. Tab) := (others => ' '); + Blanks : constant String (1 .. Tab) := (others => ' '); begin Put (Blanks); end Disp_Tab; @@ -549,7 +549,7 @@ package body Disp_Tree is procedure Disp_Tree (Tree: Iir; Tab: Natural := 0; Flat_Decl: Boolean := false) is - Ntab: Natural := Inc_Tab (Tab); + Ntab: constant Natural := Inc_Tab (Tab); Kind : Iir_Kind; procedure Header (Str: String; Nl: Boolean := true) is @@ -1158,7 +1158,7 @@ package body Disp_Tree is Disp_Tree_Flat (Get_Type_Declarator (Tree), Ntab); Header ("base type:"); declare - Base : Iir := Get_Base_Type (Tree); + Base : constant Iir := Get_Base_Type (Tree); Fl : Boolean; begin if Base /= Null_Iir @@ -1742,6 +1742,10 @@ package body Disp_Tree is Disp_Tree_Flat (Get_Prefix (Tree), Ntab); Header ("type:"); Disp_Tree_Flat (Get_Type (Tree), Ntab); + if Kind /= Iir_Kind_Transaction_Attribute then + Header ("parameter:"); + Disp_Tree (Get_Parameter (Tree), Ntab); + end if; Header ("has_active_flag: ", False); Disp_Flag (Get_Has_Active_Flag (Tree)); when Iir_Kind_Event_Attribute |