diff options
Diffstat (limited to 'ieee-std_logic_1164.adb')
-rw-r--r-- | ieee-std_logic_1164.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ieee-std_logic_1164.adb b/ieee-std_logic_1164.adb index 8ecd1acee..4accb0a3f 100644 --- a/ieee-std_logic_1164.adb +++ b/ieee-std_logic_1164.adb @@ -19,6 +19,7 @@ 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 @@ -62,7 +63,7 @@ package body Ieee.Std_Logic_1164 is raise Error; end if; - Def := Get_Type (Decl); + Def := Get_Type_Definition (Decl); if Get_Kind (Def) /= Iir_Kind_Enumeration_Type_Definition then raise Error; end if; @@ -77,7 +78,7 @@ package body Ieee.Std_Logic_1164 is then raise Error; end if; - Def := Get_Type (Decl); + Def := Get_Type_Definition (Decl); if Get_Kind (Def) /= Iir_Kind_Array_Type_Definition then raise Error; end if; @@ -119,7 +120,7 @@ package body Ieee.Std_Logic_1164 is then raise Error; end if; - Def := Get_Type (Decl); + Def := Get_Type_Of_Type_Mark (Decl); -- if Get_Kind (Def) /= Iir_Kind_Array_Type_Definition then -- raise Error; -- end if; |