diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-05 08:00:35 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-05 08:05:12 +0200 |
commit | 3fa8d9eb8b700044d149bdf12da6cb023568b8c0 (patch) | |
tree | 3cbd54423bad53e6db401e43ef0e4216833cd8b9 /src/vhdl/vhdl-post_sems.adb | |
parent | 85d360929d13e6b0bcb082f144883a43f402ce22 (diff) | |
download | ghdl-3fa8d9eb8b700044d149bdf12da6cb023568b8c0.tar.gz ghdl-3fa8d9eb8b700044d149bdf12da6cb023568b8c0.tar.bz2 ghdl-3fa8d9eb8b700044d149bdf12da6cb023568b8c0.zip |
vhdl: move ieee packages to vhdl children.
Diffstat (limited to 'src/vhdl/vhdl-post_sems.adb')
-rw-r--r-- | src/vhdl/vhdl-post_sems.adb | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/vhdl/vhdl-post_sems.adb b/src/vhdl/vhdl-post_sems.adb index 6c653e4fc..4a8c96697 100644 --- a/src/vhdl/vhdl-post_sems.adb +++ b/src/vhdl/vhdl-post_sems.adb @@ -18,9 +18,9 @@ with Types; use Types; with Std_Names; use Std_Names; with Vhdl.Sem_Specs; -with Ieee.Std_Logic_1164; -with Ieee.Vital_Timing; -with Ieee.Numeric; +with Vhdl.Ieee.Std_Logic_1164; +with Vhdl.Ieee.Vital_Timing; +with Vhdl.Ieee.Numeric; with Flags; use Flags; package body Vhdl.Post_Sems is @@ -51,11 +51,11 @@ package body Vhdl.Post_Sems is if Get_Kind (Lib_Unit) = Iir_Kind_Package_Declaration then case Id is when Name_Std_Logic_1164 => - Ieee.Std_Logic_1164.Extract_Declarations (Lib_Unit); + Vhdl.Ieee.Std_Logic_1164.Extract_Declarations (Lib_Unit); when Name_VITAL_Timing => - Ieee.Vital_Timing.Extract_Declarations (Lib_Unit); + Vhdl.Ieee.Vital_Timing.Extract_Declarations (Lib_Unit); when Name_Numeric_Std => - Ieee.Numeric.Extract_Std_Declarations (Lib_Unit); + Vhdl.Ieee.Numeric.Extract_Std_Declarations (Lib_Unit); when others => null; end case; @@ -69,10 +69,11 @@ package body Vhdl.Post_Sems is while Value /= Null_Iir loop Spec := Get_Attribute_Specification (Value); Attr_Decl := Get_Named_Entity (Get_Attribute_Designator (Spec)); - if Attr_Decl = Ieee.Vital_Timing.Vital_Level0_Attribute then - Ieee.Vital_Timing.Check_Vital_Level0 (Unit); - elsif Attr_Decl = Ieee.Vital_Timing.Vital_Level1_Attribute then - Ieee.Vital_Timing.Check_Vital_Level1 (Unit); + if Attr_Decl = Vhdl.Ieee.Vital_Timing.Vital_Level0_Attribute then + Vhdl.Ieee.Vital_Timing.Check_Vital_Level0 (Unit); + elsif Attr_Decl = Vhdl.Ieee.Vital_Timing.Vital_Level1_Attribute + then + Vhdl.Ieee.Vital_Timing.Check_Vital_Level1 (Unit); end if; Value := Get_Value_Chain (Value); |