diff options
| -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 |