diff options
Diffstat (limited to 'translate/grt/grt-rtis_addr.adb')
| -rw-r--r-- | translate/grt/grt-rtis_addr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/grt/grt-rtis_addr.adb b/translate/grt/grt-rtis_addr.adb index 4488654d5..0c64d0cec 100644 --- a/translate/grt/grt-rtis_addr.adb +++ b/translate/grt/grt-rtis_addr.adb @@ -265,7 +265,7 @@ package body Grt.Rtis_Addr is Ctxt : Rti_Context; begin Ctxt := (Base => To_Address (Ghdl_Rti_Top_Instance), - Block => Ghdl_Rti_Top_Ptr.Parent); + Block => Ghdl_Rti_Top.Parent); return Ctxt; end Get_Top_Context; |