src/lisp/sunos-os.h

   1 /*
   2
   3  This code was written as part of the CMU Common Lisp project at
   4  Carnegie Mellon University, and has been placed in the public domain.
   5
   6 */
   7
   8 #ifndef _SUNOS_OS_H_
   9 #define _SUNOS_OS_H_
  10
  11 #ifdef SOLARIS
  12 #undef boolean
  13 #endif /* SOLARIS */
  14
  15 #include <sys/param.h>
  16 #include <sys/types.h>
  17 #include <string.h>
  18
  19 #ifdef SOLARIS
  20 #define boolean int
  21 #include <signal.h>
  22 #include <unistd.h>
  23 #include <sys/fcntl.h>
  24 #endif /* SOLARIS */
  25
  26 #include <sys/mman.h>
  27
  28 #ifdef SOLARIS
  29 #include <ucontext.h>
  30 #define sigcontext ucontext
  31
  32 #endif /* SOLARIS */
  33
  34 typedef unsigned long os_vm_address_t;
  35 typedef long os_vm_size_t;
  36 typedef off_t os_vm_offset_t;
  37 typedef int os_vm_prot_t;
  38
  39 #define OS_VM_PROT_READ PROT_READ
  40 #define OS_VM_PROT_WRITE PROT_WRITE
  41 #define OS_VM_PROT_EXECUTE PROT_EXEC
  42
  43 #ifdef i386
  44 #define OS_VM_DEFAULT_PAGESIZE  4096
  45 #else
  46 #define OS_VM_DEFAULT_PAGESIZE  8192
  47 #endif
  48
  49 #ifdef SOLARIS
  50 #include <ucontext.h>
  51 #define HANDLER_ARGS int signal, siginfo_t *code, void *context
  52 #define CODE(code)  ((code) ? code->si_code : 0)
  53 typedef struct ucontext os_context_t__;
  54 #define os_context_t os_context_t__
  55 #ifndef i386
  56 #define SAVE_CONTEXT() save_context()
  57 #endif
  58
  59 #ifdef NULL
  60 #undef NULL
  61 #define NULL 0
  62 #endif
  63
  64 extern void flush_icache(unsigned int *, unsigned int);
  65 extern void save_context(void);
  66
  67 #endif /* SOLARIS */
  68
  69 #define PROTECTION_VIOLATION_SIGNAL SIGSEGV
  70
  71 #endif /* _SUNOS_OS_H_ */