1 files changed, 16 insertions, 2 deletions
diff --git a/translate/grt/grt-disp_rti.ads b/translate/grt/grt-disp_rti.ads
index 890c5e1ff..fc13e22ff 100644
--- a/translate/grt/grt-disp_rti.ads
+++ b/translate/grt/grt-disp_rti.ads
@@ -15,8 +15,22 @@
 --  along with GCC; see the file COPYING.  If not, write to the Free
 --  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 --  02111-1307, USA.
+with System; use System;
+with Grt.Types; use Grt.Types;
+with Grt.Stdio; use Grt.Stdio;
+with Grt.Rtis; use Grt.Rtis;
+with Grt.Rtis_Addr; use Grt.Rtis_Addr;
+
 package Grt.Disp_Rti is
-   procedure Disp_All;
+   --  Disp NAME.  If NAME is null, then disp <anonymous>.
+   procedure Disp_Name (Name : Ghdl_C_String);
+
+   --  Disp a value.
+   procedure Disp_Value (Stream : FILEs;
+                         Rti : Ghdl_Rti_Access;
+                         Ctxt : Rti_Context;
+                         Obj : in out Address;
+                         Is_Sig : Boolean);
 
-   procedure Disp_Hierarchy;
+   procedure Register;
 end Grt.Disp_Rti;