From 983a284cd1217380be67f254619766b9ec6a1e71 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 1 Nov 2015 13:33:55 +0100
Subject: Do not set suspend flag on foreign procedure.
---
src/vhdl/sem_specs.adb | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/src/vhdl/sem_specs.adb b/src/vhdl/sem_specs.adb
index 8c22e9cc7..911b778cf 100644
--- a/src/vhdl/sem_specs.adb
+++ b/src/vhdl/sem_specs.adb
@@ -363,6 +363,12 @@ package body Sem_Specs is
Set_Foreign_Flag (Decl, True);
+ -- Use 'standard' convention call for foreign procedures, so as a
+ -- consequence they cannot be suspended.
+ if Get_Kind (Decl) = Iir_Kind_Procedure_Declaration then
+ Set_Suspend_Flag (Decl, False);
+ end if;
+
declare
use Back_End;
begin
--
cgit v1.2.3