Changeset 11497

Timestamp:

Dec 9, 2008, 4:17:01 PM (12 years ago)

Author:

gz

Message:

Add a lisp_sigexit kernel-import, to allow exit by resignalling

Location:

branches/working-0711/ccl

Files:

• compiler/X86/X8632/x8632-arch.lisp (modified) (1 diff)
• compiler/X86/X8664/x8664-arch.lisp (modified) (1 diff)
• lisp-kernel/imports.s (modified) (1 diff)
• lisp-kernel/unix-calls.c (modified) (2 diffs)
• lisp-kernel/windows-calls.c (modified) (3 diffs)

branches/working-0711/ccl/compiler/X86/X8632/x8632-arch.lisp

@@ -745 +745 @@
   lisp-pipe
   lisp-gettimeofday
+  lisp-sigexit
 )
 

branches/working-0711/ccl/compiler/X86/X8664/x8664-arch.lisp

@@ -845 +845 @@
   lisp-pipe
   lisp-gettimeofday
+  lisp-sigexit
 )
 

branches/working-0711/ccl/lisp-kernel/imports.s

@@ -99 +99 @@
         defimport(lisp_pipe)
         defimport(lisp_gettimeofday)
-        
+        defimport(lisp_sigexit)
    
         .globl C(import_ptrs_base)

branches/working-0711/ccl/lisp-kernel/unix-calls.c

@@ -34 +34 @@
 #include <sys/time.h>
 #include <stdint.h>
+#include <signal.h>
 
 ssize_t
@@ -146 +147 @@
   return gettimeofday(tp, tzp);
 }
+
+int
+lisp_sigexit(int signum)
+{
+  signal(signum, SIG_DFL);
+  return kill(getpid(), signum);
+}

branches/working-0711/ccl/lisp-kernel/windows-calls.c

@@ -25 +25 @@
 #include <psapi.h>
 #include <dirent.h>
+#include <signal.h>
 #undef __argv
 #include <stdio.h>
@@ -570 +571 @@
   tp->tv_usec = now%1000LL;
   return 0;
+}
+
+int
+lisp_sigexit(int signum)
+{
+  signal(signum, SIG_DFL);
+  return raise(signum);
 }
 
@@ -867 +875 @@
   WSAStartup((2<<8)|2,&data);
 }
+