aboutsummaryrefslogtreecommitdiffstats
path: root/src/grt
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2015-01-10 08:21:13 +0100
committerTristan Gingold <tgingold@free.fr>2015-01-10 08:21:13 +0100
commitadaa0eb4079ea63f23bde1f1cae3e415b389c594 (patch)
tree798093a56a33597f8ee1af3ab796b72c5f492fea /src/grt
parentfafa25a6c0a1365bed4990e26d151e8140797730 (diff)
downloadghdl-adaa0eb4079ea63f23bde1f1cae3e415b389c594.tar.gz
ghdl-adaa0eb4079ea63f23bde1f1cae3e415b389c594.tar.bz2
ghdl-adaa0eb4079ea63f23bde1f1cae3e415b389c594.zip
vhpi: can change value of generics (for sdf annotation). From Kim Taylor.
Diffstat (limited to 'src/grt')
-rw-r--r--src/grt/grt-avhpi.adb3
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;