blob: 4acaef5020d881edffd4c87fea11de042df747a0 (
plain)
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
|
// 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: tls.c
**
** Purpose: Test to ensure TlsGetValue, TlsSetValue and TlsFree
** are not working with an invalid index
**
** 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 )
{
CHAR lpstrData[256] = "";
LPVOID lpvData = NULL;
BOOL bRet;
/* PAL initialization */
if( (PAL_Initialize(argc, argv)) != 0 )
{
return FAIL;
}
/* Invalid TLS index */
dwTlsIndex = -1;
/*
* Set some data in the invalid TLS index
*Should return 0 and an error
*/
bRet = TlsSetValue(dwTlsIndex, (LPVOID)lpstrData);
if ( bRet != 0)
{/*ERROR */
Fail("TlsSetValue(%d, %x) returned %d "
"when it should have returned 0 and an error\n",
dwTlsIndex,
lpvData,
bRet);
}
/*
* Get the data at the invalid index
* Should return 0 and an error
*/
lpvData = TlsGetValue(dwTlsIndex);
if ( lpvData != 0 )
{/* ERROR */
Fail("TlsGetValue(%d) returned %d "
"when it should have returned 0 and an error\n",
dwTlsIndex,
lpvData);
}
/*
* Release the invalid TLS index
* Should return 0 and an error
*/
bRet = TlsFree( dwTlsIndex );
if( bRet != 0 )
{/* ERROR */
Fail("TlsFree() returned %d "
"when it should have returned 0 and an error\n",
bRet);
}
PAL_Terminate();
return PASS;
}
|