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
|
// 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: test5.c (threading/tls)
**
** Purpose: Test that creates a key, sets its value, deletes the key,
** creates a new key, and gets its value to make sure its NULL.
**
** Dependencies: PAL_Initialize
** PAL_Terminate
** LocalAlloc
** LocalFree
**
**
**===========================================================================*/
#include <palsuite.h>
DWORD dwTlsIndex; /* TLS index */
/**
* main
*
* executable entry point
*/
INT __cdecl main( INT argc, CHAR **argv )
{
LPVOID lpvData;
DWORD dwError;
/*PAL initialization */
if( (PAL_Initialize(argc, argv)) != 0 )
{
return FAIL;
}
/**
* create a key, set its value, delete the key
*/
/*Allocate a TLS index. */
if ((dwTlsIndex = TlsAlloc()) == TLS_OUT_OF_INDEXES)
{/*ERROR*/
DWORD dwError = GetLastError();
Fail("TlsAlloc() returned error %d\n",
dwError);
}
/* Initialize the TLS index for this thread.*/
lpvData = (LPVOID) LocalAlloc(0, 256);
if( lpvData == NULL )
{/*ERROR */
dwError = GetLastError();
Fail("Unexpected LocalAlloc(0, 256) failure with error %d\n",
dwError);
}
if ( TlsSetValue(dwTlsIndex, lpvData) == 0 )
{/*ERROR */
dwError = GetLastError();
Fail("TlsSetValue(%d, %x) returned 0 with error %d\n",
dwTlsIndex,
lpvData,
dwError);
}
/* Release the TLS index */
if( TlsFree( dwTlsIndex ) == 0 )
{/* ERROR */
DWORD dwError = GetLastError();
Fail("TlsFree() returned 0 with error %d\n",
dwError);
}
/**
* create a new key, and get its value
*/
/*Allocate a TLS index. */
if ((dwTlsIndex = TlsAlloc()) == TLS_OUT_OF_INDEXES)
{/*ERROR*/
DWORD dwError = GetLastError();
Fail("TlsAlloc() returned error %d\n",
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);
}
PAL_Terminate();
return PASS;
}
|