From c1e39ee2038b36ac1d7455f42a33564133e8d6ea Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 22 Feb 2017 07:51:27 +0100
Subject: rtis/vcd/ghw: handle record subtypes.

---
 src/grt/grt-ghw.ads | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/grt/grt-ghw.ads')

diff --git a/src/grt/grt-ghw.ads b/src/grt/grt-ghw.ads
index 6dfc2c648..6ceb937d1 100644
--- a/src/grt/grt-ghw.ads
+++ b/src/grt/grt-ghw.ads
@@ -59,4 +59,5 @@ package Grt.Ghw is
    Ghw_Rtik_Type_Record    : constant Ghw_Rtik := 32;
    Ghw_Rtik_Subtype_Scalar : constant Ghw_Rtik := 34;
    Ghw_Rtik_Subtype_Array  : constant Ghw_Rtik := 35;
+   Ghw_Rtik_Subtype_Record : constant Ghw_Rtik := 38;
 end Grt.Ghw;
-- 
cgit v1.2.3