diff options
Diffstat (limited to 'src/vhdl/ieee-std_logic_1164.adb')
| -rw-r--r-- | src/vhdl/ieee-std_logic_1164.adb | 24 |
1 files changed, 1 insertions, 23 deletions
diff --git a/src/vhdl/ieee-std_logic_1164.adb b/src/vhdl/ieee-std_logic_1164.adb index aa6eb4c53..14b8cd625 100644 --- a/src/vhdl/ieee-std_logic_1164.adb +++ b/src/vhdl/ieee-std_logic_1164.adb @@ -18,25 +18,9 @@ with Types; use Types; with Name_Table; with Std_Names; use Std_Names; -with Iirs_Utils; use Iirs_Utils; with Errorout; use Errorout; -with Std_Package; package body Ieee.Std_Logic_1164 is - function Skip_Implicit (Decl : Iir) return Iir - is - Res : Iir; - begin - Res := Decl; - loop - exit when Res = Null_Iir; - exit when not (Get_Kind (Res) = Iir_Kind_Function_Declaration - and then Is_Implicit_Subprogram (Res)); - Res := Get_Chain (Res); - end loop; - return Res; - end Skip_Implicit; - function Is_Scalar_Parameter (Inter : Iir) return Boolean is begin return Get_Base_Type (Get_Type (Inter)) = Std_Ulogic_Type; @@ -144,13 +128,7 @@ package body Ieee.Std_Logic_1164 is Decl := Get_Declaration_Chain (Pkg); -- Skip a potential copyright constant. - if Decl /= Null_Iir - and then Get_Kind (Decl) = Iir_Kind_Constant_Declaration - and then (Get_Base_Type (Get_Type (Decl)) - = Std_Package.String_Type_Definition) - then - Decl := Get_Chain (Decl); - end if; + Decl := Skip_Copyright_Notice (Decl); -- The first declaration should be type std_ulogic. if Decl = Null_Iir |