diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-05-14 06:53:26 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-05-14 06:53:26 +0200 |
| commit | e3921be1157d819a8c74bf17692f02d8d12a325c (patch) | |
| tree | 8fe2431412b0c4aa019dec3b6e91e0bc5f604c4b /src/grt/grt-signals.adb | |
| parent | eb074ccac4fdf54ff057e3c8da58f6318df10b52 (diff) | |
| download | ghdl-e3921be1157d819a8c74bf17692f02d8d12a325c.tar.gz ghdl-e3921be1157d819a8c74bf17692f02d8d12a325c.tar.bz2 ghdl-e3921be1157d819a8c74bf17692f02d8d12a325c.zip | |
vhdl 2008: allow to read out ports.
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 7f8d3a0a8..38d33c866 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 |