first try of setup_call_cleanup/3 and setup_call_catcher_cleanup/4

2009-05-19 23:53:14 -07:00
parent 13b9098200
commit c7066b43ec
6 changed files with 144 additions and 7 deletions
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@@ -473,7 +473,8 @@ inline static void
 do_signal(yap_signals sig)
 {
  LOCK(SignalLock);
-  CreepFlag = Unsigned(LCL0);
+  if (Yap_InterruptsEnabled)
+    CreepFlag = Unsigned(LCL0);
  ActiveSignals |= sig;
  UNLOCK(SignalLock);
 }