diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-07-17 20:34:57 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-07-17 20:34:57 +0200 |
| commit | caba1d1b21d9756ede50f40d53fbc816d3b84320 (patch) | |
| tree | ee0b8459472a8e7aba4ab7465bc46c74be56cd33 /sem_types.adb | |
| parent | 1bc00453a725214de4964add2b7f8423d1a5d2da (diff) | |
| download | ghdl-caba1d1b21d9756ede50f40d53fbc816d3b84320.tar.gz ghdl-caba1d1b21d9756ede50f40d53fbc816d3b84320.tar.bz2 ghdl-caba1d1b21d9756ede50f40d53fbc816d3b84320.zip | |
vhdl 2008: visibility, more implicit subprograms, alias...
Use Type_Definition in type_declarator.
Diffstat (limited to 'sem_types.adb')
| -rw-r--r-- | sem_types.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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; |