src/runtime/win32-os.h

   1 /*
   2  * This software is part of the SBCL system. See the README file for
   3  * more information.
   4  *
   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.
  10  */
  11
  12 #ifndef SBCL_INCLUDED_WIN32_OS_H
  13 #define SBCL_INCLUDED_WIN32_OS_H
  14
  15 #define WIN32_LEAN_AND_MEAN
  16 #include <winsock2.h>
  17 #include <windows.h>
  18 #include <ntstatus.h>
  19
  20 #include <stdlib.h>
  21 #include <stdint.h>
  22 #include <stdio.h>
  23 #include <sys/types.h>
  24 #include <string.h>
  25 #include <sys/time.h>
  26 #include <sys/stat.h>
  27 #include <unistd.h>
  28
  29 #include "target-arch-os.h"
  30 #include "target-arch.h"
  31
  32 #include "pthreads_win32.h"
  33
  34 #ifdef LISP_FEATURE_64_BIT
  35 /* LPVOID can't be legally used in pointer arithmetic.
  36  * (so all the arithmetic in 'validate.h' is technically illegal).
  37  * But I can't test 32-bit so let it stay as was */
  38 typedef char* os_vm_address_t;
  39 #else
  40 typedef LPVOID os_vm_address_t;
  41 #endif
  42 typedef uword_t os_vm_size_t;
  43 typedef intptr_t os_vm_offset_t;
  44 typedef int os_vm_prot_t;
  45
  46 /* These are used as bitfields, but Win32 doesn't work that way, so we do a translation. */
  47 #define OS_VM_PROT_READ    1
  48 #define OS_VM_PROT_WRITE   2
  49 #define OS_VM_PROT_EXECUTE 4
  50
  51 extern int os_number_of_processors;
  52 #define HAVE_os_number_of_processors
  53
  54 extern ULONG win32_stack_guarantee;
  55 extern DWORD win32_page_size;
  56
  57 // 64-bit uses whatever TLS index the kernels gives us which we store in
  58 // 'sbcl_thread_tls_index' to hold our thread-local value of the pointer
  59 // to struct thread.
  60 // 32-bit uses a quasi-arbitrary fixed TLS index that we try to claim on startup.
  61 // of the process.
  62 #ifdef LISP_FEATURE_64_BIT
  63 extern DWORD sbcl_thread_tls_index;
  64 #define OUR_TLS_INDEX sbcl_thread_tls_index
  65 #else
  66 #define OUR_TLS_INDEX 63
  67 #endif
  68
  69 struct lisp_exception_frame {
  70     struct lisp_exception_frame *next_frame;
  71     void *handler;
  72     lispobj *bindstack_pointer;
  73 };
  74
  75 void wos_install_interrupt_handlers(struct lisp_exception_frame *handler);
  76 char *dirname(char *path);
  77
  78 bool win32_maybe_interrupt_io(void* thread);
  79
  80 int sb_pthread_sigmask(int how, const sigset_t *set, sigset_t *oldset);
  81
  82 #endif  /* SBCL_INCLUDED_WIN32_OS_H */