ReactOS  0.4.13-dev-249-gcba1a2f
FLS.c
Go to the documentation of this file.
1 /*
2  * PROJECT: ReactOS api tests
3  * LICENSE: GPL-2.0+ (https://spdx.org/licenses/GPL-2.0+)
4  * PURPOSE: Tests for FLS implementation details
5  * COPYRIGHT: Copyright 2018 Mark Jansen (mark.jansen@reactos.org)
6  */
7 
8 #include "precomp.h"
9 #include <ndk/pstypes.h>
10 #include <ndk/rtlfuncs.h>
11 
12 /* XP does not have these functions */
13 static DWORD (WINAPI *pFlsAlloc)(PFLS_CALLBACK_FUNCTION);
14 static BOOL (WINAPI *pFlsFree)(DWORD);
15 static PVOID (WINAPI *pFlsGetValue)(DWORD);
16 static BOOL (WINAPI *pFlsSetValue)(DWORD,PVOID);
17 
18 
19 #define NtCurrentPeb() (NtCurrentTeb()->ProcessEnvironmentBlock)
20 #define WINVER_2003 0x0502
21 
22 static DWORD g_WinVersion = 0;
30 
31 
33 {
34  ok(lpFlsData == g_FlsData1, "Expected g_FlsData1(%p), got %p\n", g_FlsData1, lpFlsData);
36 }
37 
39 {
40  ok(lpFlsData == g_FlsData2, "Expected g_FlsData2(%p), got %p\n", g_FlsData2, lpFlsData);
42 }
43 
45 {
46  ok(lpFlsData == g_FlsData3, "Expected g_FlsData3(%p), got %p\n", g_FlsData3, lpFlsData);
47 
49  ok(RtlIsCriticalSectionLockedByThread(NtCurrentPeb()->FastPebLock), "Expected lock on PEB\n");
51  if (g_FlsExcept3)
52  {
54  }
55 }
56 
57 typedef struct _FLS_CALLBACK_INFO
58 {
62 
63 
64 void ok_fls_(DWORD dwIndex, PVOID pValue, PFLS_CALLBACK_FUNCTION lpCallback)
65 {
66  PFLS_CALLBACK_INFO FlsCallback;
67  PVOID* FlsData;
68  PVOID gotValue;
69 
70  FlsCallback = (PFLS_CALLBACK_INFO)NtCurrentPeb()->FlsCallback;
71  FlsData = (PVOID*)NtCurrentTeb()->FlsData;
72 
73  winetest_ok(FlsData != NULL, "Expected FlsData\n");
74  winetest_ok(FlsCallback != NULL, "Expected FlsCallback\n");
75 
76  if (FlsData == NULL || FlsCallback == NULL)
77  {
78  winetest_skip("Unable to continue test\n");
79  return;
80  }
81 
83  {
84  winetest_ok(NtCurrentPeb()->FlsCallback[dwIndex] == lpCallback,
85  "Expected NtCurrentPeb()->FlsCallback[%lu] to be %p, was %p\n",
86  dwIndex,
87  lpCallback,
88  NtCurrentPeb()->FlsCallback[dwIndex]);
89  }
90  else
91  {
92  winetest_ok(FlsCallback[dwIndex].lpCallback == lpCallback,
93  "Expected FlsCallback[%lu].lpCallback to be %p, was %p\n",
94  dwIndex,
95  lpCallback,
96  FlsCallback[dwIndex].lpCallback);
97  if (lpCallback != &FlsCallback3 || !g_FlsExcept3)
98  {
99  winetest_ok(FlsCallback[dwIndex].Unknown == NULL,
100  "Expected FlsCallback[%lu].Unknown to be %p, was %p\n",
101  dwIndex,
102  NULL,
103  FlsCallback[dwIndex].Unknown);
104  }
105  }
106  winetest_ok(FlsData[dwIndex + 2] == pValue,
107  "Expected FlsData[%lu + 2] to be %p, was %p\n",
108  dwIndex,
109  pValue,
110  FlsData[dwIndex + 2]);
111 
112  gotValue = pFlsGetValue(dwIndex);
113  winetest_ok(gotValue == pValue, "Expected FlsGetValue(%lu) to be %p, was %p\n", dwIndex, pValue, gotValue);
114 }
115 
116 #define ok_fls (winetest_set_location(__FILE__, __LINE__), 0) ? (void)0 : ok_fls_
117 
118 static VOID init_funcs(void)
119 {
120  HMODULE hKernel32 = GetModuleHandleA("kernel32.dll");
121 
122 #define X(f) p##f = (void*)GetProcAddress(hKernel32, #f);
123  X(FlsAlloc);
124  X(FlsFree);
125  X(FlsGetValue);
126  X(FlsSetValue);
127 #undef X
128 }
129 
130 
131 
133 {
134  RTL_OSVERSIONINFOW rtlinfo = { sizeof(rtlinfo) };
135  DWORD dwIndex1, dwIndex2, dwIndex3, dwErr;
136  BOOL bRet;
137 
138  init_funcs();
139  if (!pFlsAlloc || !pFlsFree || !pFlsGetValue || !pFlsSetValue)
140  {
141  skip("Fls functions not available\n");
142  return;
143  }
144 
145  RtlGetVersion(&rtlinfo);
146  g_WinVersion = (rtlinfo.dwMajorVersion << 8) | rtlinfo.dwMinorVersion;
147 
148  dwIndex1 = pFlsAlloc(FlsCallback1);
149  ok(dwIndex1 != FLS_OUT_OF_INDEXES, "Unable to allocate FLS index\n");
150  dwIndex2 = pFlsAlloc(FlsCallback2);
151  ok(dwIndex2 != FLS_OUT_OF_INDEXES, "Unable to allocate FLS index\n");
152  ok(dwIndex1 != dwIndex2, "Expected different indexes, got %lu\n", dwIndex1);
153 
154  dwIndex3 = pFlsAlloc(FlsCallback3);
155  ok(dwIndex3 != FLS_OUT_OF_INDEXES, "Unable to allocate FLS index\n");
156  ok(dwIndex1 != dwIndex3, "Expected different indexes, got %lu\n", dwIndex1);
157 
158  if (dwIndex1 == FLS_OUT_OF_INDEXES || dwIndex2 == FLS_OUT_OF_INDEXES || dwIndex3 == FLS_OUT_OF_INDEXES)
159  {
160  skip("Unable to continue test\n");
161  return;
162  }
163 
164  ok_fls(dwIndex1, g_FlsData1, &FlsCallback1);
165  ok_fls(dwIndex2, g_FlsData2, &FlsCallback2);
166  ok_fls(dwIndex3, g_FlsData3, &FlsCallback3);
167 
168  g_FlsData1 = (PVOID)0x123456;
169  ok(pFlsSetValue(dwIndex1, g_FlsData1), "FlsSetValue(%lu, %p) failed\n", dwIndex1, g_FlsData1);
170 
171  ok_fls(dwIndex1, g_FlsData1, &FlsCallback1);
172  ok_fls(dwIndex2, g_FlsData2, &FlsCallback2);
173  ok_fls(dwIndex3, g_FlsData3, &FlsCallback3);
174 
175  ok_int(g_FlsCalled1, 0);
176  ok_int(g_FlsCalled2, 0);
177  ok_int(g_FlsCalled3, 0);
178 
179  g_FlsData2 = (PVOID)0x9876112;
180  ok(pFlsSetValue(dwIndex2, g_FlsData2), "FlsSetValue(%lu, %p) failed\n", dwIndex2, g_FlsData2);
181 
182  ok_fls(dwIndex1, g_FlsData1, &FlsCallback1);
183  ok_fls(dwIndex2, g_FlsData2, &FlsCallback2);
184  ok_fls(dwIndex3, g_FlsData3, &FlsCallback3);
185 
186 
187  ok_int(g_FlsCalled1, 0);
188  ok_int(g_FlsCalled2, 0);
189  ok_int(g_FlsCalled3, 0);
190 
191  g_FlsData3 = (PVOID)0x98762;
192  ok(pFlsSetValue(dwIndex3, g_FlsData3), "FlsSetValue(%lu, %p) failed\n", dwIndex3, g_FlsData3);
193 
194  ok_fls(dwIndex1, g_FlsData1, &FlsCallback1);
195  ok_fls(dwIndex2, g_FlsData2, &FlsCallback2);
196  ok_fls(dwIndex3, g_FlsData3, &FlsCallback3);
197 
198  ok_int(g_FlsCalled1, 0);
199  ok_int(g_FlsCalled2, 0);
200  ok_int(g_FlsCalled3, 0);
201 
202  ok(pFlsFree(dwIndex1) == TRUE, "FlsFree(%lu) failed\n", dwIndex1);
203  g_FlsData1 = NULL;
204 
205  ok_fls(dwIndex1, g_FlsData1, NULL);
206  ok_fls(dwIndex2, g_FlsData2, &FlsCallback2);
207  ok_fls(dwIndex3, g_FlsData3, &FlsCallback3);
208 
209  ok_int(g_FlsCalled1, 1);
210  ok_int(g_FlsCalled2, 0);
211  ok_int(g_FlsCalled3, 0);
212 
213  g_FlsExcept3 = TRUE;
214  _SEH2_TRY
215  {
216  bRet = pFlsFree(dwIndex3);
217  dwErr = GetLastError();
218  }
220  {
221  bRet = 12345;
222  dwErr = 0xdeaddead;
223  }
224  _SEH2_END;
225  ok(RtlIsCriticalSectionLockedByThread(NtCurrentPeb()->FastPebLock) == FALSE, "Expected no lock on PEB\n");
226 
227  ok(bRet == 12345, "FlsFree(%lu) should have failed, got %u\n", dwIndex3, bRet);
228  ok(dwErr == 0xdeaddead, "Expected GetLastError() to be 0xdeaddead, was %lx\n", dwErr);
229 
230  ok_fls(dwIndex1, g_FlsData1, NULL);
231  ok_fls(dwIndex2, g_FlsData2, &FlsCallback2);
232  ok_fls(dwIndex3, g_FlsData3, &FlsCallback3);
233 
234  ok_int(g_FlsCalled1, 1);
235  ok_int(g_FlsCalled2, 0);
236  ok_int(g_FlsCalled3, 1);
237 }
#define ERROR_INVALID_PARAMETER
Definition: compat.h:91
LONG g_FlsCalled2
Definition: FLS.c:26
LONG g_FlsCalled1
Definition: FLS.c:24
struct _FLS_CALLBACK_INFO * PFLS_CALLBACK_INFO
static PVOID
Definition: FLS.c:16
PVOID g_FlsData2
Definition: FLS.c:25
#define TRUE
Definition: types.h:120
NTSYSAPI ULONG NTAPI RtlIsCriticalSectionLockedByThread(_In_ PRTL_CRITICAL_SECTION CriticalSection)
#define WINVER_2003
Definition: FLS.c:20
NTSTATUS NTAPI RtlGetVersion(IN OUT PRTL_OSVERSIONINFOW lpVersionInformation)
Definition: version.c:158
#define FLS_OUT_OF_INDEXES
Definition: winbase.h:557
struct _FLS_CALLBACK_INFO FLS_CALLBACK_INFO
VOID(WINAPI * PFLS_CALLBACK_FUNCTION)(PVOID)
Definition: winbase.h:1397
PVOID g_FlsData3
Definition: FLS.c:27
#define ok_int(x, y)
Definition: sprintf.c:21
START_TEST(FLS)
Definition: FLS.c:132
BOOL WINAPI FlsSetValue(DWORD dwFlsIndex, PVOID lpFlsData)
Definition: fiber.c:481
#define EXCEPTION_NONCONTINUABLE
Definition: rtltypes.h:150
DWORD WINAPI GetLastError(VOID)
Definition: except.c:1059
_SEH2_TRY
Definition: create.c:4250
DWORD WINAPI FlsAlloc(PFLS_CALLBACK_FUNCTION lpCallback)
Definition: fiber.c:341
unsigned int BOOL
Definition: ntddk_ex.h:94
long LONG
Definition: pedump.c:60
#define ok(value,...)
#define EXCEPTION_EXECUTE_HANDLER
Definition: excpt.h:85
PVOID WINAPI FlsGetValue(DWORD dwFlsIndex)
Definition: fiber.c:460
smooth NULL
Definition: ftsmooth.c:416
static DWORD g_WinVersion
Definition: FLS.c:22
static BOOL(WINAPI *pFlsFree)(DWORD)
PFLS_CALLBACK_FUNCTION lpCallback
Definition: FLS.c:59
DWORD dwErr
Definition: service.c:36
PVOID Unknown
Definition: FLS.c:60
BOOL g_FlsExcept3
Definition: FLS.c:29
ULONG dwMajorVersion
Definition: rtltypes.h:243
void __winetest_cdecl winetest_ok(int condition, const char *msg,...)
LONG g_FlsCalled3
Definition: FLS.c:28
#define ok_fls
Definition: FLS.c:116
#define WINAPI
Definition: msvc.h:8
VOID WINAPI FlsCallback3(PVOID lpFlsData)
Definition: FLS.c:44
PVOID g_FlsData1
Definition: FLS.c:23
unsigned long DWORD
Definition: ntddk_ex.h:95
#define X(f)
void ok_fls_(DWORD dwIndex, PVOID pValue, PFLS_CALLBACK_FUNCTION lpCallback)
Definition: FLS.c:64
HMODULE WINAPI DECLSPEC_HOTPATCH GetModuleHandleA(LPCSTR lpModuleName)
Definition: loader.c:819
_SEH2_END
Definition: create.c:4424
#define InterlockedIncrement
Definition: armddk.h:53
FORCEINLINE struct _TEB * NtCurrentTeb(VOID)
Definition: psfuncs.h:420
VOID WINAPI RaiseException(IN DWORD dwExceptionCode, IN DWORD dwExceptionFlags, IN DWORD nNumberOfArguments, IN CONST ULONG_PTR *lpArguments OPTIONAL)
Definition: except.c:693
#define NtCurrentPeb()
Definition: FLS.c:19
RTL_CRITICAL_SECTION FastPebLock
Definition: ldrinit.c:79
#define skip(...)
ULONG dwMinorVersion
Definition: rtltypes.h:244
static VOID init_funcs(void)
Definition: FLS.c:118
void __winetest_cdecl winetest_skip(const char *msg,...)
#define _SEH2_EXCEPT(...)
Definition: pseh2_64.h:6
VOID WINAPI FlsCallback2(PVOID lpFlsData)
Definition: FLS.c:38
BOOL WINAPI FlsFree(DWORD dwFlsIndex)
Definition: fiber.c:400
static DWORD(WINAPI *pFlsAlloc)(PFLS_CALLBACK_FUNCTION)
VOID WINAPI FlsCallback1(PVOID lpFlsData)
Definition: FLS.c:32