From 7d034fc52f6b15e743ca91e7b1a4314bf31623b9 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 16 Aug 2019 22:31:06 +0200 Subject: vhdl: parse verification unit (WIP). --- src/vhdl/vhdl-nodes.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/vhdl/vhdl-nodes.adb') 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 -- cgit v1.2.3