From f41084de955da1438542b2a3d42501077cdaa24e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 15 May 2015 21:27:32 +0200
Subject: Pure errors are warnings in relaxed rules.

---
 src/vhdl/errorout.adb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb
index 714a2833f..b529b48ed 100644
--- a/src/vhdl/errorout.adb
+++ b/src/vhdl/errorout.adb
@@ -1036,17 +1036,17 @@ package body Errorout is
 
    procedure Error_Pure (Caller : Iir; Callee : Iir; Loc : Iir)
    is
-      L : Location_Type;
+      L : Iir;
    begin
       if Loc = Null_Iir then
-         L := Get_Location (Caller);
+         L := Caller;
       else
-         L := Get_Location (Loc);
+         L := Loc;
       end if;
-      Error_Msg_Sem
+      Error_Msg_Sem_Relaxed
         ("pure " & Disp_Node (Caller) & " cannot call (impure) "
          & Disp_Node (Callee), L);
-      Error_Msg_Sem
+      Error_Msg_Sem_Relaxed
         ("(" & Disp_Node (Callee) & " is defined here)", Callee);
    end Error_Pure;
 
-- 
cgit v1.2.3