diff options
Diffstat (limited to 'src/grt')
| -rw-r--r-- | src/grt/grt-avhpi.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/grt/grt-avhpi.adb b/src/grt/grt-avhpi.adb index 99097eb48..065d64ef1 100644 --- a/src/grt/grt-avhpi.adb +++ b/src/grt/grt-avhpi.adb @@ -692,8 +692,7 @@ package body Grt.Avhpi is | VhpiArchBodyK | VhpiEntityDeclK | VhpiProcessStmtK - | VhpiBlockStmtK - | VhpiIfGenerateK => + | VhpiBlockStmtK => Add (To_Ghdl_Rtin_Block_Acc (Obj.Ctxt.Block).Name); when VhpiRootInstK => declare @@ -709,6 +708,10 @@ package body Grt.Avhpi is | VhpiPortDeclK | VhpiGenericDeclK => Add (Obj.Obj.Name); + when VhpiIfGenerateK => + Add (To_Ghdl_Rtin_Generate_Acc + (To_Ghdl_Rtin_Block_Acc + (Obj.Ctxt.Block).Parent).Name); when VhpiForGenerateK => declare Blk : constant Ghdl_Rtin_Block_Acc := |