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 | |
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')
-rw-r--r-- | translate/grt/grt-disp_rti.adb | 2 | ||||
-rw-r--r-- | translate/grt/grt-rtis.ads | 2 | ||||
-rw-r--r-- | translate/grt/grt-rtis_addr.adb | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/translate/grt/grt-disp_rti.adb b/translate/grt/grt-disp_rti.adb index cc3d5ffaa..8a5405f95 100644 --- a/translate/grt/grt-disp_rti.adb +++ b/translate/grt/grt-disp_rti.adb @@ -1001,7 +1001,7 @@ package body Grt.Disp_Rti is Put ("DISP_RTI.Disp_All: "); Disp_Kind (Ghdl_Rti_Top.Common.Kind); New_Line; - Ctxt := (Base => To_Address (Ghdl_Rti_Top_Instance), + Ctxt := (Base => Ghdl_Rti_Top_Instance, Block => Ghdl_Rti_Top.Parent); Disp_Rti_Arr (Ghdl_Rti_Top.Nbr_Child, Ghdl_Rti_Top.Children, diff --git a/translate/grt/grt-rtis.ads b/translate/grt/grt-rtis.ads index 6caba1539..2276adf47 100644 --- a/translate/grt/grt-rtis.ads +++ b/translate/grt/grt-rtis.ads @@ -335,7 +335,7 @@ package Grt.Rtis is Children => null); -- Address of the top instance. - Ghdl_Rti_Top_Instance : Ghdl_Rti_Access; + Ghdl_Rti_Top_Instance : Address; -- Instances have a pointer to their RTI at offset 0. type Ghdl_Rti_Acc_Acc is access Ghdl_Rti_Access; 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; |