diff options
Diffstat (limited to 'ieee-std_logic_1164.adb')
| -rw-r--r-- | ieee-std_logic_1164.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/ieee-std_logic_1164.adb b/ieee-std_logic_1164.adb index 4accb0a3f..ee58fe7a5 100644 --- a/ieee-std_logic_1164.adb +++ b/ieee-std_logic_1164.adb @@ -19,7 +19,6 @@ with Types; use Types; with Std_Names; use Std_Names; with Errorout; use Errorout; with Std_Package; -with Iirs_Utils; use Iirs_Utils; package body Ieee.Std_Logic_1164 is function Skip_Implicit (Decl : Iir) return Iir @@ -120,7 +119,7 @@ package body Ieee.Std_Logic_1164 is then raise Error; end if; - Def := Get_Type_Of_Type_Mark (Decl); + Def := Get_Type (Decl); -- if Get_Kind (Def) /= Iir_Kind_Array_Type_Definition then -- raise Error; -- end if; @@ -169,5 +168,3 @@ package body Ieee.Std_Logic_1164 is Falling_Edge := Null_Iir; end Extract_Declarations; end Ieee.Std_Logic_1164; - - |