From 75fcb55685369ab176541cdce4b0874bd1774f55 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 6 Sep 2014 06:43:21 +0200
Subject: First run of OSVVM_2014_01 with gcc backend.

---
 disp_tree.adb | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'disp_tree.adb')

diff --git a/disp_tree.adb b/disp_tree.adb
index db2102a33..1bd6cd118 100644
--- a/disp_tree.adb
+++ b/disp_tree.adb
@@ -349,14 +349,17 @@ package body Disp_Tree is
             Disp_Decl_Ident;
          when Iir_Kind_File_Type_Definition =>
             Put ("file_type_definition");
-            Disp_Identifier (Get_Type_Declarator (Tree));
+            Disp_Decl_Ident;
          when Iir_Kind_Subtype_Definition =>
             Put_Line ("subtype_definition");
          when Iir_Kind_Physical_Type_Definition =>
             Put ("physical_type_definition");
-            Disp_Identifier (Get_Type_Declarator (Tree));
+            Disp_Decl_Ident;
          when Iir_Kind_Physical_Subtype_Definition =>
             Put_Line ("physical_subtype_definition");
+         when Iir_Kind_Protected_Type_Declaration =>
+            Put ("protected_type_declaration");
+            Disp_Decl_Ident;
 
          when Iir_Kind_Scalar_Nature_Definition =>
             Put ("scalar_nature_definition");
@@ -1429,6 +1432,9 @@ package body Disp_Tree is
             Header ("file type mark:");
             Disp_Tree_Flat (Get_File_Type_Mark (Tree), Ntab);
          when Iir_Kind_Protected_Type_Declaration =>
+            if Flat_Decl then
+               return;
+            end if;
             Header ("staticness: ", False);
             Disp_Type_Staticness (Tree);
             Header ("declarator:");
-- 
cgit v1.2.3