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"
26 #include <sys/types.h>
27 #ifdef HAVE_SYS_MMAN_H
30 #ifdef HAVE_SYS_TIMES_H
31 #include <sys/times.h>
33 #ifdef HAVE_SYS_SYSCALL_H
34 #include <sys/syscall.h>
37 #define NONAMELESSUNION
39 #define WIN32_NO_STATUS
41 #include "wine/library.h"
42 #include "wine/server.h"
43 #include "wine/debug.h"
44 #include "ntdll_misc.h"
46 #include "wine/exception.h"
48 WINE_DEFAULT_DEBUG_CHANNEL(thread
);
49 WINE_DECLARE_DEBUG_CHANNEL(relay
);
51 struct _KUSER_SHARED_DATA
*user_shared_data
= NULL
;
53 PUNHANDLED_EXCEPTION_FILTER unhandled_exception_filter
= NULL
;
55 /* info passed to a starting thread */
59 PRTL_THREAD_START_ROUTINE entry_point
;
64 static PEB_LDR_DATA ldr
;
65 static RTL_USER_PROCESS_PARAMETERS params
; /* default parameters if no parent */
66 static WCHAR current_dir
[MAX_NT_PATH_LENGTH
];
67 static RTL_BITMAP tls_bitmap
;
68 static RTL_BITMAP tls_expansion_bitmap
;
69 static RTL_BITMAP fls_bitmap
;
70 static int nb_threads
= 1;
72 /***********************************************************************
75 * Copy a unicode string from the startup info.
77 static inline void get_unicode_string( UNICODE_STRING
*str
, WCHAR
**src
, WCHAR
**dst
, UINT len
)
81 str
->MaximumLength
= len
+ sizeof(WCHAR
);
82 memcpy( str
->Buffer
, *src
, len
);
83 str
->Buffer
[len
/ sizeof(WCHAR
)] = 0;
84 *src
+= len
/ sizeof(WCHAR
);
85 *dst
+= len
/ sizeof(WCHAR
) + 1;
88 /***********************************************************************
89 * init_user_process_params
91 * Fill the RTL_USER_PROCESS_PARAMETERS structure from the server.
93 static NTSTATUS
init_user_process_params( SIZE_T data_size
, HANDLE
*exe_file
)
97 SIZE_T info_size
, env_size
, size
, alloc_size
;
100 RTL_USER_PROCESS_PARAMETERS
*params
= NULL
;
102 if (!(info
= RtlAllocateHeap( GetProcessHeap(), 0, data_size
)))
103 return STATUS_NO_MEMORY
;
105 SERVER_START_REQ( get_startup_info
)
107 wine_server_set_reply( req
, info
, data_size
);
108 if (!(status
= wine_server_call( req
)))
110 data_size
= wine_server_reply_size( reply
);
111 info_size
= reply
->info_size
;
112 env_size
= data_size
- info_size
;
113 *exe_file
= wine_server_ptr_handle( reply
->exe_file
);
117 if (status
!= STATUS_SUCCESS
) goto done
;
119 size
= sizeof(*params
);
120 size
+= MAX_NT_PATH_LENGTH
* sizeof(WCHAR
);
121 size
+= info
->dllpath_len
+ sizeof(WCHAR
);
122 size
+= info
->imagepath_len
+ sizeof(WCHAR
);
123 size
+= info
->cmdline_len
+ sizeof(WCHAR
);
124 size
+= info
->title_len
+ sizeof(WCHAR
);
125 size
+= info
->desktop_len
+ sizeof(WCHAR
);
126 size
+= info
->shellinfo_len
+ sizeof(WCHAR
);
127 size
+= info
->runtime_len
+ sizeof(WCHAR
);
130 status
= NtAllocateVirtualMemory( NtCurrentProcess(), (void **)¶ms
, 0, &alloc_size
,
131 MEM_COMMIT
, PAGE_READWRITE
);
132 if (status
!= STATUS_SUCCESS
) goto done
;
134 NtCurrentTeb()->Peb
->ProcessParameters
= params
;
135 params
->AllocationSize
= alloc_size
;
137 params
->Flags
= PROCESS_PARAMS_FLAG_NORMALIZED
;
138 params
->DebugFlags
= info
->debug_flags
;
139 params
->ConsoleHandle
= wine_server_ptr_handle( info
->console
);
140 params
->ConsoleFlags
= info
->console_flags
;
141 params
->hStdInput
= wine_server_ptr_handle( info
->hstdin
);
142 params
->hStdOutput
= wine_server_ptr_handle( info
->hstdout
);
143 params
->hStdError
= wine_server_ptr_handle( info
->hstderr
);
144 params
->dwX
= info
->x
;
145 params
->dwY
= info
->y
;
146 params
->dwXSize
= info
->xsize
;
147 params
->dwYSize
= info
->ysize
;
148 params
->dwXCountChars
= info
->xchars
;
149 params
->dwYCountChars
= info
->ychars
;
150 params
->dwFillAttribute
= info
->attribute
;
151 params
->dwFlags
= info
->flags
;
152 params
->wShowWindow
= info
->show
;
154 src
= (WCHAR
*)(info
+ 1);
155 dst
= (WCHAR
*)(params
+ 1);
157 /* current directory needs more space */
158 get_unicode_string( ¶ms
->CurrentDirectory
.DosPath
, &src
, &dst
, info
->curdir_len
);
159 params
->CurrentDirectory
.DosPath
.MaximumLength
= MAX_NT_PATH_LENGTH
* sizeof(WCHAR
);
160 dst
= (WCHAR
*)(params
+ 1) + MAX_NT_PATH_LENGTH
;
162 get_unicode_string( ¶ms
->DllPath
, &src
, &dst
, info
->dllpath_len
);
163 get_unicode_string( ¶ms
->ImagePathName
, &src
, &dst
, info
->imagepath_len
);
164 get_unicode_string( ¶ms
->CommandLine
, &src
, &dst
, info
->cmdline_len
);
165 get_unicode_string( ¶ms
->WindowTitle
, &src
, &dst
, info
->title_len
);
166 get_unicode_string( ¶ms
->Desktop
, &src
, &dst
, info
->desktop_len
);
167 get_unicode_string( ¶ms
->ShellInfo
, &src
, &dst
, info
->shellinfo_len
);
169 /* runtime info isn't a real string */
170 params
->RuntimeInfo
.Buffer
= dst
;
171 params
->RuntimeInfo
.Length
= params
->RuntimeInfo
.MaximumLength
= info
->runtime_len
;
172 memcpy( dst
, src
, info
->runtime_len
);
174 /* environment needs to be a separate memory block */
176 alloc_size
= max( 1, env_size
);
177 status
= NtAllocateVirtualMemory( NtCurrentProcess(), &ptr
, 0, &alloc_size
,
178 MEM_COMMIT
, PAGE_READWRITE
);
179 if (status
!= STATUS_SUCCESS
) goto done
;
180 memcpy( ptr
, (char *)info
+ info_size
, env_size
);
181 params
->Environment
= ptr
;
184 RtlFreeHeap( GetProcessHeap(), 0, info
);
196 #ifdef HAVE_SYS_AUXV_H
197 # include <sys/auxv.h>
199 #ifndef HAVE_GETAUXVAL
200 static unsigned long getauxval( unsigned long id
)
202 extern char **__wine_main_environ
;
203 char **ptr
= __wine_main_environ
;
208 for (auxv
= (ElfW(auxv_t
) *)ptr
; auxv
->a_type
; auxv
++)
209 if (auxv
->a_type
== id
) return auxv
->a_un
.a_val
;
214 static ULONG_PTR
get_image_addr(void)
216 ULONG_PTR size
, num
, phdr_addr
= getauxval( AT_PHDR
);
219 if (!phdr_addr
) return 0;
220 phdr
= (ElfW(Phdr
) *)phdr_addr
;
221 size
= getauxval( AT_PHENT
);
222 num
= getauxval( AT_PHNUM
);
225 if (phdr
->p_type
== PT_PHDR
) return phdr_addr
- phdr
->p_offset
;
226 phdr
= (ElfW(Phdr
) *)((char *)phdr
+ size
);
231 #elif defined(__APPLE__)
232 #include <mach/mach.h>
233 #include <mach/mach_error.h>
235 static ULONG_PTR
get_image_addr(void)
238 #ifdef TASK_DYLD_INFO
239 struct task_dyld_info dyld_info
;
240 mach_msg_type_number_t size
= TASK_DYLD_INFO_COUNT
;
241 if (task_info(mach_task_self(), TASK_DYLD_INFO
, (task_info_t
)&dyld_info
, &size
) == KERN_SUCCESS
)
242 ret
= dyld_info
.all_image_info_addr
;
248 static ULONG_PTR
get_image_addr(void)
254 /***********************************************************************
257 * Setup the initial thread.
259 * NOTES: The first allocated TEB on NT is at 0x7ffde000.
261 HANDLE
thread_init(void)
265 SIZE_T size
, info_size
;
269 struct ntdll_thread_data
*thread_data
;
270 static struct debug_info debug_info
; /* debug info for initial thread */
274 /* reserve space for shared user data */
276 addr
= (void *)0x7ffe0000;
278 status
= NtAllocateVirtualMemory( NtCurrentProcess(), &addr
, 0, &size
,
279 MEM_RESERVE
|MEM_COMMIT
, PAGE_READWRITE
);
282 MESSAGE( "wine: failed to map the shared user data: %08x\n", status
);
285 user_shared_data
= addr
;
287 /* allocate and initialize the PEB */
291 NtAllocateVirtualMemory( NtCurrentProcess(), &addr
, 1, &size
,
292 MEM_COMMIT
| MEM_TOP_DOWN
, PAGE_READWRITE
);
295 peb
->ProcessParameters
= ¶ms
;
296 peb
->TlsBitmap
= &tls_bitmap
;
297 peb
->TlsExpansionBitmap
= &tls_expansion_bitmap
;
298 peb
->FlsBitmap
= &fls_bitmap
;
300 peb
->OSMajorVersion
= 5;
301 peb
->OSMinorVersion
= 1;
302 peb
->OSBuildNumber
= 0xA28;
303 peb
->OSPlatformId
= VER_PLATFORM_WIN32_NT
;
304 params
.CurrentDirectory
.DosPath
.Buffer
= current_dir
;
305 params
.CurrentDirectory
.DosPath
.MaximumLength
= sizeof(current_dir
);
306 params
.wShowWindow
= 1; /* SW_SHOWNORMAL */
307 ldr
.Length
= sizeof(ldr
);
308 ldr
.Initialized
= TRUE
;
309 RtlInitializeBitMap( &tls_bitmap
, peb
->TlsBitmapBits
, sizeof(peb
->TlsBitmapBits
) * 8 );
310 RtlInitializeBitMap( &tls_expansion_bitmap
, peb
->TlsExpansionBitmapBits
,
311 sizeof(peb
->TlsExpansionBitmapBits
) * 8 );
312 RtlInitializeBitMap( &fls_bitmap
, peb
->FlsBitmapBits
, sizeof(peb
->FlsBitmapBits
) * 8 );
313 RtlSetBits( peb
->TlsBitmap
, 0, 1 ); /* TLS index 0 is reserved and should be initialized to NULL. */
314 RtlSetBits( peb
->FlsBitmap
, 0, 1 );
315 InitializeListHead( &peb
->FlsListHead
);
316 InitializeListHead( &ldr
.InLoadOrderModuleList
);
317 InitializeListHead( &ldr
.InMemoryOrderModuleList
);
318 InitializeListHead( &ldr
.InInitializationOrderModuleList
);
319 *(ULONG_PTR
*)peb
->Reserved
= get_image_addr();
322 * Starting with Vista, the first user to log on has session id 1.
323 * Session id 0 is for processes that don't interact with the user (like services).
327 /* allocate and initialize the initial TEB */
329 signal_alloc_thread( &teb
);
331 teb
->Tib
.StackBase
= (void *)~0UL;
332 teb
->StaticUnicodeString
.Buffer
= teb
->StaticUnicodeBuffer
;
333 teb
->StaticUnicodeString
.MaximumLength
= sizeof(teb
->StaticUnicodeBuffer
);
335 thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
336 thread_data
->request_fd
= -1;
337 thread_data
->reply_fd
= -1;
338 thread_data
->wait_fd
[0] = -1;
339 thread_data
->wait_fd
[1] = -1;
340 thread_data
->debug_info
= &debug_info
;
341 InsertHeadList( &tls_links
, &teb
->TlsLinks
);
343 signal_init_thread( teb
);
344 virtual_init_threading();
346 debug_info
.str_pos
= debug_info
.strings
;
347 debug_info
.out_pos
= debug_info
.output
;
350 /* setup the server connection */
351 server_init_process();
352 info_size
= server_init_thread( peb
);
354 /* create the process heap */
355 if (!(peb
->ProcessHeap
= RtlCreateHeap( HEAP_GROWABLE
, NULL
, 0, 0, NULL
, NULL
)))
357 MESSAGE( "wine: failed to create the process heap\n" );
361 /* allocate user parameters */
364 init_user_process_params( info_size
, &exe_file
);
368 if (isatty(0) || isatty(1) || isatty(2))
369 params
.ConsoleHandle
= (HANDLE
)2; /* see kernel32/kernel_private.h */
371 wine_server_fd_to_handle( 0, GENERIC_READ
|SYNCHRONIZE
, OBJ_INHERIT
, ¶ms
.hStdInput
);
373 wine_server_fd_to_handle( 1, GENERIC_WRITE
|SYNCHRONIZE
, OBJ_INHERIT
, ¶ms
.hStdOutput
);
375 wine_server_fd_to_handle( 2, GENERIC_WRITE
|SYNCHRONIZE
, OBJ_INHERIT
, ¶ms
.hStdError
);
378 /* initialize time values in user_shared_data */
379 NtQuerySystemTime( &now
);
380 user_shared_data
->SystemTime
.LowPart
= now
.u
.LowPart
;
381 user_shared_data
->SystemTime
.High1Time
= user_shared_data
->SystemTime
.High2Time
= now
.u
.HighPart
;
382 user_shared_data
->u
.TickCountQuad
= (now
.QuadPart
- server_start_time
) / 10000;
383 user_shared_data
->u
.TickCount
.High2Time
= user_shared_data
->u
.TickCount
.High1Time
;
384 user_shared_data
->TickCountLowDeprecated
= user_shared_data
->u
.TickCount
.LowPart
;
385 user_shared_data
->TickCountMultiplier
= 1 << 24;
389 NtCreateKeyedEvent( &keyed_event
, GENERIC_READ
| GENERIC_WRITE
, NULL
, 0 );
395 /***********************************************************************
398 void terminate_thread( int status
)
400 pthread_sigmask( SIG_BLOCK
, &server_block_set
, NULL
);
401 if (interlocked_xchg_add( &nb_threads
, -1 ) <= 1) _exit( status
);
403 close( ntdll_get_thread_data()->wait_fd
[0] );
404 close( ntdll_get_thread_data()->wait_fd
[1] );
405 close( ntdll_get_thread_data()->reply_fd
);
406 close( ntdll_get_thread_data()->request_fd
);
407 pthread_exit( UIntToPtr(status
) );
411 /***********************************************************************
414 void exit_thread( int status
)
416 static void *prev_teb
;
419 if (status
) /* send the exit code to the server (0 is already the default) */
421 SERVER_START_REQ( terminate_thread
)
423 req
->handle
= wine_server_obj_handle( GetCurrentThread() );
424 req
->exit_code
= status
;
425 wine_server_call( req
);
430 if (interlocked_xchg_add( &nb_threads
, -1 ) <= 1)
432 LdrShutdownProcess();
437 RtlFreeThreadActivationContextStack();
439 pthread_sigmask( SIG_BLOCK
, &server_block_set
, NULL
);
441 if ((teb
= interlocked_xchg_ptr( &prev_teb
, NtCurrentTeb() )))
443 struct ntdll_thread_data
*thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
445 if (thread_data
->pthread_id
)
447 pthread_join( thread_data
->pthread_id
, NULL
);
448 signal_free_thread( teb
);
452 close( ntdll_get_thread_data()->wait_fd
[0] );
453 close( ntdll_get_thread_data()->wait_fd
[1] );
454 close( ntdll_get_thread_data()->reply_fd
);
455 close( ntdll_get_thread_data()->request_fd
);
456 pthread_exit( UIntToPtr(status
) );
460 /***********************************************************************
463 * Startup routine for a newly created thread.
465 static void start_thread( struct startup_info
*info
)
467 TEB
*teb
= info
->teb
;
468 struct ntdll_thread_data
*thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
469 PRTL_THREAD_START_ROUTINE func
= info
->entry_point
;
470 void *arg
= info
->entry_arg
;
471 struct debug_info debug_info
;
473 debug_info
.str_pos
= debug_info
.strings
;
474 debug_info
.out_pos
= debug_info
.output
;
475 thread_data
->debug_info
= &debug_info
;
476 thread_data
->pthread_id
= pthread_self();
478 signal_init_thread( teb
);
479 server_init_thread( func
);
480 pthread_sigmask( SIG_UNBLOCK
, &server_block_set
, NULL
);
482 MODULE_DllThreadAttach( NULL
);
485 DPRINTF( "%04x:Starting thread proc %p (arg=%p)\n", GetCurrentThreadId(), func
, arg
);
487 call_thread_entry_point( (LPTHREAD_START_ROUTINE
)func
, arg
);
491 /***********************************************************************
492 * RtlCreateUserThread (NTDLL.@)
494 NTSTATUS WINAPI
RtlCreateUserThread( HANDLE process
, const SECURITY_DESCRIPTOR
*descr
,
495 BOOLEAN suspended
, PVOID stack_addr
,
496 SIZE_T stack_reserve
, SIZE_T stack_commit
,
497 PRTL_THREAD_START_ROUTINE start
, void *param
,
498 HANDLE
*handle_ptr
, CLIENT_ID
*id
)
501 pthread_t pthread_id
;
503 struct ntdll_thread_data
*thread_data
;
504 struct startup_info
*info
;
505 HANDLE handle
= 0, actctx
= 0;
511 if (process
!= NtCurrentProcess())
516 memset( &call
, 0, sizeof(call
) );
518 call
.create_thread
.type
= APC_CREATE_THREAD
;
519 call
.create_thread
.func
= wine_server_client_ptr( start
);
520 call
.create_thread
.arg
= wine_server_client_ptr( param
);
521 call
.create_thread
.reserve
= stack_reserve
;
522 call
.create_thread
.commit
= stack_commit
;
523 call
.create_thread
.suspend
= suspended
;
524 status
= server_queue_process_apc( process
, &call
, &result
);
525 if (status
!= STATUS_SUCCESS
) return status
;
527 if (result
.create_thread
.status
== STATUS_SUCCESS
)
529 if (id
) id
->UniqueThread
= ULongToHandle(result
.create_thread
.tid
);
530 if (handle_ptr
) *handle_ptr
= wine_server_ptr_handle( result
.create_thread
.handle
);
531 else NtClose( wine_server_ptr_handle( result
.create_thread
.handle
));
533 return result
.create_thread
.status
;
536 if (server_pipe( request_pipe
) == -1) return STATUS_TOO_MANY_OPENED_FILES
;
537 wine_server_send_fd( request_pipe
[0] );
539 SERVER_START_REQ( new_thread
)
541 req
->access
= THREAD_ALL_ACCESS
;
542 req
->attributes
= 0; /* FIXME */
543 req
->suspend
= suspended
;
544 req
->request_fd
= request_pipe
[0];
545 if (!(status
= wine_server_call( req
)))
547 handle
= wine_server_ptr_handle( reply
->handle
);
550 close( request_pipe
[0] );
556 close( request_pipe
[1] );
560 pthread_sigmask( SIG_BLOCK
, &server_block_set
, &sigset
);
562 if ((status
= signal_alloc_thread( &teb
))) goto error
;
564 teb
->Peb
= NtCurrentTeb()->Peb
;
565 teb
->ClientId
.UniqueProcess
= ULongToHandle(GetCurrentProcessId());
566 teb
->ClientId
.UniqueThread
= ULongToHandle(tid
);
567 teb
->StaticUnicodeString
.Buffer
= teb
->StaticUnicodeBuffer
;
568 teb
->StaticUnicodeString
.MaximumLength
= sizeof(teb
->StaticUnicodeBuffer
);
570 /* create default activation context frame for new thread */
571 RtlGetActiveActivationContext(&actctx
);
574 RTL_ACTIVATION_CONTEXT_STACK_FRAME
*frame
;
576 frame
= RtlAllocateHeap(GetProcessHeap(), 0, sizeof(*frame
));
577 frame
->Previous
= NULL
;
578 frame
->ActivationContext
= actctx
;
580 teb
->ActivationContextStack
.ActiveFrame
= frame
;
583 info
= (struct startup_info
*)(teb
+ 1);
585 info
->entry_point
= start
;
586 info
->entry_arg
= param
;
588 thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
589 thread_data
->request_fd
= request_pipe
[1];
590 thread_data
->reply_fd
= -1;
591 thread_data
->wait_fd
[0] = -1;
592 thread_data
->wait_fd
[1] = -1;
594 if ((status
= virtual_alloc_thread_stack( teb
, stack_reserve
, stack_commit
))) goto error
;
596 pthread_attr_init( &attr
);
597 pthread_attr_setstack( &attr
, teb
->DeallocationStack
,
598 (char *)teb
->Tib
.StackBase
- (char *)teb
->DeallocationStack
);
599 pthread_attr_setscope( &attr
, PTHREAD_SCOPE_SYSTEM
); /* force creating a kernel thread */
600 interlocked_xchg_add( &nb_threads
, 1 );
601 if (pthread_create( &pthread_id
, &attr
, (void * (*)(void *))start_thread
, info
))
603 interlocked_xchg_add( &nb_threads
, -1 );
604 pthread_attr_destroy( &attr
);
605 status
= STATUS_NO_MEMORY
;
608 pthread_attr_destroy( &attr
);
609 pthread_sigmask( SIG_SETMASK
, &sigset
, NULL
);
611 if (id
) id
->UniqueThread
= ULongToHandle(tid
);
612 if (handle_ptr
) *handle_ptr
= handle
;
613 else NtClose( handle
);
615 return STATUS_SUCCESS
;
618 if (teb
) signal_free_thread( teb
);
619 if (handle
) NtClose( handle
);
620 pthread_sigmask( SIG_SETMASK
, &sigset
, NULL
);
621 close( request_pipe
[1] );
626 /******************************************************************************
627 * RtlGetNtGlobalFlags (NTDLL.@)
629 ULONG WINAPI
RtlGetNtGlobalFlags(void)
631 if (!peb
) return 0; /* init not done yet */
632 return peb
->NtGlobalFlag
;
636 /***********************************************************************
637 * NtOpenThread (NTDLL.@)
638 * ZwOpenThread (NTDLL.@)
640 NTSTATUS WINAPI
NtOpenThread( HANDLE
*handle
, ACCESS_MASK access
,
641 const OBJECT_ATTRIBUTES
*attr
, const CLIENT_ID
*id
)
645 SERVER_START_REQ( open_thread
)
647 req
->tid
= HandleToULong(id
->UniqueThread
);
648 req
->access
= access
;
649 req
->attributes
= attr
? attr
->Attributes
: 0;
650 ret
= wine_server_call( req
);
651 *handle
= wine_server_ptr_handle( reply
->handle
);
658 /******************************************************************************
659 * NtSuspendThread (NTDLL.@)
660 * ZwSuspendThread (NTDLL.@)
662 NTSTATUS WINAPI
NtSuspendThread( HANDLE handle
, PULONG count
)
666 SERVER_START_REQ( suspend_thread
)
668 req
->handle
= wine_server_obj_handle( handle
);
669 if (!(ret
= wine_server_call( req
)))
671 if (count
) *count
= reply
->count
;
679 /******************************************************************************
680 * NtResumeThread (NTDLL.@)
681 * ZwResumeThread (NTDLL.@)
683 NTSTATUS WINAPI
NtResumeThread( HANDLE handle
, PULONG count
)
687 SERVER_START_REQ( resume_thread
)
689 req
->handle
= wine_server_obj_handle( handle
);
690 if (!(ret
= wine_server_call( req
)))
692 if (count
) *count
= reply
->count
;
700 /******************************************************************************
701 * NtAlertResumeThread (NTDLL.@)
702 * ZwAlertResumeThread (NTDLL.@)
704 NTSTATUS WINAPI
NtAlertResumeThread( HANDLE handle
, PULONG count
)
706 FIXME( "stub: should alert thread %p\n", handle
);
707 return NtResumeThread( handle
, count
);
711 /******************************************************************************
712 * NtAlertThread (NTDLL.@)
713 * ZwAlertThread (NTDLL.@)
715 NTSTATUS WINAPI
NtAlertThread( HANDLE handle
)
717 FIXME( "stub: %p\n", handle
);
718 return STATUS_NOT_IMPLEMENTED
;
722 /******************************************************************************
723 * NtTerminateThread (NTDLL.@)
724 * ZwTerminateThread (NTDLL.@)
726 NTSTATUS WINAPI
NtTerminateThread( HANDLE handle
, LONG exit_code
)
731 SERVER_START_REQ( terminate_thread
)
733 req
->handle
= wine_server_obj_handle( handle
);
734 req
->exit_code
= exit_code
;
735 ret
= wine_server_call( req
);
736 self
= !ret
&& reply
->self
;
740 if (self
) abort_thread( exit_code
);
745 /******************************************************************************
746 * NtQueueApcThread (NTDLL.@)
748 NTSTATUS WINAPI
NtQueueApcThread( HANDLE handle
, PNTAPCFUNC func
, ULONG_PTR arg1
,
749 ULONG_PTR arg2
, ULONG_PTR arg3
)
752 SERVER_START_REQ( queue_apc
)
754 req
->handle
= wine_server_obj_handle( handle
);
757 req
->call
.type
= APC_USER
;
758 req
->call
.user
.func
= wine_server_client_ptr( func
);
759 req
->call
.user
.args
[0] = arg1
;
760 req
->call
.user
.args
[1] = arg2
;
761 req
->call
.user
.args
[2] = arg3
;
763 else req
->call
.type
= APC_NONE
; /* wake up only */
764 ret
= wine_server_call( req
);
771 /***********************************************************************
774 NTSTATUS
set_thread_context( HANDLE handle
, const CONTEXT
*context
, BOOL
*self
)
778 context_t server_context
;
780 context_to_server( &server_context
, context
);
782 SERVER_START_REQ( set_thread_context
)
784 req
->handle
= wine_server_obj_handle( handle
);
786 wine_server_add_data( req
, &server_context
, sizeof(server_context
) );
787 ret
= wine_server_call( req
);
792 if (ret
== STATUS_PENDING
)
794 for (i
= 0; i
< 100; i
++)
796 SERVER_START_REQ( set_thread_context
)
798 req
->handle
= wine_server_obj_handle( handle
);
800 wine_server_add_data( req
, &server_context
, sizeof(server_context
) );
801 ret
= wine_server_call( req
);
804 if (ret
== STATUS_PENDING
)
806 LARGE_INTEGER timeout
;
807 timeout
.QuadPart
= -10000;
808 NtDelayExecution( FALSE
, &timeout
);
812 NtResumeThread( handle
, &dummy
);
813 if (ret
== STATUS_PENDING
) ret
= STATUS_ACCESS_DENIED
;
820 /* convert CPU-specific flags to generic server flags */
821 static inline unsigned int get_server_context_flags( DWORD flags
)
823 unsigned int ret
= 0;
825 flags
&= 0x3f; /* mask CPU id flags */
826 if (flags
& CONTEXT_CONTROL
) ret
|= SERVER_CTX_CONTROL
;
827 if (flags
& CONTEXT_INTEGER
) ret
|= SERVER_CTX_INTEGER
;
828 #ifdef CONTEXT_SEGMENTS
829 if (flags
& CONTEXT_SEGMENTS
) ret
|= SERVER_CTX_SEGMENTS
;
831 #ifdef CONTEXT_FLOATING_POINT
832 if (flags
& CONTEXT_FLOATING_POINT
) ret
|= SERVER_CTX_FLOATING_POINT
;
834 #ifdef CONTEXT_DEBUG_REGISTERS
835 if (flags
& CONTEXT_DEBUG_REGISTERS
) ret
|= SERVER_CTX_DEBUG_REGISTERS
;
837 #ifdef CONTEXT_EXTENDED_REGISTERS
838 if (flags
& CONTEXT_EXTENDED_REGISTERS
) ret
|= SERVER_CTX_EXTENDED_REGISTERS
;
843 /***********************************************************************
846 NTSTATUS
get_thread_context( HANDLE handle
, CONTEXT
*context
, BOOL
*self
)
850 unsigned int server_flags
= get_server_context_flags( context
->ContextFlags
);
851 context_t server_context
;
853 SERVER_START_REQ( get_thread_context
)
855 req
->handle
= wine_server_obj_handle( handle
);
856 req
->flags
= server_flags
;
858 wine_server_set_reply( req
, &server_context
, sizeof(server_context
) );
859 ret
= wine_server_call( req
);
864 if (ret
== STATUS_PENDING
)
866 for (i
= 0; i
< 100; i
++)
868 SERVER_START_REQ( get_thread_context
)
870 req
->handle
= wine_server_obj_handle( handle
);
871 req
->flags
= server_flags
;
873 wine_server_set_reply( req
, &server_context
, sizeof(server_context
) );
874 ret
= wine_server_call( req
);
877 if (ret
== STATUS_PENDING
)
879 LARGE_INTEGER timeout
;
880 timeout
.QuadPart
= -10000;
881 NtDelayExecution( FALSE
, &timeout
);
885 NtResumeThread( handle
, &dummy
);
886 if (ret
== STATUS_PENDING
) ret
= STATUS_ACCESS_DENIED
;
888 if (!ret
) ret
= context_from_server( context
, &server_context
);
893 /******************************************************************************
894 * NtQueryInformationThread (NTDLL.@)
895 * ZwQueryInformationThread (NTDLL.@)
897 NTSTATUS WINAPI
NtQueryInformationThread( HANDLE handle
, THREADINFOCLASS
class,
898 void *data
, ULONG length
, ULONG
*ret_len
)
904 case ThreadBasicInformation
:
906 THREAD_BASIC_INFORMATION info
;
907 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
909 SERVER_START_REQ( get_thread_info
)
911 req
->handle
= wine_server_obj_handle( handle
);
913 if (!(status
= wine_server_call( req
)))
915 info
.ExitStatus
= reply
->exit_code
;
916 info
.TebBaseAddress
= wine_server_get_ptr( reply
->teb
);
917 info
.ClientId
.UniqueProcess
= ULongToHandle(reply
->pid
);
918 info
.ClientId
.UniqueThread
= ULongToHandle(reply
->tid
);
919 info
.AffinityMask
= reply
->affinity
& affinity_mask
;
920 info
.Priority
= reply
->priority
;
921 info
.BasePriority
= reply
->priority
; /* FIXME */
925 if (status
== STATUS_SUCCESS
)
927 if (data
) memcpy( data
, &info
, min( length
, sizeof(info
) ));
928 if (ret_len
) *ret_len
= min( length
, sizeof(info
) );
932 case ThreadAffinityMask
:
934 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
935 ULONG_PTR affinity
= 0;
937 SERVER_START_REQ( get_thread_info
)
939 req
->handle
= wine_server_obj_handle( handle
);
941 if (!(status
= wine_server_call( req
)))
942 affinity
= reply
->affinity
& affinity_mask
;
945 if (status
== STATUS_SUCCESS
)
947 if (data
) memcpy( data
, &affinity
, min( length
, sizeof(affinity
) ));
948 if (ret_len
) *ret_len
= min( length
, sizeof(affinity
) );
954 KERNEL_USER_TIMES kusrt
;
956 SERVER_START_REQ( get_thread_times
)
958 req
->handle
= wine_server_obj_handle( handle
);
959 status
= wine_server_call( req
);
960 if (status
== STATUS_SUCCESS
)
962 kusrt
.CreateTime
.QuadPart
= reply
->creation_time
;
963 kusrt
.ExitTime
.QuadPart
= reply
->exit_time
;
967 if (status
== STATUS_SUCCESS
)
969 /* We call times(2) for kernel time or user time */
970 /* We can only (portably) do this for the current thread */
971 if (handle
== GetCurrentThread())
974 long clocks_per_sec
= sysconf(_SC_CLK_TCK
);
977 kusrt
.KernelTime
.QuadPart
= (ULONGLONG
)time_buf
.tms_stime
* 10000000 / clocks_per_sec
;
978 kusrt
.UserTime
.QuadPart
= (ULONGLONG
)time_buf
.tms_utime
* 10000000 / clocks_per_sec
;
982 static BOOL reported
= FALSE
;
984 kusrt
.KernelTime
.QuadPart
= 0;
985 kusrt
.UserTime
.QuadPart
= 0;
987 TRACE("Cannot get kerneltime or usertime of other threads\n");
990 FIXME("Cannot get kerneltime or usertime of other threads\n");
994 if (data
) memcpy( data
, &kusrt
, min( length
, sizeof(kusrt
) ));
995 if (ret_len
) *ret_len
= min( length
, sizeof(kusrt
) );
999 case ThreadDescriptorTableEntry
:
1002 THREAD_DESCRIPTOR_INFORMATION
* tdi
= data
;
1003 if (length
< sizeof(*tdi
))
1004 status
= STATUS_INFO_LENGTH_MISMATCH
;
1005 else if (!(tdi
->Selector
& 4)) /* GDT selector */
1007 unsigned sel
= LOWORD(tdi
->Selector
) & ~3; /* ignore RPL */
1008 status
= STATUS_SUCCESS
;
1009 if (!sel
) /* null selector */
1010 memset( &tdi
->Entry
, 0, sizeof(tdi
->Entry
) );
1013 tdi
->Entry
.BaseLow
= 0;
1014 tdi
->Entry
.HighWord
.Bits
.BaseMid
= 0;
1015 tdi
->Entry
.HighWord
.Bits
.BaseHi
= 0;
1016 tdi
->Entry
.LimitLow
= 0xffff;
1017 tdi
->Entry
.HighWord
.Bits
.LimitHi
= 0xf;
1018 tdi
->Entry
.HighWord
.Bits
.Dpl
= 3;
1019 tdi
->Entry
.HighWord
.Bits
.Sys
= 0;
1020 tdi
->Entry
.HighWord
.Bits
.Pres
= 1;
1021 tdi
->Entry
.HighWord
.Bits
.Granularity
= 1;
1022 tdi
->Entry
.HighWord
.Bits
.Default_Big
= 1;
1023 tdi
->Entry
.HighWord
.Bits
.Type
= 0x12;
1024 tdi
->Entry
.HighWord
.Bits
.Reserved_0
= 0;
1025 /* it has to be one of the system GDT selectors */
1026 if (sel
!= (wine_get_ds() & ~3) && sel
!= (wine_get_ss() & ~3))
1028 if (sel
== (wine_get_cs() & ~3))
1029 tdi
->Entry
.HighWord
.Bits
.Type
|= 8; /* code segment */
1030 else if (sel
== (wine_get_fs() & ~3))
1032 ULONG_PTR fs_base
= (ULONG_PTR
)NtCurrentTeb();
1033 tdi
->Entry
.BaseLow
= fs_base
& 0xffff;
1034 tdi
->Entry
.HighWord
.Bits
.BaseMid
= (fs_base
>> 16) & 0xff;
1035 tdi
->Entry
.HighWord
.Bits
.BaseHi
= (fs_base
>> 24) & 0xff;
1036 tdi
->Entry
.LimitLow
= 0x0fff;
1037 tdi
->Entry
.HighWord
.Bits
.LimitHi
= 0;
1038 tdi
->Entry
.HighWord
.Bits
.Granularity
= 0;
1040 else status
= STATUS_ACCESS_DENIED
;
1046 SERVER_START_REQ( get_selector_entry
)
1048 req
->handle
= wine_server_obj_handle( handle
);
1049 req
->entry
= LOWORD(tdi
->Selector
) >> 3;
1050 status
= wine_server_call( req
);
1053 if (!(reply
->flags
& WINE_LDT_FLAGS_ALLOCATED
))
1054 status
= STATUS_ACCESS_VIOLATION
;
1057 wine_ldt_set_base ( &tdi
->Entry
, (void *)reply
->base
);
1058 wine_ldt_set_limit( &tdi
->Entry
, reply
->limit
);
1059 wine_ldt_set_flags( &tdi
->Entry
, reply
->flags
);
1065 if (status
== STATUS_SUCCESS
&& ret_len
)
1066 /* yes, that's a bit strange, but it's the way it is */
1067 *ret_len
= sizeof(LDT_ENTRY
);
1069 status
= STATUS_NOT_IMPLEMENTED
;
1073 case ThreadAmILastThread
:
1075 SERVER_START_REQ(get_thread_info
)
1077 req
->handle
= wine_server_obj_handle( handle
);
1079 status
= wine_server_call( req
);
1080 if (status
== STATUS_SUCCESS
)
1082 BOOLEAN last
= reply
->last
;
1083 if (data
) memcpy( data
, &last
, min( length
, sizeof(last
) ));
1084 if (ret_len
) *ret_len
= min( length
, sizeof(last
) );
1090 case ThreadQuerySetWin32StartAddress
:
1092 SERVER_START_REQ( get_thread_info
)
1094 req
->handle
= wine_server_obj_handle( handle
);
1096 status
= wine_server_call( req
);
1097 if (status
== STATUS_SUCCESS
)
1099 PRTL_THREAD_START_ROUTINE entry
= wine_server_get_ptr( reply
->entry_point
);
1100 if (data
) memcpy( data
, &entry
, min( length
, sizeof(entry
) ) );
1101 if (ret_len
) *ret_len
= min( length
, sizeof(entry
) );
1107 case ThreadGroupInformation
:
1109 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
1110 GROUP_AFFINITY affinity
;
1112 memset(&affinity
, 0, sizeof(affinity
));
1113 affinity
.Group
= 0; /* Wine only supports max 64 processors */
1115 SERVER_START_REQ( get_thread_info
)
1117 req
->handle
= wine_server_obj_handle( handle
);
1119 if (!(status
= wine_server_call( req
)))
1120 affinity
.Mask
= reply
->affinity
& affinity_mask
;
1123 if (status
== STATUS_SUCCESS
)
1125 if (data
) memcpy( data
, &affinity
, min( length
, sizeof(affinity
) ));
1126 if (ret_len
) *ret_len
= min( length
, sizeof(affinity
) );
1130 case ThreadIsIoPending
:
1131 FIXME( "ThreadIsIoPending info class not supported yet\n" );
1132 if (length
!= sizeof(BOOL
)) return STATUS_INFO_LENGTH_MISMATCH
;
1133 if (!data
) return STATUS_ACCESS_DENIED
;
1135 *(BOOL
*)data
= FALSE
;
1136 if (ret_len
) *ret_len
= sizeof(BOOL
);
1137 return STATUS_SUCCESS
;
1138 case ThreadPriority
:
1139 case ThreadBasePriority
:
1140 case ThreadImpersonationToken
:
1141 case ThreadEnableAlignmentFaultFixup
:
1142 case ThreadEventPair_Reusable
:
1143 case ThreadZeroTlsCell
:
1144 case ThreadPerformanceCount
:
1145 case ThreadIdealProcessor
:
1146 case ThreadPriorityBoost
:
1147 case ThreadSetTlsArrayAddress
:
1149 FIXME( "info class %d not supported yet\n", class );
1150 return STATUS_NOT_IMPLEMENTED
;
1155 /******************************************************************************
1156 * NtSetInformationThread (NTDLL.@)
1157 * ZwSetInformationThread (NTDLL.@)
1159 NTSTATUS WINAPI
NtSetInformationThread( HANDLE handle
, THREADINFOCLASS
class,
1160 LPCVOID data
, ULONG length
)
1165 case ThreadZeroTlsCell
:
1166 if (handle
== GetCurrentThread())
1171 if (length
!= sizeof(DWORD
)) return STATUS_INVALID_PARAMETER
;
1172 index
= *(const DWORD
*)data
;
1173 if (index
< TLS_MINIMUM_AVAILABLE
)
1175 RtlAcquirePebLock();
1176 for (entry
= tls_links
.Flink
; entry
!= &tls_links
; entry
= entry
->Flink
)
1178 TEB
*teb
= CONTAINING_RECORD(entry
, TEB
, TlsLinks
);
1179 teb
->TlsSlots
[index
] = 0;
1181 RtlReleasePebLock();
1185 index
-= TLS_MINIMUM_AVAILABLE
;
1186 if (index
>= 8 * sizeof(NtCurrentTeb()->Peb
->TlsExpansionBitmapBits
))
1187 return STATUS_INVALID_PARAMETER
;
1188 RtlAcquirePebLock();
1189 for (entry
= tls_links
.Flink
; entry
!= &tls_links
; entry
= entry
->Flink
)
1191 TEB
*teb
= CONTAINING_RECORD(entry
, TEB
, TlsLinks
);
1192 if (teb
->TlsExpansionSlots
) teb
->TlsExpansionSlots
[index
] = 0;
1194 RtlReleasePebLock();
1196 return STATUS_SUCCESS
;
1198 FIXME( "ZeroTlsCell not supported on other threads\n" );
1199 return STATUS_NOT_IMPLEMENTED
;
1201 case ThreadImpersonationToken
:
1203 const HANDLE
*phToken
= data
;
1204 if (length
!= sizeof(HANDLE
)) return STATUS_INVALID_PARAMETER
;
1205 TRACE("Setting ThreadImpersonationToken handle to %p\n", *phToken
);
1206 SERVER_START_REQ( set_thread_info
)
1208 req
->handle
= wine_server_obj_handle( handle
);
1209 req
->token
= wine_server_obj_handle( *phToken
);
1210 req
->mask
= SET_THREAD_INFO_TOKEN
;
1211 status
= wine_server_call( req
);
1216 case ThreadBasePriority
:
1218 const DWORD
*pprio
= data
;
1219 if (length
!= sizeof(DWORD
)) return STATUS_INVALID_PARAMETER
;
1220 SERVER_START_REQ( set_thread_info
)
1222 req
->handle
= wine_server_obj_handle( handle
);
1223 req
->priority
= *pprio
;
1224 req
->mask
= SET_THREAD_INFO_PRIORITY
;
1225 status
= wine_server_call( req
);
1230 case ThreadAffinityMask
:
1232 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
1235 if (length
!= sizeof(ULONG_PTR
)) return STATUS_INVALID_PARAMETER
;
1236 req_aff
= *(const ULONG_PTR
*)data
;
1237 if ((ULONG
)req_aff
== ~0u) req_aff
= affinity_mask
;
1238 else if (req_aff
& ~affinity_mask
) return STATUS_INVALID_PARAMETER
;
1239 else if (!req_aff
) return STATUS_INVALID_PARAMETER
;
1240 SERVER_START_REQ( set_thread_info
)
1242 req
->handle
= wine_server_obj_handle( handle
);
1243 req
->affinity
= req_aff
;
1244 req
->mask
= SET_THREAD_INFO_AFFINITY
;
1245 status
= wine_server_call( req
);
1250 case ThreadHideFromDebugger
:
1251 /* pretend the call succeeded to satisfy some code protectors */
1252 return STATUS_SUCCESS
;
1253 case ThreadQuerySetWin32StartAddress
:
1255 const PRTL_THREAD_START_ROUTINE
*entry
= data
;
1256 if (length
!= sizeof(PRTL_THREAD_START_ROUTINE
)) return STATUS_INVALID_PARAMETER
;
1257 SERVER_START_REQ( set_thread_info
)
1259 req
->handle
= wine_server_obj_handle( handle
);
1260 req
->mask
= SET_THREAD_INFO_ENTRYPOINT
;
1261 req
->entry_point
= wine_server_client_ptr( *entry
);
1262 status
= wine_server_call( req
);
1267 case ThreadGroupInformation
:
1269 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
1270 const GROUP_AFFINITY
*req_aff
;
1272 if (length
!= sizeof(*req_aff
)) return STATUS_INVALID_PARAMETER
;
1273 if (!data
) return STATUS_ACCESS_VIOLATION
;
1276 /* On Windows the request fails if the reserved fields are set */
1277 if (req_aff
->Reserved
[0] || req_aff
->Reserved
[1] || req_aff
->Reserved
[2])
1278 return STATUS_INVALID_PARAMETER
;
1280 /* Wine only supports max 64 processors */
1281 if (req_aff
->Group
) return STATUS_INVALID_PARAMETER
;
1282 if (req_aff
->Mask
& ~affinity_mask
) return STATUS_INVALID_PARAMETER
;
1283 if (!req_aff
->Mask
) return STATUS_INVALID_PARAMETER
;
1284 SERVER_START_REQ( set_thread_info
)
1286 req
->handle
= wine_server_obj_handle( handle
);
1287 req
->affinity
= req_aff
->Mask
;
1288 req
->mask
= SET_THREAD_INFO_AFFINITY
;
1289 status
= wine_server_call( req
);
1294 case ThreadBasicInformation
:
1296 case ThreadPriority
:
1297 case ThreadDescriptorTableEntry
:
1298 case ThreadEnableAlignmentFaultFixup
:
1299 case ThreadEventPair_Reusable
:
1300 case ThreadPerformanceCount
:
1301 case ThreadAmILastThread
:
1302 case ThreadIdealProcessor
:
1303 case ThreadPriorityBoost
:
1304 case ThreadSetTlsArrayAddress
:
1305 case ThreadIsIoPending
:
1307 FIXME( "info class %d not supported yet\n", class );
1308 return STATUS_NOT_IMPLEMENTED
;
1312 /******************************************************************************
1313 * NtGetCurrentProcessorNumber (NTDLL.@)
1315 * Return the processor, on which the thread is running
1318 ULONG WINAPI
NtGetCurrentProcessorNumber(void)
1322 #if defined(__linux__) && defined(__NR_getcpu)
1323 int res
= syscall(__NR_getcpu
, &processor
, NULL
, NULL
);
1324 if (res
!= -1) return processor
;
1327 if (NtCurrentTeb()->Peb
->NumberOfProcessors
> 1)
1329 ULONG_PTR thread_mask
, processor_mask
;
1332 status
= NtQueryInformationThread(GetCurrentThread(), ThreadAffinityMask
,
1333 &thread_mask
, sizeof(thread_mask
), NULL
);
1334 if (status
== STATUS_SUCCESS
)
1336 for (processor
= 0; processor
< NtCurrentTeb()->Peb
->NumberOfProcessors
; processor
++)
1338 processor_mask
= (1 << processor
);
1339 if (thread_mask
& processor_mask
)
1341 if (thread_mask
!= processor_mask
)
1342 FIXME("need multicore support (%d processors)\n",
1343 NtCurrentTeb()->Peb
->NumberOfProcessors
);
1350 /* fallback to the first processor */