From 9fb8b565e201edf9d8727159eeef3c40553219e3 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 8 Dec 2016 20:34:12 +0100
Subject: Set pure on implicit interface function.

Fix #204
---
 src/vhdl/sem_decls.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/vhdl/sem_decls.adb b/src/vhdl/sem_decls.adb
index 8d3c15587..e75092a33 100644
--- a/src/vhdl/sem_decls.adb
+++ b/src/vhdl/sem_decls.adb
@@ -444,6 +444,7 @@ package body Sem_Decls is
       Set_Return_Type (Operation, Return_Type);
       Set_Identifier (Operation, Name);
       Set_Visible_Flag (Operation, True);
+      Set_Pure_Flag (Operation, True);
       Compute_Subprogram_Hash (Operation);
       return Operation;
    end Create_Implicit_Interface_Function;
-- 
cgit v1.2.3