git.oblomov.eu Git - wine/blob - dlls/kernel32/tests/thread.c

   1 /*
   2  * Unit test suite for thread functions.
   3  *
   4  * Copyright 2002 Geoffrey Hausheer
   5  *
   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.
  10  *
  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.
  15  *
  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
  19  */
  20
  21 /* Define _WIN32_WINNT to get SetThreadIdealProcessor on Windows */
  22 #define _WIN32_WINNT 0x0500
  23
  24 #include <assert.h>
  25 #include <stdarg.h>
  26 #include <stdio.h>
  27
  28 #include "wine/test.h"
  29 #include <windef.h>
  30 #include <winbase.h>
  31 #include <winnt.h>
  32 #include <winerror.h>
  33
  34 /* Specify the number of simultaneous threads to test */
  35 #define NUM_THREADS 4
  36 /* Specify whether to test the extended priorities for Win2k/XP */
  37 #define USE_EXTENDED_PRIORITIES 0
  38 /* Specify whether to test the stack allocation in CreateThread */
  39 #define CHECK_STACK 0
  40
  41 /* Set CHECK_STACK to 1 if you want to try to test the stack-limit from
  42    CreateThread.  So far I have been unable to make this work, and
  43    I am in doubt as to how portable it is.  Also, according to MSDN,
  44    you shouldn't mix C-run-time-libraries (i.e. alloca) with CreateThread.
  45    Anyhow, the check is currently commented out
  46 */
  47 #if CHECK_STACK
  48 # ifdef __try
  49 #  define __TRY __try
  50 #  define __EXCEPT __except
  51 #  define __ENDTRY
  52 # else
  53 #  include "wine/exception.h"
  54 # endif
  55 #endif
  56
  57 static BOOL (WINAPI *pGetThreadPriorityBoost)(HANDLE,PBOOL);
  58 static HANDLE (WINAPI *pOpenThread)(DWORD,BOOL,DWORD);
  59 static BOOL (WINAPI *pQueueUserWorkItem)(LPTHREAD_START_ROUTINE,PVOID,ULONG);
  60 static DWORD (WINAPI *pSetThreadIdealProcessor)(HANDLE,DWORD);
  61 static BOOL (WINAPI *pSetThreadPriorityBoost)(HANDLE,BOOL);
  62 static BOOL (WINAPI *pRegisterWaitForSingleObject)(PHANDLE,HANDLE,WAITORTIMERCALLBACK,PVOID,ULONG,ULONG);
  63 static BOOL (WINAPI *pUnregisterWait)(HANDLE);
  64 static BOOL (WINAPI *pIsWow64Process)(HANDLE,PBOOL);
  65 static BOOL (WINAPI *pSetThreadErrorMode)(DWORD,PDWORD);
  66 static DWORD (WINAPI *pGetThreadErrorMode)(void);
  67 static DWORD (WINAPI *pRtlGetThreadErrorMode)(void);
  68
  69 static HANDLE create_target_process(const char *arg)
  70 {
  71     char **argv;
  72     char cmdline[MAX_PATH];
  73     PROCESS_INFORMATION pi;
  74     BOOL ret;
  75     STARTUPINFO si = { 0 };
  76     si.cb = sizeof(si);
  77
  78     winetest_get_mainargs( &argv );
  79     sprintf(cmdline, "%s %s %s", argv[0], argv[1], arg);
  80     ret = CreateProcess(NULL, cmdline, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);
  81     ok(ret, "error: %u\n", GetLastError());
  82     ret = CloseHandle(pi.hThread);
  83     ok(ret, "error %u\n", GetLastError());
  84     return pi.hProcess;
  85 }
  86
  87 /* Functions not tested yet:
  88   AttachThreadInput
  89   SetThreadContext
  90   SwitchToThread
  91
  92 In addition there are no checks that the inheritance works properly in
  93 CreateThread
  94 */
  95
  96 /* Functions to ensure that from a group of threads, only one executes
  97    certain chunks of code at a time, and we know which one is executing
  98    it.  It basically makes multithreaded execution linear, which defeats
  99    the purpose of multiple threads, but makes testing easy.  */
 100 static HANDLE start_event, stop_event;
 101 static LONG num_synced;
 102
 103 static void init_thread_sync_helpers(void)
 104 {
 105   start_event = CreateEvent(NULL, TRUE, FALSE, NULL);
 106   ok(start_event != NULL, "CreateEvent failed\n");
 107   stop_event = CreateEvent(NULL, TRUE, FALSE, NULL);
 108   ok(stop_event != NULL, "CreateEvent failed\n");
 109   num_synced = -1;
 110 }
 111
 112 static BOOL sync_threads_and_run_one(DWORD sync_id, DWORD my_id)
 113 {
 114   LONG num = InterlockedIncrement(&num_synced);
 115   assert(-1 <= num && num <= 1);
 116   if (num == 1)
 117   {
 118       ResetEvent( stop_event );
 119       SetEvent( start_event );
 120   }
 121   else
 122   {
 123     DWORD ret = WaitForSingleObject(start_event, 10000);
 124     ok(ret == WAIT_OBJECT_0, "WaitForSingleObject failed %x\n",ret);
 125   }
 126   return sync_id == my_id;
 127 }
 128
 129 static void resync_after_run(void)
 130 {
 131   LONG num = InterlockedDecrement(&num_synced);
 132   assert(-1 <= num && num <= 1);
 133   if (num == -1)
 134   {
 135       ResetEvent( start_event );
 136       SetEvent( stop_event );
 137   }
 138   else
 139   {
 140     DWORD ret = WaitForSingleObject(stop_event, 10000);
 141     ok(ret == WAIT_OBJECT_0, "WaitForSingleObject failed\n");
 142   }
 143 }
 144
 145 static void cleanup_thread_sync_helpers(void)
 146 {
 147   CloseHandle(start_event);
 148   CloseHandle(stop_event);
 149 }
 150
 151 static DWORD tlsIndex;
 152
 153 typedef struct {
 154   int threadnum;
 155   HANDLE *event;
 156   DWORD *threadmem;
 157 } t1Struct;
 158
 159 /* WinME supports OpenThread but doesn't know about access restrictions so
 160    we require them to be either completely ignored or always obeyed.
 161 */
 162 static INT obeying_ars = 0; /* -1 == no, 0 == dunno yet, 1 == yes */
 163 #define obey_ar(x) \
 164   (obeying_ars == 0 \
 165     ? ((x) \
 166       ? (obeying_ars = +1) \
 167       : ((obeying_ars = -1), \
 168          trace("not restricted, assuming consistent behaviour\n"))) \
 169     : (obeying_ars < 0) \
 170       ? ok(!(x), "access restrictions obeyed\n") \
 171       : ok( (x), "access restrictions not obeyed\n"))
 172
 173 /* Basic test that simultaneous threads can access shared memory,
 174    that the thread local storage routines work correctly, and that
 175    threads actually run concurrently
 176 */
 177 static DWORD WINAPI threadFunc1(LPVOID p)
 178 {
 179    t1Struct *tstruct = p;
 180    int i;
 181 /* write our thread # into shared memory */
 182    tstruct->threadmem[tstruct->threadnum]=GetCurrentThreadId();
 183    ok(TlsSetValue(tlsIndex,(LPVOID)(INT_PTR)(tstruct->threadnum+1))!=0,
 184       "TlsSetValue failed\n");
 185 /* The threads synchronize before terminating.  This is done by
 186    Signaling an event, and waiting for all events to occur
 187 */
 188    SetEvent(tstruct->event[tstruct->threadnum]);
 189    WaitForMultipleObjects(NUM_THREADS,tstruct->event,TRUE,INFINITE);
 190 /* Double check that all threads really did run by validating that
 191    they have all written to the shared memory. There should be no race
 192    here, since all threads were synchronized after the write.*/
 193    for(i=0;i<NUM_THREADS;i++) {
 194      while(tstruct->threadmem[i]==0) ;
 195    }
 196
 197    /* lstrlenA contains an exception handler so this makes sure exceptions work in threads */
 198    ok( lstrlenA( (char *)0xdeadbeef ) == 0, "lstrlenA: unexpected success\n" );
 199
 200 /* Check that no one changed our tls memory */
 201    ok((INT_PTR)TlsGetValue(tlsIndex)-1==tstruct->threadnum,
 202       "TlsGetValue failed\n");
 203    return NUM_THREADS+tstruct->threadnum;
 204 }
 205
 206 static DWORD WINAPI threadFunc2(LPVOID p)
 207 {
 208    return 99;
 209 }
 210
 211 static DWORD WINAPI threadFunc3(LPVOID p)
 212 {
 213    HANDLE thread;
 214    thread=GetCurrentThread();
 215    SuspendThread(thread);
 216    return 99;
 217 }
 218
 219 static DWORD WINAPI threadFunc4(LPVOID p)
 220 {
 221    HANDLE event = p;
 222    if(event != NULL) {
 223      SetEvent(event);
 224    }
 225    Sleep(99000);
 226    return 0;
 227 }
 228
 229 #if CHECK_STACK
 230 static DWORD WINAPI threadFunc5(LPVOID p)
 231 {
 232   DWORD *exitCode = p;
 233   SYSTEM_INFO sysInfo;
 234   sysInfo.dwPageSize=0;
 235   GetSystemInfo(&sysInfo);
 236   *exitCode=0;
 237    __TRY
 238    {
 239      alloca(2*sysInfo.dwPageSize);
 240    }
 241     __EXCEPT(1) {
 242      *exitCode=1;
 243    }
 244    __ENDTRY
 245    return 0;
 246 }
 247 #endif
 248
 249 static DWORD WINAPI threadFunc_SetEvent(LPVOID p)
 250 {
 251     SetEvent(p);
 252     return 0;
 253 }
 254
 255 static DWORD WINAPI threadFunc_CloseHandle(LPVOID p)
 256 {
 257     CloseHandle(p);
 258     return 0;
 259 }
 260
 261 static void create_function_addr_events(HANDLE events[2])
 262 {
 263     char buffer[256];
 264
 265     sprintf(buffer, "threadFunc_SetEvent %p", threadFunc_SetEvent);
 266     events[0] = CreateEvent(NULL, FALSE, FALSE, buffer);
 267
 268     sprintf(buffer, "threadFunc_CloseHandle %p", threadFunc_CloseHandle);
 269     events[1] = CreateEvent(NULL, FALSE, FALSE, buffer);
 270 }
 271
 272 /* check CreateRemoteThread */
 273 static VOID test_CreateRemoteThread(void)
 274 {
 275     HANDLE hProcess, hThread, hEvent, hRemoteEvent;
 276     DWORD tid, ret, exitcode;
 277     HANDLE hAddrEvents[2];
 278
 279     hProcess = create_target_process("sleep");
 280     ok(hProcess != NULL, "Can't start process\n");
 281
 282     /* ensure threadFunc_SetEvent & threadFunc_CloseHandle are the same
 283      * address as in the child process */
 284     create_function_addr_events(hAddrEvents);
 285     ret = WaitForMultipleObjects(2, hAddrEvents, TRUE, 5000);
 286     if (ret == WAIT_TIMEOUT)
 287     {
 288         skip("child process wasn't mapped at same address, so can't do CreateRemoteThread tests.\n");
 289         return;
 290     }
 291
 292     hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);
 293     ok(hEvent != NULL, "Can't create event, err=%u\n", GetLastError());
 294     ret = DuplicateHandle(GetCurrentProcess(), hEvent, hProcess, &hRemoteEvent,
 295                           0, FALSE, DUPLICATE_SAME_ACCESS);
 296     ok(ret != 0, "DuplicateHandle failed, err=%u\n", GetLastError());
 297
 298     /* create suspended remote thread with entry point SetEvent() */
 299     SetLastError(0xdeadbeef);
 300     hThread = CreateRemoteThread(hProcess, NULL, 0, threadFunc_SetEvent,
 301                                  hRemoteEvent, CREATE_SUSPENDED, &tid);
 302     if (GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
 303     {
 304         win_skip("CreateRemoteThread is not implemented\n");
 305         goto cleanup;
 306     }
 307     ok(hThread != NULL, "CreateRemoteThread failed, err=%u\n", GetLastError());
 308     ok(tid != 0, "null tid\n");
 309     ret = SuspendThread(hThread);
 310     ok(ret == 1, "ret=%u, err=%u\n", ret, GetLastError());
 311     ret = ResumeThread(hThread);
 312     ok(ret == 2, "ret=%u, err=%u\n", ret, GetLastError());
 313
 314     /* thread still suspended, so wait times out */
 315     ret = WaitForSingleObject(hEvent, 1000);
 316     ok(ret == WAIT_TIMEOUT, "wait did not time out, ret=%u\n", ret);
 317
 318     ret = ResumeThread(hThread);
 319     ok(ret == 1, "ret=%u, err=%u\n", ret, GetLastError());
 320
 321     /* wait that doesn't time out */
 322     ret = WaitForSingleObject(hEvent, 1000);
 323     ok(ret == WAIT_OBJECT_0, "object not signaled, ret=%u\n", ret);
 324
 325     /* wait for thread end */
 326     ret = WaitForSingleObject(hThread, 1000);
 327     ok(ret == WAIT_OBJECT_0, "waiting for thread failed, ret=%u\n", ret);
 328     CloseHandle(hThread);
 329
 330     /* create and wait for remote thread with entry point CloseHandle() */
 331     hThread = CreateRemoteThread(hProcess, NULL, 0,
 332                                  threadFunc_CloseHandle,
 333                                  hRemoteEvent, 0, &tid);
 334     ok(hThread != NULL, "CreateRemoteThread failed, err=%u\n", GetLastError());
 335     ret = WaitForSingleObject(hThread, 1000);
 336     ok(ret == WAIT_OBJECT_0, "waiting for thread failed, ret=%u\n", ret);
 337     CloseHandle(hThread);
 338
 339     /* create remote thread with entry point SetEvent() */
 340     hThread = CreateRemoteThread(hProcess, NULL, 0,
 341                                  threadFunc_SetEvent,
 342                                  hRemoteEvent, 0, &tid);
 343     ok(hThread != NULL, "CreateRemoteThread failed, err=%u\n", GetLastError());
 344
 345     /* closed handle, so wait times out */
 346     ret = WaitForSingleObject(hEvent, 1000);
 347     ok(ret == WAIT_TIMEOUT, "wait did not time out, ret=%u\n", ret);
 348
 349     /* check that remote SetEvent() failed */
 350     ret = GetExitCodeThread(hThread, &exitcode);
 351     ok(ret != 0, "GetExitCodeThread failed, err=%u\n", GetLastError());
 352     if (ret) ok(exitcode == 0, "SetEvent succeeded, expected to fail\n");
 353     CloseHandle(hThread);
 354
 355 cleanup:
 356     TerminateProcess(hProcess, 0);
 357     CloseHandle(hEvent);
 358     CloseHandle(hProcess);
 359 }
 360
 361 /* Check basic functionality of CreateThread and Tls* functions */
 362 static VOID test_CreateThread_basic(void)
 363 {
 364    HANDLE thread[NUM_THREADS],event[NUM_THREADS];
 365    DWORD threadid[NUM_THREADS],curthreadId;
 366    DWORD threadmem[NUM_THREADS];
 367    DWORD exitCode;
 368    t1Struct tstruct[NUM_THREADS];
 369    int error;
 370    DWORD i,j;
 371    DWORD GLE, ret;
 372    DWORD tid;
 373    BOOL bRet;
 374
 375    /* lstrlenA contains an exception handler so this makes sure exceptions work in the main thread */
 376    ok( lstrlenA( (char *)0xdeadbeef ) == 0, "lstrlenA: unexpected success\n" );
 377
 378 /* Retrieve current Thread ID for later comparisons */
 379   curthreadId=GetCurrentThreadId();
 380 /* Allocate some local storage */
 381   ok((tlsIndex=TlsAlloc())!=TLS_OUT_OF_INDEXES,"TlsAlloc failed\n");
 382 /* Create events for thread synchronization */
 383   for(i=0;i<NUM_THREADS;i++) {
 384     threadmem[i]=0;
 385 /* Note that it doesn't matter what type of event we choose here.  This
 386    test isn't trying to thoroughly test events
 387 */
 388     event[i]=CreateEventA(NULL,TRUE,FALSE,NULL);
 389     tstruct[i].threadnum=i;
 390     tstruct[i].threadmem=threadmem;
 391     tstruct[i].event=event;
 392   }
 393
 394 /* Test that passing arguments to threads works okay */
 395   for(i=0;i<NUM_THREADS;i++) {
 396     thread[i] = CreateThread(NULL,0,threadFunc1,
 397                              &tstruct[i],0,&threadid[i]);
 398     ok(thread[i]!=NULL,"Create Thread failed\n");
 399   }
 400 /* Test that the threads actually complete */
 401   for(i=0;i<NUM_THREADS;i++) {
 402     error=WaitForSingleObject(thread[i],5000);
 403     ok(error==WAIT_OBJECT_0, "Thread did not complete within timelimit\n");
 404     if(error!=WAIT_OBJECT_0) {
 405       TerminateThread(thread[i],i+NUM_THREADS);
 406     }
 407     ok(GetExitCodeThread(thread[i],&exitCode),"Could not retrieve ext code\n");
 408     ok(exitCode==i+NUM_THREADS,"Thread returned an incorrect exit code\n");
 409   }
 410 /* Test that each thread executed in its parent's address space
 411    (it was able to change threadmem and pass that change back to its parent)
 412    and that each thread id was independent).  Note that we prove that the
 413    threads actually execute concurrently by having them block on each other
 414    in threadFunc1
 415 */
 416   for(i=0;i<NUM_THREADS;i++) {
 417     error=0;
 418     for(j=i+1;j<NUM_THREADS;j++) {
 419       if (threadmem[i]==threadmem[j]) {
 420         error=1;
 421       }
 422     }
 423     ok(!error && threadmem[i]==threadid[i] && threadmem[i]!=curthreadId,
 424          "Thread did not execute successfully\n");
 425     ok(CloseHandle(thread[i])!=0,"CloseHandle failed\n");
 426   }
 427
 428   SetLastError(0xCAFEF00D);
 429   bRet = TlsFree(tlsIndex);
 430   ok(bRet, "TlsFree failed: %08x\n", GetLastError());
 431   ok(GetLastError()==0xCAFEF00D,
 432      "GetLastError: expected 0xCAFEF00D, got %08x\n", GetLastError());
 433
 434   /* Test freeing an already freed TLS index */
 435   SetLastError(0xCAFEF00D);
 436   ok(TlsFree(tlsIndex)==0,"TlsFree succeeded\n");
 437   ok(GetLastError()==ERROR_INVALID_PARAMETER,
 438      "GetLastError: expected ERROR_INVALID_PARAMETER, got %08x\n", GetLastError());
 439
 440   /* Test how passing NULL as a pointer to threadid works */
 441   SetLastError(0xFACEaBAD);
 442   thread[0] = CreateThread(NULL,0,threadFunc2,NULL,0,&tid);
 443   GLE = GetLastError();
 444   if (thread[0]) { /* NT */
 445     ok(GLE==0xFACEaBAD, "CreateThread set last error to %d, expected 4207848365\n", GLE);
 446     ret = WaitForSingleObject(thread[0],100);
 447     ok(ret==WAIT_OBJECT_0, "threadFunc2 did not exit during 100 ms\n");
 448     ret = GetExitCodeThread(thread[0],&exitCode);
 449     ok(ret!=0, "GetExitCodeThread returned %d (expected nonzero)\n", ret);
 450     ok(exitCode==99, "threadFunc2 exited with code: %d (expected 99)\n", exitCode);
 451     ok(CloseHandle(thread[0])!=0,"Error closing thread handle\n");
 452   }
 453   else { /* 9x */
 454     ok(GLE==ERROR_INVALID_PARAMETER, "CreateThread set last error to %d, expected 87\n", GLE);
 455   }
 456 }
 457
 458 /* Check that using the CREATE_SUSPENDED flag works */
 459 static VOID test_CreateThread_suspended(void)
 460 {
 461   HANDLE thread;
 462   DWORD threadId;
 463   DWORD suspend_count;
 464   int error;
 465
 466   thread = CreateThread(NULL,0,threadFunc2,NULL,
 467                         CREATE_SUSPENDED,&threadId);
 468   ok(thread!=NULL,"Create Thread failed\n");
 469 /* Check that the thread is suspended */
 470   ok(SuspendThread(thread)==1,"Thread did not start suspended\n");
 471   ok(ResumeThread(thread)==2,"Resume thread returned an invalid value\n");
 472 /* Check that resume thread didn't actually start the thread.  I can't think
 473    of a better way of checking this than just waiting.  I am not sure if this
 474    will work on slow computers.
 475 */
 476   ok(WaitForSingleObject(thread,1000)==WAIT_TIMEOUT,
 477      "ResumeThread should not have actually started the thread\n");
 478 /* Now actually resume the thread and make sure that it actually completes*/
 479   ok(ResumeThread(thread)==1,"Resume thread returned an invalid value\n");
 480   ok((error=WaitForSingleObject(thread,1000))==WAIT_OBJECT_0,
 481      "Thread did not resume\n");
 482   if(error!=WAIT_OBJECT_0) {
 483     TerminateThread(thread,1);
 484   }
 485
 486   suspend_count = SuspendThread(thread);
 487   ok(suspend_count == -1, "SuspendThread returned %d, expected -1\n", suspend_count);
 488
 489   suspend_count = ResumeThread(thread);
 490   ok(suspend_count == 0 ||
 491      broken(suspend_count == -1), /* win9x */
 492      "ResumeThread returned %d, expected 0\n", suspend_count);
 493
 494   ok(CloseHandle(thread)!=0,"CloseHandle failed\n");
 495 }
 496
 497 /* Check that SuspendThread and ResumeThread work */
 498 static VOID test_SuspendThread(void)
 499 {
 500   HANDLE thread,access_thread;
 501   DWORD threadId,exitCode,error;
 502   int i;
 503
 504   thread = CreateThread(NULL,0,threadFunc3,NULL,
 505                         0,&threadId);
 506   ok(thread!=NULL,"Create Thread failed\n");
 507 /* Check that the thread is suspended */
 508 /* Note that this is a polling method, and there is a race between
 509    SuspendThread being called (in the child, and the loop below timing out,
 510    so the test could fail on a heavily loaded or slow computer.
 511 */
 512   error=0;
 513   for(i=0;error==0 && i<100;i++) {
 514     error=SuspendThread(thread);
 515     ResumeThread(thread);
 516     if(error==0) {
 517       Sleep(50);
 518       i++;
 519     }
 520   }
 521   ok(error==1,"SuspendThread did not work\n");
 522 /* check that access restrictions are obeyed */
 523   if (pOpenThread) {
 524     access_thread=pOpenThread(THREAD_ALL_ACCESS & (~THREAD_SUSPEND_RESUME),
 525                            0,threadId);
 526     ok(access_thread!=NULL,"OpenThread returned an invalid handle\n");
 527     if (access_thread!=NULL) {
 528       obey_ar(SuspendThread(access_thread)==~0U);
 529       obey_ar(ResumeThread(access_thread)==~0U);
 530       ok(CloseHandle(access_thread)!=0,"CloseHandle Failed\n");
 531     }
 532   }
 533 /* Double check that the thread really is suspended */
 534   ok((error=GetExitCodeThread(thread,&exitCode))!=0 && exitCode==STILL_ACTIVE,
 535      "Thread did not really suspend\n");
 536 /* Resume the thread, and make sure it actually completes */
 537   ok(ResumeThread(thread)==1,"Resume thread returned an invalid value\n");
 538   ok((error=WaitForSingleObject(thread,1000))==WAIT_OBJECT_0,
 539      "Thread did not resume\n");
 540   if(error!=WAIT_OBJECT_0) {
 541     TerminateThread(thread,1);
 542   }
 543   /* Trying to suspend a terminated thread should fail */
 544   error=SuspendThread(thread);
 545   ok(error==~0U, "wrong return code: %d\n", error);
 546   ok(GetLastError()==ERROR_ACCESS_DENIED || GetLastError()==ERROR_NO_MORE_ITEMS, "unexpected error code: %d\n", GetLastError());
 547
 548   ok(CloseHandle(thread)!=0,"CloseHandle Failed\n");
 549 }
 550
 551 /* Check that TerminateThread works properly
 552 */
 553 static VOID test_TerminateThread(void)
 554 {
 555   HANDLE thread,access_thread,event;
 556   DWORD threadId,exitCode;
 557   event=CreateEventA(NULL,TRUE,FALSE,NULL);
 558   thread = CreateThread(NULL,0,threadFunc4,event,0,&threadId);
 559   ok(thread!=NULL,"Create Thread failed\n");
 560 /* TerminateThread has a race condition in Wine.  If the thread is terminated
 561    before it starts, it leaves a process behind.  Therefore, we wait for the
 562    thread to signal that it has started.  There is no easy way to force the
 563    race to occur, so we don't try to find it.
 564 */
 565   ok(WaitForSingleObject(event,5000)==WAIT_OBJECT_0,
 566      "TerminateThread didn't work\n");
 567 /* check that access restrictions are obeyed */
 568   if (pOpenThread) {
 569     access_thread=pOpenThread(THREAD_ALL_ACCESS & (~THREAD_TERMINATE),
 570                              0,threadId);
 571     ok(access_thread!=NULL,"OpenThread returned an invalid handle\n");
 572     if (access_thread!=NULL) {
 573       obey_ar(TerminateThread(access_thread,99)==0);
 574       ok(CloseHandle(access_thread)!=0,"CloseHandle Failed\n");
 575     }
 576   }
 577 /* terminate a job and make sure it terminates */
 578   ok(TerminateThread(thread,99)!=0,"TerminateThread failed\n");
 579   ok(WaitForSingleObject(thread,5000)==WAIT_OBJECT_0,
 580      "TerminateThread didn't work\n");
 581   ok(GetExitCodeThread(thread,&exitCode)!=STILL_ACTIVE,
 582      "TerminateThread should not leave the thread 'STILL_ACTIVE'\n");
 583   ok(exitCode==99, "TerminateThread returned invalid exit code\n");
 584   ok(CloseHandle(thread)!=0,"Error Closing thread handle\n");
 585 }
 586
 587 /* Check if CreateThread obeys the specified stack size.  This code does
 588    not work properly, and is currently disabled
 589 */
 590 static VOID test_CreateThread_stack(void)
 591 {
 592 #if CHECK_STACK
 593 /* The only way I know of to test the stack size is to use alloca
 594    and __try/__except.  However, this is probably not portable,
 595    and I couldn't get it to work under Wine anyhow.  However, here
 596    is the code which should allow for testing that CreateThread
 597    respects the stack-size limit
 598 */
 599      HANDLE thread;
 600      DWORD threadId,exitCode;
 601
 602      SYSTEM_INFO sysInfo;
 603      sysInfo.dwPageSize=0;
 604      GetSystemInfo(&sysInfo);
 605      ok(sysInfo.dwPageSize>0,"GetSystemInfo should return a valid page size\n");
 606      thread = CreateThread(NULL,sysInfo.dwPageSize,
 607                            threadFunc5,&exitCode,
 608                            0,&threadId);
 609      ok(WaitForSingleObject(thread,5000)==WAIT_OBJECT_0,
 610         "TerminateThread didn't work\n");
 611      ok(exitCode==1,"CreateThread did not obey stack-size-limit\n");
 612      ok(CloseHandle(thread)!=0,"CloseHandle failed\n");
 613 #endif
 614 }
 615
 616 /* Check whether setting/retrieving thread priorities works */
 617 static VOID test_thread_priority(void)
 618 {
 619    HANDLE curthread,access_thread;
 620    DWORD curthreadId,exitCode;
 621    int min_priority=-2,max_priority=2;
 622    BOOL disabled,rc;
 623    int i;
 624
 625    curthread=GetCurrentThread();
 626    curthreadId=GetCurrentThreadId();
 627 /* Check thread priority */
 628 /* NOTE: on Win2k/XP priority can be from -7 to 6.  All other platforms it
 629          is -2 to 2.  However, even on a real Win2k system, using thread
 630          priorities beyond the -2 to 2 range does not work.  If you want to try
 631          anyway, enable USE_EXTENDED_PRIORITIES
 632 */
 633    ok(GetThreadPriority(curthread)==THREAD_PRIORITY_NORMAL,
 634       "GetThreadPriority Failed\n");
 635
 636    if (pOpenThread) {
 637 /* check that access control is obeyed */
 638      access_thread=pOpenThread(THREAD_ALL_ACCESS &
 639                        (~THREAD_QUERY_INFORMATION) & (~THREAD_SET_INFORMATION),
 640                        0,curthreadId);
 641      ok(access_thread!=NULL,"OpenThread returned an invalid handle\n");
 642      if (access_thread!=NULL) {
 643        obey_ar(SetThreadPriority(access_thread,1)==0);
 644        obey_ar(GetThreadPriority(access_thread)==THREAD_PRIORITY_ERROR_RETURN);
 645        obey_ar(GetExitCodeThread(access_thread,&exitCode)==0);
 646        ok(CloseHandle(access_thread),"Error Closing thread handle\n");
 647      }
 648    }
 649 #if USE_EXTENDED_PRIORITIES
 650    min_priority=-7; max_priority=6;
 651 #endif
 652    for(i=min_priority;i<=max_priority;i++) {
 653      ok(SetThreadPriority(curthread,i)!=0,
 654         "SetThreadPriority Failed for priority: %d\n",i);
 655      ok(GetThreadPriority(curthread)==i,
 656         "GetThreadPriority Failed for priority: %d\n",i);
 657    }
 658    ok(SetThreadPriority(curthread,THREAD_PRIORITY_TIME_CRITICAL)!=0,
 659       "SetThreadPriority Failed\n");
 660    ok(GetThreadPriority(curthread)==THREAD_PRIORITY_TIME_CRITICAL,
 661       "GetThreadPriority Failed\n");
 662    ok(SetThreadPriority(curthread,THREAD_PRIORITY_IDLE)!=0,
 663        "SetThreadPriority Failed\n");
 664    ok(GetThreadPriority(curthread)==THREAD_PRIORITY_IDLE,
 665        "GetThreadPriority Failed\n");
 666    ok(SetThreadPriority(curthread,0)!=0,"SetThreadPriority Failed\n");
 667
 668 /* Check that the thread priority is not changed if SetThreadPriority
 669    is called with a value outside of the max/min range */
 670    SetThreadPriority(curthread,min_priority);
 671    SetLastError(0xdeadbeef);
 672    rc = SetThreadPriority(curthread,min_priority-1);
 673
 674    ok(rc == FALSE, "SetThreadPriority passed with a bad argument\n");
 675    ok(GetLastError() == ERROR_INVALID_PARAMETER ||
 676       GetLastError() == ERROR_INVALID_PRIORITY /* Win9x */,
 677       "SetThreadPriority error %d, expected ERROR_INVALID_PARAMETER or ERROR_INVALID_PRIORITY\n",
 678       GetLastError());
 679    ok(GetThreadPriority(curthread)==min_priority,
 680       "GetThreadPriority didn't return min_priority\n");
 681
 682    SetThreadPriority(curthread,max_priority);
 683    SetLastError(0xdeadbeef);
 684    rc = SetThreadPriority(curthread,max_priority+1);
 685
 686    ok(rc == FALSE, "SetThreadPriority passed with a bad argument\n");
 687    ok(GetLastError() == ERROR_INVALID_PARAMETER ||
 688       GetLastError() == ERROR_INVALID_PRIORITY /* Win9x */,
 689       "SetThreadPriority error %d, expected ERROR_INVALID_PARAMETER or ERROR_INVALID_PRIORITY\n",
 690       GetLastError());
 691    ok(GetThreadPriority(curthread)==max_priority,
 692       "GetThreadPriority didn't return max_priority\n");
 693
 694 /* Check thread priority boost */
 695    if (!pGetThreadPriorityBoost || !pSetThreadPriorityBoost)
 696      return; /* Win9x */
 697
 698    SetLastError(0xdeadbeef);
 699    rc=pGetThreadPriorityBoost(curthread,&disabled);
 700    if (rc==0 && GetLastError()==ERROR_CALL_NOT_IMPLEMENTED)
 701    {
 702       win_skip("GetThreadPriorityBoost is not implemented on WinME\n");
 703       return;
 704    }
 705
 706    ok(rc!=0,"error=%d\n",GetLastError());
 707
 708    if (pOpenThread) {
 709 /* check that access control is obeyed */
 710      access_thread=pOpenThread(THREAD_ALL_ACCESS &
 711                        (~THREAD_QUERY_INFORMATION) & (~THREAD_SET_INFORMATION),
 712                        0,curthreadId);
 713      ok(access_thread!=NULL,"OpenThread returned an invalid handle\n");
 714      if (access_thread!=NULL) {
 715        obey_ar(pSetThreadPriorityBoost(access_thread,1)==0);
 716        todo_wine obey_ar(pGetThreadPriorityBoost(access_thread,&disabled)==0);
 717        ok(CloseHandle(access_thread),"Error Closing thread handle\n");
 718      }
 719    }
 720
 721    todo_wine {
 722      rc = pSetThreadPriorityBoost(curthread,1);
 723      ok( rc != 0, "error=%d\n",GetLastError());
 724      rc=pGetThreadPriorityBoost(curthread,&disabled);
 725      ok(rc!=0 && disabled==1,
 726         "rc=%d error=%d disabled=%d\n",rc,GetLastError(),disabled);
 727
 728      rc = pSetThreadPriorityBoost(curthread,0);
 729      ok( rc != 0, "error=%d\n",GetLastError());
 730    }
 731    rc=pGetThreadPriorityBoost(curthread,&disabled);
 732    ok(rc!=0 && disabled==0,
 733       "rc=%d error=%d disabled=%d\n",rc,GetLastError(),disabled);
 734 }
 735
 736 /* check the GetThreadTimes function */
 737 static VOID test_GetThreadTimes(void)
 738 {
 739      HANDLE thread,access_thread=NULL;
 740      FILETIME creationTime,exitTime,kernelTime,userTime;
 741      DWORD threadId;
 742      int error;
 743
 744      thread = CreateThread(NULL,0,threadFunc2,NULL,
 745                            CREATE_SUSPENDED,&threadId);
 746
 747      ok(thread!=NULL,"Create Thread failed\n");
 748 /* check that access control is obeyed */
 749      if (pOpenThread) {
 750        access_thread=pOpenThread(THREAD_ALL_ACCESS &
 751                                    (~THREAD_QUERY_INFORMATION), 0,threadId);
 752        ok(access_thread!=NULL,
 753           "OpenThread returned an invalid handle\n");
 754      }
 755      ok(ResumeThread(thread)==1,"Resume thread returned an invalid value\n");
 756      ok(WaitForSingleObject(thread,5000)==WAIT_OBJECT_0,
 757         "ResumeThread didn't work\n");
 758      creationTime.dwLowDateTime=99; creationTime.dwHighDateTime=99;
 759      exitTime.dwLowDateTime=99;     exitTime.dwHighDateTime=99;
 760      kernelTime.dwLowDateTime=99;   kernelTime.dwHighDateTime=99;
 761      userTime.dwLowDateTime=99;     userTime.dwHighDateTime=99;
 762 /* GetThreadTimes should set all of the parameters passed to it */
 763      error=GetThreadTimes(thread,&creationTime,&exitTime,
 764                           &kernelTime,&userTime);
 765
 766      if (error == 0 && GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
 767        win_skip("GetThreadTimes is not implemented\n");
 768      else {
 769        ok(error!=0,"GetThreadTimes failed\n");
 770        ok(creationTime.dwLowDateTime!=99 || creationTime.dwHighDateTime!=99,
 771           "creationTime was invalid\n");
 772        ok(exitTime.dwLowDateTime!=99 || exitTime.dwHighDateTime!=99,
 773           "exitTime was invalid\n");
 774        ok(kernelTime.dwLowDateTime!=99 || kernelTime.dwHighDateTime!=99,
 775           "kernelTimewas invalid\n");
 776        ok(userTime.dwLowDateTime!=99 || userTime.dwHighDateTime!=99,
 777           "userTime was invalid\n");
 778        ok(CloseHandle(thread)!=0,"CloseHandle failed\n");
 779        if(access_thread!=NULL)
 780        {
 781          error=GetThreadTimes(access_thread,&creationTime,&exitTime,
 782                               &kernelTime,&userTime);
 783          obey_ar(error==0);
 784        }
 785      }
 786      if(access_thread!=NULL) {
 787        ok(CloseHandle(access_thread)!=0,"CloseHandle Failed\n");
 788      }
 789 }
 790
 791 /* Check the processor affinity functions */
 792 /* NOTE: These functions should also be checked that they obey access control
 793 */
 794 static VOID test_thread_processor(void)
 795 {
 796    HANDLE curthread,curproc;
 797    DWORD_PTR processMask,systemMask,retMask;
 798    SYSTEM_INFO sysInfo;
 799    int error=0;
 800    BOOL is_wow64;
 801
 802    if (!pIsWow64Process || !pIsWow64Process( GetCurrentProcess(), &is_wow64 )) is_wow64 = FALSE;
 803
 804    sysInfo.dwNumberOfProcessors=0;
 805    GetSystemInfo(&sysInfo);
 806    ok(sysInfo.dwNumberOfProcessors>0,
 807       "GetSystemInfo failed to return a valid # of processors\n");
 808 /* Use the current Thread/process for all tests */
 809    curthread=GetCurrentThread();
 810    ok(curthread!=NULL,"GetCurrentThread failed\n");
 811    curproc=GetCurrentProcess();
 812    ok(curproc!=NULL,"GetCurrentProcess failed\n");
 813 /* Check the Affinity Mask functions */
 814    ok(GetProcessAffinityMask(curproc,&processMask,&systemMask)!=0,
 815       "GetProcessAffinityMask failed\n");
 816    ok(SetThreadAffinityMask(curthread,processMask)==processMask,
 817       "SetThreadAffinityMask failed\n");
 818    ok(SetThreadAffinityMask(curthread,processMask+1)==0,
 819       "SetThreadAffinityMask passed for an illegal processor\n");
 820 /* NOTE: Pre-Vista does not recognize the "all processors" flag (all bits set) */
 821    retMask = SetThreadAffinityMask(curthread,~0);
 822    ok(broken(retMask==0) || retMask==processMask,
 823       "SetThreadAffinityMask(thread,-1) failed to request all processors.\n");
 824    if (retMask == processMask && sizeof(ULONG_PTR) > sizeof(ULONG))
 825    {
 826        /* only the low 32-bits matter */
 827        retMask = SetThreadAffinityMask(curthread,~(ULONG_PTR)0);
 828        ok(retMask == processMask, "SetThreadAffinityMask failed\n");
 829        retMask = SetThreadAffinityMask(curthread,~(ULONG_PTR)0 >> 3);
 830        ok(retMask == processMask, "SetThreadAffinityMask failed\n");
 831        retMask = SetThreadAffinityMask(curthread,~(ULONG_PTR)1);
 832        ok(retMask == 0, "SetThreadAffinityMask succeeded\n");
 833    }
 834 /* NOTE: This only works on WinNT/2000/XP) */
 835    if (pSetThreadIdealProcessor) {
 836      SetLastError(0xdeadbeef);
 837      error=pSetThreadIdealProcessor(curthread,0);
 838      if (GetLastError()==ERROR_CALL_NOT_IMPLEMENTED)
 839      {
 840        win_skip("SetThreadIdealProcessor is not implemented\n");
 841        return;
 842      }
 843      ok(error!=-1, "SetThreadIdealProcessor failed\n");
 844
 845      if (is_wow64)
 846      {
 847          SetLastError(0xdeadbeef);
 848          error=pSetThreadIdealProcessor(curthread,MAXIMUM_PROCESSORS+1);
 849          todo_wine
 850          ok(error!=-1, "SetThreadIdealProcessor failed for %u on Wow64\n", MAXIMUM_PROCESSORS+1);
 851
 852          SetLastError(0xdeadbeef);
 853          error=pSetThreadIdealProcessor(curthread,65);
 854          ok(error==-1, "SetThreadIdealProcessor succeeded with an illegal processor #\n");
 855          ok(GetLastError()==ERROR_INVALID_PARAMETER,
 856             "Expected ERROR_INVALID_PARAMETER, got %d\n", GetLastError());
 857      }
 858      else
 859      {
 860          SetLastError(0xdeadbeef);
 861          error=pSetThreadIdealProcessor(curthread,MAXIMUM_PROCESSORS+1);
 862          ok(error==-1, "SetThreadIdealProcessor succeeded with an illegal processor #\n");
 863          ok(GetLastError()==ERROR_INVALID_PARAMETER,
 864             "Expected ERROR_INVALID_PARAMETER, got %d\n", GetLastError());
 865      }
 866
 867      error=pSetThreadIdealProcessor(curthread,MAXIMUM_PROCESSORS);
 868      ok(error==0, "SetThreadIdealProcessor returned an incorrect value\n");
 869    }
 870 }
 871
 872 static VOID test_GetThreadExitCode(void)
 873 {
 874     DWORD exitCode, threadid;
 875     DWORD GLE, ret;
 876     HANDLE thread;
 877
 878     ret = GetExitCodeThread((HANDLE)0x2bad2bad,&exitCode);
 879     ok(ret==0, "GetExitCodeThread returned non zero value: %d\n", ret);
 880     GLE = GetLastError();
 881     ok(GLE==ERROR_INVALID_HANDLE, "GetLastError returned %d (expected 6)\n", GLE);
 882
 883     thread = CreateThread(NULL,0,threadFunc2,NULL,0,&threadid);
 884     ret = WaitForSingleObject(thread,100);
 885     ok(ret==WAIT_OBJECT_0, "threadFunc2 did not exit during 100 ms\n");
 886     ret = GetExitCodeThread(thread,&exitCode);
 887     ok(ret==exitCode || ret==1,
 888        "GetExitCodeThread returned %d (expected 1 or %d)\n", ret, exitCode);
 889     ok(exitCode==99, "threadFunc2 exited with code %d (expected 99)\n", exitCode);
 890     ok(CloseHandle(thread)!=0,"Error closing thread handle\n");
 891 }
 892
 893 #ifdef __i386__
 894
 895 static int test_value = 0;
 896 static HANDLE event;
 897
 898 static void WINAPI set_test_val( int val )
 899 {
 900     test_value += val;
 901 }
 902
 903 static DWORD WINAPI threadFunc6(LPVOID p)
 904 {
 905     SetEvent( event );
 906     Sleep( 1000 );
 907     test_value *= (int)p;
 908     return 0;
 909 }
 910
 911 static void test_SetThreadContext(void)
 912 {
 913     CONTEXT ctx;
 914     int *stack;
 915     HANDLE thread;
 916     DWORD threadid;
 917     DWORD prevcount;
 918     BOOL ret;
 919
 920     SetLastError(0xdeadbeef);
 921     event = CreateEvent( NULL, TRUE, FALSE, NULL );
 922     thread = CreateThread( NULL, 0, threadFunc6, (void *)2, 0, &threadid );
 923     ok( thread != NULL, "CreateThread failed : (%d)\n", GetLastError() );
 924     if (!thread)
 925     {
 926         trace("Thread creation failed, skipping rest of test\n");
 927         return;
 928     }
 929     WaitForSingleObject( event, INFINITE );
 930     SuspendThread( thread );
 931     CloseHandle( event );
 932
 933     ctx.ContextFlags = CONTEXT_FULL;
 934     SetLastError(0xdeadbeef);
 935     ret = GetThreadContext( thread, &ctx );
 936     ok( ret, "GetThreadContext failed : (%u)\n", GetLastError() );
 937
 938     if (ret)
 939     {
 940         /* simulate a call to set_test_val(10) */
 941         stack = (int *)ctx.Esp;
 942         stack[-1] = 10;
 943         stack[-2] = ctx.Eip;
 944         ctx.Esp -= 2 * sizeof(int *);
 945         ctx.Eip = (DWORD)set_test_val;
 946         SetLastError(0xdeadbeef);
 947         ok( SetThreadContext( thread, &ctx ), "SetThreadContext failed : (%d)\n", GetLastError() );
 948     }
 949
 950     SetLastError(0xdeadbeef);
 951     prevcount = ResumeThread( thread );
 952     ok ( prevcount == 1, "Previous suspend count (%d) instead of 1, last error : (%d)\n",
 953                          prevcount, GetLastError() );
 954
 955     WaitForSingleObject( thread, INFINITE );
 956     ok( test_value == 20, "test_value %d instead of 20\n", test_value );
 957 }
 958
 959 #endif  /* __i386__ */
 960
 961 static HANDLE finish_event;
 962 static LONG times_executed;
 963
 964 static DWORD CALLBACK work_function(void *p)
 965 {
 966     LONG executed = InterlockedIncrement(&times_executed);
 967
 968     if (executed == 100)
 969         SetEvent(finish_event);
 970     return 0;
 971 }
 972
 973 static void test_QueueUserWorkItem(void)
 974 {
 975     INT_PTR i;
 976     DWORD wait_result;
 977     DWORD before, after;
 978
 979     /* QueueUserWorkItem not present on win9x */
 980     if (!pQueueUserWorkItem) return;
 981
 982     finish_event = CreateEvent(NULL, TRUE, FALSE, NULL);
 983
 984     before = GetTickCount();
 985
 986     for (i = 0; i < 100; i++)
 987     {
 988         BOOL ret = pQueueUserWorkItem(work_function, (void *)i, WT_EXECUTEDEFAULT);
 989         ok(ret, "QueueUserWorkItem failed with error %d\n", GetLastError());
 990     }
 991
 992     wait_result = WaitForSingleObject(finish_event, 10000);
 993
 994     after = GetTickCount();
 995     trace("100 QueueUserWorkItem calls took %dms\n", after - before);
 996     ok(wait_result == WAIT_OBJECT_0, "wait failed with error 0x%x\n", wait_result);
 997
 998     ok(times_executed == 100, "didn't execute all of the work items\n");
 999 }
1000
1001 static void CALLBACK signaled_function(PVOID p, BOOLEAN TimerOrWaitFired)
1002 {
1003     HANDLE event = p;
1004     SetEvent(event);
1005     ok(!TimerOrWaitFired, "wait shouldn't have timed out\n");
1006 }
1007
1008 static void CALLBACK timeout_function(PVOID p, BOOLEAN TimerOrWaitFired)
1009 {
1010     HANDLE event = p;
1011     SetEvent(event);
1012     ok(TimerOrWaitFired, "wait should have timed out\n");
1013 }
1014
1015 static void test_RegisterWaitForSingleObject(void)
1016 {
1017     BOOL ret;
1018     HANDLE wait_handle;
1019     HANDLE handle;
1020     HANDLE complete_event;
1021
1022     if (!pRegisterWaitForSingleObject || !pUnregisterWait)
1023     {
1024         win_skip("RegisterWaitForSingleObject or UnregisterWait not implemented\n");
1025         return;
1026     }
1027
1028     /* test signaled case */
1029
1030     handle = CreateEvent(NULL, TRUE, TRUE, NULL);
1031     complete_event = CreateEvent(NULL, FALSE, FALSE, NULL);
1032
1033     ret = pRegisterWaitForSingleObject(&wait_handle, handle, signaled_function, complete_event, INFINITE, WT_EXECUTEONLYONCE);
1034     ok(ret, "RegisterWaitForSingleObject failed with error %d\n", GetLastError());
1035
1036     WaitForSingleObject(complete_event, INFINITE);
1037     /* give worker thread chance to complete */
1038     Sleep(100);
1039
1040     ret = pUnregisterWait(wait_handle);
1041     ok(ret, "UnregisterWait failed with error %d\n", GetLastError());
1042
1043     /* test cancel case */
1044
1045     ResetEvent(handle);
1046
1047     ret = pRegisterWaitForSingleObject(&wait_handle, handle, signaled_function, complete_event, INFINITE, WT_EXECUTEONLYONCE);
1048     ok(ret, "RegisterWaitForSingleObject failed with error %d\n", GetLastError());
1049
1050     ret = pUnregisterWait(wait_handle);
1051     ok(ret, "UnregisterWait failed with error %d\n", GetLastError());
1052
1053     /* test timeout case */
1054
1055     ret = pRegisterWaitForSingleObject(&wait_handle, handle, timeout_function, complete_event, 0, WT_EXECUTEONLYONCE);
1056     ok(ret, "RegisterWaitForSingleObject failed with error %d\n", GetLastError());
1057
1058     WaitForSingleObject(complete_event, INFINITE);
1059     /* give worker thread chance to complete */
1060     Sleep(100);
1061
1062     ret = pUnregisterWait(wait_handle);
1063     ok(ret, "UnregisterWait failed with error %d\n", GetLastError());
1064 }
1065
1066 static DWORD TLS_main;
1067 static DWORD TLS_index0, TLS_index1;
1068
1069 static DWORD WINAPI TLS_InheritanceProc(LPVOID p)
1070 {
1071   /* We should NOT inherit the TLS values from our parent or from the
1072      main thread.  */
1073   LPVOID val;
1074
1075   val = TlsGetValue(TLS_main);
1076   ok(val == NULL, "TLS inheritance failed\n");
1077
1078   val = TlsGetValue(TLS_index0);
1079   ok(val == NULL, "TLS inheritance failed\n");
1080
1081   val = TlsGetValue(TLS_index1);
1082   ok(val == NULL, "TLS inheritance failed\n");
1083
1084   return 0;
1085 }
1086
1087 /* Basic TLS usage test.  Make sure we can create slots and the values we
1088    store in them are separate among threads.  Also test TLS value
1089    inheritance with TLS_InheritanceProc.  */
1090 static DWORD WINAPI TLS_ThreadProc(LPVOID p)
1091 {
1092   LONG_PTR id = (LONG_PTR) p;
1093   LPVOID val;
1094   BOOL ret;
1095
1096   if (sync_threads_and_run_one(0, id))
1097   {
1098     TLS_index0 = TlsAlloc();
1099     ok(TLS_index0 != TLS_OUT_OF_INDEXES, "TlsAlloc failed\n");
1100   }
1101   resync_after_run();
1102
1103   if (sync_threads_and_run_one(1, id))
1104   {
1105     TLS_index1 = TlsAlloc();
1106     ok(TLS_index1 != TLS_OUT_OF_INDEXES, "TlsAlloc failed\n");
1107
1108     /* Slot indices should be different even if created in different
1109        threads.  */
1110     ok(TLS_index0 != TLS_index1, "TlsAlloc failed\n");
1111
1112     /* Both slots should be initialized to NULL */
1113     val = TlsGetValue(TLS_index0);
1114     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1115     ok(val == NULL, "TLS slot not initialized correctly\n");
1116
1117     val = TlsGetValue(TLS_index1);
1118     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1119     ok(val == NULL, "TLS slot not initialized correctly\n");
1120   }
1121   resync_after_run();
1122
1123   if (sync_threads_and_run_one(0, id))
1124   {
1125     val = TlsGetValue(TLS_index0);
1126     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1127     ok(val == NULL, "TLS slot not initialized correctly\n");
1128
1129     val = TlsGetValue(TLS_index1);
1130     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1131     ok(val == NULL, "TLS slot not initialized correctly\n");
1132
1133     ret = TlsSetValue(TLS_index0, (LPVOID) 1);
1134     ok(ret, "TlsSetValue failed\n");
1135
1136     ret = TlsSetValue(TLS_index1, (LPVOID) 2);
1137     ok(ret, "TlsSetValue failed\n");
1138
1139     val = TlsGetValue(TLS_index0);
1140     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1141     ok(val == (LPVOID) 1, "TLS slot not initialized correctly\n");
1142
1143     val = TlsGetValue(TLS_index1);
1144     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1145     ok(val == (LPVOID) 2, "TLS slot not initialized correctly\n");
1146   }
1147   resync_after_run();
1148
1149   if (sync_threads_and_run_one(1, id))
1150   {
1151     val = TlsGetValue(TLS_index0);
1152     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1153     ok(val == NULL, "TLS slot not initialized correctly\n");
1154
1155     val = TlsGetValue(TLS_index1);
1156     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1157     ok(val == NULL, "TLS slot not initialized correctly\n");
1158
1159     ret = TlsSetValue(TLS_index0, (LPVOID) 3);
1160     ok(ret, "TlsSetValue failed\n");
1161
1162     ret = TlsSetValue(TLS_index1, (LPVOID) 4);
1163     ok(ret, "TlsSetValue failed\n");
1164
1165     val = TlsGetValue(TLS_index0);
1166     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1167     ok(val == (LPVOID) 3, "TLS slot not initialized correctly\n");
1168
1169     val = TlsGetValue(TLS_index1);
1170     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1171     ok(val == (LPVOID) 4, "TLS slot not initialized correctly\n");
1172   }
1173   resync_after_run();
1174
1175   if (sync_threads_and_run_one(0, id))
1176   {
1177     HANDLE thread;
1178     DWORD waitret, tid;
1179
1180     val = TlsGetValue(TLS_index0);
1181     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1182     ok(val == (LPVOID) 1, "TLS slot not initialized correctly\n");
1183
1184     val = TlsGetValue(TLS_index1);
1185     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1186     ok(val == (LPVOID) 2, "TLS slot not initialized correctly\n");
1187
1188     thread = CreateThread(NULL, 0, TLS_InheritanceProc, 0, 0, &tid);
1189     ok(thread != NULL, "CreateThread failed\n");
1190     waitret = WaitForSingleObject(thread, 60000);
1191     ok(waitret == WAIT_OBJECT_0, "WaitForSingleObject failed\n");
1192     CloseHandle(thread);
1193
1194     ret = TlsFree(TLS_index0);
1195     ok(ret, "TlsFree failed\n");
1196   }
1197   resync_after_run();
1198
1199   if (sync_threads_and_run_one(1, id))
1200   {
1201     ret = TlsFree(TLS_index1);
1202     ok(ret, "TlsFree failed\n");
1203   }
1204   resync_after_run();
1205
1206   return 0;
1207 }
1208
1209 static void test_TLS(void)
1210 {
1211   HANDLE threads[2];
1212   LONG_PTR i;
1213   DWORD ret;
1214   BOOL suc;
1215
1216   init_thread_sync_helpers();
1217
1218   /* Allocate a TLS slot in the main thread to test for inheritance.  */
1219   TLS_main = TlsAlloc();
1220   ok(TLS_main != TLS_OUT_OF_INDEXES, "TlsAlloc failed\n");
1221   suc = TlsSetValue(TLS_main, (LPVOID) 4114);
1222   ok(suc, "TlsSetValue failed\n");
1223
1224   for (i = 0; i < 2; ++i)
1225   {
1226     DWORD tid;
1227
1228     threads[i] = CreateThread(NULL, 0, TLS_ThreadProc, (LPVOID) i, 0, &tid);
1229     ok(threads[i] != NULL, "CreateThread failed\n");
1230   }
1231
1232   ret = WaitForMultipleObjects(2, threads, TRUE, 60000);
1233   ok(ret == WAIT_OBJECT_0 || ret == WAIT_OBJECT_0+1 /* nt4 */, "WaitForMultipleObjects failed %u\n",ret);
1234
1235   for (i = 0; i < 2; ++i)
1236     CloseHandle(threads[i]);
1237
1238   suc = TlsFree(TLS_main);
1239   ok(suc, "TlsFree failed\n");
1240   cleanup_thread_sync_helpers();
1241 }
1242
1243 static void test_ThreadErrorMode(void)
1244 {
1245     DWORD oldmode;
1246     DWORD mode;
1247     DWORD rtlmode;
1248     BOOL ret;
1249
1250     if (!pSetThreadErrorMode || !pGetThreadErrorMode)
1251     {
1252         win_skip("SetThreadErrorMode and/or GetThreadErrorMode unavailable (added in Windows 7)\n");
1253         return;
1254     }
1255
1256     if (!pRtlGetThreadErrorMode) {
1257         win_skip("RtlGetThreadErrorMode not available\n");
1258         return;
1259     }
1260
1261     oldmode = pGetThreadErrorMode();
1262
1263     ret = pSetThreadErrorMode(0, &mode);
1264     ok(ret, "SetThreadErrorMode failed\n");
1265     ok(mode == oldmode,
1266        "SetThreadErrorMode returned old mode 0x%x, expected 0x%x\n",
1267        mode, oldmode);
1268     mode = pGetThreadErrorMode();
1269     ok(mode == 0, "GetThreadErrorMode returned mode 0x%x, expected 0\n", mode);
1270     rtlmode = pRtlGetThreadErrorMode();
1271     ok(rtlmode == 0,
1272        "RtlGetThreadErrorMode returned mode 0x%x, expected 0\n", mode);
1273
1274     ret = pSetThreadErrorMode(SEM_FAILCRITICALERRORS, &mode);
1275     ok(ret, "SetThreadErrorMode failed\n");
1276     ok(mode == 0,
1277        "SetThreadErrorMode returned old mode 0x%x, expected 0\n", mode);
1278     mode = pGetThreadErrorMode();
1279     ok(mode == SEM_FAILCRITICALERRORS,
1280        "GetThreadErrorMode returned mode 0x%x, expected SEM_FAILCRITICALERRORS\n",
1281        mode);
1282     rtlmode = pRtlGetThreadErrorMode();
1283     ok(rtlmode == 0x10,
1284        "RtlGetThreadErrorMode returned mode 0x%x, expected 0x10\n", mode);
1285
1286     ret = pSetThreadErrorMode(SEM_NOGPFAULTERRORBOX, &mode);
1287     ok(ret, "SetThreadErrorMode failed\n");
1288     ok(mode == SEM_FAILCRITICALERRORS,
1289        "SetThreadErrorMode returned old mode 0x%x, expected SEM_FAILCRITICALERRORS\n",
1290        mode);
1291     mode = pGetThreadErrorMode();
1292     ok(mode == SEM_NOGPFAULTERRORBOX,
1293        "GetThreadErrorMode returned mode 0x%x, expected SEM_NOGPFAULTERRORBOX\n",
1294        mode);
1295     rtlmode = pRtlGetThreadErrorMode();
1296     ok(rtlmode == 0x20,
1297        "RtlGetThreadErrorMode returned mode 0x%x, expected 0x20\n", mode);
1298
1299     ret = pSetThreadErrorMode(SEM_NOOPENFILEERRORBOX, NULL);
1300     ok(ret, "SetThreadErrorMode failed\n");
1301     mode = pGetThreadErrorMode();
1302     ok(mode == SEM_NOOPENFILEERRORBOX,
1303        "GetThreadErrorMode returned mode 0x%x, expected SEM_NOOPENFILEERRORBOX\n",
1304        mode);
1305     rtlmode = pRtlGetThreadErrorMode();
1306     ok(rtlmode == 0x40,
1307        "RtlGetThreadErrorMode returned mode 0x%x, expected 0x40\n", rtlmode);
1308
1309     for (mode = 1; mode; mode <<= 1)
1310     {
1311         ret = pSetThreadErrorMode(mode, NULL);
1312         if (mode & (SEM_FAILCRITICALERRORS |
1313                     SEM_NOGPFAULTERRORBOX |
1314                     SEM_NOOPENFILEERRORBOX))
1315         {
1316             ok(ret,
1317                "SetThreadErrorMode(0x%x,NULL) failed with error %d\n",
1318                mode, GetLastError());
1319         }
1320         else
1321         {
1322             DWORD GLE = GetLastError();
1323             ok(!ret,
1324                "SetThreadErrorMode(0x%x,NULL) succeeded, expected failure\n",
1325                mode);
1326             ok(GLE == ERROR_INVALID_PARAMETER,
1327                "SetThreadErrorMode(0x%x,NULL) failed with %d, "
1328                "expected ERROR_INVALID_PARAMETER\n",
1329                mode, GLE);
1330         }
1331     }
1332
1333     pSetThreadErrorMode(oldmode, NULL);
1334 }
1335
1336 static inline void set_fpu_cw(WORD cw)
1337 {
1338 #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__))
1339     __asm__ volatile ("fnclex; fldcw %0" : : "m" (cw));
1340 #endif
1341 }
1342
1343 static inline WORD get_fpu_cw(void)
1344 {
1345     WORD cw = 0;
1346 #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__))
1347     __asm__ volatile ("fnstcw %0" : "=m" (cw));
1348 #endif
1349     return cw;
1350 }
1351
1352 struct fpu_thread_ctx
1353 {
1354     WORD cw;
1355     HANDLE finished;
1356 };
1357
1358 static DWORD WINAPI fpu_thread(void *param)
1359 {
1360     struct fpu_thread_ctx *ctx = param;
1361     BOOL ret;
1362
1363     ctx->cw = get_fpu_cw();
1364
1365     ret = SetEvent(ctx->finished);
1366     ok(ret, "SetEvent failed, last error %#x.\n", GetLastError());
1367
1368     return 0;
1369 }
1370
1371 static WORD get_thread_fpu_cw(void)
1372 {
1373     struct fpu_thread_ctx ctx;
1374     DWORD tid, res;
1375     HANDLE thread;
1376
1377     ctx.finished = CreateEvent(NULL, FALSE, FALSE, NULL);
1378     ok(!!ctx.finished, "Failed to create event, last error %#x.\n", GetLastError());
1379
1380     thread = CreateThread(NULL, 0, fpu_thread, &ctx, 0, &tid);
1381     ok(!!thread, "Failed to create thread, last error %#x.\n", GetLastError());
1382
1383     res = WaitForSingleObject(ctx.finished, INFINITE);
1384     ok(res == WAIT_OBJECT_0, "Wait failed (%#x), last error %#x.\n", res, GetLastError());
1385
1386     res = CloseHandle(ctx.finished);
1387     ok(!!res, "Failed to close event handle, last error %#x.\n", GetLastError());
1388
1389     return ctx.cw;
1390 }
1391
1392 static void test_thread_fpu_cw(void)
1393 {
1394     WORD initial_cw, cw;
1395
1396     initial_cw = get_fpu_cw();
1397     ok(initial_cw == 0x27f, "Expected FPU control word 0x27f, got %#x.\n", initial_cw);
1398
1399     cw = get_thread_fpu_cw();
1400     ok(cw == 0x27f, "Expected FPU control word 0x27f, got %#x.\n", cw);
1401
1402     set_fpu_cw(0xf60);
1403     cw = get_fpu_cw();
1404     ok(cw == 0xf60, "Expected FPU control word 0xf60, got %#x.\n", cw);
1405
1406     cw = get_thread_fpu_cw();
1407     ok(cw == 0x27f, "Expected FPU control word 0x27f, got %#x.\n", cw);
1408
1409     cw = get_fpu_cw();
1410     ok(cw == 0xf60, "Expected FPU control word 0xf60, got %#x.\n", cw);
1411
1412     set_fpu_cw(initial_cw);
1413     cw = get_fpu_cw();
1414     ok(cw == initial_cw, "Expected FPU control word %#x, got %#x.\n", initial_cw, cw);
1415 }
1416
1417 START_TEST(thread)
1418 {
1419    HINSTANCE lib;
1420    HINSTANCE ntdll;
1421    int argc;
1422    char **argv;
1423    argc = winetest_get_mainargs( &argv );
1424 /* Neither Cygwin nor mingW export OpenThread, so do a dynamic check
1425    so that the compile passes
1426 */
1427    lib=GetModuleHandleA("kernel32.dll");
1428    ok(lib!=NULL,"Couldn't get a handle for kernel32.dll\n");
1429    pGetThreadPriorityBoost=(void *)GetProcAddress(lib,"GetThreadPriorityBoost");
1430    pOpenThread=(void *)GetProcAddress(lib,"OpenThread");
1431    pQueueUserWorkItem=(void *)GetProcAddress(lib,"QueueUserWorkItem");
1432    pSetThreadIdealProcessor=(void *)GetProcAddress(lib,"SetThreadIdealProcessor");
1433    pSetThreadPriorityBoost=(void *)GetProcAddress(lib,"SetThreadPriorityBoost");
1434    pRegisterWaitForSingleObject=(void *)GetProcAddress(lib,"RegisterWaitForSingleObject");
1435    pUnregisterWait=(void *)GetProcAddress(lib,"UnregisterWait");
1436    pIsWow64Process=(void *)GetProcAddress(lib,"IsWow64Process");
1437    pSetThreadErrorMode=(void *)GetProcAddress(lib,"SetThreadErrorMode");
1438    pGetThreadErrorMode=(void *)GetProcAddress(lib,"GetThreadErrorMode");
1439
1440    ntdll=GetModuleHandleA("ntdll.dll");
1441    if (ntdll)
1442    {
1443        pRtlGetThreadErrorMode=(void *)GetProcAddress(ntdll,"RtlGetThreadErrorMode");
1444    }
1445
1446    if (argc >= 3)
1447    {
1448        if (!strcmp(argv[2], "sleep"))
1449        {
1450            HANDLE hAddrEvents[2];
1451            create_function_addr_events(hAddrEvents);
1452            SetEvent(hAddrEvents[0]);
1453            SetEvent(hAddrEvents[1]);
1454            Sleep(5000); /* spawned process runs for at most 5 seconds */
1455            return;
1456        }
1457        while (1)
1458        {
1459            HANDLE hThread;
1460            DWORD tid;
1461            hThread = CreateThread(NULL, 0, threadFunc2, NULL, 0, &tid);
1462            ok(hThread != NULL, "CreateThread failed, error %u\n",
1463               GetLastError());
1464            ok(WaitForSingleObject(hThread, 200) == WAIT_OBJECT_0,
1465               "Thread did not exit in time\n");
1466            if (hThread == NULL) break;
1467            CloseHandle(hThread);
1468        }
1469        return;
1470    }
1471
1472    test_CreateRemoteThread();
1473    test_CreateThread_basic();
1474    test_CreateThread_suspended();
1475    test_SuspendThread();
1476    test_TerminateThread();
1477    test_CreateThread_stack();
1478    test_thread_priority();
1479    test_GetThreadTimes();
1480    test_thread_processor();
1481    test_GetThreadExitCode();
1482 #ifdef __i386__
1483    test_SetThreadContext();
1484 #endif
1485    test_QueueUserWorkItem();
1486    test_RegisterWaitForSingleObject();
1487    test_TLS();
1488    test_ThreadErrorMode();
1489 #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__))
1490    test_thread_fpu_cw();
1491 #endif
1492 }