From e3921be1157d819a8c74bf17692f02d8d12a325c Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Thu, 14 May 2015 06:53:26 +0200
Subject: vhdl 2008: allow to read out ports.

---
 src/grt/grt-signals.adb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/grt')

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
-- 
cgit