aboutsummaryrefslogtreecommitdiffstats
path: root/translate/grt
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2014-01-01 23:42:43 +0100
committerTristan Gingold <tgingold@free.fr>2014-01-01 23:42:43 +0100
commit740acce08938abb6c93b062b47650a8cbce61f01 (patch)
tree51ad35f64d32cd4459e90481e4b5752612477c7c /translate/grt
parent535bbc11e9a6532b1a6e1197169e79203f191ef1 (diff)
downloadghdl-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.adb2
-rw-r--r--translate/grt/grt-rtis.ads2
-rw-r--r--translate/grt/grt-rtis_addr.adb2
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;