diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-01-01 23:42:43 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-01-01 23:42:43 +0100 |
| commit | 740acce08938abb6c93b062b47650a8cbce61f01 (patch) | |
| tree | 51ad35f64d32cd4459e90481e4b5752612477c7c /translate/grt/grt-rtis_addr.adb | |
| parent | 535bbc11e9a6532b1a6e1197169e79203f191ef1 (diff) | |
| download | ghdl-740acce08938abb6c93b062b47650a8cbce61f01.tar.gz ghdl-740acce08938abb6c93b062b47650a8cbce61f01.tar.bz2 ghdl-740acce08938abb6c93b062b47650a8cbce61f01.zip | |
Fix bug14953: improve error message for direct signal assignment.
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 0c64d0cec..784698d35 100644 --- a/translate/grt/grt-rtis_addr.adb +++ b/translate/grt/grt-rtis_addr.adb @@ -264,7 +264,7 @@ package body Grt.Rtis_Addr is is Ctxt : Rti_Context; begin - Ctxt := (Base => To_Address (Ghdl_Rti_Top_Instance), + Ctxt := (Base => Ghdl_Rti_Top_Instance, Block => Ghdl_Rti_Top.Parent); return Ctxt; end Get_Top_Context; |