diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-01-10 08:21:13 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-01-10 08:21:13 +0100 |
| commit | adaa0eb4079ea63f23bde1f1cae3e415b389c594 (patch) | |
| tree | 798093a56a33597f8ee1af3ab796b72c5f492fea /src | |
| parent | fafa25a6c0a1365bed4990e26d151e8140797730 (diff) | |
| download | ghdl-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')
| -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; |