From cd9300765e7e3fd43e450777e98a778146f700c2 Mon Sep 17 00:00:00 2001
From: gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7>
Date: Sat, 30 Aug 2008 13:30:19 +0000
Subject: Switch to gcc 4.3 Don't use tagged types in grt (not supported by
 recent versions of GNAT) Fix warnings

---
 disp_tree.adb | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'disp_tree.adb')

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
-- 
cgit v1.2.3