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     ok(ret == WAIT_OBJECT_0 || broken(ret == WAIT_OBJECT_0+1 /* nt4,w2k */), "WaitForAllObjects 2 events %d\n", ret);
 292
 293     hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);
 294     ok(hEvent != NULL, "Can't create event, err=%u\n", GetLastError());
 295     ret = DuplicateHandle(GetCurrentProcess(), hEvent, hProcess, &hRemoteEvent,
 296                           0, FALSE, DUPLICATE_SAME_ACCESS);
 297     ok(ret != 0, "DuplicateHandle failed, err=%u\n", GetLastError());
 298
 299     /* create suspended remote thread with entry point SetEvent() */
 300     SetLastError(0xdeadbeef);
 301     hThread = CreateRemoteThread(hProcess, NULL, 0, threadFunc_SetEvent,
 302                                  hRemoteEvent, CREATE_SUSPENDED, &tid);
 303     if (GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
 304     {
 305         win_skip("CreateRemoteThread is not implemented\n");
 306         goto cleanup;
 307     }
 308     ok(hThread != NULL, "CreateRemoteThread failed, err=%u\n", GetLastError());
 309     ok(tid != 0, "null tid\n");
 310     ret = SuspendThread(hThread);
 311     ok(ret == 1, "ret=%u, err=%u\n", ret, GetLastError());
 312     ret = ResumeThread(hThread);
 313     ok(ret == 2, "ret=%u, err=%u\n", ret, GetLastError());
 314
 315     /* thread still suspended, so wait times out */
 316     ret = WaitForSingleObject(hEvent, 1000);
 317     ok(ret == WAIT_TIMEOUT, "wait did not time out, ret=%u\n", ret);
 318
 319     ret = ResumeThread(hThread);
 320     ok(ret == 1, "ret=%u, err=%u\n", ret, GetLastError());
 321
 322     /* wait that doesn't time out */
 323     ret = WaitForSingleObject(hEvent, 1000);
 324     ok(ret == WAIT_OBJECT_0, "object not signaled, ret=%u\n", ret);
 325
 326     /* wait for thread end */
 327     ret = WaitForSingleObject(hThread, 1000);
 328     ok(ret == WAIT_OBJECT_0, "waiting for thread failed, ret=%u\n", ret);
 329     CloseHandle(hThread);
 330
 331     /* create and wait for remote thread with entry point CloseHandle() */
 332     hThread = CreateRemoteThread(hProcess, NULL, 0,
 333                                  threadFunc_CloseHandle,
 334                                  hRemoteEvent, 0, &tid);
 335     ok(hThread != NULL, "CreateRemoteThread failed, err=%u\n", GetLastError());
 336     ret = WaitForSingleObject(hThread, 1000);
 337     ok(ret == WAIT_OBJECT_0, "waiting for thread failed, ret=%u\n", ret);
 338     CloseHandle(hThread);
 339
 340     /* create remote thread with entry point SetEvent() */
 341     hThread = CreateRemoteThread(hProcess, NULL, 0,
 342                                  threadFunc_SetEvent,
 343                                  hRemoteEvent, 0, &tid);
 344     ok(hThread != NULL, "CreateRemoteThread failed, err=%u\n", GetLastError());
 345
 346     /* closed handle, so wait times out */
 347     ret = WaitForSingleObject(hEvent, 1000);
 348     ok(ret == WAIT_TIMEOUT, "wait did not time out, ret=%u\n", ret);
 349
 350     /* check that remote SetEvent() failed */
 351     ret = GetExitCodeThread(hThread, &exitcode);
 352     ok(ret != 0, "GetExitCodeThread failed, err=%u\n", GetLastError());
 353     if (ret) ok(exitcode == 0, "SetEvent succeeded, expected to fail\n");
 354     CloseHandle(hThread);
 355
 356 cleanup:
 357     TerminateProcess(hProcess, 0);
 358     CloseHandle(hEvent);
 359     CloseHandle(hProcess);
 360 }
 361
 362 /* Check basic functionality of CreateThread and Tls* functions */
 363 static VOID test_CreateThread_basic(void)
 364 {
 365    HANDLE thread[NUM_THREADS],event[NUM_THREADS];
 366    DWORD threadid[NUM_THREADS],curthreadId;
 367    DWORD threadmem[NUM_THREADS];
 368    DWORD exitCode;
 369    t1Struct tstruct[NUM_THREADS];
 370    int error;
 371    DWORD i,j;
 372    DWORD GLE, ret;
 373    DWORD tid;
 374    BOOL bRet;
 375
 376    /* lstrlenA contains an exception handler so this makes sure exceptions work in the main thread */
 377    ok( lstrlenA( (char *)0xdeadbeef ) == 0, "lstrlenA: unexpected success\n" );
 378
 379 /* Retrieve current Thread ID for later comparisons */
 380   curthreadId=GetCurrentThreadId();
 381 /* Allocate some local storage */
 382   ok((tlsIndex=TlsAlloc())!=TLS_OUT_OF_INDEXES,"TlsAlloc failed\n");
 383 /* Create events for thread synchronization */
 384   for(i=0;i<NUM_THREADS;i++) {
 385     threadmem[i]=0;
 386 /* Note that it doesn't matter what type of event we choose here.  This
 387    test isn't trying to thoroughly test events
 388 */
 389     event[i]=CreateEventA(NULL,TRUE,FALSE,NULL);
 390     tstruct[i].threadnum=i;
 391     tstruct[i].threadmem=threadmem;
 392     tstruct[i].event=event;
 393   }
 394
 395 /* Test that passing arguments to threads works okay */
 396   for(i=0;i<NUM_THREADS;i++) {
 397     thread[i] = CreateThread(NULL,0,threadFunc1,
 398                              &tstruct[i],0,&threadid[i]);
 399     ok(thread[i]!=NULL,"Create Thread failed\n");
 400   }
 401 /* Test that the threads actually complete */
 402   for(i=0;i<NUM_THREADS;i++) {
 403     error=WaitForSingleObject(thread[i],5000);
 404     ok(error==WAIT_OBJECT_0, "Thread did not complete within timelimit\n");
 405     if(error!=WAIT_OBJECT_0) {
 406       TerminateThread(thread[i],i+NUM_THREADS);
 407     }
 408     ok(GetExitCodeThread(thread[i],&exitCode),"Could not retrieve ext code\n");
 409     ok(exitCode==i+NUM_THREADS,"Thread returned an incorrect exit code\n");
 410   }
 411 /* Test that each thread executed in its parent's address space
 412    (it was able to change threadmem and pass that change back to its parent)
 413    and that each thread id was independent).  Note that we prove that the
 414    threads actually execute concurrently by having them block on each other
 415    in threadFunc1
 416 */
 417   for(i=0;i<NUM_THREADS;i++) {
 418     error=0;
 419     for(j=i+1;j<NUM_THREADS;j++) {
 420       if (threadmem[i]==threadmem[j]) {
 421         error=1;
 422       }
 423     }
 424     ok(!error && threadmem[i]==threadid[i] && threadmem[i]!=curthreadId,
 425          "Thread did not execute successfully\n");
 426     ok(CloseHandle(thread[i])!=0,"CloseHandle failed\n");
 427   }
 428
 429   SetLastError(0xCAFEF00D);
 430   bRet = TlsFree(tlsIndex);
 431   ok(bRet, "TlsFree failed: %08x\n", GetLastError());
 432   ok(GetLastError()==0xCAFEF00D,
 433      "GetLastError: expected 0xCAFEF00D, got %08x\n", GetLastError());
 434
 435   /* Test freeing an already freed TLS index */
 436   SetLastError(0xCAFEF00D);
 437   ok(TlsFree(tlsIndex)==0,"TlsFree succeeded\n");
 438   ok(GetLastError()==ERROR_INVALID_PARAMETER,
 439      "GetLastError: expected ERROR_INVALID_PARAMETER, got %08x\n", GetLastError());
 440
 441   /* Test how passing NULL as a pointer to threadid works */
 442   SetLastError(0xFACEaBAD);
 443   thread[0] = CreateThread(NULL,0,threadFunc2,NULL,0,&tid);
 444   GLE = GetLastError();
 445   if (thread[0]) { /* NT */
 446     ok(GLE==0xFACEaBAD, "CreateThread set last error to %d, expected 4207848365\n", GLE);
 447     ret = WaitForSingleObject(thread[0],100);
 448     ok(ret==WAIT_OBJECT_0, "threadFunc2 did not exit during 100 ms\n");
 449     ret = GetExitCodeThread(thread[0],&exitCode);
 450     ok(ret!=0, "GetExitCodeThread returned %d (expected nonzero)\n", ret);
 451     ok(exitCode==99, "threadFunc2 exited with code: %d (expected 99)\n", exitCode);
 452     ok(CloseHandle(thread[0])!=0,"Error closing thread handle\n");
 453   }
 454   else { /* 9x */
 455     ok(GLE==ERROR_INVALID_PARAMETER, "CreateThread set last error to %d, expected 87\n", GLE);
 456   }
 457 }
 458
 459 /* Check that using the CREATE_SUSPENDED flag works */
 460 static VOID test_CreateThread_suspended(void)
 461 {
 462   HANDLE thread;
 463   DWORD threadId;
 464   DWORD suspend_count;
 465   int error;
 466
 467   thread = CreateThread(NULL,0,threadFunc2,NULL,
 468                         CREATE_SUSPENDED,&threadId);
 469   ok(thread!=NULL,"Create Thread failed\n");
 470 /* Check that the thread is suspended */
 471   ok(SuspendThread(thread)==1,"Thread did not start suspended\n");
 472   ok(ResumeThread(thread)==2,"Resume thread returned an invalid value\n");
 473 /* Check that resume thread didn't actually start the thread.  I can't think
 474    of a better way of checking this than just waiting.  I am not sure if this
 475    will work on slow computers.
 476 */
 477   ok(WaitForSingleObject(thread,1000)==WAIT_TIMEOUT,
 478      "ResumeThread should not have actually started the thread\n");
 479 /* Now actually resume the thread and make sure that it actually completes*/
 480   ok(ResumeThread(thread)==1,"Resume thread returned an invalid value\n");
 481   ok((error=WaitForSingleObject(thread,1000))==WAIT_OBJECT_0,
 482      "Thread did not resume\n");
 483   if(error!=WAIT_OBJECT_0) {
 484     TerminateThread(thread,1);
 485   }
 486
 487   suspend_count = SuspendThread(thread);
 488   ok(suspend_count == -1, "SuspendThread returned %d, expected -1\n", suspend_count);
 489
 490   suspend_count = ResumeThread(thread);
 491   ok(suspend_count == 0 ||
 492      broken(suspend_count == -1), /* win9x */
 493      "ResumeThread returned %d, expected 0\n", suspend_count);
 494
 495   ok(CloseHandle(thread)!=0,"CloseHandle failed\n");
 496 }
 497
 498 /* Check that SuspendThread and ResumeThread work */
 499 static VOID test_SuspendThread(void)
 500 {
 501   HANDLE thread,access_thread;
 502   DWORD threadId,exitCode,error;
 503   int i;
 504
 505   thread = CreateThread(NULL,0,threadFunc3,NULL,
 506                         0,&threadId);
 507   ok(thread!=NULL,"Create Thread failed\n");
 508 /* Check that the thread is suspended */
 509 /* Note that this is a polling method, and there is a race between
 510    SuspendThread being called (in the child, and the loop below timing out,
 511    so the test could fail on a heavily loaded or slow computer.
 512 */
 513   error=0;
 514   for(i=0;error==0 && i<100;i++) {
 515     error=SuspendThread(thread);
 516     ResumeThread(thread);
 517     if(error==0) {
 518       Sleep(50);
 519       i++;
 520     }
 521   }
 522   ok(error==1,"SuspendThread did not work\n");
 523 /* check that access restrictions are obeyed */
 524   if (pOpenThread) {
 525     access_thread=pOpenThread(THREAD_ALL_ACCESS & (~THREAD_SUSPEND_RESUME),
 526                            0,threadId);
 527     ok(access_thread!=NULL,"OpenThread returned an invalid handle\n");
 528     if (access_thread!=NULL) {
 529       obey_ar(SuspendThread(access_thread)==~0U);
 530       obey_ar(ResumeThread(access_thread)==~0U);
 531       ok(CloseHandle(access_thread)!=0,"CloseHandle Failed\n");
 532     }
 533   }
 534 /* Double check that the thread really is suspended */
 535   ok((error=GetExitCodeThread(thread,&exitCode))!=0 && exitCode==STILL_ACTIVE,
 536      "Thread did not really suspend\n");
 537 /* Resume the thread, and make sure it actually completes */
 538   ok(ResumeThread(thread)==1,"Resume thread returned an invalid value\n");
 539   ok((error=WaitForSingleObject(thread,1000))==WAIT_OBJECT_0,
 540      "Thread did not resume\n");
 541   if(error!=WAIT_OBJECT_0) {
 542     TerminateThread(thread,1);
 543   }
 544   /* Trying to suspend a terminated thread should fail */
 545   error=SuspendThread(thread);
 546   ok(error==~0U, "wrong return code: %d\n", error);
 547   ok(GetLastError()==ERROR_ACCESS_DENIED || GetLastError()==ERROR_NO_MORE_ITEMS, "unexpected error code: %d\n", GetLastError());
 548
 549   ok(CloseHandle(thread)!=0,"CloseHandle Failed\n");
 550 }
 551
 552 /* Check that TerminateThread works properly
 553 */
 554 static VOID test_TerminateThread(void)
 555 {
 556   HANDLE thread,access_thread,event;
 557   DWORD threadId,exitCode;
 558   event=CreateEventA(NULL,TRUE,FALSE,NULL);
 559   thread = CreateThread(NULL,0,threadFunc4,event,0,&threadId);
 560   ok(thread!=NULL,"Create Thread failed\n");
 561 /* TerminateThread has a race condition in Wine.  If the thread is terminated
 562    before it starts, it leaves a process behind.  Therefore, we wait for the
 563    thread to signal that it has started.  There is no easy way to force the
 564    race to occur, so we don't try to find it.
 565 */
 566   ok(WaitForSingleObject(event,5000)==WAIT_OBJECT_0,
 567      "TerminateThread didn't work\n");
 568 /* check that access restrictions are obeyed */
 569   if (pOpenThread) {
 570     access_thread=pOpenThread(THREAD_ALL_ACCESS & (~THREAD_TERMINATE),
 571                              0,threadId);
 572     ok(access_thread!=NULL,"OpenThread returned an invalid handle\n");
 573     if (access_thread!=NULL) {
 574       obey_ar(TerminateThread(access_thread,99)==0);
 575       ok(CloseHandle(access_thread)!=0,"CloseHandle Failed\n");
 576     }
 577   }
 578 /* terminate a job and make sure it terminates */
 579   ok(TerminateThread(thread,99)!=0,"TerminateThread failed\n");
 580   ok(WaitForSingleObject(thread,5000)==WAIT_OBJECT_0,
 581      "TerminateThread didn't work\n");
 582   ok(GetExitCodeThread(thread,&exitCode)!=STILL_ACTIVE,
 583      "TerminateThread should not leave the thread 'STILL_ACTIVE'\n");
 584   ok(exitCode==99, "TerminateThread returned invalid exit code\n");
 585   ok(CloseHandle(thread)!=0,"Error Closing thread handle\n");
 586 }
 587
 588 /* Check if CreateThread obeys the specified stack size.  This code does
 589    not work properly, and is currently disabled
 590 */
 591 static VOID test_CreateThread_stack(void)
 592 {
 593 #if CHECK_STACK
 594 /* The only way I know of to test the stack size is to use alloca
 595    and __try/__except.  However, this is probably not portable,
 596    and I couldn't get it to work under Wine anyhow.  However, here
 597    is the code which should allow for testing that CreateThread
 598    respects the stack-size limit
 599 */
 600      HANDLE thread;
 601      DWORD threadId,exitCode;
 602
 603      SYSTEM_INFO sysInfo;
 604      sysInfo.dwPageSize=0;
 605      GetSystemInfo(&sysInfo);
 606      ok(sysInfo.dwPageSize>0,"GetSystemInfo should return a valid page size\n");
 607      thread = CreateThread(NULL,sysInfo.dwPageSize,
 608                            threadFunc5,&exitCode,
 609                            0,&threadId);
 610      ok(WaitForSingleObject(thread,5000)==WAIT_OBJECT_0,
 611         "TerminateThread didn't work\n");
 612      ok(exitCode==1,"CreateThread did not obey stack-size-limit\n");
 613      ok(CloseHandle(thread)!=0,"CloseHandle failed\n");
 614 #endif
 615 }
 616
 617 /* Check whether setting/retrieving thread priorities works */
 618 static VOID test_thread_priority(void)
 619 {
 620    HANDLE curthread,access_thread;
 621    DWORD curthreadId,exitCode;
 622    int min_priority=-2,max_priority=2;
 623    BOOL disabled,rc;
 624    int i;
 625
 626    curthread=GetCurrentThread();
 627    curthreadId=GetCurrentThreadId();
 628 /* Check thread priority */
 629 /* NOTE: on Win2k/XP priority can be from -7 to 6.  All other platforms it
 630          is -2 to 2.  However, even on a real Win2k system, using thread
 631          priorities beyond the -2 to 2 range does not work.  If you want to try
 632          anyway, enable USE_EXTENDED_PRIORITIES
 633 */
 634    ok(GetThreadPriority(curthread)==THREAD_PRIORITY_NORMAL,
 635       "GetThreadPriority Failed\n");
 636
 637    if (pOpenThread) {
 638 /* check that access control is obeyed */
 639      access_thread=pOpenThread(THREAD_ALL_ACCESS &
 640                        (~THREAD_QUERY_INFORMATION) & (~THREAD_SET_INFORMATION),
 641                        0,curthreadId);
 642      ok(access_thread!=NULL,"OpenThread returned an invalid handle\n");
 643      if (access_thread!=NULL) {
 644        obey_ar(SetThreadPriority(access_thread,1)==0);
 645        obey_ar(GetThreadPriority(access_thread)==THREAD_PRIORITY_ERROR_RETURN);
 646        obey_ar(GetExitCodeThread(access_thread,&exitCode)==0);
 647        ok(CloseHandle(access_thread),"Error Closing thread handle\n");
 648      }
 649    }
 650 #if USE_EXTENDED_PRIORITIES
 651    min_priority=-7; max_priority=6;
 652 #endif
 653    for(i=min_priority;i<=max_priority;i++) {
 654      ok(SetThreadPriority(curthread,i)!=0,
 655         "SetThreadPriority Failed for priority: %d\n",i);
 656      ok(GetThreadPriority(curthread)==i,
 657         "GetThreadPriority Failed for priority: %d\n",i);
 658    }
 659    ok(SetThreadPriority(curthread,THREAD_PRIORITY_TIME_CRITICAL)!=0,
 660       "SetThreadPriority Failed\n");
 661    ok(GetThreadPriority(curthread)==THREAD_PRIORITY_TIME_CRITICAL,
 662       "GetThreadPriority Failed\n");
 663    ok(SetThreadPriority(curthread,THREAD_PRIORITY_IDLE)!=0,
 664        "SetThreadPriority Failed\n");
 665    ok(GetThreadPriority(curthread)==THREAD_PRIORITY_IDLE,
 666        "GetThreadPriority Failed\n");
 667    ok(SetThreadPriority(curthread,0)!=0,"SetThreadPriority Failed\n");
 668
 669 /* Check that the thread priority is not changed if SetThreadPriority
 670    is called with a value outside of the max/min range */
 671    SetThreadPriority(curthread,min_priority);
 672    SetLastError(0xdeadbeef);
 673    rc = SetThreadPriority(curthread,min_priority-1);
 674
 675    ok(rc == FALSE, "SetThreadPriority passed with a bad argument\n");
 676    ok(GetLastError() == ERROR_INVALID_PARAMETER ||
 677       GetLastError() == ERROR_INVALID_PRIORITY /* Win9x */,
 678       "SetThreadPriority error %d, expected ERROR_INVALID_PARAMETER or ERROR_INVALID_PRIORITY\n",
 679       GetLastError());
 680    ok(GetThreadPriority(curthread)==min_priority,
 681       "GetThreadPriority didn't return min_priority\n");
 682
 683    SetThreadPriority(curthread,max_priority);
 684    SetLastError(0xdeadbeef);
 685    rc = SetThreadPriority(curthread,max_priority+1);
 686
 687    ok(rc == FALSE, "SetThreadPriority passed with a bad argument\n");
 688    ok(GetLastError() == ERROR_INVALID_PARAMETER ||
 689       GetLastError() == ERROR_INVALID_PRIORITY /* Win9x */,
 690       "SetThreadPriority error %d, expected ERROR_INVALID_PARAMETER or ERROR_INVALID_PRIORITY\n",
 691       GetLastError());
 692    ok(GetThreadPriority(curthread)==max_priority,
 693       "GetThreadPriority didn't return max_priority\n");
 694
 695 /* Check thread priority boost */
 696    if (!pGetThreadPriorityBoost || !pSetThreadPriorityBoost)
 697      return; /* Win9x */
 698
 699    SetLastError(0xdeadbeef);
 700    rc=pGetThreadPriorityBoost(curthread,&disabled);
 701    if (rc==0 && GetLastError()==ERROR_CALL_NOT_IMPLEMENTED)
 702    {
 703       win_skip("GetThreadPriorityBoost is not implemented on WinME\n");
 704       return;
 705    }
 706
 707    ok(rc!=0,"error=%d\n",GetLastError());
 708
 709    if (pOpenThread) {
 710 /* check that access control is obeyed */
 711      access_thread=pOpenThread(THREAD_ALL_ACCESS &
 712                        (~THREAD_QUERY_INFORMATION) & (~THREAD_SET_INFORMATION),
 713                        0,curthreadId);
 714      ok(access_thread!=NULL,"OpenThread returned an invalid handle\n");
 715      if (access_thread!=NULL) {
 716        obey_ar(pSetThreadPriorityBoost(access_thread,1)==0);
 717        todo_wine obey_ar(pGetThreadPriorityBoost(access_thread,&disabled)==0);
 718        ok(CloseHandle(access_thread),"Error Closing thread handle\n");
 719      }
 720    }
 721
 722    todo_wine {
 723      rc = pSetThreadPriorityBoost(curthread,1);
 724      ok( rc != 0, "error=%d\n",GetLastError());
 725      rc=pGetThreadPriorityBoost(curthread,&disabled);
 726      ok(rc!=0 && disabled==1,
 727         "rc=%d error=%d disabled=%d\n",rc,GetLastError(),disabled);
 728
 729      rc = pSetThreadPriorityBoost(curthread,0);
 730      ok( rc != 0, "error=%d\n",GetLastError());
 731    }
 732    rc=pGetThreadPriorityBoost(curthread,&disabled);
 733    ok(rc!=0 && disabled==0,
 734       "rc=%d error=%d disabled=%d\n",rc,GetLastError(),disabled);
 735 }
 736
 737 /* check the GetThreadTimes function */
 738 static VOID test_GetThreadTimes(void)
 739 {
 740      HANDLE thread,access_thread=NULL;
 741      FILETIME creationTime,exitTime,kernelTime,userTime;
 742      DWORD threadId;
 743      int error;
 744
 745      thread = CreateThread(NULL,0,threadFunc2,NULL,
 746                            CREATE_SUSPENDED,&threadId);
 747
 748      ok(thread!=NULL,"Create Thread failed\n");
 749 /* check that access control is obeyed */
 750      if (pOpenThread) {
 751        access_thread=pOpenThread(THREAD_ALL_ACCESS &
 752                                    (~THREAD_QUERY_INFORMATION), 0,threadId);
 753        ok(access_thread!=NULL,
 754           "OpenThread returned an invalid handle\n");
 755      }
 756      ok(ResumeThread(thread)==1,"Resume thread returned an invalid value\n");
 757      ok(WaitForSingleObject(thread,5000)==WAIT_OBJECT_0,
 758         "ResumeThread didn't work\n");
 759      creationTime.dwLowDateTime=99; creationTime.dwHighDateTime=99;
 760      exitTime.dwLowDateTime=99;     exitTime.dwHighDateTime=99;
 761      kernelTime.dwLowDateTime=99;   kernelTime.dwHighDateTime=99;
 762      userTime.dwLowDateTime=99;     userTime.dwHighDateTime=99;
 763 /* GetThreadTimes should set all of the parameters passed to it */
 764      error=GetThreadTimes(thread,&creationTime,&exitTime,
 765                           &kernelTime,&userTime);
 766
 767      if (error == 0 && GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
 768        win_skip("GetThreadTimes is not implemented\n");
 769      else {
 770        ok(error!=0,"GetThreadTimes failed\n");
 771        ok(creationTime.dwLowDateTime!=99 || creationTime.dwHighDateTime!=99,
 772           "creationTime was invalid\n");
 773        ok(exitTime.dwLowDateTime!=99 || exitTime.dwHighDateTime!=99,
 774           "exitTime was invalid\n");
 775        ok(kernelTime.dwLowDateTime!=99 || kernelTime.dwHighDateTime!=99,
 776           "kernelTimewas invalid\n");
 777        ok(userTime.dwLowDateTime!=99 || userTime.dwHighDateTime!=99,
 778           "userTime was invalid\n");
 779        ok(CloseHandle(thread)!=0,"CloseHandle failed\n");
 780        if(access_thread!=NULL)
 781        {
 782          error=GetThreadTimes(access_thread,&creationTime,&exitTime,
 783                               &kernelTime,&userTime);
 784          obey_ar(error==0);
 785        }
 786      }
 787      if(access_thread!=NULL) {
 788        ok(CloseHandle(access_thread)!=0,"CloseHandle Failed\n");
 789      }
 790 }
 791
 792 /* Check the processor affinity functions */
 793 /* NOTE: These functions should also be checked that they obey access control
 794 */
 795 static VOID test_thread_processor(void)
 796 {
 797    HANDLE curthread,curproc;
 798    DWORD_PTR processMask,systemMask,retMask;
 799    SYSTEM_INFO sysInfo;
 800    int error=0;
 801    BOOL is_wow64;
 802
 803    if (!pIsWow64Process || !pIsWow64Process( GetCurrentProcess(), &is_wow64 )) is_wow64 = FALSE;
 804
 805    sysInfo.dwNumberOfProcessors=0;
 806    GetSystemInfo(&sysInfo);
 807    ok(sysInfo.dwNumberOfProcessors>0,
 808       "GetSystemInfo failed to return a valid # of processors\n");
 809 /* Use the current Thread/process for all tests */
 810    curthread=GetCurrentThread();
 811    ok(curthread!=NULL,"GetCurrentThread failed\n");
 812    curproc=GetCurrentProcess();
 813    ok(curproc!=NULL,"GetCurrentProcess failed\n");
 814 /* Check the Affinity Mask functions */
 815    ok(GetProcessAffinityMask(curproc,&processMask,&systemMask)!=0,
 816       "GetProcessAffinityMask failed\n");
 817    ok(SetThreadAffinityMask(curthread,processMask)==processMask,
 818       "SetThreadAffinityMask failed\n");
 819    ok(SetThreadAffinityMask(curthread,processMask+1)==0,
 820       "SetThreadAffinityMask passed for an illegal processor\n");
 821 /* NOTE: Pre-Vista does not recognize the "all processors" flag (all bits set) */
 822    retMask = SetThreadAffinityMask(curthread,~0);
 823    ok(broken(retMask==0) || retMask==processMask,
 824       "SetThreadAffinityMask(thread,-1) failed to request all processors.\n");
 825    if (retMask == processMask && sizeof(ULONG_PTR) > sizeof(ULONG))
 826    {
 827        /* only the low 32-bits matter */
 828        retMask = SetThreadAffinityMask(curthread,~(ULONG_PTR)0);
 829        ok(retMask == processMask, "SetThreadAffinityMask failed\n");
 830        retMask = SetThreadAffinityMask(curthread,~(ULONG_PTR)0 >> 3);
 831        ok(retMask == processMask, "SetThreadAffinityMask failed\n");
 832    }
 833 /* NOTE: This only works on WinNT/2000/XP) */
 834    if (pSetThreadIdealProcessor) {
 835      SetLastError(0xdeadbeef);
 836      error=pSetThreadIdealProcessor(curthread,0);
 837      if (GetLastError()==ERROR_CALL_NOT_IMPLEMENTED)
 838      {
 839        win_skip("SetThreadIdealProcessor is not implemented\n");
 840        return;
 841      }
 842      ok(error!=-1, "SetThreadIdealProcessor failed\n");
 843
 844      if (is_wow64)
 845      {
 846          SetLastError(0xdeadbeef);
 847          error=pSetThreadIdealProcessor(curthread,MAXIMUM_PROCESSORS+1);
 848          todo_wine
 849          ok(error!=-1, "SetThreadIdealProcessor failed for %u on Wow64\n", MAXIMUM_PROCESSORS+1);
 850
 851          SetLastError(0xdeadbeef);
 852          error=pSetThreadIdealProcessor(curthread,65);
 853          ok(error==-1, "SetThreadIdealProcessor succeeded with an illegal processor #\n");
 854          ok(GetLastError()==ERROR_INVALID_PARAMETER,
 855             "Expected ERROR_INVALID_PARAMETER, got %d\n", GetLastError());
 856      }
 857      else
 858      {
 859          SetLastError(0xdeadbeef);
 860          error=pSetThreadIdealProcessor(curthread,MAXIMUM_PROCESSORS+1);
 861          ok(error==-1, "SetThreadIdealProcessor succeeded with an illegal processor #\n");
 862          ok(GetLastError()==ERROR_INVALID_PARAMETER,
 863             "Expected ERROR_INVALID_PARAMETER, got %d\n", GetLastError());
 864      }
 865
 866      error=pSetThreadIdealProcessor(curthread,MAXIMUM_PROCESSORS);
 867      ok(error!=-1, "SetThreadIdealProcessor failed\n");
 868    }
 869 }
 870
 871 static VOID test_GetThreadExitCode(void)
 872 {
 873     DWORD exitCode, threadid;
 874     DWORD GLE, ret;
 875     HANDLE thread;
 876
 877     ret = GetExitCodeThread((HANDLE)0x2bad2bad,&exitCode);
 878     ok(ret==0, "GetExitCodeThread returned non zero value: %d\n", ret);
 879     GLE = GetLastError();
 880     ok(GLE==ERROR_INVALID_HANDLE, "GetLastError returned %d (expected 6)\n", GLE);
 881
 882     thread = CreateThread(NULL,0,threadFunc2,NULL,0,&threadid);
 883     ret = WaitForSingleObject(thread,100);
 884     ok(ret==WAIT_OBJECT_0, "threadFunc2 did not exit during 100 ms\n");
 885     ret = GetExitCodeThread(thread,&exitCode);
 886     ok(ret==exitCode || ret==1,
 887        "GetExitCodeThread returned %d (expected 1 or %d)\n", ret, exitCode);
 888     ok(exitCode==99, "threadFunc2 exited with code %d (expected 99)\n", exitCode);
 889     ok(CloseHandle(thread)!=0,"Error closing thread handle\n");
 890 }
 891
 892 #ifdef __i386__
 893
 894 static int test_value = 0;
 895 static HANDLE event;
 896
 897 static void WINAPI set_test_val( int val )
 898 {
 899     test_value += val;
 900     ExitThread(0);
 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         ret = SetThreadContext( thread, &ctx );
 948         ok( ret, "SetThreadContext failed : (%d)\n", GetLastError() );
 949     }
 950
 951     SetLastError(0xdeadbeef);
 952     prevcount = ResumeThread( thread );
 953     ok ( prevcount == 1, "Previous suspend count (%d) instead of 1, last error : (%d)\n",
 954                          prevcount, GetLastError() );
 955
 956     WaitForSingleObject( thread, INFINITE );
 957     ok( test_value == 10, "test_value %d\n", test_value );
 958
 959     ctx.ContextFlags = CONTEXT_FULL;
 960     SetLastError(0xdeadbeef);
 961     ret = GetThreadContext( thread, &ctx );
 962     ok( (!ret && (GetLastError() == ERROR_GEN_FAILURE)) ||
 963         (!ret && broken(GetLastError() == ERROR_INVALID_HANDLE)) || /* win2k */
 964         broken(ret),   /* 32bit application on NT 5.x 64bit */
 965         "got %d with %u (expected FALSE with ERROR_GEN_FAILURE)\n",
 966         ret, GetLastError() );
 967
 968     SetLastError(0xdeadbeef);
 969     ret = SetThreadContext( thread, &ctx );
 970     ok( (!ret && ((GetLastError() == ERROR_GEN_FAILURE) || (GetLastError() == ERROR_ACCESS_DENIED))) ||
 971         (!ret && broken(GetLastError() == ERROR_INVALID_HANDLE)) || /* win2k */
 972         broken(ret),   /* 32bit application on NT 5.x 64bit */
 973         "got %d with %u (expected FALSE with ERROR_GEN_FAILURE or ERROR_ACCESS_DENIED)\n",
 974         ret, GetLastError() );
 975
 976     CloseHandle( thread );
 977 }
 978
 979 #endif  /* __i386__ */
 980
 981 static HANDLE finish_event;
 982 static LONG times_executed;
 983
 984 static DWORD CALLBACK work_function(void *p)
 985 {
 986     LONG executed = InterlockedIncrement(&times_executed);
 987
 988     if (executed == 100)
 989         SetEvent(finish_event);
 990     return 0;
 991 }
 992
 993 static void test_QueueUserWorkItem(void)
 994 {
 995     INT_PTR i;
 996     DWORD wait_result;
 997     DWORD before, after;
 998
 999     /* QueueUserWorkItem not present on win9x */
1000     if (!pQueueUserWorkItem) return;
1001
1002     finish_event = CreateEvent(NULL, TRUE, FALSE, NULL);
1003
1004     before = GetTickCount();
1005
1006     for (i = 0; i < 100; i++)
1007     {
1008         BOOL ret = pQueueUserWorkItem(work_function, (void *)i, WT_EXECUTEDEFAULT);
1009         ok(ret, "QueueUserWorkItem failed with error %d\n", GetLastError());
1010     }
1011
1012     wait_result = WaitForSingleObject(finish_event, 10000);
1013
1014     after = GetTickCount();
1015     trace("100 QueueUserWorkItem calls took %dms\n", after - before);
1016     ok(wait_result == WAIT_OBJECT_0, "wait failed with error 0x%x\n", wait_result);
1017
1018     ok(times_executed == 100, "didn't execute all of the work items\n");
1019 }
1020
1021 static void CALLBACK signaled_function(PVOID p, BOOLEAN TimerOrWaitFired)
1022 {
1023     HANDLE event = p;
1024     SetEvent(event);
1025     ok(!TimerOrWaitFired, "wait shouldn't have timed out\n");
1026 }
1027
1028 static void CALLBACK timeout_function(PVOID p, BOOLEAN TimerOrWaitFired)
1029 {
1030     HANDLE event = p;
1031     SetEvent(event);
1032     ok(TimerOrWaitFired, "wait should have timed out\n");
1033 }
1034
1035 static void test_RegisterWaitForSingleObject(void)
1036 {
1037     BOOL ret;
1038     HANDLE wait_handle;
1039     HANDLE handle;
1040     HANDLE complete_event;
1041
1042     if (!pRegisterWaitForSingleObject || !pUnregisterWait)
1043     {
1044         win_skip("RegisterWaitForSingleObject or UnregisterWait not implemented\n");
1045         return;
1046     }
1047
1048     /* test signaled case */
1049
1050     handle = CreateEvent(NULL, TRUE, TRUE, NULL);
1051     complete_event = CreateEvent(NULL, FALSE, FALSE, NULL);
1052
1053     ret = pRegisterWaitForSingleObject(&wait_handle, handle, signaled_function, complete_event, INFINITE, WT_EXECUTEONLYONCE);
1054     ok(ret, "RegisterWaitForSingleObject failed with error %d\n", GetLastError());
1055
1056     WaitForSingleObject(complete_event, INFINITE);
1057     /* give worker thread chance to complete */
1058     Sleep(100);
1059
1060     ret = pUnregisterWait(wait_handle);
1061     ok(ret, "UnregisterWait failed with error %d\n", GetLastError());
1062
1063     /* test cancel case */
1064
1065     ResetEvent(handle);
1066
1067     ret = pRegisterWaitForSingleObject(&wait_handle, handle, signaled_function, complete_event, INFINITE, WT_EXECUTEONLYONCE);
1068     ok(ret, "RegisterWaitForSingleObject failed with error %d\n", GetLastError());
1069
1070     ret = pUnregisterWait(wait_handle);
1071     ok(ret, "UnregisterWait failed with error %d\n", GetLastError());
1072
1073     /* test timeout case */
1074
1075     ret = pRegisterWaitForSingleObject(&wait_handle, handle, timeout_function, complete_event, 0, WT_EXECUTEONLYONCE);
1076     ok(ret, "RegisterWaitForSingleObject failed with error %d\n", GetLastError());
1077
1078     WaitForSingleObject(complete_event, INFINITE);
1079     /* give worker thread chance to complete */
1080     Sleep(100);
1081
1082     ret = pUnregisterWait(wait_handle);
1083     ok(ret, "UnregisterWait failed with error %d\n", GetLastError());
1084 }
1085
1086 static DWORD TLS_main;
1087 static DWORD TLS_index0, TLS_index1;
1088
1089 static DWORD WINAPI TLS_InheritanceProc(LPVOID p)
1090 {
1091   /* We should NOT inherit the TLS values from our parent or from the
1092      main thread.  */
1093   LPVOID val;
1094
1095   val = TlsGetValue(TLS_main);
1096   ok(val == NULL, "TLS inheritance failed\n");
1097
1098   val = TlsGetValue(TLS_index0);
1099   ok(val == NULL, "TLS inheritance failed\n");
1100
1101   val = TlsGetValue(TLS_index1);
1102   ok(val == NULL, "TLS inheritance failed\n");
1103
1104   return 0;
1105 }
1106
1107 /* Basic TLS usage test.  Make sure we can create slots and the values we
1108    store in them are separate among threads.  Also test TLS value
1109    inheritance with TLS_InheritanceProc.  */
1110 static DWORD WINAPI TLS_ThreadProc(LPVOID p)
1111 {
1112   LONG_PTR id = (LONG_PTR) p;
1113   LPVOID val;
1114   BOOL ret;
1115
1116   if (sync_threads_and_run_one(0, id))
1117   {
1118     TLS_index0 = TlsAlloc();
1119     ok(TLS_index0 != TLS_OUT_OF_INDEXES, "TlsAlloc failed\n");
1120   }
1121   resync_after_run();
1122
1123   if (sync_threads_and_run_one(1, id))
1124   {
1125     TLS_index1 = TlsAlloc();
1126     ok(TLS_index1 != TLS_OUT_OF_INDEXES, "TlsAlloc failed\n");
1127
1128     /* Slot indices should be different even if created in different
1129        threads.  */
1130     ok(TLS_index0 != TLS_index1, "TlsAlloc failed\n");
1131
1132     /* Both slots should be initialized to NULL */
1133     val = TlsGetValue(TLS_index0);
1134     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1135     ok(val == NULL, "TLS slot not initialized correctly\n");
1136
1137     val = TlsGetValue(TLS_index1);
1138     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1139     ok(val == NULL, "TLS slot not initialized correctly\n");
1140   }
1141   resync_after_run();
1142
1143   if (sync_threads_and_run_one(0, id))
1144   {
1145     val = TlsGetValue(TLS_index0);
1146     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1147     ok(val == NULL, "TLS slot not initialized correctly\n");
1148
1149     val = TlsGetValue(TLS_index1);
1150     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1151     ok(val == NULL, "TLS slot not initialized correctly\n");
1152
1153     ret = TlsSetValue(TLS_index0, (LPVOID) 1);
1154     ok(ret, "TlsSetValue failed\n");
1155
1156     ret = TlsSetValue(TLS_index1, (LPVOID) 2);
1157     ok(ret, "TlsSetValue failed\n");
1158
1159     val = TlsGetValue(TLS_index0);
1160     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1161     ok(val == (LPVOID) 1, "TLS slot not initialized correctly\n");
1162
1163     val = TlsGetValue(TLS_index1);
1164     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1165     ok(val == (LPVOID) 2, "TLS slot not initialized correctly\n");
1166   }
1167   resync_after_run();
1168
1169   if (sync_threads_and_run_one(1, id))
1170   {
1171     val = TlsGetValue(TLS_index0);
1172     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1173     ok(val == NULL, "TLS slot not initialized correctly\n");
1174
1175     val = TlsGetValue(TLS_index1);
1176     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1177     ok(val == NULL, "TLS slot not initialized correctly\n");
1178
1179     ret = TlsSetValue(TLS_index0, (LPVOID) 3);
1180     ok(ret, "TlsSetValue failed\n");
1181
1182     ret = TlsSetValue(TLS_index1, (LPVOID) 4);
1183     ok(ret, "TlsSetValue failed\n");
1184
1185     val = TlsGetValue(TLS_index0);
1186     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1187     ok(val == (LPVOID) 3, "TLS slot not initialized correctly\n");
1188
1189     val = TlsGetValue(TLS_index1);
1190     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1191     ok(val == (LPVOID) 4, "TLS slot not initialized correctly\n");
1192   }
1193   resync_after_run();
1194
1195   if (sync_threads_and_run_one(0, id))
1196   {
1197     HANDLE thread;
1198     DWORD waitret, tid;
1199
1200     val = TlsGetValue(TLS_index0);
1201     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1202     ok(val == (LPVOID) 1, "TLS slot not initialized correctly\n");
1203
1204     val = TlsGetValue(TLS_index1);
1205     ok(GetLastError() == ERROR_SUCCESS, "TlsGetValue failed\n");
1206     ok(val == (LPVOID) 2, "TLS slot not initialized correctly\n");
1207
1208     thread = CreateThread(NULL, 0, TLS_InheritanceProc, 0, 0, &tid);
1209     ok(thread != NULL, "CreateThread failed\n");
1210     waitret = WaitForSingleObject(thread, 60000);
1211     ok(waitret == WAIT_OBJECT_0, "WaitForSingleObject failed\n");
1212     CloseHandle(thread);
1213
1214     ret = TlsFree(TLS_index0);
1215     ok(ret, "TlsFree failed\n");
1216   }
1217   resync_after_run();
1218
1219   if (sync_threads_and_run_one(1, id))
1220   {
1221     ret = TlsFree(TLS_index1);
1222     ok(ret, "TlsFree failed\n");
1223   }
1224   resync_after_run();
1225
1226   return 0;
1227 }
1228
1229 static void test_TLS(void)
1230 {
1231   HANDLE threads[2];
1232   LONG_PTR i;
1233   DWORD ret;
1234   BOOL suc;
1235
1236   init_thread_sync_helpers();
1237
1238   /* Allocate a TLS slot in the main thread to test for inheritance.  */
1239   TLS_main = TlsAlloc();
1240   ok(TLS_main != TLS_OUT_OF_INDEXES, "TlsAlloc failed\n");
1241   suc = TlsSetValue(TLS_main, (LPVOID) 4114);
1242   ok(suc, "TlsSetValue failed\n");
1243
1244   for (i = 0; i < 2; ++i)
1245   {
1246     DWORD tid;
1247
1248     threads[i] = CreateThread(NULL, 0, TLS_ThreadProc, (LPVOID) i, 0, &tid);
1249     ok(threads[i] != NULL, "CreateThread failed\n");
1250   }
1251
1252   ret = WaitForMultipleObjects(2, threads, TRUE, 60000);
1253   ok(ret == WAIT_OBJECT_0 || broken(ret == WAIT_OBJECT_0+1 /* nt4,w2k */), "WaitForAllObjects 2 threads %d\n",ret);
1254
1255   for (i = 0; i < 2; ++i)
1256     CloseHandle(threads[i]);
1257
1258   suc = TlsFree(TLS_main);
1259   ok(suc, "TlsFree failed\n");
1260   cleanup_thread_sync_helpers();
1261 }
1262
1263 static void test_ThreadErrorMode(void)
1264 {
1265     DWORD oldmode;
1266     DWORD mode;
1267     DWORD rtlmode;
1268     BOOL ret;
1269
1270     if (!pSetThreadErrorMode || !pGetThreadErrorMode)
1271     {
1272         win_skip("SetThreadErrorMode and/or GetThreadErrorMode unavailable (added in Windows 7)\n");
1273         return;
1274     }
1275
1276     if (!pRtlGetThreadErrorMode) {
1277         win_skip("RtlGetThreadErrorMode not available\n");
1278         return;
1279     }
1280
1281     oldmode = pGetThreadErrorMode();
1282
1283     ret = pSetThreadErrorMode(0, &mode);
1284     ok(ret, "SetThreadErrorMode failed\n");
1285     ok(mode == oldmode,
1286        "SetThreadErrorMode returned old mode 0x%x, expected 0x%x\n",
1287        mode, oldmode);
1288     mode = pGetThreadErrorMode();
1289     ok(mode == 0, "GetThreadErrorMode returned mode 0x%x, expected 0\n", mode);
1290     rtlmode = pRtlGetThreadErrorMode();
1291     ok(rtlmode == 0,
1292        "RtlGetThreadErrorMode returned mode 0x%x, expected 0\n", mode);
1293
1294     ret = pSetThreadErrorMode(SEM_FAILCRITICALERRORS, &mode);
1295     ok(ret, "SetThreadErrorMode failed\n");
1296     ok(mode == 0,
1297        "SetThreadErrorMode returned old mode 0x%x, expected 0\n", mode);
1298     mode = pGetThreadErrorMode();
1299     ok(mode == SEM_FAILCRITICALERRORS,
1300        "GetThreadErrorMode returned mode 0x%x, expected SEM_FAILCRITICALERRORS\n",
1301        mode);
1302     rtlmode = pRtlGetThreadErrorMode();
1303     ok(rtlmode == 0x10,
1304        "RtlGetThreadErrorMode returned mode 0x%x, expected 0x10\n", mode);
1305
1306     ret = pSetThreadErrorMode(SEM_NOGPFAULTERRORBOX, &mode);
1307     ok(ret, "SetThreadErrorMode failed\n");
1308     ok(mode == SEM_FAILCRITICALERRORS,
1309        "SetThreadErrorMode returned old mode 0x%x, expected SEM_FAILCRITICALERRORS\n",
1310        mode);
1311     mode = pGetThreadErrorMode();
1312     ok(mode == SEM_NOGPFAULTERRORBOX,
1313        "GetThreadErrorMode returned mode 0x%x, expected SEM_NOGPFAULTERRORBOX\n",
1314        mode);
1315     rtlmode = pRtlGetThreadErrorMode();
1316     ok(rtlmode == 0x20,
1317        "RtlGetThreadErrorMode returned mode 0x%x, expected 0x20\n", mode);
1318
1319     ret = pSetThreadErrorMode(SEM_NOOPENFILEERRORBOX, NULL);
1320     ok(ret, "SetThreadErrorMode failed\n");
1321     mode = pGetThreadErrorMode();
1322     ok(mode == SEM_NOOPENFILEERRORBOX,
1323        "GetThreadErrorMode returned mode 0x%x, expected SEM_NOOPENFILEERRORBOX\n",
1324        mode);
1325     rtlmode = pRtlGetThreadErrorMode();
1326     ok(rtlmode == 0x40,
1327        "RtlGetThreadErrorMode returned mode 0x%x, expected 0x40\n", rtlmode);
1328
1329     for (mode = 1; mode; mode <<= 1)
1330     {
1331         ret = pSetThreadErrorMode(mode, NULL);
1332         if (mode & (SEM_FAILCRITICALERRORS |
1333                     SEM_NOGPFAULTERRORBOX |
1334                     SEM_NOOPENFILEERRORBOX))
1335         {
1336             ok(ret,
1337                "SetThreadErrorMode(0x%x,NULL) failed with error %d\n",
1338                mode, GetLastError());
1339         }
1340         else
1341         {
1342             DWORD GLE = GetLastError();
1343             ok(!ret,
1344                "SetThreadErrorMode(0x%x,NULL) succeeded, expected failure\n",
1345                mode);
1346             ok(GLE == ERROR_INVALID_PARAMETER,
1347                "SetThreadErrorMode(0x%x,NULL) failed with %d, "
1348                "expected ERROR_INVALID_PARAMETER\n",
1349                mode, GLE);
1350         }
1351     }
1352
1353     pSetThreadErrorMode(oldmode, NULL);
1354 }
1355
1356 #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__))
1357 static inline void set_fpu_cw(WORD cw)
1358 {
1359     __asm__ volatile ("fnclex; fldcw %0" : : "m" (cw));
1360 }
1361
1362 static inline WORD get_fpu_cw(void)
1363 {
1364     WORD cw = 0;
1365     __asm__ volatile ("fnstcw %0" : "=m" (cw));
1366     return cw;
1367 }
1368
1369 struct fpu_thread_ctx
1370 {
1371     WORD cw;
1372     HANDLE finished;
1373 };
1374
1375 static DWORD WINAPI fpu_thread(void *param)
1376 {
1377     struct fpu_thread_ctx *ctx = param;
1378     BOOL ret;
1379
1380     ctx->cw = get_fpu_cw();
1381
1382     ret = SetEvent(ctx->finished);
1383     ok(ret, "SetEvent failed, last error %#x.\n", GetLastError());
1384
1385     return 0;
1386 }
1387
1388 static WORD get_thread_fpu_cw(void)
1389 {
1390     struct fpu_thread_ctx ctx;
1391     DWORD tid, res;
1392     HANDLE thread;
1393
1394     ctx.finished = CreateEvent(NULL, FALSE, FALSE, NULL);
1395     ok(!!ctx.finished, "Failed to create event, last error %#x.\n", GetLastError());
1396
1397     thread = CreateThread(NULL, 0, fpu_thread, &ctx, 0, &tid);
1398     ok(!!thread, "Failed to create thread, last error %#x.\n", GetLastError());
1399
1400     res = WaitForSingleObject(ctx.finished, INFINITE);
1401     ok(res == WAIT_OBJECT_0, "Wait failed (%#x), last error %#x.\n", res, GetLastError());
1402
1403     res = CloseHandle(ctx.finished);
1404     ok(!!res, "Failed to close event handle, last error %#x.\n", GetLastError());
1405
1406     return ctx.cw;
1407 }
1408
1409 static void test_thread_fpu_cw(void)
1410 {
1411     WORD initial_cw, cw;
1412
1413     initial_cw = get_fpu_cw();
1414     ok(initial_cw == 0x27f, "Expected FPU control word 0x27f, got %#x.\n", initial_cw);
1415
1416     cw = get_thread_fpu_cw();
1417     ok(cw == 0x27f, "Expected FPU control word 0x27f, got %#x.\n", cw);
1418
1419     set_fpu_cw(0xf60);
1420     cw = get_fpu_cw();
1421     ok(cw == 0xf60, "Expected FPU control word 0xf60, got %#x.\n", cw);
1422
1423     cw = get_thread_fpu_cw();
1424     ok(cw == 0x27f, "Expected FPU control word 0x27f, got %#x.\n", cw);
1425
1426     cw = get_fpu_cw();
1427     ok(cw == 0xf60, "Expected FPU control word 0xf60, got %#x.\n", cw);
1428
1429     set_fpu_cw(initial_cw);
1430     cw = get_fpu_cw();
1431     ok(cw == initial_cw, "Expected FPU control word %#x, got %#x.\n", initial_cw, cw);
1432 }
1433 #endif
1434
1435 START_TEST(thread)
1436 {
1437    HINSTANCE lib;
1438    HINSTANCE ntdll;
1439    int argc;
1440    char **argv;
1441    argc = winetest_get_mainargs( &argv );
1442 /* Neither Cygwin nor mingW export OpenThread, so do a dynamic check
1443    so that the compile passes
1444 */
1445    lib=GetModuleHandleA("kernel32.dll");
1446    ok(lib!=NULL,"Couldn't get a handle for kernel32.dll\n");
1447    pGetThreadPriorityBoost=(void *)GetProcAddress(lib,"GetThreadPriorityBoost");
1448    pOpenThread=(void *)GetProcAddress(lib,"OpenThread");
1449    pQueueUserWorkItem=(void *)GetProcAddress(lib,"QueueUserWorkItem");
1450    pSetThreadIdealProcessor=(void *)GetProcAddress(lib,"SetThreadIdealProcessor");
1451    pSetThreadPriorityBoost=(void *)GetProcAddress(lib,"SetThreadPriorityBoost");
1452    pRegisterWaitForSingleObject=(void *)GetProcAddress(lib,"RegisterWaitForSingleObject");
1453    pUnregisterWait=(void *)GetProcAddress(lib,"UnregisterWait");
1454    pIsWow64Process=(void *)GetProcAddress(lib,"IsWow64Process");
1455    pSetThreadErrorMode=(void *)GetProcAddress(lib,"SetThreadErrorMode");
1456    pGetThreadErrorMode=(void *)GetProcAddress(lib,"GetThreadErrorMode");
1457
1458    ntdll=GetModuleHandleA("ntdll.dll");
1459    if (ntdll)
1460    {
1461        pRtlGetThreadErrorMode=(void *)GetProcAddress(ntdll,"RtlGetThreadErrorMode");
1462    }
1463
1464    if (argc >= 3)
1465    {
1466        if (!strcmp(argv[2], "sleep"))
1467        {
1468            HANDLE hAddrEvents[2];
1469            create_function_addr_events(hAddrEvents);
1470            SetEvent(hAddrEvents[0]);
1471            SetEvent(hAddrEvents[1]);
1472            Sleep(5000); /* spawned process runs for at most 5 seconds */
1473            return;
1474        }
1475        while (1)
1476        {
1477            HANDLE hThread;
1478            DWORD tid;
1479            hThread = CreateThread(NULL, 0, threadFunc2, NULL, 0, &tid);
1480            ok(hThread != NULL, "CreateThread failed, error %u\n",
1481               GetLastError());
1482            ok(WaitForSingleObject(hThread, 200) == WAIT_OBJECT_0,
1483               "Thread did not exit in time\n");
1484            if (hThread == NULL) break;
1485            CloseHandle(hThread);
1486        }
1487        return;
1488    }
1489
1490    test_CreateRemoteThread();
1491    test_CreateThread_basic();
1492    test_CreateThread_suspended();
1493    test_SuspendThread();
1494    test_TerminateThread();
1495    test_CreateThread_stack();
1496    test_thread_priority();
1497    test_GetThreadTimes();
1498    test_thread_processor();
1499    test_GetThreadExitCode();
1500 #ifdef __i386__
1501    test_SetThreadContext();
1502 #endif
1503    test_QueueUserWorkItem();
1504    test_RegisterWaitForSingleObject();
1505    test_TLS();
1506    test_ThreadErrorMode();
1507 #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__))
1508    test_thread_fpu_cw();
1509 #endif
1510 }