1.0.20: release, will be tagged sbcl_1_0_20
[sbcl/eslaughter.git] / src / runtime / win32-os.h
blob1526e8d88c7ef99a953d6d7d66a5805692b91434
1 /*
2 * This software is part of the SBCL system. See the README file for
3 * more information.
5 * This software is derived from the CMU CL system, which was
6 * written at Carnegie Mellon University and released into the
7 * public domain. The software is in the public domain and is
8 * provided with absolutely no warranty. See the COPYING and CREDITS
9 * files for more information.
12 #include <stdlib.h>
13 #include <sys/types.h>
14 #include <string.h>
15 #include <sys/time.h>
16 #include <sys/stat.h>
17 #include <unistd.h>
19 #define WIN32_LEAN_AND_MEAN
20 #include <windows.h>
21 #include "target-arch-os.h"
22 #include "target-arch.h"
24 typedef LPVOID os_vm_address_t;
25 typedef size_t os_vm_size_t;
26 typedef off_t os_vm_offset_t;
27 typedef int os_vm_prot_t;
29 typedef void *siginfo_t;
31 /* These are used as bitfields, but Win32 doesn't work that way, so we do a translation. */
32 #define OS_VM_PROT_READ 1
33 #define OS_VM_PROT_WRITE 2
34 #define OS_VM_PROT_EXECUTE 4
36 #define SIG_MEMORY_FAULT SIGSEGV
38 #define SIG_INTERRUPT_THREAD (SIGRTMIN)
39 #define SIG_STOP_FOR_GC (SIGRTMIN+1)
40 #define SIG_DEQUEUE (SIGRTMIN+2)
41 #define SIG_THREAD_EXIT (SIGRTMIN+3)
43 struct lisp_exception_frame {
44 struct lisp_exception_frame *next_frame;
45 void *handler;
46 lispobj *bindstack_pointer;
49 void wos_install_interrupt_handlers(struct lisp_exception_frame *handler);
50 char *dirname(char *path);