diff options
Diffstat (limited to 'src/grt/grt-avhpi.adb')
-rw-r--r-- | src/grt/grt-avhpi.adb | 3 |
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; |