aboutsummaryrefslogtreecommitdiffstats
path: root/src/grt/grt-ghw.ads
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2018-10-18 06:27:49 +0200
committerTristan Gingold <tgingold@free.fr>2018-10-21 08:03:37 +0200
commitffa1a498dc22b7758d096cd91c61f0d356879e47 (patch)
tree769d1ce78e9032983985b211c2044385f8426e09 /src/grt/grt-ghw.ads
parented7ad157dbecc784bb2df44684442e88431db561 (diff)
downloadghdl-ffa1a498dc22b7758d096cd91c61f0d356879e47.tar.gz
ghdl-ffa1a498dc22b7758d096cd91c61f0d356879e47.tar.bz2
ghdl-ffa1a498dc22b7758d096cd91c61f0d356879e47.zip
grt rtis/wave: handle unbounded record subtypes.
Fix #668
Diffstat (limited to 'src/grt/grt-ghw.ads')
-rw-r--r--src/grt/grt-ghw.ads15
1 files changed, 8 insertions, 7 deletions
diff --git a/src/grt/grt-ghw.ads b/src/grt/grt-ghw.ads
index 4a23fbf41..a605138e7 100644
--- a/src/grt/grt-ghw.ads
+++ b/src/grt/grt-ghw.ads
@@ -48,6 +48,14 @@ package Grt.Ghw is
type Ghw_Rtik is new Unsigned_8;
Ghw_Rtik_Error : constant Ghw_Rtik := 0;
Ghw_Rtik_Eos : constant Ghw_Rtik := 15; -- End of scope.
+
+ Ghw_Rtik_Signal : constant Ghw_Rtik := 16; -- Signal.
+ Ghw_Rtik_Port_In : constant Ghw_Rtik := 17; -- Port
+ Ghw_Rtik_Port_Out : constant Ghw_Rtik := 18; -- Port
+ Ghw_Rtik_Port_Inout : constant Ghw_Rtik := 19; -- Port
+ Ghw_Rtik_Port_Buffer : constant Ghw_Rtik := 20; -- Port
+ Ghw_Rtik_Port_Linkage : constant Ghw_Rtik := 21; -- Port
+
Ghw_Rtik_Type_B2 : constant Ghw_Rtik := 22;
Ghw_Rtik_Type_E8 : constant Ghw_Rtik := 23;
Ghw_Rtik_Type_E32 : constant Ghw_Rtik := 24; -- Not used in waves
@@ -72,11 +80,4 @@ package Grt.Ghw is
Ghw_Rtik_Subtype_P32 : constant Ghw_Rtik := 47;
Ghw_Rtik_Subtype_P64 : constant Ghw_Rtik := 48;
- Ghw_Rtik_Signal : constant Ghw_Rtik := 16; -- Signal.
- Ghw_Rtik_Port_In : constant Ghw_Rtik := 17; -- Port
- Ghw_Rtik_Port_Out : constant Ghw_Rtik := 18; -- Port
- Ghw_Rtik_Port_Inout : constant Ghw_Rtik := 19; -- Port
- Ghw_Rtik_Port_Buffer : constant Ghw_Rtik := 20; -- Port
- Ghw_Rtik_Port_Linkage : constant Ghw_Rtik := 21; -- Port
-
end Grt.Ghw;