diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-09-02 21:17:16 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-09-02 21:17:16 +0200 |
| commit | e6ffb98cb5ad3f07bcaf79323d8ab8411688c494 (patch) | |
| tree | 46a91868b6e4aeb5354249c74507b3e92e85f01f /ieee-std_logic_1164.adb | |
| parent | e393e8b7babd9d2dbe5e6bb7816b82036b857a1f (diff) | |
| download | ghdl-e6ffb98cb5ad3f07bcaf79323d8ab8411688c494.tar.gz ghdl-e6ffb98cb5ad3f07bcaf79323d8ab8411688c494.tar.bz2 ghdl-e6ffb98cb5ad3f07bcaf79323d8ab8411688c494.zip | |
Keep names in the tree.
This is a large change to improve error locations and allow pretty printing.
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; - - |