1 #if !defined(_INCLUDE_THREAD_H_)
2 #define _INCLUDE_THREAD_H_
11 #include "interrupt.h"
12 #ifdef LISP_FEATURE_GENCGC
13 #include "gencgc-alloc-region.h"
15 struct alloc_region
{ };
17 #include "genesis/symbol.h"
18 #include "genesis/static-symbols.h"
19 #include "genesis/thread.h"
21 #define STATE_STARTING (make_fixnum(0))
22 #define STATE_RUNNING (make_fixnum(1))
23 #define STATE_SUSPENDED (make_fixnum(2))
24 #define STATE_DEAD (make_fixnum(3))
26 #define THREAD_SLOT_OFFSET_WORDS(c) \
27 (offsetof(struct thread,c)/(sizeof (struct thread *)))
29 union per_thread_data
{
31 lispobj dynamic_values
[1]; /* actually more like 4000 or so */
34 extern struct thread
*all_threads
;
35 extern int dynamic_values_bytes
;
37 #ifdef LISP_FEATURE_SB_THREAD
38 #define for_each_thread(th) for(th=all_threads;th;th=th->next)
40 /* there's some possibility a SSC could notice this never actually
42 #define for_each_thread(th) for(th=all_threads;th;th=0)
45 static inline lispobj
SymbolValue(u64 tagged_symbol_pointer
, void *thread
) {
46 struct symbol
*sym
= (struct symbol
*)
47 (pointer_sized_uint_t
)(tagged_symbol_pointer
-OTHER_POINTER_LOWTAG
);
48 #ifdef LISP_FEATURE_SB_THREAD
49 if(thread
&& sym
->tls_index
) {
51 ((union per_thread_data
*)thread
)
52 ->dynamic_values
[fixnum_value(sym
->tls_index
)];
53 if(r
!=UNBOUND_MARKER_WIDETAG
) return r
;
58 static inline lispobj
SymbolTlValue(u64 tagged_symbol_pointer
, void *thread
) {
59 struct symbol
*sym
= (struct symbol
*)
60 (pointer_sized_uint_t
)(tagged_symbol_pointer
-OTHER_POINTER_LOWTAG
);
61 #ifdef LISP_FEATURE_SB_THREAD
62 return ((union per_thread_data
*)thread
)
63 ->dynamic_values
[fixnum_value(sym
->tls_index
)];
69 static inline void SetSymbolValue(u64 tagged_symbol_pointer
,lispobj val
, void *thread
) {
70 struct symbol
*sym
= (struct symbol
*)
71 (pointer_sized_uint_t
)(tagged_symbol_pointer
-OTHER_POINTER_LOWTAG
);
72 #ifdef LISP_FEATURE_SB_THREAD
73 if(thread
&& sym
->tls_index
) {
74 lispobj
*pr
= &(((union per_thread_data
*)thread
)
75 ->dynamic_values
[fixnum_value(sym
->tls_index
)]);
76 if(*pr
!= UNBOUND_MARKER_WIDETAG
) {
84 static inline void SetTlSymbolValue(u64 tagged_symbol_pointer
,lispobj val
, void *thread
) {
85 #ifdef LISP_FEATURE_SB_THREAD
86 struct symbol
*sym
= (struct symbol
*)
87 (pointer_sized_uint_t
)(tagged_symbol_pointer
-OTHER_POINTER_LOWTAG
);
88 ((union per_thread_data
*)thread
)
89 ->dynamic_values
[fixnum_value(sym
->tls_index
)]
92 SetSymbolValue(tagged_symbol_pointer
,val
,thread
) ;
96 static inline os_context_t
*get_interrupt_context_for_thread(struct thread
*th
)
98 return th
->interrupt_contexts
99 [fixnum_value(SymbolValue(FREE_INTERRUPT_CONTEXT_INDEX
,th
)-1)];
102 /* This is clearly per-arch and possibly even per-OS code, but we can't
103 * put it somewhere sensible like x86-linux-os.c because it needs too
104 * much stuff like struct thread and all_threads to be defined, which
105 * usually aren't by that time. So, it's here instead. Sorry */
107 static inline struct thread
*arch_os_get_current_thread() {
108 #if defined(LISP_FEATURE_SB_THREAD)
109 #if defined(LISP_FEATURE_X86)
110 register struct thread
*me
=0;
112 __asm__
__volatile__ ("movl %%fs:%c1,%0" : "=r" (me
)
113 : "i" (offsetof (struct thread
,this)));
116 return pthread_getspecific(specials
);
123 #if defined(LISP_FEATURE_SB_THREAD)
124 #define thread_self pthread_self
125 #define thread_kill pthread_kill
126 #define thread_sigmask pthread_sigmask
128 #define thread_self getpid
129 #define thread_kill kill
130 #define thread_sigmask sigprocmask
133 extern void create_initial_thread(lispobj
);
135 #endif /* _INCLUDE_THREAD_H_ */