2 * System-dependent scheduler support
4 * Copyright 1998 Alexandre Julliard
9 /* Get pointers to the static errno and h_errno variables used by Xlib. This
10 must be done before including <errno.h> makes the variables invisible. */
12 static int *perrno
= &errno
;
14 static int *ph_errno
= &h_errno
;
19 #ifdef HAVE_SYS_SYSCALL_H
20 # include <sys/syscall.h>
25 #ifdef HAVE_UCONTEXT_H
26 # include <ucontext.h>
33 DEFAULT_DEBUG_CHANNEL(thread
)
36 #define HAVE_CLONE_SYSCALL
39 /* Xlib critical section (FIXME: does not belong here) */
40 CRITICAL_SECTION X11DRV_CritSection
= { 0, };
42 #ifdef HAVE_CLONE_SYSCALL
47 # define CLONE_VM 0x00000100
48 # define CLONE_FS 0x00000200
49 # define CLONE_FILES 0x00000400
50 # define CLONE_SIGHAND 0x00000800
51 # define CLONE_PID 0x00001000
52 /* If we didn't get the flags, we probably didn't get the prototype either */
53 extern int clone( int (*fn
)(void *arg
), void *stack
, int flags
, void *arg
);
54 # endif /* CLONE_VM */
55 #endif /* HAVE_CLONE_SYSCALL */
58 #ifndef NO_REENTRANT_LIBC
60 /***********************************************************************
61 * __errno_location/__error/___errno
63 * Get the per-thread errno location.
65 #ifdef HAVE__ERRNO_LOCATION
66 int *__errno_location()
75 THDB
*thdb
= THREAD_Current();
76 if (!thdb
) return perrno
;
77 #ifdef NO_REENTRANT_X11
78 /* Use static libc errno while running in Xlib. */
79 if (X11DRV_CritSection
.OwningThread
== (HANDLE
)thdb
->server_tid
)
82 return &thdb
->thread_errno
;
85 /***********************************************************************
88 * Get the per-thread h_errno location.
90 int *__h_errno_location()
92 THDB
*thdb
= THREAD_Current();
93 if (!thdb
) return ph_errno
;
94 #ifdef NO_REENTRANT_X11
95 /* Use static libc h_errno while running in Xlib. */
96 if (X11DRV_CritSection
.OwningThread
== (HANDLE
)thdb
->server_tid
)
99 return &thdb
->thread_h_errno
;
102 #endif /* NO_REENTRANT_LIBC */
104 /***********************************************************************
105 * SYSDEPS_StartThread
107 * Startup routine for a new thread.
109 static void SYSDEPS_StartThread( THDB
*thdb
)
111 SET_CUR_THREAD( thdb
);
114 _exit(0); /* should never get here */
118 /***********************************************************************
119 * SYSDEPS_SpawnThread
121 * Start running a new thread.
122 * Return -1 on error, 0 if OK.
124 int SYSDEPS_SpawnThread( THDB
*thread
)
126 #ifndef NO_REENTRANT_LIBC
128 #ifdef HAVE_CLONE_SYSCALL
129 if (clone( (int (*)(void *))SYSDEPS_StartThread
, thread
->teb
.stack_top
,
130 CLONE_VM
| CLONE_FS
| CLONE_FILES
| SIGCHLD
, thread
) < 0)
132 /* FIXME: close the child socket in the parent process */
133 /* close( thread->socket );*/
138 DWORD
*sp
= (DWORD
*)thread
->teb
.stack_top
;
139 *--sp
= (DWORD
)thread
;
141 *--sp
= (DWORD
)SYSDEPS_StartThread
;
143 "pushl %2;\n\t" /* RFPROC|RMEM */
144 "pushl $0;\n\t" /* 0 ? */
145 "movl %1,%%eax;\n\t" /* SYS_rfork */
146 ".byte 0x9a; .long 0; .word 7;\n\t" /* lcall 7:0... FreeBSD syscall */
147 "cmpl $0, %%edx;\n\t"
149 "movl %0,%%esp;\n\t" /* father -> new thread */
151 "1:\n\t" /* child -> caller thread */
153 : "r" (sp
), "g" (SYS_rfork
), "g" (RFPROC
|RFMEM
)
158 #ifdef HAVE__LWP_CREATE
160 _lwp_makecontext( &context
, (void(*)(void *))SYSDEPS_StartThread
, thread
,
161 NULL
, thread
->stack_base
, thread
->teb
.stack_top
- thread
->stack_base
);
162 if ( _lwp_create( &context
, 0, NULL
) )
167 #endif /* NO_REENTRANT_LIBC */
169 FIXME(thread
, "CreateThread: stub\n" );
175 /***********************************************************************
178 * Exit a running thread; must not return.
179 * Must not make any reference to the thread structures (THDB etc.) as
180 * they have already been deleted.
182 void SYSDEPS_ExitThread(void)
184 #ifdef HAVE__LWP_CREATE
192 /**********************************************************************
193 * NtCurrentTeb (NTDLL.89)
195 * This will crash and burn if called before threading is initialized
197 TEB
* WINAPI
NtCurrentTeb(void)
202 /* Get the TEB self-pointer */
203 __asm__( ".byte 0x64\n\tmovl (%1),%0"
204 : "=r" (teb
) : "r" (&((TEB
*)0)->self
) );
207 return &pCurrentThread
->teb
;
208 #endif /* __i386__ */