diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-08-16 11:50:59 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-08-16 11:50:59 +0200 |
commit | fb72fae0a907684c00bb19950ad9a20c21732f77 (patch) | |
tree | 66408fda742506d59f443b369ecf4b46ffe9605a /src/vhdl/vhdl-elocations.adb | |
parent | 9810f6ae993e18e6a711ee0289498d1c105d889d (diff) | |
download | ghdl-fb72fae0a907684c00bb19950ad9a20c21732f77.tar.gz ghdl-fb72fae0a907684c00bb19950ad9a20c21732f77.tar.bz2 ghdl-fb72fae0a907684c00bb19950ad9a20c21732f77.zip |
vhdl: declare verification units (WIP).
Diffstat (limited to 'src/vhdl/vhdl-elocations.adb')
-rw-r--r-- | src/vhdl/vhdl-elocations.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-elocations.adb b/src/vhdl/vhdl-elocations.adb index 6965457d6..a42d5e009 100644 --- a/src/vhdl/vhdl-elocations.adb +++ b/src/vhdl/vhdl-elocations.adb @@ -266,6 +266,9 @@ package body Vhdl.Elocations is | Iir_Kind_Subtype_Definition | Iir_Kind_Scalar_Nature_Definition | Iir_Kind_Overload_List + | Iir_Kind_Vmode_Declaration + | Iir_Kind_Vprop_Declaration + | Iir_Kind_Vunit_Declaration | Iir_Kind_Nature_Declaration | Iir_Kind_Subnature_Declaration | Iir_Kind_Unit_Declaration @@ -469,9 +472,9 @@ package body Vhdl.Elocations is | Iir_Kind_If_Statement | Iir_Kind_Elsif => return Format_L3; - when Iir_Kind_Type_Declaration + when Iir_Kind_Architecture_Body + | Iir_Kind_Type_Declaration | Iir_Kind_Subtype_Declaration - | Iir_Kind_Architecture_Body | Iir_Kind_Function_Body | Iir_Kind_Procedure_Body | Iir_Kind_Sensitized_Process_Statement |