1 files changed, 3 insertions, 0 deletions
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;