diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-10-30 07:11:28 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-10-30 07:11:28 +0100 |
commit | ce10f7dbd57cb5d2273567aa536bfce79620849c (patch) | |
tree | 62fdd99a17aa09a04166e014444aeb8b732dce81 /src/grt/grt-avhpi.ads | |
parent | ab70415983fec433dd35aea6cc8b107699a5aff0 (diff) | |
download | ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.tar.gz ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.tar.bz2 ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.zip |
Rework callbacks, support cocotb.
Diffstat (limited to 'src/grt/grt-avhpi.ads')
-rw-r--r-- | src/grt/grt-avhpi.ads | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/grt/grt-avhpi.ads b/src/grt/grt-avhpi.ads index b61b1ff8a..9609882e7 100644 --- a/src/grt/grt-avhpi.ads +++ b/src/grt/grt-avhpi.ads @@ -154,7 +154,11 @@ package Grt.Avhpi is VhpiWhileLoopK, -- Iterator, but on a name. - AvhpiNameIteratorK + AvhpiNameIteratorK, + + -- Root scope that contains the top entity. For vpi. + AvhpiRootScopeK, + AvhpiRootScopeIteratorK ); type VhpiOneToOneT is @@ -416,6 +420,9 @@ package Grt.Avhpi is -- Get the root instance. procedure Get_Root_Inst (Res : out VhpiHandleT); + -- For vpi: the scope that contains the root instance. + procedure Get_Root_Scope (Res : out VhpiHandleT); + -- Get the instanciated packages. procedure Get_Package_Inst (Res : out VhpiHandleT); @@ -522,7 +529,8 @@ private Ctxt : Rti_Context; case Kind is - when VhpiIteratorK => + when VhpiIteratorK + | AvhpiRootScopeIteratorK => Rel : VhpiOneToManyT; It_Cur : Ghdl_Index_Type; It2 : Ghdl_Index_Type; |