diff options
| author | Tristan Gingold <tgingold@free.fr> | 2013-12-31 19:01:48 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2013-12-31 19:01:48 +0100 |
| commit | 5f41fdc72fccd7169dc812c8690e82222ae1aca1 (patch) | |
| tree | 2e2cddb257b071ec30b79c0672e2320f5421468d /sem_types.adb | |
| parent | 2fe0a5359e1bdf6dfdab20bea121db8f4e54ffe9 (diff) | |
| download | ghdl-5f41fdc72fccd7169dc812c8690e82222ae1aca1.tar.gz ghdl-5f41fdc72fccd7169dc812c8690e82222ae1aca1.tar.bz2 ghdl-5f41fdc72fccd7169dc812c8690e82222ae1aca1.zip | |
Fix bug21274.
WIP for VHDL08.
Diffstat (limited to 'sem_types.adb')
| -rw-r--r-- | sem_types.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/sem_types.adb b/sem_types.adb index 591fa4875..d7cd35190 100644 --- a/sem_types.adb +++ b/sem_types.adb @@ -29,6 +29,7 @@ with Name_Table; with Std_Names; with Iirs_Utils; use Iirs_Utils; with Std_Package; use Std_Package; +with Ieee.Std_Logic_1164; with Xrefs; use Xrefs; package body Sem_Types is @@ -757,6 +758,15 @@ package body Sem_Types is Set_Only_Characters_Flag (Def, Only_Characters); end; Set_Resolved_Flag (Def, False); + + -- Identifier IEEE.Std_Logic_1164.Std_Ulogic. + if Get_Identifier (Decl) = Std_Names.Name_Std_Ulogic + and then + Get_Parent (Decl) = Ieee.Std_Logic_1164.Std_Logic_1164_Pkg + then + Ieee.Std_Logic_1164.Std_Ulogic_Type := Def; + end if; + return Def; when Iir_Kind_Range_Expression => |