direct drivers and bugs fix

1 files changed, 4 insertions, 1 deletions

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);