diff options
Diffstat (limited to 'src/grt/grt-signals.adb')
| -rw-r--r-- | src/grt/grt-signals.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/grt/grt-signals.adb b/src/grt/grt-signals.adb index 7f8d3a0..38d33c8 100644 --- a/src/grt/grt-signals.adb +++ b/src/grt/grt-signals.adb @@ -1954,10 +1954,10 @@ package body Grt.Signals is begin case Sig.S.Mode_Sig is when Mode_Signal - | Mode_Buffer => - return True; - when Mode_Linkage + | Mode_Buffer | Mode_Out => + return True; + when Mode_Linkage => -- No effective value. return False; when Mode_Inout @@ -2150,11 +2150,11 @@ package body Grt.Signals is case Sig.S.Mode_Sig is when Mode_Signal - | Mode_Buffer => + | Mode_Buffer + | Mode_Out => -- Effective value is driving value. Sig.Flags.Propag := Propag_Done; - when Mode_Linkage - | Mode_Out => + when Mode_Linkage => -- No effective value. Sig.Flags.Propag := Propag_Done; when Mode_Inout |