4 * Copyright 1996, 2003 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include "wine/port.h"
27 #include <sys/types.h>
28 #ifdef HAVE_SYS_MMAN_H
31 #ifdef HAVE_SYS_TIMES_H
32 #include <sys/times.h>
34 #ifdef HAVE_SYS_SYSCALL_H
35 #include <sys/syscall.h>
38 #define NONAMELESSUNION
40 #define WIN32_NO_STATUS
42 #include "wine/library.h"
43 #include "wine/server.h"
44 #include "wine/debug.h"
45 #include "ntdll_misc.h"
47 #include "wine/exception.h"
49 WINE_DEFAULT_DEBUG_CHANNEL(thread
);
51 struct _KUSER_SHARED_DATA
*user_shared_data
= NULL
;
53 PUNHANDLED_EXCEPTION_FILTER unhandled_exception_filter
= NULL
;
54 LPTHREAD_START_ROUTINE kernel32_start_process
= NULL
;
56 /* info passed to a starting thread */
60 PRTL_THREAD_START_ROUTINE entry_point
;
65 static PEB_LDR_DATA ldr
;
66 static RTL_USER_PROCESS_PARAMETERS params
; /* default parameters if no parent */
67 static WCHAR current_dir
[MAX_NT_PATH_LENGTH
];
68 static RTL_BITMAP tls_bitmap
;
69 static RTL_BITMAP tls_expansion_bitmap
;
70 static RTL_BITMAP fls_bitmap
;
71 static int nb_threads
= 1;
73 static RTL_CRITICAL_SECTION peb_lock
;
74 static RTL_CRITICAL_SECTION_DEBUG critsect_debug
=
77 { &critsect_debug
.ProcessLocksList
, &critsect_debug
.ProcessLocksList
},
78 0, 0, { (DWORD_PTR
)(__FILE__
": peb_lock") }
80 static RTL_CRITICAL_SECTION peb_lock
= { &critsect_debug
, -1, 0, 0, 0, 0 };
82 /***********************************************************************
85 * Copy a unicode string from the startup info.
87 static inline void get_unicode_string( UNICODE_STRING
*str
, WCHAR
**src
, WCHAR
**dst
, UINT len
)
91 str
->MaximumLength
= len
+ sizeof(WCHAR
);
92 memcpy( str
->Buffer
, *src
, len
);
93 str
->Buffer
[len
/ sizeof(WCHAR
)] = 0;
94 *src
+= len
/ sizeof(WCHAR
);
95 *dst
+= len
/ sizeof(WCHAR
) + 1;
98 /***********************************************************************
99 * init_user_process_params
101 * Fill the RTL_USER_PROCESS_PARAMETERS structure from the server.
103 static NTSTATUS
init_user_process_params( SIZE_T data_size
, HANDLE
*exe_file
)
107 SIZE_T info_size
, env_size
, size
, alloc_size
;
109 startup_info_t
*info
;
110 RTL_USER_PROCESS_PARAMETERS
*params
= NULL
;
112 if (!(info
= RtlAllocateHeap( GetProcessHeap(), 0, data_size
)))
113 return STATUS_NO_MEMORY
;
115 SERVER_START_REQ( get_startup_info
)
117 wine_server_set_reply( req
, info
, data_size
);
118 if (!(status
= wine_server_call( req
)))
120 data_size
= wine_server_reply_size( reply
);
121 info_size
= reply
->info_size
;
122 env_size
= data_size
- info_size
;
123 *exe_file
= wine_server_ptr_handle( reply
->exe_file
);
127 if (status
!= STATUS_SUCCESS
) goto done
;
129 size
= sizeof(*params
);
130 size
+= MAX_NT_PATH_LENGTH
* sizeof(WCHAR
);
131 size
+= info
->dllpath_len
+ sizeof(WCHAR
);
132 size
+= info
->imagepath_len
+ sizeof(WCHAR
);
133 size
+= info
->cmdline_len
+ sizeof(WCHAR
);
134 size
+= info
->title_len
+ sizeof(WCHAR
);
135 size
+= info
->desktop_len
+ sizeof(WCHAR
);
136 size
+= info
->shellinfo_len
+ sizeof(WCHAR
);
137 size
+= info
->runtime_len
+ sizeof(WCHAR
);
140 status
= NtAllocateVirtualMemory( NtCurrentProcess(), (void **)¶ms
, 0, &alloc_size
,
141 MEM_COMMIT
, PAGE_READWRITE
);
142 if (status
!= STATUS_SUCCESS
) goto done
;
144 NtCurrentTeb()->Peb
->ProcessParameters
= params
;
145 params
->AllocationSize
= alloc_size
;
147 params
->Flags
= PROCESS_PARAMS_FLAG_NORMALIZED
;
148 params
->DebugFlags
= info
->debug_flags
;
149 params
->ConsoleHandle
= wine_server_ptr_handle( info
->console
);
150 params
->ConsoleFlags
= info
->console_flags
;
151 params
->hStdInput
= wine_server_ptr_handle( info
->hstdin
);
152 params
->hStdOutput
= wine_server_ptr_handle( info
->hstdout
);
153 params
->hStdError
= wine_server_ptr_handle( info
->hstderr
);
154 params
->dwX
= info
->x
;
155 params
->dwY
= info
->y
;
156 params
->dwXSize
= info
->xsize
;
157 params
->dwYSize
= info
->ysize
;
158 params
->dwXCountChars
= info
->xchars
;
159 params
->dwYCountChars
= info
->ychars
;
160 params
->dwFillAttribute
= info
->attribute
;
161 params
->dwFlags
= info
->flags
;
162 params
->wShowWindow
= info
->show
;
164 src
= (WCHAR
*)(info
+ 1);
165 dst
= (WCHAR
*)(params
+ 1);
167 /* current directory needs more space */
168 get_unicode_string( ¶ms
->CurrentDirectory
.DosPath
, &src
, &dst
, info
->curdir_len
);
169 params
->CurrentDirectory
.DosPath
.MaximumLength
= MAX_NT_PATH_LENGTH
* sizeof(WCHAR
);
170 dst
= (WCHAR
*)(params
+ 1) + MAX_NT_PATH_LENGTH
;
172 get_unicode_string( ¶ms
->DllPath
, &src
, &dst
, info
->dllpath_len
);
173 get_unicode_string( ¶ms
->ImagePathName
, &src
, &dst
, info
->imagepath_len
);
174 get_unicode_string( ¶ms
->CommandLine
, &src
, &dst
, info
->cmdline_len
);
175 get_unicode_string( ¶ms
->WindowTitle
, &src
, &dst
, info
->title_len
);
176 get_unicode_string( ¶ms
->Desktop
, &src
, &dst
, info
->desktop_len
);
177 get_unicode_string( ¶ms
->ShellInfo
, &src
, &dst
, info
->shellinfo_len
);
179 /* runtime info isn't a real string */
180 params
->RuntimeInfo
.Buffer
= dst
;
181 params
->RuntimeInfo
.Length
= params
->RuntimeInfo
.MaximumLength
= info
->runtime_len
;
182 memcpy( dst
, src
, info
->runtime_len
);
184 /* environment needs to be a separate memory block */
186 alloc_size
= max( 1, env_size
);
187 status
= NtAllocateVirtualMemory( NtCurrentProcess(), &ptr
, 0, &alloc_size
,
188 MEM_COMMIT
, PAGE_READWRITE
);
189 if (status
!= STATUS_SUCCESS
) goto done
;
190 memcpy( ptr
, (char *)info
+ info_size
, env_size
);
191 params
->Environment
= ptr
;
194 RtlFreeHeap( GetProcessHeap(), 0, info
);
206 #ifdef HAVE_SYS_AUXV_H
207 # include <sys/auxv.h>
209 #ifndef HAVE_GETAUXVAL
210 static unsigned long getauxval( unsigned long id
)
212 extern char **__wine_main_environ
;
213 char **ptr
= __wine_main_environ
;
218 for (auxv
= (ElfW(auxv_t
) *)ptr
; auxv
->a_type
; auxv
++)
219 if (auxv
->a_type
== id
) return auxv
->a_un
.a_val
;
224 static ULONG_PTR
get_image_addr(void)
226 ULONG_PTR size
, num
, phdr_addr
= getauxval( AT_PHDR
);
229 if (!phdr_addr
) return 0;
230 phdr
= (ElfW(Phdr
) *)phdr_addr
;
231 size
= getauxval( AT_PHENT
);
232 num
= getauxval( AT_PHNUM
);
235 if (phdr
->p_type
== PT_PHDR
) return phdr_addr
- phdr
->p_offset
;
236 phdr
= (ElfW(Phdr
) *)((char *)phdr
+ size
);
241 #elif defined(__APPLE__)
242 #include <mach/mach.h>
243 #include <mach/mach_error.h>
245 static ULONG_PTR
get_image_addr(void)
248 #ifdef TASK_DYLD_INFO
249 struct task_dyld_info dyld_info
;
250 mach_msg_type_number_t size
= TASK_DYLD_INFO_COUNT
;
251 if (task_info(mach_task_self(), TASK_DYLD_INFO
, (task_info_t
)&dyld_info
, &size
) == KERN_SUCCESS
)
252 ret
= dyld_info
.all_image_info_addr
;
258 static ULONG_PTR
get_image_addr(void)
264 /***********************************************************************
267 * Setup the initial thread.
269 * NOTES: The first allocated TEB on NT is at 0x7ffde000.
271 HANDLE
thread_init(void)
275 SIZE_T size
, info_size
;
279 struct ntdll_thread_data
*thread_data
;
280 static struct debug_info debug_info
; /* debug info for initial thread */
284 /* reserve space for shared user data */
286 addr
= (void *)0x7ffe0000;
288 status
= NtAllocateVirtualMemory( NtCurrentProcess(), &addr
, 0, &size
,
289 MEM_RESERVE
|MEM_COMMIT
, PAGE_READWRITE
);
292 MESSAGE( "wine: failed to map the shared user data: %08x\n", status
);
295 user_shared_data
= addr
;
297 /* allocate and initialize the PEB */
301 NtAllocateVirtualMemory( NtCurrentProcess(), &addr
, 1, &size
,
302 MEM_COMMIT
| MEM_TOP_DOWN
, PAGE_READWRITE
);
305 peb
->FastPebLock
= &peb_lock
;
306 peb
->ProcessParameters
= ¶ms
;
307 peb
->TlsBitmap
= &tls_bitmap
;
308 peb
->TlsExpansionBitmap
= &tls_expansion_bitmap
;
309 peb
->FlsBitmap
= &fls_bitmap
;
311 peb
->OSMajorVersion
= 5;
312 peb
->OSMinorVersion
= 1;
313 peb
->OSBuildNumber
= 0xA28;
314 peb
->OSPlatformId
= VER_PLATFORM_WIN32_NT
;
315 params
.CurrentDirectory
.DosPath
.Buffer
= current_dir
;
316 params
.CurrentDirectory
.DosPath
.MaximumLength
= sizeof(current_dir
);
317 params
.wShowWindow
= 1; /* SW_SHOWNORMAL */
318 ldr
.Length
= sizeof(ldr
);
319 ldr
.Initialized
= TRUE
;
320 RtlInitializeBitMap( &tls_bitmap
, peb
->TlsBitmapBits
, sizeof(peb
->TlsBitmapBits
) * 8 );
321 RtlInitializeBitMap( &tls_expansion_bitmap
, peb
->TlsExpansionBitmapBits
,
322 sizeof(peb
->TlsExpansionBitmapBits
) * 8 );
323 RtlInitializeBitMap( &fls_bitmap
, peb
->FlsBitmapBits
, sizeof(peb
->FlsBitmapBits
) * 8 );
324 RtlSetBits( peb
->TlsBitmap
, 0, 1 ); /* TLS index 0 is reserved and should be initialized to NULL. */
325 RtlSetBits( peb
->FlsBitmap
, 0, 1 );
326 InitializeListHead( &peb
->FlsListHead
);
327 InitializeListHead( &ldr
.InLoadOrderModuleList
);
328 InitializeListHead( &ldr
.InMemoryOrderModuleList
);
329 InitializeListHead( &ldr
.InInitializationOrderModuleList
);
330 *(ULONG_PTR
*)peb
->Reserved
= get_image_addr();
333 * Starting with Vista, the first user to log on has session id 1.
334 * Session id 0 is for processes that don't interact with the user (like services).
338 /* allocate and initialize the initial TEB */
340 signal_alloc_thread( &teb
);
342 teb
->Tib
.StackBase
= (void *)~0UL;
343 teb
->StaticUnicodeString
.Buffer
= teb
->StaticUnicodeBuffer
;
344 teb
->StaticUnicodeString
.MaximumLength
= sizeof(teb
->StaticUnicodeBuffer
);
346 thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
347 thread_data
->request_fd
= -1;
348 thread_data
->reply_fd
= -1;
349 thread_data
->wait_fd
[0] = -1;
350 thread_data
->wait_fd
[1] = -1;
351 thread_data
->debug_info
= &debug_info
;
353 signal_init_thread( teb
);
354 virtual_init_threading();
356 debug_info
.str_pos
= debug_info
.strings
;
357 debug_info
.out_pos
= debug_info
.output
;
360 /* setup the server connection */
361 server_init_process();
362 info_size
= server_init_thread( peb
);
364 /* create the process heap */
365 if (!(peb
->ProcessHeap
= RtlCreateHeap( HEAP_GROWABLE
, NULL
, 0, 0, NULL
, NULL
)))
367 MESSAGE( "wine: failed to create the process heap\n" );
371 /* allocate user parameters */
374 init_user_process_params( info_size
, &exe_file
);
378 if (isatty(0) || isatty(1) || isatty(2))
379 params
.ConsoleHandle
= (HANDLE
)2; /* see kernel32/kernel_private.h */
381 wine_server_fd_to_handle( 0, GENERIC_READ
|SYNCHRONIZE
, OBJ_INHERIT
, ¶ms
.hStdInput
);
383 wine_server_fd_to_handle( 1, GENERIC_WRITE
|SYNCHRONIZE
, OBJ_INHERIT
, ¶ms
.hStdOutput
);
385 wine_server_fd_to_handle( 2, GENERIC_WRITE
|SYNCHRONIZE
, OBJ_INHERIT
, ¶ms
.hStdError
);
388 /* initialize time values in user_shared_data */
389 NtQuerySystemTime( &now
);
390 user_shared_data
->SystemTime
.LowPart
= now
.u
.LowPart
;
391 user_shared_data
->SystemTime
.High1Time
= user_shared_data
->SystemTime
.High2Time
= now
.u
.HighPart
;
392 user_shared_data
->u
.TickCountQuad
= (now
.QuadPart
- server_start_time
) / 10000;
393 user_shared_data
->u
.TickCount
.High2Time
= user_shared_data
->u
.TickCount
.High1Time
;
394 user_shared_data
->TickCountLowDeprecated
= user_shared_data
->u
.TickCount
.LowPart
;
395 user_shared_data
->TickCountMultiplier
= 1 << 24;
399 NtCreateKeyedEvent( &keyed_event
, GENERIC_READ
| GENERIC_WRITE
, NULL
, 0 );
405 /***********************************************************************
408 static void free_thread_data( TEB
*teb
)
410 struct ntdll_thread_data
*thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
413 if (teb
->DeallocationStack
)
416 NtFreeVirtualMemory( GetCurrentProcess(), &teb
->DeallocationStack
, &size
, MEM_RELEASE
);
418 if (thread_data
->start_stack
)
421 NtFreeVirtualMemory( GetCurrentProcess(), &thread_data
->start_stack
, &size
, MEM_RELEASE
);
423 signal_free_thread( teb
);
427 /***********************************************************************
430 void terminate_thread( int status
)
432 pthread_sigmask( SIG_BLOCK
, &server_block_set
, NULL
);
433 if (interlocked_xchg_add( &nb_threads
, -1 ) <= 1) _exit( status
);
435 close( ntdll_get_thread_data()->wait_fd
[0] );
436 close( ntdll_get_thread_data()->wait_fd
[1] );
437 close( ntdll_get_thread_data()->reply_fd
);
438 close( ntdll_get_thread_data()->request_fd
);
439 pthread_exit( UIntToPtr(status
) );
443 /***********************************************************************
446 void exit_thread( int status
)
448 static void *prev_teb
;
451 if (status
) /* send the exit code to the server (0 is already the default) */
453 SERVER_START_REQ( terminate_thread
)
455 req
->handle
= wine_server_obj_handle( GetCurrentThread() );
456 req
->exit_code
= status
;
457 wine_server_call( req
);
462 if (interlocked_xchg_add( &nb_threads
, -1 ) <= 1)
464 LdrShutdownProcess();
469 RtlFreeThreadActivationContextStack();
471 pthread_sigmask( SIG_BLOCK
, &server_block_set
, NULL
);
473 if ((teb
= interlocked_xchg_ptr( &prev_teb
, NtCurrentTeb() )))
475 struct ntdll_thread_data
*thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
477 if (thread_data
->pthread_id
)
479 pthread_join( thread_data
->pthread_id
, NULL
);
480 free_thread_data( teb
);
484 close( ntdll_get_thread_data()->wait_fd
[0] );
485 close( ntdll_get_thread_data()->wait_fd
[1] );
486 close( ntdll_get_thread_data()->reply_fd
);
487 close( ntdll_get_thread_data()->request_fd
);
488 pthread_exit( UIntToPtr(status
) );
492 /***********************************************************************
495 * Startup routine for a newly created thread.
497 static void start_thread( struct startup_info
*info
)
500 TEB
*teb
= info
->teb
;
501 struct ntdll_thread_data
*thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
502 struct debug_info debug_info
;
504 debug_info
.str_pos
= debug_info
.strings
;
505 debug_info
.out_pos
= debug_info
.output
;
506 thread_data
->debug_info
= &debug_info
;
507 thread_data
->pthread_id
= pthread_self();
509 signal_init_thread( teb
);
510 server_init_thread( info
->entry_point
);
511 status
= signal_start_thread( (LPTHREAD_START_ROUTINE
)info
->entry_point
, info
->entry_arg
);
512 NtTerminateThread( GetCurrentThread(), status
);
516 /***********************************************************************
517 * RtlCreateUserThread (NTDLL.@)
519 NTSTATUS WINAPI
RtlCreateUserThread( HANDLE process
, const SECURITY_DESCRIPTOR
*descr
,
520 BOOLEAN suspended
, PVOID stack_addr
,
521 SIZE_T stack_reserve
, SIZE_T stack_commit
,
522 PRTL_THREAD_START_ROUTINE start
, void *param
,
523 HANDLE
*handle_ptr
, CLIENT_ID
*id
)
526 pthread_t pthread_id
;
528 struct ntdll_thread_data
*thread_data
;
529 struct startup_info
*info
;
530 HANDLE handle
= 0, actctx
= 0;
536 if (process
!= NtCurrentProcess())
541 memset( &call
, 0, sizeof(call
) );
543 call
.create_thread
.type
= APC_CREATE_THREAD
;
544 call
.create_thread
.func
= wine_server_client_ptr( start
);
545 call
.create_thread
.arg
= wine_server_client_ptr( param
);
546 call
.create_thread
.reserve
= stack_reserve
;
547 call
.create_thread
.commit
= stack_commit
;
548 call
.create_thread
.suspend
= suspended
;
549 status
= server_queue_process_apc( process
, &call
, &result
);
550 if (status
!= STATUS_SUCCESS
) return status
;
552 if (result
.create_thread
.status
== STATUS_SUCCESS
)
554 if (id
) id
->UniqueThread
= ULongToHandle(result
.create_thread
.tid
);
555 if (handle_ptr
) *handle_ptr
= wine_server_ptr_handle( result
.create_thread
.handle
);
556 else NtClose( wine_server_ptr_handle( result
.create_thread
.handle
));
558 return result
.create_thread
.status
;
561 if (server_pipe( request_pipe
) == -1) return STATUS_TOO_MANY_OPENED_FILES
;
562 wine_server_send_fd( request_pipe
[0] );
564 SERVER_START_REQ( new_thread
)
566 req
->access
= THREAD_ALL_ACCESS
;
567 req
->attributes
= 0; /* FIXME */
568 req
->suspend
= suspended
;
569 req
->request_fd
= request_pipe
[0];
570 if (!(status
= wine_server_call( req
)))
572 handle
= wine_server_ptr_handle( reply
->handle
);
575 close( request_pipe
[0] );
581 close( request_pipe
[1] );
585 pthread_sigmask( SIG_BLOCK
, &server_block_set
, &sigset
);
587 if ((status
= signal_alloc_thread( &teb
))) goto error
;
589 teb
->Peb
= NtCurrentTeb()->Peb
;
590 teb
->ClientId
.UniqueProcess
= ULongToHandle(GetCurrentProcessId());
591 teb
->ClientId
.UniqueThread
= ULongToHandle(tid
);
592 teb
->StaticUnicodeString
.Buffer
= teb
->StaticUnicodeBuffer
;
593 teb
->StaticUnicodeString
.MaximumLength
= sizeof(teb
->StaticUnicodeBuffer
);
595 /* create default activation context frame for new thread */
596 RtlGetActiveActivationContext(&actctx
);
599 RTL_ACTIVATION_CONTEXT_STACK_FRAME
*frame
;
601 frame
= RtlAllocateHeap(GetProcessHeap(), 0, sizeof(*frame
));
602 frame
->Previous
= NULL
;
603 frame
->ActivationContext
= actctx
;
605 teb
->ActivationContextStack
.ActiveFrame
= frame
;
608 info
= (struct startup_info
*)(teb
+ 1);
610 info
->entry_point
= start
;
611 info
->entry_arg
= param
;
613 if ((status
= virtual_alloc_thread_stack( teb
, stack_reserve
, stack_commit
, PTHREAD_STACK_MIN
)))
616 thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
617 thread_data
->request_fd
= request_pipe
[1];
618 thread_data
->reply_fd
= -1;
619 thread_data
->wait_fd
[0] = -1;
620 thread_data
->wait_fd
[1] = -1;
621 thread_data
->start_stack
= (char *)teb
->Tib
.StackBase
;
623 pthread_attr_init( &attr
);
624 pthread_attr_setstack( &attr
, teb
->DeallocationStack
,
625 (char *)teb
->Tib
.StackBase
+ PTHREAD_STACK_MIN
- (char *)teb
->DeallocationStack
);
626 pthread_attr_setscope( &attr
, PTHREAD_SCOPE_SYSTEM
); /* force creating a kernel thread */
627 interlocked_xchg_add( &nb_threads
, 1 );
628 if (pthread_create( &pthread_id
, &attr
, (void * (*)(void *))start_thread
, info
))
630 interlocked_xchg_add( &nb_threads
, -1 );
631 pthread_attr_destroy( &attr
);
632 status
= STATUS_NO_MEMORY
;
635 pthread_attr_destroy( &attr
);
636 pthread_sigmask( SIG_SETMASK
, &sigset
, NULL
);
638 if (id
) id
->UniqueThread
= ULongToHandle(tid
);
639 if (handle_ptr
) *handle_ptr
= handle
;
640 else NtClose( handle
);
642 return STATUS_SUCCESS
;
645 if (teb
) free_thread_data( teb
);
646 if (handle
) NtClose( handle
);
647 pthread_sigmask( SIG_SETMASK
, &sigset
, NULL
);
648 close( request_pipe
[1] );
653 /******************************************************************************
654 * RtlGetNtGlobalFlags (NTDLL.@)
656 ULONG WINAPI
RtlGetNtGlobalFlags(void)
658 if (!peb
) return 0; /* init not done yet */
659 return peb
->NtGlobalFlag
;
663 /***********************************************************************
664 * NtOpenThread (NTDLL.@)
665 * ZwOpenThread (NTDLL.@)
667 NTSTATUS WINAPI
NtOpenThread( HANDLE
*handle
, ACCESS_MASK access
,
668 const OBJECT_ATTRIBUTES
*attr
, const CLIENT_ID
*id
)
672 SERVER_START_REQ( open_thread
)
674 req
->tid
= HandleToULong(id
->UniqueThread
);
675 req
->access
= access
;
676 req
->attributes
= attr
? attr
->Attributes
: 0;
677 ret
= wine_server_call( req
);
678 *handle
= wine_server_ptr_handle( reply
->handle
);
685 /******************************************************************************
686 * NtSuspendThread (NTDLL.@)
687 * ZwSuspendThread (NTDLL.@)
689 NTSTATUS WINAPI
NtSuspendThread( HANDLE handle
, PULONG count
)
693 SERVER_START_REQ( suspend_thread
)
695 req
->handle
= wine_server_obj_handle( handle
);
696 if (!(ret
= wine_server_call( req
)))
698 if (count
) *count
= reply
->count
;
706 /******************************************************************************
707 * NtResumeThread (NTDLL.@)
708 * ZwResumeThread (NTDLL.@)
710 NTSTATUS WINAPI
NtResumeThread( HANDLE handle
, PULONG count
)
714 SERVER_START_REQ( resume_thread
)
716 req
->handle
= wine_server_obj_handle( handle
);
717 if (!(ret
= wine_server_call( req
)))
719 if (count
) *count
= reply
->count
;
727 /******************************************************************************
728 * NtAlertResumeThread (NTDLL.@)
729 * ZwAlertResumeThread (NTDLL.@)
731 NTSTATUS WINAPI
NtAlertResumeThread( HANDLE handle
, PULONG count
)
733 FIXME( "stub: should alert thread %p\n", handle
);
734 return NtResumeThread( handle
, count
);
738 /******************************************************************************
739 * NtAlertThread (NTDLL.@)
740 * ZwAlertThread (NTDLL.@)
742 NTSTATUS WINAPI
NtAlertThread( HANDLE handle
)
744 FIXME( "stub: %p\n", handle
);
745 return STATUS_NOT_IMPLEMENTED
;
749 /******************************************************************************
750 * NtTerminateThread (NTDLL.@)
751 * ZwTerminateThread (NTDLL.@)
753 NTSTATUS WINAPI
NtTerminateThread( HANDLE handle
, LONG exit_code
)
758 SERVER_START_REQ( terminate_thread
)
760 req
->handle
= wine_server_obj_handle( handle
);
761 req
->exit_code
= exit_code
;
762 ret
= wine_server_call( req
);
763 self
= !ret
&& reply
->self
;
767 if (self
) abort_thread( exit_code
);
772 /******************************************************************************
773 * NtQueueApcThread (NTDLL.@)
775 NTSTATUS WINAPI
NtQueueApcThread( HANDLE handle
, PNTAPCFUNC func
, ULONG_PTR arg1
,
776 ULONG_PTR arg2
, ULONG_PTR arg3
)
779 SERVER_START_REQ( queue_apc
)
781 req
->handle
= wine_server_obj_handle( handle
);
784 req
->call
.type
= APC_USER
;
785 req
->call
.user
.func
= wine_server_client_ptr( func
);
786 req
->call
.user
.args
[0] = arg1
;
787 req
->call
.user
.args
[1] = arg2
;
788 req
->call
.user
.args
[2] = arg3
;
790 else req
->call
.type
= APC_NONE
; /* wake up only */
791 ret
= wine_server_call( req
);
798 /***********************************************************************
801 NTSTATUS
set_thread_context( HANDLE handle
, const CONTEXT
*context
, BOOL
*self
)
805 context_t server_context
;
807 context_to_server( &server_context
, context
);
809 SERVER_START_REQ( set_thread_context
)
811 req
->handle
= wine_server_obj_handle( handle
);
813 wine_server_add_data( req
, &server_context
, sizeof(server_context
) );
814 ret
= wine_server_call( req
);
819 if (ret
== STATUS_PENDING
)
821 for (i
= 0; i
< 100; i
++)
823 SERVER_START_REQ( set_thread_context
)
825 req
->handle
= wine_server_obj_handle( handle
);
827 wine_server_add_data( req
, &server_context
, sizeof(server_context
) );
828 ret
= wine_server_call( req
);
831 if (ret
== STATUS_PENDING
)
833 LARGE_INTEGER timeout
;
834 timeout
.QuadPart
= -10000;
835 NtDelayExecution( FALSE
, &timeout
);
839 NtResumeThread( handle
, &dummy
);
840 if (ret
== STATUS_PENDING
) ret
= STATUS_ACCESS_DENIED
;
847 /* convert CPU-specific flags to generic server flags */
848 static inline unsigned int get_server_context_flags( DWORD flags
)
850 unsigned int ret
= 0;
852 flags
&= 0x3f; /* mask CPU id flags */
853 if (flags
& CONTEXT_CONTROL
) ret
|= SERVER_CTX_CONTROL
;
854 if (flags
& CONTEXT_INTEGER
) ret
|= SERVER_CTX_INTEGER
;
855 #ifdef CONTEXT_SEGMENTS
856 if (flags
& CONTEXT_SEGMENTS
) ret
|= SERVER_CTX_SEGMENTS
;
858 #ifdef CONTEXT_FLOATING_POINT
859 if (flags
& CONTEXT_FLOATING_POINT
) ret
|= SERVER_CTX_FLOATING_POINT
;
861 #ifdef CONTEXT_DEBUG_REGISTERS
862 if (flags
& CONTEXT_DEBUG_REGISTERS
) ret
|= SERVER_CTX_DEBUG_REGISTERS
;
864 #ifdef CONTEXT_EXTENDED_REGISTERS
865 if (flags
& CONTEXT_EXTENDED_REGISTERS
) ret
|= SERVER_CTX_EXTENDED_REGISTERS
;
870 /***********************************************************************
873 NTSTATUS
get_thread_context( HANDLE handle
, CONTEXT
*context
, BOOL
*self
)
877 unsigned int server_flags
= get_server_context_flags( context
->ContextFlags
);
878 context_t server_context
;
880 SERVER_START_REQ( get_thread_context
)
882 req
->handle
= wine_server_obj_handle( handle
);
883 req
->flags
= server_flags
;
885 wine_server_set_reply( req
, &server_context
, sizeof(server_context
) );
886 ret
= wine_server_call( req
);
891 if (ret
== STATUS_PENDING
)
893 for (i
= 0; i
< 100; i
++)
895 SERVER_START_REQ( get_thread_context
)
897 req
->handle
= wine_server_obj_handle( handle
);
898 req
->flags
= server_flags
;
900 wine_server_set_reply( req
, &server_context
, sizeof(server_context
) );
901 ret
= wine_server_call( req
);
904 if (ret
== STATUS_PENDING
)
906 LARGE_INTEGER timeout
;
907 timeout
.QuadPart
= -10000;
908 NtDelayExecution( FALSE
, &timeout
);
912 NtResumeThread( handle
, &dummy
);
913 if (ret
== STATUS_PENDING
) ret
= STATUS_ACCESS_DENIED
;
915 if (!ret
) ret
= context_from_server( context
, &server_context
);
920 /******************************************************************************
921 * NtQueryInformationThread (NTDLL.@)
922 * ZwQueryInformationThread (NTDLL.@)
924 NTSTATUS WINAPI
NtQueryInformationThread( HANDLE handle
, THREADINFOCLASS
class,
925 void *data
, ULONG length
, ULONG
*ret_len
)
931 case ThreadBasicInformation
:
933 THREAD_BASIC_INFORMATION info
;
934 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
936 SERVER_START_REQ( get_thread_info
)
938 req
->handle
= wine_server_obj_handle( handle
);
940 if (!(status
= wine_server_call( req
)))
942 info
.ExitStatus
= reply
->exit_code
;
943 info
.TebBaseAddress
= wine_server_get_ptr( reply
->teb
);
944 info
.ClientId
.UniqueProcess
= ULongToHandle(reply
->pid
);
945 info
.ClientId
.UniqueThread
= ULongToHandle(reply
->tid
);
946 info
.AffinityMask
= reply
->affinity
& affinity_mask
;
947 info
.Priority
= reply
->priority
;
948 info
.BasePriority
= reply
->priority
; /* FIXME */
952 if (status
== STATUS_SUCCESS
)
954 if (data
) memcpy( data
, &info
, min( length
, sizeof(info
) ));
955 if (ret_len
) *ret_len
= min( length
, sizeof(info
) );
959 case ThreadAffinityMask
:
961 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
962 ULONG_PTR affinity
= 0;
964 SERVER_START_REQ( get_thread_info
)
966 req
->handle
= wine_server_obj_handle( handle
);
968 if (!(status
= wine_server_call( req
)))
969 affinity
= reply
->affinity
& affinity_mask
;
972 if (status
== STATUS_SUCCESS
)
974 if (data
) memcpy( data
, &affinity
, min( length
, sizeof(affinity
) ));
975 if (ret_len
) *ret_len
= min( length
, sizeof(affinity
) );
981 KERNEL_USER_TIMES kusrt
;
983 SERVER_START_REQ( get_thread_times
)
985 req
->handle
= wine_server_obj_handle( handle
);
986 status
= wine_server_call( req
);
987 if (status
== STATUS_SUCCESS
)
989 kusrt
.CreateTime
.QuadPart
= reply
->creation_time
;
990 kusrt
.ExitTime
.QuadPart
= reply
->exit_time
;
994 if (status
== STATUS_SUCCESS
)
996 /* We call times(2) for kernel time or user time */
997 /* We can only (portably) do this for the current thread */
998 if (handle
== GetCurrentThread())
1000 struct tms time_buf
;
1001 long clocks_per_sec
= sysconf(_SC_CLK_TCK
);
1004 kusrt
.KernelTime
.QuadPart
= (ULONGLONG
)time_buf
.tms_stime
* 10000000 / clocks_per_sec
;
1005 kusrt
.UserTime
.QuadPart
= (ULONGLONG
)time_buf
.tms_utime
* 10000000 / clocks_per_sec
;
1009 static BOOL reported
= FALSE
;
1011 kusrt
.KernelTime
.QuadPart
= 0;
1012 kusrt
.UserTime
.QuadPart
= 0;
1014 TRACE("Cannot get kerneltime or usertime of other threads\n");
1017 FIXME("Cannot get kerneltime or usertime of other threads\n");
1021 if (data
) memcpy( data
, &kusrt
, min( length
, sizeof(kusrt
) ));
1022 if (ret_len
) *ret_len
= min( length
, sizeof(kusrt
) );
1026 case ThreadDescriptorTableEntry
:
1029 THREAD_DESCRIPTOR_INFORMATION
* tdi
= data
;
1030 if (length
< sizeof(*tdi
))
1031 status
= STATUS_INFO_LENGTH_MISMATCH
;
1032 else if (!(tdi
->Selector
& 4)) /* GDT selector */
1034 unsigned sel
= LOWORD(tdi
->Selector
) & ~3; /* ignore RPL */
1035 status
= STATUS_SUCCESS
;
1036 if (!sel
) /* null selector */
1037 memset( &tdi
->Entry
, 0, sizeof(tdi
->Entry
) );
1040 tdi
->Entry
.BaseLow
= 0;
1041 tdi
->Entry
.HighWord
.Bits
.BaseMid
= 0;
1042 tdi
->Entry
.HighWord
.Bits
.BaseHi
= 0;
1043 tdi
->Entry
.LimitLow
= 0xffff;
1044 tdi
->Entry
.HighWord
.Bits
.LimitHi
= 0xf;
1045 tdi
->Entry
.HighWord
.Bits
.Dpl
= 3;
1046 tdi
->Entry
.HighWord
.Bits
.Sys
= 0;
1047 tdi
->Entry
.HighWord
.Bits
.Pres
= 1;
1048 tdi
->Entry
.HighWord
.Bits
.Granularity
= 1;
1049 tdi
->Entry
.HighWord
.Bits
.Default_Big
= 1;
1050 tdi
->Entry
.HighWord
.Bits
.Type
= 0x12;
1051 tdi
->Entry
.HighWord
.Bits
.Reserved_0
= 0;
1052 /* it has to be one of the system GDT selectors */
1053 if (sel
!= (wine_get_ds() & ~3) && sel
!= (wine_get_ss() & ~3))
1055 if (sel
== (wine_get_cs() & ~3))
1056 tdi
->Entry
.HighWord
.Bits
.Type
|= 8; /* code segment */
1057 else if (sel
== (wine_get_fs() & ~3))
1059 ULONG_PTR fs_base
= (ULONG_PTR
)NtCurrentTeb();
1060 tdi
->Entry
.BaseLow
= fs_base
& 0xffff;
1061 tdi
->Entry
.HighWord
.Bits
.BaseMid
= (fs_base
>> 16) & 0xff;
1062 tdi
->Entry
.HighWord
.Bits
.BaseHi
= (fs_base
>> 24) & 0xff;
1063 tdi
->Entry
.LimitLow
= 0x0fff;
1064 tdi
->Entry
.HighWord
.Bits
.LimitHi
= 0;
1065 tdi
->Entry
.HighWord
.Bits
.Granularity
= 0;
1067 else status
= STATUS_ACCESS_DENIED
;
1073 SERVER_START_REQ( get_selector_entry
)
1075 req
->handle
= wine_server_obj_handle( handle
);
1076 req
->entry
= LOWORD(tdi
->Selector
) >> 3;
1077 status
= wine_server_call( req
);
1080 if (!(reply
->flags
& WINE_LDT_FLAGS_ALLOCATED
))
1081 status
= STATUS_ACCESS_VIOLATION
;
1084 wine_ldt_set_base ( &tdi
->Entry
, (void *)reply
->base
);
1085 wine_ldt_set_limit( &tdi
->Entry
, reply
->limit
);
1086 wine_ldt_set_flags( &tdi
->Entry
, reply
->flags
);
1092 if (status
== STATUS_SUCCESS
&& ret_len
)
1093 /* yes, that's a bit strange, but it's the way it is */
1094 *ret_len
= sizeof(LDT_ENTRY
);
1096 status
= STATUS_NOT_IMPLEMENTED
;
1100 case ThreadAmILastThread
:
1102 SERVER_START_REQ(get_thread_info
)
1104 req
->handle
= wine_server_obj_handle( handle
);
1106 status
= wine_server_call( req
);
1107 if (status
== STATUS_SUCCESS
)
1109 BOOLEAN last
= reply
->last
;
1110 if (data
) memcpy( data
, &last
, min( length
, sizeof(last
) ));
1111 if (ret_len
) *ret_len
= min( length
, sizeof(last
) );
1117 case ThreadQuerySetWin32StartAddress
:
1119 SERVER_START_REQ( get_thread_info
)
1121 req
->handle
= wine_server_obj_handle( handle
);
1123 status
= wine_server_call( req
);
1124 if (status
== STATUS_SUCCESS
)
1126 PRTL_THREAD_START_ROUTINE entry
= wine_server_get_ptr( reply
->entry_point
);
1127 if (data
) memcpy( data
, &entry
, min( length
, sizeof(entry
) ) );
1128 if (ret_len
) *ret_len
= min( length
, sizeof(entry
) );
1134 case ThreadGroupInformation
:
1136 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
1137 GROUP_AFFINITY affinity
;
1139 memset(&affinity
, 0, sizeof(affinity
));
1140 affinity
.Group
= 0; /* Wine only supports max 64 processors */
1142 SERVER_START_REQ( get_thread_info
)
1144 req
->handle
= wine_server_obj_handle( handle
);
1146 if (!(status
= wine_server_call( req
)))
1147 affinity
.Mask
= reply
->affinity
& affinity_mask
;
1150 if (status
== STATUS_SUCCESS
)
1152 if (data
) memcpy( data
, &affinity
, min( length
, sizeof(affinity
) ));
1153 if (ret_len
) *ret_len
= min( length
, sizeof(affinity
) );
1157 case ThreadIsIoPending
:
1158 FIXME( "ThreadIsIoPending info class not supported yet\n" );
1159 if (length
!= sizeof(BOOL
)) return STATUS_INFO_LENGTH_MISMATCH
;
1160 if (!data
) return STATUS_ACCESS_DENIED
;
1162 *(BOOL
*)data
= FALSE
;
1163 if (ret_len
) *ret_len
= sizeof(BOOL
);
1164 return STATUS_SUCCESS
;
1165 case ThreadPriority
:
1166 case ThreadBasePriority
:
1167 case ThreadImpersonationToken
:
1168 case ThreadEnableAlignmentFaultFixup
:
1169 case ThreadEventPair_Reusable
:
1170 case ThreadZeroTlsCell
:
1171 case ThreadPerformanceCount
:
1172 case ThreadIdealProcessor
:
1173 case ThreadPriorityBoost
:
1174 case ThreadSetTlsArrayAddress
:
1176 FIXME( "info class %d not supported yet\n", class );
1177 return STATUS_NOT_IMPLEMENTED
;
1182 /******************************************************************************
1183 * NtSetInformationThread (NTDLL.@)
1184 * ZwSetInformationThread (NTDLL.@)
1186 NTSTATUS WINAPI
NtSetInformationThread( HANDLE handle
, THREADINFOCLASS
class,
1187 LPCVOID data
, ULONG length
)
1192 case ThreadZeroTlsCell
:
1193 if (handle
== GetCurrentThread())
1198 if (length
!= sizeof(DWORD
)) return STATUS_INVALID_PARAMETER
;
1199 index
= *(const DWORD
*)data
;
1200 if (index
< TLS_MINIMUM_AVAILABLE
)
1202 RtlAcquirePebLock();
1203 for (entry
= tls_links
.Flink
; entry
!= &tls_links
; entry
= entry
->Flink
)
1205 TEB
*teb
= CONTAINING_RECORD(entry
, TEB
, TlsLinks
);
1206 teb
->TlsSlots
[index
] = 0;
1208 RtlReleasePebLock();
1212 index
-= TLS_MINIMUM_AVAILABLE
;
1213 if (index
>= 8 * sizeof(NtCurrentTeb()->Peb
->TlsExpansionBitmapBits
))
1214 return STATUS_INVALID_PARAMETER
;
1215 RtlAcquirePebLock();
1216 for (entry
= tls_links
.Flink
; entry
!= &tls_links
; entry
= entry
->Flink
)
1218 TEB
*teb
= CONTAINING_RECORD(entry
, TEB
, TlsLinks
);
1219 if (teb
->TlsExpansionSlots
) teb
->TlsExpansionSlots
[index
] = 0;
1221 RtlReleasePebLock();
1223 return STATUS_SUCCESS
;
1225 FIXME( "ZeroTlsCell not supported on other threads\n" );
1226 return STATUS_NOT_IMPLEMENTED
;
1228 case ThreadImpersonationToken
:
1230 const HANDLE
*phToken
= data
;
1231 if (length
!= sizeof(HANDLE
)) return STATUS_INVALID_PARAMETER
;
1232 TRACE("Setting ThreadImpersonationToken handle to %p\n", *phToken
);
1233 SERVER_START_REQ( set_thread_info
)
1235 req
->handle
= wine_server_obj_handle( handle
);
1236 req
->token
= wine_server_obj_handle( *phToken
);
1237 req
->mask
= SET_THREAD_INFO_TOKEN
;
1238 status
= wine_server_call( req
);
1243 case ThreadBasePriority
:
1245 const DWORD
*pprio
= data
;
1246 if (length
!= sizeof(DWORD
)) return STATUS_INVALID_PARAMETER
;
1247 SERVER_START_REQ( set_thread_info
)
1249 req
->handle
= wine_server_obj_handle( handle
);
1250 req
->priority
= *pprio
;
1251 req
->mask
= SET_THREAD_INFO_PRIORITY
;
1252 status
= wine_server_call( req
);
1257 case ThreadAffinityMask
:
1259 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
1262 if (length
!= sizeof(ULONG_PTR
)) return STATUS_INVALID_PARAMETER
;
1263 req_aff
= *(const ULONG_PTR
*)data
;
1264 if ((ULONG
)req_aff
== ~0u) req_aff
= affinity_mask
;
1265 else if (req_aff
& ~affinity_mask
) return STATUS_INVALID_PARAMETER
;
1266 else if (!req_aff
) return STATUS_INVALID_PARAMETER
;
1267 SERVER_START_REQ( set_thread_info
)
1269 req
->handle
= wine_server_obj_handle( handle
);
1270 req
->affinity
= req_aff
;
1271 req
->mask
= SET_THREAD_INFO_AFFINITY
;
1272 status
= wine_server_call( req
);
1277 case ThreadHideFromDebugger
:
1278 /* pretend the call succeeded to satisfy some code protectors */
1279 return STATUS_SUCCESS
;
1280 case ThreadQuerySetWin32StartAddress
:
1282 const PRTL_THREAD_START_ROUTINE
*entry
= data
;
1283 if (length
!= sizeof(PRTL_THREAD_START_ROUTINE
)) return STATUS_INVALID_PARAMETER
;
1284 SERVER_START_REQ( set_thread_info
)
1286 req
->handle
= wine_server_obj_handle( handle
);
1287 req
->mask
= SET_THREAD_INFO_ENTRYPOINT
;
1288 req
->entry_point
= wine_server_client_ptr( *entry
);
1289 status
= wine_server_call( req
);
1294 case ThreadGroupInformation
:
1296 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
1297 const GROUP_AFFINITY
*req_aff
;
1299 if (length
!= sizeof(*req_aff
)) return STATUS_INVALID_PARAMETER
;
1300 if (!data
) return STATUS_ACCESS_VIOLATION
;
1303 /* On Windows the request fails if the reserved fields are set */
1304 if (req_aff
->Reserved
[0] || req_aff
->Reserved
[1] || req_aff
->Reserved
[2])
1305 return STATUS_INVALID_PARAMETER
;
1307 /* Wine only supports max 64 processors */
1308 if (req_aff
->Group
) return STATUS_INVALID_PARAMETER
;
1309 if (req_aff
->Mask
& ~affinity_mask
) return STATUS_INVALID_PARAMETER
;
1310 if (!req_aff
->Mask
) return STATUS_INVALID_PARAMETER
;
1311 SERVER_START_REQ( set_thread_info
)
1313 req
->handle
= wine_server_obj_handle( handle
);
1314 req
->affinity
= req_aff
->Mask
;
1315 req
->mask
= SET_THREAD_INFO_AFFINITY
;
1316 status
= wine_server_call( req
);
1321 case ThreadBasicInformation
:
1323 case ThreadPriority
:
1324 case ThreadDescriptorTableEntry
:
1325 case ThreadEnableAlignmentFaultFixup
:
1326 case ThreadEventPair_Reusable
:
1327 case ThreadPerformanceCount
:
1328 case ThreadAmILastThread
:
1329 case ThreadIdealProcessor
:
1330 case ThreadPriorityBoost
:
1331 case ThreadSetTlsArrayAddress
:
1332 case ThreadIsIoPending
:
1334 FIXME( "info class %d not supported yet\n", class );
1335 return STATUS_NOT_IMPLEMENTED
;
1339 /******************************************************************************
1340 * NtGetCurrentProcessorNumber (NTDLL.@)
1342 * Return the processor, on which the thread is running
1345 ULONG WINAPI
NtGetCurrentProcessorNumber(void)
1349 #if defined(__linux__) && defined(__NR_getcpu)
1350 int res
= syscall(__NR_getcpu
, &processor
, NULL
, NULL
);
1351 if (res
!= -1) return processor
;
1354 if (NtCurrentTeb()->Peb
->NumberOfProcessors
> 1)
1356 ULONG_PTR thread_mask
, processor_mask
;
1359 status
= NtQueryInformationThread(GetCurrentThread(), ThreadAffinityMask
,
1360 &thread_mask
, sizeof(thread_mask
), NULL
);
1361 if (status
== STATUS_SUCCESS
)
1363 for (processor
= 0; processor
< NtCurrentTeb()->Peb
->NumberOfProcessors
; processor
++)
1365 processor_mask
= (1 << processor
);
1366 if (thread_mask
& processor_mask
)
1368 if (thread_mask
!= processor_mask
)
1369 FIXME("need multicore support (%d processors)\n",
1370 NtCurrentTeb()->Peb
->NumberOfProcessors
);
1377 /* fallback to the first processor */