diff options
| author | Tristan Gingold | 2014-07-17 20:34:57 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2014-07-17 20:34:57 +0200 |
| commit | caba1d1b21d9756ede50f40d53fbc816d3b84320 (patch) | |
| tree | ee0b8459472a8e7aba4ab7465bc46c74be56cd33 /ieee-vital_timing.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 'ieee-vital_timing.adb')
| -rw-r--r-- | ieee-vital_timing.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/ieee-vital_timing.adb b/ieee-vital_timing.adb index 07a579d..72053eb 100644 --- a/ieee-vital_timing.adb +++ b/ieee-vital_timing.adb @@ -121,22 +121,22 @@ package body Ieee.Vital_Timing is when Iir_Kind_Type_Declaration => Id := Get_Identifier (Decl); if Id = VitalDelayArrayType_Id then - VitalDelayArrayType := Get_Type (Decl); + VitalDelayArrayType := Get_Type_Definition (Decl); elsif Id = VitalDelayArrayType01_Id then - VitalDelayArrayType01 := Get_Type (Decl); + VitalDelayArrayType01 := Get_Type_Definition (Decl); elsif Id = VitalDelayArrayType01Z_Id then - VitalDelayArrayType01Z := Get_Type (Decl); + VitalDelayArrayType01Z := Get_Type_Definition (Decl); elsif Id = VitalDelayArrayType01ZX_Id then - VitalDelayArrayType01ZX := Get_Type (Decl); + VitalDelayArrayType01ZX := Get_Type_Definition (Decl); end if; when Iir_Kind_Anonymous_Type_Declaration => Id := Get_Identifier (Decl); if Id = VitalDelayType01_Id then - VitalDelayType01 := Get_Type (Decl); + VitalDelayType01 := Get_Type_Definition (Decl); elsif Id = VitalDelayType01Z_Id then - VitalDelayType01Z := Get_Type (Decl); + VitalDelayType01Z := Get_Type_Definition (Decl); elsif Id = VitalDelayType01ZX_Id then - VitalDelayType01ZX := Get_Type (Decl); + VitalDelayType01ZX := Get_Type_Definition (Decl); end if; when others => null; |