1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
// Licensed to the .NET Foundation under one or more agreements.
// The .NET Foundation licenses this file to you under the MIT license.
// See the LICENSE file in the project root for more information.
/*=============================================================================
**
** Source: test4.c (threading/tls)
**
** Purpose: Test to ensure that upon key creation, the value NULL
** is associated with the new key in all active threads.
** Upon thread creation, the value NULL is associated
** with all defined keys in the new thread.
**
** Dependencies: PAL_Initialize
** PAL_Terminate
** LocalAlloc
** LocalFree
**
**
**===========================================================================*/
#include <palsuite.h>
#define NUM_OF_THREADS 10
DWORD dwTlsIndex; /* TLS index */
/**
* ThreadFunc
*
* Thread function that checks that NULL is associated with the tls index
*/
DWORD PALAPI ThreadFunc(VOID)
{
LPVOID lpvData;
DWORD dwError;
/* Retrieve a data pointer for the current thread.
The return value should be NULL since no data has been
set in the index */
lpvData = TlsGetValue(dwTlsIndex);
if ( (lpvData != NULL) &&
((dwError = GetLastError()) == NO_ERROR) )
{/*ERROR */
Fail("TlsGetValue(%d) returned data "
"even if no data was associated with the index\n",
dwTlsIndex);
}
return PASS;
}
/**
* main
*
* executable entry point
*/
INT __cdecl main( INT argc, CHAR **argv )
{
DWORD IDThread;
LPVOID lpvData;
DWORD dwError;
HANDLE hThread[NUM_OF_THREADS];
int i;
/*PAL initialization */
if( (PAL_Initialize(argc, argv)) != 0 )
{
return FAIL;
}
/*Allocate a TLS index. */
if ((dwTlsIndex = TlsAlloc()) == TLS_OUT_OF_INDEXES)
{/*ERROR*/
DWORD dwError = GetLastError();
Fail("TlsAlloc() returned error %d\n",
dwError);
}
/*Check that the value associated with the tls index is NULL*/
lpvData = TlsGetValue(dwTlsIndex);
if ( (lpvData != NULL) &&
((dwError = GetLastError()) == NO_ERROR) )
{/*ERROR */
Fail("TlsGetValue(%d) returned non-null data "
"even if no data was associated with the index\n",
dwTlsIndex);
}
/*Create multiple threads.*/
for (i = 0; i < NUM_OF_THREADS; i++)
{
hThread[i] = CreateThread(NULL, /* no security attributes*/
0, /* use default stack size */
(LPTHREAD_START_ROUTINE) ThreadFunc, /* thread function */
NULL, /* no thread function argument */
0, /* use default creation flags */
&IDThread); /* returns thread identifier */
/* Check the return value for success. */
if (hThread[i] == NULL)
{/* ERROR */
DWORD dwError = GetLastError();
Fail("Unexpected CreateThread error %d\n",
dwError);
}
}
/* Wait for all threads to finish */
for (i = 0; i < NUM_OF_THREADS; i++)
{
DWORD dwRet;
dwRet = WaitForSingleObject(hThread[i], INFINITE);
if( dwRet == WAIT_FAILED )
{/* ERROR */
DWORD dwError = GetLastError();
Fail("Unexpected WaitForSingleObject error %d\n",
dwError);
}
}
/* Release the TLS index */
if( TlsFree( dwTlsIndex ) == 0 )
{/* ERROR */
DWORD dwError = GetLastError();
Fail("TlsFree() returned 0 with error %d\n",
dwError);
}
PAL_Terminate();
return PASS;
}
|
