diff options
| author | Tristan Gingold | 2014-01-01 23:11:27 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-01-01 23:11:27 +0100 |
| commit | 535bbc11e9a6532b1a6e1197169e79203f191ef1 (patch) | |
| tree | 62f5fafee07b1f87024b66a41ee28a8c12d5833a /translate/grt/grt-avhpi.adb | |
| parent | c8150ec75d67a046e9e78b61ba26ad5be5fbe187 (diff) | |
| download | ghdl-535bbc11e9a6532b1a6e1197169e79203f191ef1.tar.gz ghdl-535bbc11e9a6532b1a6e1197169e79203f191ef1.tar.bz2 ghdl-535bbc11e9a6532b1a6e1197169e79203f191ef1.zip | |
Rework registration of RTIs for packages, to fix bug 21052.
Diffstat (limited to 'translate/grt/grt-avhpi.adb')
| -rw-r--r-- | translate/grt/grt-avhpi.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/grt/grt-avhpi.adb b/translate/grt/grt-avhpi.adb index a5c36e5..a6565cf 100644 --- a/translate/grt/grt-avhpi.adb +++ b/translate/grt/grt-avhpi.adb @@ -31,7 +31,7 @@ package body Grt.Avhpi is begin Res := (Kind => VhpiIteratorK, Ctxt => (Base => Null_Address, - Block => To_Ghdl_Rti_Access (Ghdl_Rti_Top_Ptr)), + Block => To_Ghdl_Rti_Access (Ghdl_Rti_Top'Address)), Rel => VhpiPackInsts, It_Cur => 0, It2 => 0, |