From a81f695b15865268fea6ee062a381ba8e43a02b4 Mon Sep 17 00:00:00 2001
From: gingold
Date: Mon, 2 Oct 2006 04:33:36 +0000
Subject: direct drivers and bugs fix

---
 translate/grt/grt-types.ads | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'translate/grt/grt-types.ads')

diff --git a/translate/grt/grt-types.ads b/translate/grt/grt-types.ads
index c168ca4..819b5db 100644
--- a/translate/grt/grt-types.ads
+++ b/translate/grt/grt-types.ads
@@ -252,7 +252,7 @@ package Grt.Types is
    type Mode_Signal_Type is
      (Mode_Signal,
       Mode_Linkage, Mode_Buffer, Mode_Out, Mode_Inout, Mode_In,
-      Mode_Stable, Mode_Quiet, Mode_Transaction, Mode_Delayed, Mode_Guard,
+      Mode_Stable, Mode_Quiet, Mode_Delayed, Mode_Transaction, Mode_Guard,
       Mode_Conv_In, Mode_Conv_Out,
       Mode_End);
 
@@ -267,6 +267,9 @@ package Grt.Types is
    subtype Mode_Signal_Implicit is
      Mode_Signal_Type range Mode_Stable .. Mode_Guard;
 
+   subtype Mode_Signal_Forward is
+     Mode_Signal_Type range Mode_Stable .. Mode_Delayed;
+
    --  Kind of a signal.
    type Kind_Signal_Type is
      (Kind_Signal_No, Kind_Signal_Register, Kind_Signal_Bus);
-- 
cgit