fiber.c File Reference

#include "wine/test.h"

Include dependency graph for fiber.c:

Go to the source code of this file.

Macros
#define	X(f)   p##f = (void*)GetProcAddress(hKernel32, #f);

Functions
static	LPVOID (WINAPI *pCreateFiber)(SIZE_T
static	BOOL (WINAPI *pConvertFiberToThread)(void)
static	void (WINAPI *pSwitchToFiber)(LPVOID)
static	DWORD (WINAPI *pFlsAlloc)(PFLS_CALLBACK_FUNCTION)
static	PVOID (WINAPI *pFlsGetValue)(DWORD)
static VOID	init_funcs (void)
static VOID WINAPI	FiberLocalStorageProc (PVOID lpFlsData)
static VOID WINAPI	FiberMainProc (LPVOID lpFiberParameter)
static void	test_ConvertThreadToFiber (void)
static void	test_ConvertThreadToFiberEx (void)
static void	test_ConvertFiberToThread (void)
static void	test_FiberHandling (void)
static void	test_FiberLocalStorage (void)
static void	test_FiberLocalStorageCallback (PFLS_CALLBACK_FUNCTION cbfunc)
static void	test_FiberLocalStorageWithFibers (PFLS_CALLBACK_FUNCTION cbfunc)
	START_TEST (fiber)

Variables
static	LPFIBER_START_ROUTINE
static	LPVOID
static	DWORD
static	SIZE_T
static	PVOID
static void *	fibers [3]
static BYTE	testparam = 185
static DWORD	fls_index_to_set = FLS_OUT_OF_INDEXES
static void *	fls_value_to_set
static int	fiberCount = 0
static int	cbCount = 0

Macro Definition Documentation

X

#define X

(

f

)

p##f = (void*)GetProcAddress(hKernel32, #f);

Function Documentation

BOOL()

static BOOL ( WINAPI *  pConvertFiberToThread )

static

DWORD()

static DWORD ( WINAPI *  pFlsAlloc )

static

FiberLocalStorageProc()

static VOID WINAPI FiberLocalStorageProc ( PVOID  lpFlsData )

static

Definition at line 64 of file fiber.c.

{
    ok(lpFlsData == fls_value_to_set,
       "FlsData expected not to be changed, value is %p, expected %p\n",
       lpFlsData, fls_value_to_set);
    cbCount++;
}

Referenced by START_TEST().

FiberMainProc()

static VOID WINAPI FiberMainProc ( LPVOID  lpFiberParameter )

static

Definition at line 72 of file fiber.c.

{
    BYTE *tparam = (BYTE *)lpFiberParameter;
    fiberCount++;
    ok(*tparam == 185, "Parameterdata expected not to be changed\n");
    if (fls_index_to_set != FLS_OUT_OF_INDEXES)
    {
        void* ret;
        BOOL bret;
 
        ret = pFlsGetValue(fls_index_to_set);
        ok(ret == NULL, "FlsGetValue returned %p, expected NULL\n", ret);
 
        /* Set the FLS value */
        bret = pFlsSetValue(fls_index_to_set, fls_value_to_set);
        ok(bret, "FlsSetValue failed with error %u\n", GetLastError());
 
        /* Verify that FlsGetValue retrieves the value set by FlsSetValue */
        SetLastError( 0xdeadbeef );
        ret = pFlsGetValue(fls_index_to_set);
        ok(ret == fls_value_to_set, "FlsGetValue returned %p, expected %p\n", ret, fls_value_to_set);
        ok(GetLastError() == ERROR_SUCCESS, "FlsGetValue error %u\n", GetLastError());
    }
    pSwitchToFiber(fibers[0]);
}

Referenced by test_FiberHandling(), and test_FiberLocalStorageWithFibers().

init_funcs()

static VOID init_funcs ( void  )

static

Definition at line 44 of file fiber.c.

{
    HMODULE hKernel32 = GetModuleHandleA("kernel32.dll");
 
#define X(f) p##f = (void*)GetProcAddress(hKernel32, #f);
    X(CreateFiber);
    X(ConvertThreadToFiber);
    X(ConvertFiberToThread);
    X(SwitchToFiber);
    X(DeleteFiber);
    X(ConvertThreadToFiberEx);
    X(CreateFiberEx);
    X(IsThreadAFiber);
    X(FlsAlloc);
    X(FlsFree);
    X(FlsGetValue);
    X(FlsSetValue);
#undef X
}

Referenced by START_TEST().

LPVOID()

static LPVOID ( WINAPI *  pCreateFiber )

static

PVOID()

static PVOID ( WINAPI *  pFlsGetValue )

static

START_TEST()

START_TEST

(

fiber

)

Definition at line 396 of file fiber.c.

{
    init_funcs();
 
    if (!pCreateFiber)
    {
        win_skip( "Fibers not supported by win95\n" );
        return;
    }
 
    test_FiberHandling();
    test_FiberLocalStorage();
    test_FiberLocalStorageCallback(FiberLocalStorageProc);
    test_FiberLocalStorageWithFibers(FiberLocalStorageProc);
}

test_ConvertFiberToThread()

static void test_ConvertFiberToThread ( void  )

static

Definition at line 124 of file fiber.c.

{
    if (pConvertFiberToThread)
    {
        BOOL ret = pConvertFiberToThread();
        ok(ret, "ConvertFiberToThread failed with error %u\n", GetLastError());
    }
    else
    {
        win_skip( "ConvertFiberToThread not present\n" );
    }
}

Referenced by test_FiberHandling(), and test_FiberLocalStorageWithFibers().

test_ConvertThreadToFiber()

static void test_ConvertThreadToFiber ( void  )

static

Definition at line 98 of file fiber.c.

{
    if (pConvertThreadToFiber)
    {
        fibers[0] = pConvertThreadToFiber(&testparam);
        ok(fibers[0] != NULL, "ConvertThreadToFiber failed with error %u\n", GetLastError());
    }
    else
    {
        win_skip( "ConvertThreadToFiber not present\n" );
    }
}

Referenced by test_FiberHandling(), and test_FiberLocalStorageWithFibers().

test_ConvertThreadToFiberEx()

static void test_ConvertThreadToFiberEx ( void  )

static

Definition at line 111 of file fiber.c.

{
    if (pConvertThreadToFiberEx)
    {
        fibers[0] = pConvertThreadToFiberEx(&testparam, 0);
        ok(fibers[0] != NULL, "ConvertThreadToFiberEx failed with error %u\n", GetLastError());
    }
    else
    {
        win_skip( "ConvertThreadToFiberEx not present\n" );
    }
}

Referenced by test_FiberHandling().

test_FiberHandling()

static void test_FiberHandling ( void  )

static

Definition at line 137 of file fiber.c.

{
    fiberCount = 0;
    fibers[0] = pCreateFiber(0,FiberMainProc,&testparam);
    ok(fibers[0] != NULL, "CreateFiber failed with error %u\n", GetLastError());
    pDeleteFiber(fibers[0]);
 
    test_ConvertThreadToFiber();
    test_ConvertFiberToThread();
    if (pConvertThreadToFiberEx)
        test_ConvertThreadToFiberEx();
    else
        test_ConvertThreadToFiber();
 
    fibers[1] = pCreateFiber(0,FiberMainProc,&testparam);
    ok(fibers[1] != NULL, "CreateFiber failed with error %u\n", GetLastError());
 
    pSwitchToFiber(fibers[1]);
    ok(fiberCount == 1, "Wrong fiber count: %d\n", fiberCount);
    pDeleteFiber(fibers[1]);
 
    if (pCreateFiberEx)
    {
        fibers[1] = pCreateFiberEx(0,0,0,FiberMainProc,&testparam);
        ok(fibers[1] != NULL, "CreateFiberEx failed with error %u\n", GetLastError());
 
        pSwitchToFiber(fibers[1]);
        ok(fiberCount == 2, "Wrong fiber count: %d\n", fiberCount);
        pDeleteFiber(fibers[1]);
    }
    else win_skip( "CreateFiberEx not present\n" );
 
    if (pIsThreadAFiber) ok(pIsThreadAFiber(), "IsThreadAFiber reported FALSE\n");
    test_ConvertFiberToThread();
    if (pIsThreadAFiber) ok(!pIsThreadAFiber(), "IsThreadAFiber reported TRUE\n");
}

Referenced by START_TEST().

test_FiberLocalStorage()

static void test_FiberLocalStorage ( void  )

static

Definition at line 174 of file fiber.c.

{
    DWORD fls, fls_2;
    BOOL ret;
    void* val;
 
    if (!pFlsAlloc || !pFlsSetValue || !pFlsGetValue || !pFlsFree)
    {
        win_skip( "Fiber Local Storage not supported\n" );
        return;
    }
 
    /* Test an unallocated index
     * FlsFree should fail
     * FlsGetValue and FlsSetValue should succeed
     */
    SetLastError( 0xdeadbeef );
    ret = pFlsFree( 127 );
    ok( !ret, "freeing fls index 127 (unallocated) succeeded\n" );
    ok( GetLastError() == ERROR_INVALID_PARAMETER,
        "freeing fls index 127 (unallocated) wrong error %u\n", GetLastError() );
 
    val = pFlsGetValue( 127 );
    ok( val == NULL,
        "getting fls index 127 (unallocated) failed with error %u\n", GetLastError() );
 
    ret = pFlsSetValue( 127, (void*) 0x217 );
    ok( ret, "setting fls index 127 (unallocated) failed with error %u\n", GetLastError() );
 
    SetLastError( 0xdeadbeef );
    val = pFlsGetValue( 127 );
    ok( val == (void*) 0x217, "fls index 127 (unallocated) wrong value %p\n", val );
    ok( GetLastError() == ERROR_SUCCESS,
        "getting fls index 127 (unallocated) failed with error %u\n", GetLastError() );
 
    /* FlsFree, FlsGetValue, and FlsSetValue out of bounds should return
     * ERROR_INVALID_PARAMETER
     */
    SetLastError( 0xdeadbeef );
    ret = pFlsFree( 128 );
    ok( !ret, "freeing fls index 128 (out of bounds) succeeded\n" );
    ok( GetLastError() == ERROR_INVALID_PARAMETER,
        "freeing fls index 128 (out of bounds) wrong error %u\n", GetLastError() );
 
    SetLastError( 0xdeadbeef );
    ret = pFlsSetValue( 128, (void*) 0x217 );
    ok( !ret, "setting fls index 128 (out of bounds) succeeded\n" );
    ok( GetLastError() == ERROR_INVALID_PARAMETER,
        "setting fls index 128 (out of bounds) wrong error %u\n", GetLastError() );
 
    SetLastError( 0xdeadbeef );
    val = pFlsGetValue( 128 );
    ok( GetLastError() == ERROR_INVALID_PARAMETER,
        "getting fls index 128 (out of bounds) wrong error %u\n", GetLastError() );
 
    /* Test index 0 */
    SetLastError( 0xdeadbeef );
    val = pFlsGetValue( 0 );
    ok( !val, "fls index 0 set to %p\n", val );
    ok( GetLastError() == ERROR_INVALID_PARAMETER, "setting fls index wrong error %u\n", GetLastError() );
    SetLastError( 0xdeadbeef );
    ret = pFlsSetValue( 0, (void *)0xdeadbeef );
    ok( !ret, "setting fls index 0 succeeded\n" );
    ok( GetLastError() == ERROR_INVALID_PARAMETER, "setting fls index wrong error %u\n", GetLastError() );
    SetLastError( 0xdeadbeef );
    val = pFlsGetValue( 0 );
    ok( !val, "fls index 0 wrong value %p\n", val );
    ok( GetLastError() == ERROR_INVALID_PARAMETER, "setting fls index wrong error %u\n", GetLastError() );
 
    /* Test creating an FLS index */
    fls = pFlsAlloc( NULL );
    ok( fls != FLS_OUT_OF_INDEXES, "FlsAlloc failed\n" );
    ok( fls != 0, "fls index 0 allocated\n" );
    val = pFlsGetValue( fls );
    ok( !val, "fls index %u wrong value %p\n", fls, val );
    ret = pFlsSetValue( fls, (void *)0xdeadbeef );
    ok( ret, "setting fls index %u failed\n", fls );
    SetLastError( 0xdeadbeef );
    val = pFlsGetValue( fls );
    ok( val == (void *)0xdeadbeef, "fls index %u wrong value %p\n", fls, val );
    ok( GetLastError() == ERROR_SUCCESS,
        "getting fls index %u failed with error %u\n", fls, GetLastError() );
    pFlsFree( fls );
 
    /* Undefined behavior: verify the value is NULL after it the slot is freed */
    SetLastError( 0xdeadbeef );
    val = pFlsGetValue( fls );
    ok( val == NULL, "fls index %u wrong value %p\n", fls, val );
    ok( GetLastError() == ERROR_SUCCESS,
        "getting fls index %u failed with error %u\n", fls, GetLastError() );
 
    /* Undefined behavior: verify the value is settable after the slot is freed */
    ret = pFlsSetValue( fls, (void *)0xdeadbabe );
    ok( ret, "setting fls index %u failed\n", fls );
    val = pFlsGetValue( fls );
    ok( val == (void *)0xdeadbabe, "fls index %u wrong value %p\n", fls, val );
 
    /* Try to create the same FLS index again, and verify that is initialized to NULL */
    fls_2 = pFlsAlloc( NULL );
    ok( fls != FLS_OUT_OF_INDEXES, "FlsAlloc failed with error %u\n", GetLastError() );
    /* If this fails it is not an API error, but the test will be inconclusive */
    ok( fls_2 == fls, "different FLS index allocated, was %u, now %u\n", fls, fls_2 );
 
    SetLastError( 0xdeadbeef );
    val = pFlsGetValue( fls_2 );
    ok( val == NULL, "fls index %u wrong value %p\n", fls, val );
    ok( GetLastError() == ERROR_SUCCESS,
        "getting fls index %u failed with error %u\n", fls_2, GetLastError() );
    pFlsFree( fls_2 );
}

Referenced by START_TEST().

test_FiberLocalStorageCallback()

static void test_FiberLocalStorageCallback ( PFLS_CALLBACK_FUNCTION  cbfunc )

static

Definition at line 285 of file fiber.c.

{
    DWORD fls;
    BOOL ret;
    void* val, *val2;
 
    if (!pFlsAlloc || !pFlsSetValue || !pFlsGetValue || !pFlsFree)
    {
        win_skip( "Fiber Local Storage not supported\n" );
        return;
    }
 
    /* Test that the callback is executed */
    cbCount = 0;
    fls = pFlsAlloc( cbfunc );
    ok( fls != FLS_OUT_OF_INDEXES, "FlsAlloc failed with error %u\n", GetLastError() );
 
    val = (void*) 0x1587;
    fls_value_to_set = val;
    ret = pFlsSetValue( fls, val );
    ok(ret, "FlsSetValue failed with error %u\n", GetLastError() );
 
    val2 = pFlsGetValue( fls );
    ok(val == val2, "FlsGetValue returned %p, expected %p\n", val2, val);
 
    ret = pFlsFree( fls );
    ok(ret, "FlsFree failed with error %u\n", GetLastError() );
    todo_wine ok( cbCount == 1, "Wrong callback count: %d\n", cbCount );
 
    /* Test that callback is not executed if value is NULL */
    cbCount = 0;
    fls = pFlsAlloc( cbfunc );
    ok( fls != FLS_OUT_OF_INDEXES, "FlsAlloc failed with error %u\n", GetLastError() );
 
    ret = pFlsSetValue( fls, NULL );
    ok( ret, "FlsSetValue failed with error %u\n", GetLastError() );
 
    pFlsFree( fls );
    ok( ret, "FlsFree failed with error %u\n", GetLastError() );
    ok( cbCount == 0, "Wrong callback count: %d\n", cbCount );
}

Referenced by START_TEST().

test_FiberLocalStorageWithFibers()

static void test_FiberLocalStorageWithFibers ( PFLS_CALLBACK_FUNCTION  cbfunc )

static

Definition at line 327 of file fiber.c.

{
    void* val1 = (void*) 0x314;
    void* val2 = (void*) 0x152;
    BOOL ret;
 
    if (!pFlsAlloc || !pFlsFree || !pFlsSetValue || !pFlsGetValue)
    {
        win_skip( "Fiber Local Storage not supported\n" );
        return;
    }
 
    fls_index_to_set = pFlsAlloc(cbfunc);
    ok(fls_index_to_set != FLS_OUT_OF_INDEXES, "FlsAlloc failed with error %u\n", GetLastError());
 
    test_ConvertThreadToFiber();
 
    fiberCount = 0;
    cbCount = 0;
    fibers[1] = pCreateFiber(0,FiberMainProc,&testparam);
    fibers[2] = pCreateFiber(0,FiberMainProc,&testparam);
    ok(fibers[1] != NULL, "CreateFiber failed with error %u\n", GetLastError());
    ok(fibers[2] != NULL, "CreateFiber failed with error %u\n", GetLastError());
    ok(fiberCount == 0, "Wrong fiber count: %d\n", fiberCount);
    ok(cbCount == 0, "Wrong callback count: %d\n", cbCount);
 
    fiberCount = 0;
    cbCount = 0;
    fls_value_to_set = val1;
    pSwitchToFiber(fibers[1]);
    ok(fiberCount == 1, "Wrong fiber count: %d\n", fiberCount);
    ok(cbCount == 0, "Wrong callback count: %d\n", cbCount);
 
    fiberCount = 0;
    cbCount = 0;
    fls_value_to_set = val2;
    pSwitchToFiber(fibers[2]);
    ok(fiberCount == 1, "Wrong fiber count: %d\n", fiberCount);
    ok(cbCount == 0, "Wrong callback count: %d\n", cbCount);
 
    fls_value_to_set = val2;
    ret = pFlsSetValue(fls_index_to_set, fls_value_to_set);
    ok(ret, "FlsSetValue failed\n");
    ok(val2 == pFlsGetValue(fls_index_to_set), "FlsGetValue failed\n");
 
    fiberCount = 0;
    cbCount = 0;
    fls_value_to_set = val1;
    pDeleteFiber(fibers[1]);
    ok(fiberCount == 0, "Wrong fiber count: %d\n", fiberCount);
    todo_wine ok(cbCount == 1, "Wrong callback count: %d\n", cbCount);
 
    fiberCount = 0;
    cbCount = 0;
    fls_value_to_set = val2;
    pFlsFree(fls_index_to_set);
    ok(fiberCount == 0, "Wrong fiber count: %d\n", fiberCount);
    todo_wine ok(cbCount == 2, "Wrong callback count: %d\n", cbCount);
 
    fiberCount = 0;
    cbCount = 0;
    fls_value_to_set = val1;
    pDeleteFiber(fibers[2]);
    ok(fiberCount == 0, "Wrong fiber count: %d\n", fiberCount);
    ok(cbCount == 0, "Wrong callback count: %d\n", cbCount);
 
    test_ConvertFiberToThread();
}

Referenced by START_TEST().

void()

static void ( WINAPI *  pSwitchToFiber )

static

Variable Documentation

cbCount

int cbCount = 0

static

Definition at line 42 of file fiber.c.

Referenced by FiberLocalStorageProc(), GreGetObject(), LoadStringFromRegistry(), PALETTE_GetObject(), PEN_GetObject(), test_FiberLocalStorageCallback(), and test_FiberLocalStorageWithFibers().

DWORD

DWORD

Definition at line 28 of file fiber.c.

fiberCount

int fiberCount = 0

static

Definition at line 41 of file fiber.c.

Referenced by FiberMainProc(), test_FiberHandling(), and test_FiberLocalStorageWithFibers().

fibers

void* fibers[3]

static

Definition at line 36 of file fiber.c.

Referenced by FiberMainProc(), test_ConvertThreadToFiber(), test_ConvertThreadToFiberEx(), test_FiberHandling(), and test_FiberLocalStorageWithFibers().

fls_index_to_set

DWORD fls_index_to_set = FLS_OUT_OF_INDEXES

static

Definition at line 38 of file fiber.c.

Referenced by FiberMainProc(), and test_FiberLocalStorageWithFibers().

fls_value_to_set

void* fls_value_to_set

static

Definition at line 39 of file fiber.c.

Referenced by FiberLocalStorageProc(), FiberMainProc(), test_FiberLocalStorageCallback(), and test_FiberLocalStorageWithFibers().

LPFIBER_START_ROUTINE

LPFIBER_START_ROUTINE

Definition at line 23 of file fiber.c.

LPVOID

LPVOID

Definition at line 23 of file fiber.c.

PVOID

PVOID

Definition at line 34 of file fiber.c.

SIZE_T

SIZE_T

Definition at line 29 of file fiber.c.

testparam

BYTE testparam = 185

static

Definition at line 37 of file fiber.c.

Referenced by test_ConvertThreadToFiber(), test_ConvertThreadToFiberEx(), test_FiberHandling(), and test_FiberLocalStorageWithFibers().