diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-08-16 22:31:06 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-08-17 21:40:42 +0200 |
commit | 7d034fc52f6b15e743ca91e7b1a4314bf31623b9 (patch) | |
tree | 60c6c4deb857b89e5d9f86b55d9fee8160313545 /src/vhdl/vhdl-nodes.adb | |
parent | 60b4bf2b63cdad9cfd36106f084fcbe94d01d4d5 (diff) | |
download | ghdl-7d034fc52f6b15e743ca91e7b1a4314bf31623b9.tar.gz ghdl-7d034fc52f6b15e743ca91e7b1a4314bf31623b9.tar.bz2 ghdl-7d034fc52f6b15e743ca91e7b1a4314bf31623b9.zip |
vhdl: parse verification unit (WIP).
Diffstat (limited to 'src/vhdl/vhdl-nodes.adb')
-rw-r--r-- | src/vhdl/vhdl-nodes.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb index 5bf1e00ed..19a65af85 100644 --- a/src/vhdl/vhdl-nodes.adb +++ b/src/vhdl/vhdl-nodes.adb @@ -1002,6 +1002,7 @@ package body Vhdl.Nodes is | Iir_Kind_Entity_Aspect_Entity | Iir_Kind_Entity_Aspect_Configuration | Iir_Kind_Entity_Aspect_Open + | Iir_Kind_Psl_Hierarchical_Name | Iir_Kind_Block_Configuration | Iir_Kind_Component_Configuration | Iir_Kind_Entity_Class @@ -2656,7 +2657,7 @@ package body Vhdl.Nodes is pragma Assert (Vunit /= Null_Iir); pragma Assert (Has_Vunit_Item_Chain (Get_Kind (Vunit)), "no field Vunit_Item_Chain"); - return Get_Field4 (Vunit); + return Get_Field5 (Vunit); end Get_Vunit_Item_Chain; procedure Set_Vunit_Item_Chain (Vunit : Iir; Chain : Iir) is @@ -2664,7 +2665,7 @@ package body Vhdl.Nodes is pragma Assert (Vunit /= Null_Iir); pragma Assert (Has_Vunit_Item_Chain (Get_Kind (Vunit)), "no field Vunit_Item_Chain"); - Set_Field4 (Vunit, Chain); + Set_Field5 (Vunit, Chain); end Set_Vunit_Item_Chain; function Get_Block_Configuration (Target : Iir) return Iir is |