From 1c9d81caa66995a20656e08168f5847707769858 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 15 May 2015 03:51:59 +0200
Subject: vhdl 00+: allow non-protected shared variables with -frelaxed-rules

Implements ticket 62.
---
 src/vhdl/sem_decls.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/vhdl/sem_decls.adb b/src/vhdl/sem_decls.adb
index 8d7933893..a53f20662 100644
--- a/src/vhdl/sem_decls.adb
+++ b/src/vhdl/sem_decls.adb
@@ -1746,7 +1746,7 @@ package body Sem_Decls is
                   --  The base type of the subtype indication of a
                   --  shared variable declaration must be a protected type.
                   if Get_Shared_Flag (Decl) and not Is_Protected then
-                     Error_Msg_Sem
+                     Error_Msg_Sem_Relaxed
                        ("type of a shared variable must be a protected type",
                         Decl);
                   end if;
-- 
cgit v1.2.3