Changeset 11498 for branches/working-0711/ccl/lisp-kernel/pmcl-kernel.c

Timestamp:

Dec 9, 2008, 4:22:09 PM (11 years ago)

Author:

gz

Message:

Pass the signal number through to user handlers, use it to exit by resignalling

File:

• branches/working-0711/ccl/lisp-kernel/pmcl-kernel.c (modified) (1 diff)

branches/working-0711/ccl/lisp-kernel/pmcl-kernel.c

@@ -733 +733 @@
 {
   if (signum == SIGINT) {
-    lisp_global(INTFLAG) = (1 << fixnumshift);
+    lisp_global(INTFLAG) = (((signum<<8) + 1) << fixnumshift);
   }
   else if (signum == SIGTERM) {
-    lisp_global(INTFLAG) = (2 << fixnumshift);
+    lisp_global(INTFLAG) = (((signum<<8) + 2) << fixnumshift);
+  }
+  else if (signum == SIGQUIT) {
+    lisp_global(INTFLAG) = (((signum<<8) + 2) << fixnumshift);
   }
 #ifdef DARWIN