From 8af64459f397e5037dd7e25317491edad39d8006 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 7 Mar 2015 07:30:07 +0100
Subject: Implement ticket 37: add switch -gNAME=VAL to override top entity
 generics.

---
 src/grt/grt-avhpi.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/grt/grt-avhpi.adb')

diff --git a/src/grt/grt-avhpi.adb b/src/grt/grt-avhpi.adb
index af2dc1b05..535cb0ad3 100644
--- a/src/grt/grt-avhpi.adb
+++ b/src/grt/grt-avhpi.adb
@@ -1166,7 +1166,8 @@ package body Grt.Avhpi is
            | VhpiEnumTypeDeclK =>
             return Obj.Atype;
          when VhpiSigDeclK
-           | VhpiPortDeclK =>
+           | VhpiPortDeclK
+           | VhpiGenericDeclK =>
             return To_Ghdl_Rti_Access (Obj.Obj);
          when others =>
             return null;
-- 
cgit v1.2.3