From 1fca61c14c6b0e48029529986e8511d163f582a8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 31 Oct 2017 20:15:36 +0100
Subject: issue #450: also fix if-generate statement.

---
 src/grt/grt-avhpi.adb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/grt')

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 :=
-- 
cgit v1.2.3