From adaa0eb4079ea63f23bde1f1cae3e415b389c594 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 10 Jan 2015 08:21:13 +0100
Subject: vhpi: can change value of generics (for sdf annotation).  From Kim
 Taylor.

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

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

diff --git a/src/grt/grt-avhpi.adb b/src/grt/grt-avhpi.adb
index 1b8e5aa76..dd7d588c5 100644
--- a/src/grt/grt-avhpi.adb
+++ b/src/grt/grt-avhpi.adb
@@ -1222,6 +1222,9 @@ package body Grt.Avhpi is
          when VhpiIndexedNameK =>
             Vptr := To_Ghdl_Value_Ptr (Obj.N_Addr);
             Atype := Obj.N_Type;
+         when VhpiGenericDeclK =>
+            Vptr := To_Ghdl_Value_Ptr (Avhpi_Get_Address (Obj));
+            Atype := Obj.Obj.Obj_Type;
          when others =>
             return AvhpiErrorNotImplemented;
       end case;
-- 
cgit v1.2.3