diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-11-01 13:33:55 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-11-01 13:33:55 +0100 |
| commit | 983a284cd1217380be67f254619766b9ec6a1e71 (patch) | |
| tree | 8176585a89142e12ee00162f8f8f5005f3c37ccb | |
| parent | 15bc89b633b601dbc338041dc977494f6c38fc7f (diff) | |
| download | ghdl-983a284cd1217380be67f254619766b9ec6a1e71.tar.gz ghdl-983a284cd1217380be67f254619766b9ec6a1e71.tar.bz2 ghdl-983a284cd1217380be67f254619766b9ec6a1e71.zip | |
Do not set suspend flag on foreign procedure.
| -rw-r--r-- | src/vhdl/sem_specs.adb | 6 |
1 files changed, 6 insertions, 0 deletions
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 |