--vcdz option added,

switched to gcc-4.0.2,
can be compiled with GNAT GPL 2005
ready for ada05 (interface identifier not used anymore)
bug fixes

1 files changed, 2 insertions, 2 deletions

diff --git a/translate/grt/grt-disp_rti.adb b/translate/grt/grt-disp_rti.adb
index 47e5ac6..28ad75d 100644
--- a/translate/grt/grt-disp_rti.adb
+++ b/translate/grt/grt-disp_rti.adb
@@ -21,7 +21,6 @@ with Grt.Stdio; use Grt.Stdio;
 with Grt.Astdio; use Grt.Astdio;
 with Grt.Types; use Grt.Types;
 with Grt.Errors; use Grt.Errors;
---with Grt.Typedesc; use Grt.Typedesc;
 with Grt.Rtis_Addr; use Grt.Rtis_Addr;
 with Grt.Options; use Grt.Options;
 
@@ -649,7 +648,8 @@ package body Grt.Disp_Rti is
       Put (" := ");
 
       --  FIXME: put this into a function.
-      if Obj_Type.Kind = Ghdl_Rtik_Subtype_Array
+      if (Obj_Type.Kind = Ghdl_Rtik_Subtype_Array
+          or Obj_Type.Kind = Ghdl_Rtik_Type_Record)
         and then Obj_Type.Mode = 1
       then
          Addr := To_Addr_Acc (Addr).all;