#ifndef _SBCL_RUNTIME_H_
#define _SBCL_RUNTIME_H_
+#if defined(LISP_FEATURE_WIN32) && defined(LISP_FEATURE_SB_THREAD)
+# include "pthreads_win32.h"
+#else
+# include <signal.h>
+# ifdef LISP_FEATURE_SB_THREAD
+# include <pthread.h>
+# endif
+#endif
+
+#include <stdint.h>
+
#if defined(LISP_FEATURE_SB_THREAD)
#define thread_self() pthread_self()
#define thread_kill pthread_kill
#define thread_mutex_unlock(l) 0
#endif
+#if defined(LISP_FEATURE_WIN32) && defined(LISP_FEATURE_SB_THREAD)
+void os_preinit();
+#endif
+
#if defined(LISP_FEATURE_SB_SAFEPOINT)
+
+typedef enum {
+ GC_NONE=0,
+ GC_FLIGHT,
+ GC_MESSAGE,
+ GC_INVOKED,
+ GC_QUIET,
+ GC_SETTLED,
+ GC_COLLECT,
+ GC_NPHASES
+} gc_phase_t;
+
void map_gc_page();
void unmap_gc_page();
int check_pending_interrupts();
+void gc_state_lock();
+void gc_state_wait(gc_phase_t);
+void gc_state_unlock();
+
#endif
/*
int dyndebug_pagefaults;
int dyndebug_backtrace_when_lost;
int dyndebug_sleep_when_lost;
+ int dyndebug_io;
+ int dyndebug_runtime_link;
} dyndebug_config;
#ifdef LISP_FEATURE_GENCGC
#if QSHOW_SIGNAL_SAFE == 1 && !defined(LISP_FEATURE_WIN32)
-#include <signal.h>
extern sigset_t blockable_sigset;
#define QSHOW_BLOCK \
/* even on alpha, int happens to be 4 bytes. long is longer. */
/* FIXME: these names really shouldn't reflect their length and this
is not quite right for some of the FFI stuff */
+#if defined(LISP_FEATURE_WIN32)&&defined(LISP_FEATURE_X86_64)
+typedef unsigned long long u64;
+typedef signed long long s64;
+#else
typedef unsigned long u64;
typedef signed long s64;
+#endif
typedef unsigned int u32;
typedef signed int s32;
/* this is an integral type the same length as a machine pointer */
-typedef unsigned long pointer_sized_uint_t ;
+typedef uintptr_t pointer_sized_uint_t;
+
+#ifdef _WIN64
+#define AMD64_SYSV_ABI __attribute__((sysv_abi))
+#else
+#define AMD64_SYSV_ABI
+#endif
#include <sys/types.h>
#if defined(LISP_FEATURE_SB_THREAD)
-#include <pthread.h>
typedef pthread_t os_thread_t;
#else
typedef pid_t os_thread_t;
#endif
+typedef uintptr_t uword_t;
+typedef intptr_t sword_t;
+
/* FIXME: we do things this way because of the alpha32 port. once
alpha64 has arrived, all this nastiness can go away */
#if 64 == N_WORD_BITS
#define LOW_WORD(c) ((pointer_sized_uint_t)c)
#define OBJ_FMTX "lx"
-typedef unsigned long lispobj;
+typedef uintptr_t lispobj;
#else
#define OBJ_FMTX "x"
#define LOW_WORD(c) ((long)(c) & 0xFFFFFFFFL)
return obj & WIDETAG_MASK;
}
-static inline unsigned long
+static inline uword_t
HeaderValue(lispobj obj)
{
return obj >> N_WIDETAG_BITS;
#define MAKE_FIXNUM(n) (n << N_FIXNUM_TAG_BITS)
static inline lispobj
-make_fixnum(long n)
+make_fixnum(sword_t n)
{
return MAKE_FIXNUM(n);
}
-static inline long
+static inline sword_t
fixnum_value(lispobj n)
{
return n >> N_FIXNUM_TAG_BITS;
# define THREADS_USING_GCSIGNAL 1
#endif
+/* Now that SPARC has precise GENCGC, several places that used to be
+ * #ifdef PCC need adjustment. Clearly, "PPC or SPARC" is as unhelpful
+ * a test as its reverse, "x86 or x86-64". However, the feature
+ * commonly used to differentiate between those two worlds is
+ * C_STACK_IS_CONTROL_STACK, and clearly (or at least in my humble
+ * opinion), at some point we'd like to have precise GC on x86 while
+ * still sharing the C stack, so stack usage ought not imply GC
+ * conservativeness. So let's have a helper feature that makes the code
+ * a bit more future-proof, even if it is itself currently defined in
+ * the naive way: */
+#if defined(LISP_FEATURE_GENCGC) && !defined(LISP_FEATURE_C_STACK_IS_CONTROL_STACK)
+# define GENCGC_IS_PRECISE 1
+#endif
+
+void *os_dlsym_default(char *name);
+
#endif /* _SBCL_RUNTIME_H_ */