From 13adc95751db357e2060b16fee2baaa818743b91 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 10 Dec 2014 06:00:35 +0100
Subject: grt-disp_rti: disp alias kind.

---
 Makefile.in              |  1 +
 src/grt/grt-disp_rti.adb | 10 ++++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/Makefile.in b/Makefile.in
index 84761de91..bc5dd4329 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -326,6 +326,7 @@ distclean: clean
 
 clean-c: force
 	$(RM) -f memsegs_c.o chkstk.o linux.o times.o grt-cbinding.o grt-cvpi.o
+	$(RM) -f fstapi.o fastlz.o lz4.o
 
 force:
 
diff --git a/src/grt/grt-disp_rti.adb b/src/grt/grt-disp_rti.adb
index f84dffe80..a8c2d9648 100644
--- a/src/grt/grt-disp_rti.adb
+++ b/src/grt/grt-disp_rti.adb
@@ -338,10 +338,6 @@ package body Grt.Disp_Rti is
          when Ghdl_Rtik_Architecture =>
             Put ("ghdl_rtik_architecture");
 
-         when Ghdl_Rtik_Port =>
-            Put ("ghdl_rtik_port");
-         when Ghdl_Rtik_Generic =>
-            Put ("ghdl_rtik_generic");
          when Ghdl_Rtik_Process =>
             Put ("ghdl_rtik_process");
          when Ghdl_Rtik_Component =>
@@ -368,6 +364,12 @@ package body Grt.Disp_Rti is
             Put ("ghdl_rtik_guard");
          when Ghdl_Rtik_File =>
             Put ("ghdl_rtik_file");
+         when Ghdl_Rtik_Port =>
+            Put ("ghdl_rtik_port");
+         when Ghdl_Rtik_Generic =>
+            Put ("ghdl_rtik_generic");
+         when Ghdl_Rtik_Alias =>
+            Put ("ghdl_rtik_alias");
 
          when Ghdl_Rtik_Instance =>
             Put ("ghdl_rtik_instance");
-- 
cgit v1.2.3