From caba1d1b21d9756ede50f40d53fbc816d3b84320 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 17 Jul 2014 20:34:57 +0200
Subject: vhdl 2008: visibility, more implicit subprograms, alias... Use
 Type_Definition in type_declarator.

---
 sem_types.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'sem_types.adb')

diff --git a/sem_types.adb b/sem_types.adb
index 2bf032b78..e7f8c97b4 100644
--- a/sem_types.adb
+++ b/sem_types.adb
@@ -474,7 +474,7 @@ package body Sem_Types is
       Decl : Iir_Protected_Type_Declaration;
       El : Iir;
    begin
-      Decl := Get_Type (Type_Decl);
+      Decl := Get_Type_Definition (Type_Decl);
       Set_Base_Type (Decl, Decl);
       Set_Resolved_Flag (Decl, False);
       Set_Signal_Type_Flag (Decl, False);
@@ -564,7 +564,7 @@ package body Sem_Types is
       then
          Type_Decl := Get_Declaration (Inter);
          if Get_Kind (Type_Decl) = Iir_Kind_Type_Declaration then
-            Decl := Get_Type (Type_Decl);
+            Decl := Get_Type_Definition (Type_Decl);
          else
             Decl := Null_Iir;
          end if;
-- 
cgit v1.2.3