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
;
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
;
352 InsertHeadList( &tls_links
, &teb
->TlsLinks
);
354 signal_init_thread( teb
);
355 virtual_init_threading();
357 debug_info
.str_pos
= debug_info
.strings
;
358 debug_info
.out_pos
= debug_info
.output
;
361 /* setup the server connection */
362 server_init_process();
363 info_size
= server_init_thread( peb
);
365 /* create the process heap */
366 if (!(peb
->ProcessHeap
= RtlCreateHeap( HEAP_GROWABLE
, NULL
, 0, 0, NULL
, NULL
)))
368 MESSAGE( "wine: failed to create the process heap\n" );
372 /* allocate user parameters */
375 init_user_process_params( info_size
, &exe_file
);
379 if (isatty(0) || isatty(1) || isatty(2))
380 params
.ConsoleHandle
= (HANDLE
)2; /* see kernel32/kernel_private.h */
382 wine_server_fd_to_handle( 0, GENERIC_READ
|SYNCHRONIZE
, OBJ_INHERIT
, ¶ms
.hStdInput
);
384 wine_server_fd_to_handle( 1, GENERIC_WRITE
|SYNCHRONIZE
, OBJ_INHERIT
, ¶ms
.hStdOutput
);
386 wine_server_fd_to_handle( 2, GENERIC_WRITE
|SYNCHRONIZE
, OBJ_INHERIT
, ¶ms
.hStdError
);
389 /* initialize time values in user_shared_data */
390 NtQuerySystemTime( &now
);
391 user_shared_data
->SystemTime
.LowPart
= now
.u
.LowPart
;
392 user_shared_data
->SystemTime
.High1Time
= user_shared_data
->SystemTime
.High2Time
= now
.u
.HighPart
;
393 user_shared_data
->u
.TickCountQuad
= (now
.QuadPart
- server_start_time
) / 10000;
394 user_shared_data
->u
.TickCount
.High2Time
= user_shared_data
->u
.TickCount
.High1Time
;
395 user_shared_data
->TickCountLowDeprecated
= user_shared_data
->u
.TickCount
.LowPart
;
396 user_shared_data
->TickCountMultiplier
= 1 << 24;
400 NtCreateKeyedEvent( &keyed_event
, GENERIC_READ
| GENERIC_WRITE
, NULL
, 0 );
406 /***********************************************************************
409 void terminate_thread( int status
)
411 pthread_sigmask( SIG_BLOCK
, &server_block_set
, NULL
);
412 if (interlocked_xchg_add( &nb_threads
, -1 ) <= 1) _exit( status
);
414 close( ntdll_get_thread_data()->wait_fd
[0] );
415 close( ntdll_get_thread_data()->wait_fd
[1] );
416 close( ntdll_get_thread_data()->reply_fd
);
417 close( ntdll_get_thread_data()->request_fd
);
418 pthread_exit( UIntToPtr(status
) );
422 /***********************************************************************
425 void exit_thread( int status
)
427 static void *prev_teb
;
430 if (status
) /* send the exit code to the server (0 is already the default) */
432 SERVER_START_REQ( terminate_thread
)
434 req
->handle
= wine_server_obj_handle( GetCurrentThread() );
435 req
->exit_code
= status
;
436 wine_server_call( req
);
441 if (interlocked_xchg_add( &nb_threads
, -1 ) <= 1)
443 LdrShutdownProcess();
448 RtlFreeThreadActivationContextStack();
450 pthread_sigmask( SIG_BLOCK
, &server_block_set
, NULL
);
452 if ((teb
= interlocked_xchg_ptr( &prev_teb
, NtCurrentTeb() )))
454 struct ntdll_thread_data
*thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
456 if (thread_data
->pthread_id
)
458 pthread_join( thread_data
->pthread_id
, NULL
);
459 signal_free_thread( teb
);
463 close( ntdll_get_thread_data()->wait_fd
[0] );
464 close( ntdll_get_thread_data()->wait_fd
[1] );
465 close( ntdll_get_thread_data()->reply_fd
);
466 close( ntdll_get_thread_data()->request_fd
);
467 pthread_exit( UIntToPtr(status
) );
471 /***********************************************************************
474 * Startup routine for a newly created thread.
476 static void start_thread( struct startup_info
*info
)
478 TEB
*teb
= info
->teb
;
479 struct ntdll_thread_data
*thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
480 PRTL_THREAD_START_ROUTINE func
= info
->entry_point
;
481 void *arg
= info
->entry_arg
;
482 struct debug_info debug_info
;
484 debug_info
.str_pos
= debug_info
.strings
;
485 debug_info
.out_pos
= debug_info
.output
;
486 thread_data
->debug_info
= &debug_info
;
487 thread_data
->pthread_id
= pthread_self();
489 signal_init_thread( teb
);
490 server_init_thread( func
);
491 pthread_sigmask( SIG_UNBLOCK
, &server_block_set
, NULL
);
493 MODULE_DllThreadAttach( NULL
);
496 DPRINTF( "%04x:Starting thread proc %p (arg=%p)\n", GetCurrentThreadId(), func
, arg
);
498 call_thread_entry_point( (LPTHREAD_START_ROUTINE
)func
, arg
);
502 /***********************************************************************
503 * RtlCreateUserThread (NTDLL.@)
505 NTSTATUS WINAPI
RtlCreateUserThread( HANDLE process
, const SECURITY_DESCRIPTOR
*descr
,
506 BOOLEAN suspended
, PVOID stack_addr
,
507 SIZE_T stack_reserve
, SIZE_T stack_commit
,
508 PRTL_THREAD_START_ROUTINE start
, void *param
,
509 HANDLE
*handle_ptr
, CLIENT_ID
*id
)
512 pthread_t pthread_id
;
514 struct ntdll_thread_data
*thread_data
;
515 struct startup_info
*info
;
516 HANDLE handle
= 0, actctx
= 0;
522 if (process
!= NtCurrentProcess())
527 memset( &call
, 0, sizeof(call
) );
529 call
.create_thread
.type
= APC_CREATE_THREAD
;
530 call
.create_thread
.func
= wine_server_client_ptr( start
);
531 call
.create_thread
.arg
= wine_server_client_ptr( param
);
532 call
.create_thread
.reserve
= stack_reserve
;
533 call
.create_thread
.commit
= stack_commit
;
534 call
.create_thread
.suspend
= suspended
;
535 status
= server_queue_process_apc( process
, &call
, &result
);
536 if (status
!= STATUS_SUCCESS
) return status
;
538 if (result
.create_thread
.status
== STATUS_SUCCESS
)
540 if (id
) id
->UniqueThread
= ULongToHandle(result
.create_thread
.tid
);
541 if (handle_ptr
) *handle_ptr
= wine_server_ptr_handle( result
.create_thread
.handle
);
542 else NtClose( wine_server_ptr_handle( result
.create_thread
.handle
));
544 return result
.create_thread
.status
;
547 if (server_pipe( request_pipe
) == -1) return STATUS_TOO_MANY_OPENED_FILES
;
548 wine_server_send_fd( request_pipe
[0] );
550 SERVER_START_REQ( new_thread
)
552 req
->access
= THREAD_ALL_ACCESS
;
553 req
->attributes
= 0; /* FIXME */
554 req
->suspend
= suspended
;
555 req
->request_fd
= request_pipe
[0];
556 if (!(status
= wine_server_call( req
)))
558 handle
= wine_server_ptr_handle( reply
->handle
);
561 close( request_pipe
[0] );
567 close( request_pipe
[1] );
571 pthread_sigmask( SIG_BLOCK
, &server_block_set
, &sigset
);
573 if ((status
= signal_alloc_thread( &teb
))) goto error
;
575 teb
->Peb
= NtCurrentTeb()->Peb
;
576 teb
->ClientId
.UniqueProcess
= ULongToHandle(GetCurrentProcessId());
577 teb
->ClientId
.UniqueThread
= ULongToHandle(tid
);
578 teb
->StaticUnicodeString
.Buffer
= teb
->StaticUnicodeBuffer
;
579 teb
->StaticUnicodeString
.MaximumLength
= sizeof(teb
->StaticUnicodeBuffer
);
581 /* create default activation context frame for new thread */
582 RtlGetActiveActivationContext(&actctx
);
585 RTL_ACTIVATION_CONTEXT_STACK_FRAME
*frame
;
587 frame
= RtlAllocateHeap(GetProcessHeap(), 0, sizeof(*frame
));
588 frame
->Previous
= NULL
;
589 frame
->ActivationContext
= actctx
;
591 teb
->ActivationContextStack
.ActiveFrame
= frame
;
594 info
= (struct startup_info
*)(teb
+ 1);
596 info
->entry_point
= start
;
597 info
->entry_arg
= param
;
599 thread_data
= (struct ntdll_thread_data
*)&teb
->GdiTebBatch
;
600 thread_data
->request_fd
= request_pipe
[1];
601 thread_data
->reply_fd
= -1;
602 thread_data
->wait_fd
[0] = -1;
603 thread_data
->wait_fd
[1] = -1;
605 if ((status
= virtual_alloc_thread_stack( teb
, stack_reserve
, stack_commit
))) goto error
;
607 pthread_attr_init( &attr
);
608 pthread_attr_setstack( &attr
, teb
->DeallocationStack
,
609 (char *)teb
->Tib
.StackBase
- (char *)teb
->DeallocationStack
);
610 pthread_attr_setscope( &attr
, PTHREAD_SCOPE_SYSTEM
); /* force creating a kernel thread */
611 interlocked_xchg_add( &nb_threads
, 1 );
612 if (pthread_create( &pthread_id
, &attr
, (void * (*)(void *))start_thread
, info
))
614 interlocked_xchg_add( &nb_threads
, -1 );
615 pthread_attr_destroy( &attr
);
616 status
= STATUS_NO_MEMORY
;
619 pthread_attr_destroy( &attr
);
620 pthread_sigmask( SIG_SETMASK
, &sigset
, NULL
);
622 if (id
) id
->UniqueThread
= ULongToHandle(tid
);
623 if (handle_ptr
) *handle_ptr
= handle
;
624 else NtClose( handle
);
626 return STATUS_SUCCESS
;
629 if (teb
) signal_free_thread( teb
);
630 if (handle
) NtClose( handle
);
631 pthread_sigmask( SIG_SETMASK
, &sigset
, NULL
);
632 close( request_pipe
[1] );
637 /******************************************************************************
638 * RtlGetNtGlobalFlags (NTDLL.@)
640 ULONG WINAPI
RtlGetNtGlobalFlags(void)
642 if (!peb
) return 0; /* init not done yet */
643 return peb
->NtGlobalFlag
;
647 /***********************************************************************
648 * NtOpenThread (NTDLL.@)
649 * ZwOpenThread (NTDLL.@)
651 NTSTATUS WINAPI
NtOpenThread( HANDLE
*handle
, ACCESS_MASK access
,
652 const OBJECT_ATTRIBUTES
*attr
, const CLIENT_ID
*id
)
656 SERVER_START_REQ( open_thread
)
658 req
->tid
= HandleToULong(id
->UniqueThread
);
659 req
->access
= access
;
660 req
->attributes
= attr
? attr
->Attributes
: 0;
661 ret
= wine_server_call( req
);
662 *handle
= wine_server_ptr_handle( reply
->handle
);
669 /******************************************************************************
670 * NtSuspendThread (NTDLL.@)
671 * ZwSuspendThread (NTDLL.@)
673 NTSTATUS WINAPI
NtSuspendThread( HANDLE handle
, PULONG count
)
677 SERVER_START_REQ( suspend_thread
)
679 req
->handle
= wine_server_obj_handle( handle
);
680 if (!(ret
= wine_server_call( req
)))
682 if (count
) *count
= reply
->count
;
690 /******************************************************************************
691 * NtResumeThread (NTDLL.@)
692 * ZwResumeThread (NTDLL.@)
694 NTSTATUS WINAPI
NtResumeThread( HANDLE handle
, PULONG count
)
698 SERVER_START_REQ( resume_thread
)
700 req
->handle
= wine_server_obj_handle( handle
);
701 if (!(ret
= wine_server_call( req
)))
703 if (count
) *count
= reply
->count
;
711 /******************************************************************************
712 * NtAlertResumeThread (NTDLL.@)
713 * ZwAlertResumeThread (NTDLL.@)
715 NTSTATUS WINAPI
NtAlertResumeThread( HANDLE handle
, PULONG count
)
717 FIXME( "stub: should alert thread %p\n", handle
);
718 return NtResumeThread( handle
, count
);
722 /******************************************************************************
723 * NtAlertThread (NTDLL.@)
724 * ZwAlertThread (NTDLL.@)
726 NTSTATUS WINAPI
NtAlertThread( HANDLE handle
)
728 FIXME( "stub: %p\n", handle
);
729 return STATUS_NOT_IMPLEMENTED
;
733 /******************************************************************************
734 * NtTerminateThread (NTDLL.@)
735 * ZwTerminateThread (NTDLL.@)
737 NTSTATUS WINAPI
NtTerminateThread( HANDLE handle
, LONG exit_code
)
742 SERVER_START_REQ( terminate_thread
)
744 req
->handle
= wine_server_obj_handle( handle
);
745 req
->exit_code
= exit_code
;
746 ret
= wine_server_call( req
);
747 self
= !ret
&& reply
->self
;
751 if (self
) abort_thread( exit_code
);
756 /******************************************************************************
757 * NtQueueApcThread (NTDLL.@)
759 NTSTATUS WINAPI
NtQueueApcThread( HANDLE handle
, PNTAPCFUNC func
, ULONG_PTR arg1
,
760 ULONG_PTR arg2
, ULONG_PTR arg3
)
763 SERVER_START_REQ( queue_apc
)
765 req
->handle
= wine_server_obj_handle( handle
);
768 req
->call
.type
= APC_USER
;
769 req
->call
.user
.func
= wine_server_client_ptr( func
);
770 req
->call
.user
.args
[0] = arg1
;
771 req
->call
.user
.args
[1] = arg2
;
772 req
->call
.user
.args
[2] = arg3
;
774 else req
->call
.type
= APC_NONE
; /* wake up only */
775 ret
= wine_server_call( req
);
782 /***********************************************************************
785 NTSTATUS
set_thread_context( HANDLE handle
, const CONTEXT
*context
, BOOL
*self
)
789 context_t server_context
;
791 context_to_server( &server_context
, context
);
793 SERVER_START_REQ( set_thread_context
)
795 req
->handle
= wine_server_obj_handle( handle
);
797 wine_server_add_data( req
, &server_context
, sizeof(server_context
) );
798 ret
= wine_server_call( req
);
803 if (ret
== STATUS_PENDING
)
805 for (i
= 0; i
< 100; i
++)
807 SERVER_START_REQ( set_thread_context
)
809 req
->handle
= wine_server_obj_handle( handle
);
811 wine_server_add_data( req
, &server_context
, sizeof(server_context
) );
812 ret
= wine_server_call( req
);
815 if (ret
== STATUS_PENDING
)
817 LARGE_INTEGER timeout
;
818 timeout
.QuadPart
= -10000;
819 NtDelayExecution( FALSE
, &timeout
);
823 NtResumeThread( handle
, &dummy
);
824 if (ret
== STATUS_PENDING
) ret
= STATUS_ACCESS_DENIED
;
831 /* convert CPU-specific flags to generic server flags */
832 static inline unsigned int get_server_context_flags( DWORD flags
)
834 unsigned int ret
= 0;
836 flags
&= 0x3f; /* mask CPU id flags */
837 if (flags
& CONTEXT_CONTROL
) ret
|= SERVER_CTX_CONTROL
;
838 if (flags
& CONTEXT_INTEGER
) ret
|= SERVER_CTX_INTEGER
;
839 #ifdef CONTEXT_SEGMENTS
840 if (flags
& CONTEXT_SEGMENTS
) ret
|= SERVER_CTX_SEGMENTS
;
842 #ifdef CONTEXT_FLOATING_POINT
843 if (flags
& CONTEXT_FLOATING_POINT
) ret
|= SERVER_CTX_FLOATING_POINT
;
845 #ifdef CONTEXT_DEBUG_REGISTERS
846 if (flags
& CONTEXT_DEBUG_REGISTERS
) ret
|= SERVER_CTX_DEBUG_REGISTERS
;
848 #ifdef CONTEXT_EXTENDED_REGISTERS
849 if (flags
& CONTEXT_EXTENDED_REGISTERS
) ret
|= SERVER_CTX_EXTENDED_REGISTERS
;
854 /***********************************************************************
857 NTSTATUS
get_thread_context( HANDLE handle
, CONTEXT
*context
, BOOL
*self
)
861 unsigned int server_flags
= get_server_context_flags( context
->ContextFlags
);
862 context_t server_context
;
864 SERVER_START_REQ( get_thread_context
)
866 req
->handle
= wine_server_obj_handle( handle
);
867 req
->flags
= server_flags
;
869 wine_server_set_reply( req
, &server_context
, sizeof(server_context
) );
870 ret
= wine_server_call( req
);
875 if (ret
== STATUS_PENDING
)
877 for (i
= 0; i
< 100; i
++)
879 SERVER_START_REQ( get_thread_context
)
881 req
->handle
= wine_server_obj_handle( handle
);
882 req
->flags
= server_flags
;
884 wine_server_set_reply( req
, &server_context
, sizeof(server_context
) );
885 ret
= wine_server_call( req
);
888 if (ret
== STATUS_PENDING
)
890 LARGE_INTEGER timeout
;
891 timeout
.QuadPart
= -10000;
892 NtDelayExecution( FALSE
, &timeout
);
896 NtResumeThread( handle
, &dummy
);
897 if (ret
== STATUS_PENDING
) ret
= STATUS_ACCESS_DENIED
;
899 if (!ret
) ret
= context_from_server( context
, &server_context
);
904 /******************************************************************************
905 * NtQueryInformationThread (NTDLL.@)
906 * ZwQueryInformationThread (NTDLL.@)
908 NTSTATUS WINAPI
NtQueryInformationThread( HANDLE handle
, THREADINFOCLASS
class,
909 void *data
, ULONG length
, ULONG
*ret_len
)
915 case ThreadBasicInformation
:
917 THREAD_BASIC_INFORMATION info
;
918 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
920 SERVER_START_REQ( get_thread_info
)
922 req
->handle
= wine_server_obj_handle( handle
);
924 if (!(status
= wine_server_call( req
)))
926 info
.ExitStatus
= reply
->exit_code
;
927 info
.TebBaseAddress
= wine_server_get_ptr( reply
->teb
);
928 info
.ClientId
.UniqueProcess
= ULongToHandle(reply
->pid
);
929 info
.ClientId
.UniqueThread
= ULongToHandle(reply
->tid
);
930 info
.AffinityMask
= reply
->affinity
& affinity_mask
;
931 info
.Priority
= reply
->priority
;
932 info
.BasePriority
= reply
->priority
; /* FIXME */
936 if (status
== STATUS_SUCCESS
)
938 if (data
) memcpy( data
, &info
, min( length
, sizeof(info
) ));
939 if (ret_len
) *ret_len
= min( length
, sizeof(info
) );
943 case ThreadAffinityMask
:
945 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
946 ULONG_PTR affinity
= 0;
948 SERVER_START_REQ( get_thread_info
)
950 req
->handle
= wine_server_obj_handle( handle
);
952 if (!(status
= wine_server_call( req
)))
953 affinity
= reply
->affinity
& affinity_mask
;
956 if (status
== STATUS_SUCCESS
)
958 if (data
) memcpy( data
, &affinity
, min( length
, sizeof(affinity
) ));
959 if (ret_len
) *ret_len
= min( length
, sizeof(affinity
) );
965 KERNEL_USER_TIMES kusrt
;
967 SERVER_START_REQ( get_thread_times
)
969 req
->handle
= wine_server_obj_handle( handle
);
970 status
= wine_server_call( req
);
971 if (status
== STATUS_SUCCESS
)
973 kusrt
.CreateTime
.QuadPart
= reply
->creation_time
;
974 kusrt
.ExitTime
.QuadPart
= reply
->exit_time
;
978 if (status
== STATUS_SUCCESS
)
980 /* We call times(2) for kernel time or user time */
981 /* We can only (portably) do this for the current thread */
982 if (handle
== GetCurrentThread())
985 long clocks_per_sec
= sysconf(_SC_CLK_TCK
);
988 kusrt
.KernelTime
.QuadPart
= (ULONGLONG
)time_buf
.tms_stime
* 10000000 / clocks_per_sec
;
989 kusrt
.UserTime
.QuadPart
= (ULONGLONG
)time_buf
.tms_utime
* 10000000 / clocks_per_sec
;
993 static BOOL reported
= FALSE
;
995 kusrt
.KernelTime
.QuadPart
= 0;
996 kusrt
.UserTime
.QuadPart
= 0;
998 TRACE("Cannot get kerneltime or usertime of other threads\n");
1001 FIXME("Cannot get kerneltime or usertime of other threads\n");
1005 if (data
) memcpy( data
, &kusrt
, min( length
, sizeof(kusrt
) ));
1006 if (ret_len
) *ret_len
= min( length
, sizeof(kusrt
) );
1010 case ThreadDescriptorTableEntry
:
1013 THREAD_DESCRIPTOR_INFORMATION
* tdi
= data
;
1014 if (length
< sizeof(*tdi
))
1015 status
= STATUS_INFO_LENGTH_MISMATCH
;
1016 else if (!(tdi
->Selector
& 4)) /* GDT selector */
1018 unsigned sel
= LOWORD(tdi
->Selector
) & ~3; /* ignore RPL */
1019 status
= STATUS_SUCCESS
;
1020 if (!sel
) /* null selector */
1021 memset( &tdi
->Entry
, 0, sizeof(tdi
->Entry
) );
1024 tdi
->Entry
.BaseLow
= 0;
1025 tdi
->Entry
.HighWord
.Bits
.BaseMid
= 0;
1026 tdi
->Entry
.HighWord
.Bits
.BaseHi
= 0;
1027 tdi
->Entry
.LimitLow
= 0xffff;
1028 tdi
->Entry
.HighWord
.Bits
.LimitHi
= 0xf;
1029 tdi
->Entry
.HighWord
.Bits
.Dpl
= 3;
1030 tdi
->Entry
.HighWord
.Bits
.Sys
= 0;
1031 tdi
->Entry
.HighWord
.Bits
.Pres
= 1;
1032 tdi
->Entry
.HighWord
.Bits
.Granularity
= 1;
1033 tdi
->Entry
.HighWord
.Bits
.Default_Big
= 1;
1034 tdi
->Entry
.HighWord
.Bits
.Type
= 0x12;
1035 tdi
->Entry
.HighWord
.Bits
.Reserved_0
= 0;
1036 /* it has to be one of the system GDT selectors */
1037 if (sel
!= (wine_get_ds() & ~3) && sel
!= (wine_get_ss() & ~3))
1039 if (sel
== (wine_get_cs() & ~3))
1040 tdi
->Entry
.HighWord
.Bits
.Type
|= 8; /* code segment */
1041 else if (sel
== (wine_get_fs() & ~3))
1043 ULONG_PTR fs_base
= (ULONG_PTR
)NtCurrentTeb();
1044 tdi
->Entry
.BaseLow
= fs_base
& 0xffff;
1045 tdi
->Entry
.HighWord
.Bits
.BaseMid
= (fs_base
>> 16) & 0xff;
1046 tdi
->Entry
.HighWord
.Bits
.BaseHi
= (fs_base
>> 24) & 0xff;
1047 tdi
->Entry
.LimitLow
= 0x0fff;
1048 tdi
->Entry
.HighWord
.Bits
.LimitHi
= 0;
1049 tdi
->Entry
.HighWord
.Bits
.Granularity
= 0;
1051 else status
= STATUS_ACCESS_DENIED
;
1057 SERVER_START_REQ( get_selector_entry
)
1059 req
->handle
= wine_server_obj_handle( handle
);
1060 req
->entry
= LOWORD(tdi
->Selector
) >> 3;
1061 status
= wine_server_call( req
);
1064 if (!(reply
->flags
& WINE_LDT_FLAGS_ALLOCATED
))
1065 status
= STATUS_ACCESS_VIOLATION
;
1068 wine_ldt_set_base ( &tdi
->Entry
, (void *)reply
->base
);
1069 wine_ldt_set_limit( &tdi
->Entry
, reply
->limit
);
1070 wine_ldt_set_flags( &tdi
->Entry
, reply
->flags
);
1076 if (status
== STATUS_SUCCESS
&& ret_len
)
1077 /* yes, that's a bit strange, but it's the way it is */
1078 *ret_len
= sizeof(LDT_ENTRY
);
1080 status
= STATUS_NOT_IMPLEMENTED
;
1084 case ThreadAmILastThread
:
1086 SERVER_START_REQ(get_thread_info
)
1088 req
->handle
= wine_server_obj_handle( handle
);
1090 status
= wine_server_call( req
);
1091 if (status
== STATUS_SUCCESS
)
1093 BOOLEAN last
= reply
->last
;
1094 if (data
) memcpy( data
, &last
, min( length
, sizeof(last
) ));
1095 if (ret_len
) *ret_len
= min( length
, sizeof(last
) );
1101 case ThreadQuerySetWin32StartAddress
:
1103 SERVER_START_REQ( get_thread_info
)
1105 req
->handle
= wine_server_obj_handle( handle
);
1107 status
= wine_server_call( req
);
1108 if (status
== STATUS_SUCCESS
)
1110 PRTL_THREAD_START_ROUTINE entry
= wine_server_get_ptr( reply
->entry_point
);
1111 if (data
) memcpy( data
, &entry
, min( length
, sizeof(entry
) ) );
1112 if (ret_len
) *ret_len
= min( length
, sizeof(entry
) );
1118 case ThreadGroupInformation
:
1120 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
1121 GROUP_AFFINITY affinity
;
1123 memset(&affinity
, 0, sizeof(affinity
));
1124 affinity
.Group
= 0; /* Wine only supports max 64 processors */
1126 SERVER_START_REQ( get_thread_info
)
1128 req
->handle
= wine_server_obj_handle( handle
);
1130 if (!(status
= wine_server_call( req
)))
1131 affinity
.Mask
= reply
->affinity
& affinity_mask
;
1134 if (status
== STATUS_SUCCESS
)
1136 if (data
) memcpy( data
, &affinity
, min( length
, sizeof(affinity
) ));
1137 if (ret_len
) *ret_len
= min( length
, sizeof(affinity
) );
1141 case ThreadIsIoPending
:
1142 FIXME( "ThreadIsIoPending info class not supported yet\n" );
1143 if (length
!= sizeof(BOOL
)) return STATUS_INFO_LENGTH_MISMATCH
;
1144 if (!data
) return STATUS_ACCESS_DENIED
;
1146 *(BOOL
*)data
= FALSE
;
1147 if (ret_len
) *ret_len
= sizeof(BOOL
);
1148 return STATUS_SUCCESS
;
1149 case ThreadPriority
:
1150 case ThreadBasePriority
:
1151 case ThreadImpersonationToken
:
1152 case ThreadEnableAlignmentFaultFixup
:
1153 case ThreadEventPair_Reusable
:
1154 case ThreadZeroTlsCell
:
1155 case ThreadPerformanceCount
:
1156 case ThreadIdealProcessor
:
1157 case ThreadPriorityBoost
:
1158 case ThreadSetTlsArrayAddress
:
1160 FIXME( "info class %d not supported yet\n", class );
1161 return STATUS_NOT_IMPLEMENTED
;
1166 /******************************************************************************
1167 * NtSetInformationThread (NTDLL.@)
1168 * ZwSetInformationThread (NTDLL.@)
1170 NTSTATUS WINAPI
NtSetInformationThread( HANDLE handle
, THREADINFOCLASS
class,
1171 LPCVOID data
, ULONG length
)
1176 case ThreadZeroTlsCell
:
1177 if (handle
== GetCurrentThread())
1182 if (length
!= sizeof(DWORD
)) return STATUS_INVALID_PARAMETER
;
1183 index
= *(const DWORD
*)data
;
1184 if (index
< TLS_MINIMUM_AVAILABLE
)
1186 RtlAcquirePebLock();
1187 for (entry
= tls_links
.Flink
; entry
!= &tls_links
; entry
= entry
->Flink
)
1189 TEB
*teb
= CONTAINING_RECORD(entry
, TEB
, TlsLinks
);
1190 teb
->TlsSlots
[index
] = 0;
1192 RtlReleasePebLock();
1196 index
-= TLS_MINIMUM_AVAILABLE
;
1197 if (index
>= 8 * sizeof(NtCurrentTeb()->Peb
->TlsExpansionBitmapBits
))
1198 return STATUS_INVALID_PARAMETER
;
1199 RtlAcquirePebLock();
1200 for (entry
= tls_links
.Flink
; entry
!= &tls_links
; entry
= entry
->Flink
)
1202 TEB
*teb
= CONTAINING_RECORD(entry
, TEB
, TlsLinks
);
1203 if (teb
->TlsExpansionSlots
) teb
->TlsExpansionSlots
[index
] = 0;
1205 RtlReleasePebLock();
1207 return STATUS_SUCCESS
;
1209 FIXME( "ZeroTlsCell not supported on other threads\n" );
1210 return STATUS_NOT_IMPLEMENTED
;
1212 case ThreadImpersonationToken
:
1214 const HANDLE
*phToken
= data
;
1215 if (length
!= sizeof(HANDLE
)) return STATUS_INVALID_PARAMETER
;
1216 TRACE("Setting ThreadImpersonationToken handle to %p\n", *phToken
);
1217 SERVER_START_REQ( set_thread_info
)
1219 req
->handle
= wine_server_obj_handle( handle
);
1220 req
->token
= wine_server_obj_handle( *phToken
);
1221 req
->mask
= SET_THREAD_INFO_TOKEN
;
1222 status
= wine_server_call( req
);
1227 case ThreadBasePriority
:
1229 const DWORD
*pprio
= data
;
1230 if (length
!= sizeof(DWORD
)) return STATUS_INVALID_PARAMETER
;
1231 SERVER_START_REQ( set_thread_info
)
1233 req
->handle
= wine_server_obj_handle( handle
);
1234 req
->priority
= *pprio
;
1235 req
->mask
= SET_THREAD_INFO_PRIORITY
;
1236 status
= wine_server_call( req
);
1241 case ThreadAffinityMask
:
1243 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
1246 if (length
!= sizeof(ULONG_PTR
)) return STATUS_INVALID_PARAMETER
;
1247 req_aff
= *(const ULONG_PTR
*)data
;
1248 if ((ULONG
)req_aff
== ~0u) req_aff
= affinity_mask
;
1249 else if (req_aff
& ~affinity_mask
) return STATUS_INVALID_PARAMETER
;
1250 else if (!req_aff
) return STATUS_INVALID_PARAMETER
;
1251 SERVER_START_REQ( set_thread_info
)
1253 req
->handle
= wine_server_obj_handle( handle
);
1254 req
->affinity
= req_aff
;
1255 req
->mask
= SET_THREAD_INFO_AFFINITY
;
1256 status
= wine_server_call( req
);
1261 case ThreadHideFromDebugger
:
1262 /* pretend the call succeeded to satisfy some code protectors */
1263 return STATUS_SUCCESS
;
1264 case ThreadQuerySetWin32StartAddress
:
1266 const PRTL_THREAD_START_ROUTINE
*entry
= data
;
1267 if (length
!= sizeof(PRTL_THREAD_START_ROUTINE
)) return STATUS_INVALID_PARAMETER
;
1268 SERVER_START_REQ( set_thread_info
)
1270 req
->handle
= wine_server_obj_handle( handle
);
1271 req
->mask
= SET_THREAD_INFO_ENTRYPOINT
;
1272 req
->entry_point
= wine_server_client_ptr( *entry
);
1273 status
= wine_server_call( req
);
1278 case ThreadGroupInformation
:
1280 const ULONG_PTR affinity_mask
= get_system_affinity_mask();
1281 const GROUP_AFFINITY
*req_aff
;
1283 if (length
!= sizeof(*req_aff
)) return STATUS_INVALID_PARAMETER
;
1284 if (!data
) return STATUS_ACCESS_VIOLATION
;
1287 /* On Windows the request fails if the reserved fields are set */
1288 if (req_aff
->Reserved
[0] || req_aff
->Reserved
[1] || req_aff
->Reserved
[2])
1289 return STATUS_INVALID_PARAMETER
;
1291 /* Wine only supports max 64 processors */
1292 if (req_aff
->Group
) return STATUS_INVALID_PARAMETER
;
1293 if (req_aff
->Mask
& ~affinity_mask
) return STATUS_INVALID_PARAMETER
;
1294 if (!req_aff
->Mask
) return STATUS_INVALID_PARAMETER
;
1295 SERVER_START_REQ( set_thread_info
)
1297 req
->handle
= wine_server_obj_handle( handle
);
1298 req
->affinity
= req_aff
->Mask
;
1299 req
->mask
= SET_THREAD_INFO_AFFINITY
;
1300 status
= wine_server_call( req
);
1305 case ThreadBasicInformation
:
1307 case ThreadPriority
:
1308 case ThreadDescriptorTableEntry
:
1309 case ThreadEnableAlignmentFaultFixup
:
1310 case ThreadEventPair_Reusable
:
1311 case ThreadPerformanceCount
:
1312 case ThreadAmILastThread
:
1313 case ThreadIdealProcessor
:
1314 case ThreadPriorityBoost
:
1315 case ThreadSetTlsArrayAddress
:
1316 case ThreadIsIoPending
:
1318 FIXME( "info class %d not supported yet\n", class );
1319 return STATUS_NOT_IMPLEMENTED
;
1323 /******************************************************************************
1324 * NtGetCurrentProcessorNumber (NTDLL.@)
1326 * Return the processor, on which the thread is running
1329 ULONG WINAPI
NtGetCurrentProcessorNumber(void)
1333 #if defined(__linux__) && defined(__NR_getcpu)
1334 int res
= syscall(__NR_getcpu
, &processor
, NULL
, NULL
);
1335 if (res
!= -1) return processor
;
1338 if (NtCurrentTeb()->Peb
->NumberOfProcessors
> 1)
1340 ULONG_PTR thread_mask
, processor_mask
;
1343 status
= NtQueryInformationThread(GetCurrentThread(), ThreadAffinityMask
,
1344 &thread_mask
, sizeof(thread_mask
), NULL
);
1345 if (status
== STATUS_SUCCESS
)
1347 for (processor
= 0; processor
< NtCurrentTeb()->Peb
->NumberOfProcessors
; processor
++)
1349 processor_mask
= (1 << processor
);
1350 if (thread_mask
& processor_mask
)
1352 if (thread_mask
!= processor_mask
)
1353 FIXME("need multicore support (%d processors)\n",
1354 NtCurrentTeb()->Peb
->NumberOfProcessors
);
1361 /* fallback to the first processor */