2002-12-17 22:06:25 +01:00
|
|
|
/*
|
|
|
|
* Fiber support
|
|
|
|
*
|
|
|
|
* Copyright 2002 Alexandre Julliard
|
|
|
|
*
|
|
|
|
* This library is free software; you can redistribute it and/or
|
|
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
|
|
* License as published by the Free Software Foundation; either
|
|
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
|
|
*
|
|
|
|
* This library is distributed in the hope that it will be useful,
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
* Lesser General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
|
|
* License along with this library; if not, write to the Free Software
|
2006-05-18 14:49:52 +02:00
|
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
2002-12-17 22:06:25 +01:00
|
|
|
*
|
|
|
|
* FIXME:
|
|
|
|
* - proper handling of 16-bit stack and signal stack
|
|
|
|
*/
|
|
|
|
|
2003-11-27 01:59:36 +01:00
|
|
|
#include "config.h"
|
|
|
|
#include "wine/port.h"
|
|
|
|
|
2002-12-17 22:06:25 +01:00
|
|
|
#include <setjmp.h>
|
2003-09-06 01:08:26 +02:00
|
|
|
#include <stdarg.h>
|
2002-12-17 22:06:25 +01:00
|
|
|
|
2003-08-28 05:44:41 +02:00
|
|
|
#define NONAMELESSUNION
|
2003-09-06 01:08:26 +02:00
|
|
|
#include "windef.h"
|
2002-12-17 22:06:25 +01:00
|
|
|
#include "winbase.h"
|
|
|
|
#include "winerror.h"
|
2005-06-06 22:13:08 +02:00
|
|
|
#include "winternl.h"
|
2003-06-27 06:08:04 +02:00
|
|
|
#include "wine/exception.h"
|
2003-08-30 00:23:42 +02:00
|
|
|
#include "wine/library.h"
|
2002-12-17 22:06:25 +01:00
|
|
|
|
|
|
|
struct fiber_data
|
|
|
|
{
|
2003-08-28 05:44:41 +02:00
|
|
|
LPVOID param; /* 00 fiber param */
|
|
|
|
void *except; /* 04 saved exception handlers list */
|
|
|
|
void *stack_base; /* 08 top of fiber stack */
|
|
|
|
void *stack_limit; /* 0c fiber stack low-water mark */
|
|
|
|
void *stack_allocation; /* 10 base of the fiber stack allocation */
|
2003-10-24 06:30:13 +02:00
|
|
|
sigjmp_buf jmpbuf; /* 14 setjmp buffer (on Windows: CONTEXT) */
|
2003-08-28 05:44:41 +02:00
|
|
|
DWORD flags; /* fiber flags */
|
|
|
|
LPFIBER_START_ROUTINE start; /* start routine */
|
2008-02-29 19:56:04 +01:00
|
|
|
void **fls_slots; /* fiber storage slots */
|
2002-12-17 22:06:25 +01:00
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
/* call the fiber initial function once we have switched stack */
|
2003-06-27 06:08:04 +02:00
|
|
|
static void start_fiber( void *arg )
|
2002-12-17 22:06:25 +01:00
|
|
|
{
|
2003-06-27 06:08:04 +02:00
|
|
|
struct fiber_data *fiber = arg;
|
2002-12-17 22:06:25 +01:00
|
|
|
LPFIBER_START_ROUTINE start = fiber->start;
|
|
|
|
|
2003-06-27 06:08:04 +02:00
|
|
|
__TRY
|
|
|
|
{
|
|
|
|
fiber->start = NULL;
|
|
|
|
start( fiber->param );
|
|
|
|
ExitThread( 1 );
|
|
|
|
}
|
|
|
|
__EXCEPT(UnhandledExceptionFilter)
|
|
|
|
{
|
|
|
|
TerminateThread( GetCurrentThread(), GetExceptionCode() );
|
|
|
|
}
|
|
|
|
__ENDTRY
|
2002-12-17 22:06:25 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* CreateFiber (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
LPVOID WINAPI CreateFiber( SIZE_T stack, LPFIBER_START_ROUTINE start, LPVOID param )
|
|
|
|
{
|
|
|
|
return CreateFiberEx( stack, 0, 0, start, param );
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* CreateFiberEx (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
LPVOID WINAPI CreateFiberEx( SIZE_T stack_commit, SIZE_T stack_reserve, DWORD flags,
|
|
|
|
LPFIBER_START_ROUTINE start, LPVOID param )
|
|
|
|
{
|
|
|
|
struct fiber_data *fiber;
|
|
|
|
|
|
|
|
if (!(fiber = HeapAlloc( GetProcessHeap(), 0, sizeof(*fiber) )))
|
|
|
|
{
|
|
|
|
SetLastError( ERROR_NOT_ENOUGH_MEMORY );
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* FIXME: should use the thread stack allocation routines here */
|
|
|
|
if (!stack_reserve) stack_reserve = 1024*1024;
|
2005-06-21 11:57:53 +02:00
|
|
|
if(!(fiber->stack_allocation = VirtualAlloc( 0, stack_reserve, MEM_COMMIT, PAGE_READWRITE )))
|
2002-12-17 22:06:25 +01:00
|
|
|
{
|
|
|
|
HeapFree( GetProcessHeap(), 0, fiber );
|
|
|
|
return NULL;
|
|
|
|
}
|
2003-08-28 05:44:41 +02:00
|
|
|
fiber->stack_base = (char *)fiber->stack_allocation + stack_reserve;
|
|
|
|
fiber->stack_limit = fiber->stack_allocation;
|
|
|
|
fiber->param = param;
|
|
|
|
fiber->except = (void *)-1;
|
|
|
|
fiber->start = start;
|
|
|
|
fiber->flags = flags;
|
2008-02-29 19:56:04 +01:00
|
|
|
fiber->fls_slots = NULL;
|
2002-12-17 22:06:25 +01:00
|
|
|
return fiber;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* DeleteFiber (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
void WINAPI DeleteFiber( LPVOID fiber_ptr )
|
|
|
|
{
|
|
|
|
struct fiber_data *fiber = fiber_ptr;
|
|
|
|
|
|
|
|
if (!fiber) return;
|
2003-08-28 05:44:41 +02:00
|
|
|
if (fiber == NtCurrentTeb()->Tib.u.FiberData)
|
2002-12-17 22:06:25 +01:00
|
|
|
{
|
|
|
|
HeapFree( GetProcessHeap(), 0, fiber );
|
|
|
|
ExitThread(1);
|
|
|
|
}
|
2003-08-28 05:44:41 +02:00
|
|
|
VirtualFree( fiber->stack_allocation, 0, MEM_RELEASE );
|
2008-02-29 19:56:04 +01:00
|
|
|
HeapFree( GetProcessHeap(), 0, fiber->fls_slots );
|
2002-12-17 22:06:25 +01:00
|
|
|
HeapFree( GetProcessHeap(), 0, fiber );
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ConvertThreadToFiber (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
LPVOID WINAPI ConvertThreadToFiber( LPVOID param )
|
|
|
|
{
|
|
|
|
return ConvertThreadToFiberEx( param, 0 );
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ConvertThreadToFiberEx (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
LPVOID WINAPI ConvertThreadToFiberEx( LPVOID param, DWORD flags )
|
|
|
|
{
|
|
|
|
struct fiber_data *fiber;
|
|
|
|
|
|
|
|
if (!(fiber = HeapAlloc( GetProcessHeap(), 0, sizeof(*fiber) )))
|
|
|
|
{
|
|
|
|
SetLastError( ERROR_NOT_ENOUGH_MEMORY );
|
|
|
|
return NULL;
|
|
|
|
}
|
2003-08-28 05:44:41 +02:00
|
|
|
fiber->param = param;
|
|
|
|
fiber->except = NtCurrentTeb()->Tib.ExceptionList;
|
|
|
|
fiber->stack_base = NtCurrentTeb()->Tib.StackBase;
|
|
|
|
fiber->stack_limit = NtCurrentTeb()->Tib.StackLimit;
|
|
|
|
fiber->stack_allocation = NtCurrentTeb()->DeallocationStack;
|
|
|
|
fiber->start = NULL;
|
|
|
|
fiber->flags = flags;
|
2008-02-29 19:56:04 +01:00
|
|
|
fiber->fls_slots = NtCurrentTeb()->FlsSlots;
|
2003-08-28 05:44:41 +02:00
|
|
|
NtCurrentTeb()->Tib.u.FiberData = fiber;
|
2002-12-17 22:06:25 +01:00
|
|
|
return fiber;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ConvertFiberToThread (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
BOOL WINAPI ConvertFiberToThread(void)
|
|
|
|
{
|
2003-08-28 05:44:41 +02:00
|
|
|
struct fiber_data *fiber = NtCurrentTeb()->Tib.u.FiberData;
|
2002-12-17 22:06:25 +01:00
|
|
|
|
|
|
|
if (fiber)
|
|
|
|
{
|
2003-08-28 05:44:41 +02:00
|
|
|
NtCurrentTeb()->Tib.u.FiberData = NULL;
|
2002-12-17 22:06:25 +01:00
|
|
|
HeapFree( GetProcessHeap(), 0, fiber );
|
|
|
|
}
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* SwitchToFiber (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
void WINAPI SwitchToFiber( LPVOID fiber )
|
|
|
|
{
|
|
|
|
struct fiber_data *new_fiber = fiber;
|
2003-08-28 05:44:41 +02:00
|
|
|
struct fiber_data *current_fiber = NtCurrentTeb()->Tib.u.FiberData;
|
2002-12-17 22:06:25 +01:00
|
|
|
|
2003-08-28 05:44:41 +02:00
|
|
|
current_fiber->except = NtCurrentTeb()->Tib.ExceptionList;
|
|
|
|
current_fiber->stack_limit = NtCurrentTeb()->Tib.StackLimit;
|
2008-02-29 19:56:04 +01:00
|
|
|
current_fiber->fls_slots = NtCurrentTeb()->FlsSlots;
|
2003-08-28 05:44:41 +02:00
|
|
|
/* stack_allocation and stack_base never change */
|
2002-12-17 22:06:25 +01:00
|
|
|
|
|
|
|
/* FIXME: should save floating point context if requested in fiber->flags */
|
2008-02-12 22:39:54 +01:00
|
|
|
if (!sigsetjmp( current_fiber->jmpbuf, 0 ))
|
2002-12-17 22:06:25 +01:00
|
|
|
{
|
2003-08-28 05:44:41 +02:00
|
|
|
NtCurrentTeb()->Tib.u.FiberData = new_fiber;
|
|
|
|
NtCurrentTeb()->Tib.ExceptionList = new_fiber->except;
|
|
|
|
NtCurrentTeb()->Tib.StackBase = new_fiber->stack_base;
|
|
|
|
NtCurrentTeb()->Tib.StackLimit = new_fiber->stack_limit;
|
|
|
|
NtCurrentTeb()->DeallocationStack = new_fiber->stack_allocation;
|
2008-02-29 19:56:04 +01:00
|
|
|
NtCurrentTeb()->FlsSlots = new_fiber->fls_slots;
|
2002-12-17 22:06:25 +01:00
|
|
|
if (new_fiber->start) /* first time */
|
2003-08-30 00:23:42 +02:00
|
|
|
wine_switch_to_stack( start_fiber, new_fiber, new_fiber->stack_base );
|
2002-12-17 22:06:25 +01:00
|
|
|
else
|
2003-10-24 06:30:13 +02:00
|
|
|
siglongjmp( new_fiber->jmpbuf, 1 );
|
2002-12-17 22:06:25 +01:00
|
|
|
}
|
|
|
|
}
|
2008-02-29 10:19:43 +01:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* FlsAlloc (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
DWORD WINAPI FlsAlloc( PFLS_CALLBACK_FUNCTION callback )
|
|
|
|
{
|
2008-02-29 19:56:04 +01:00
|
|
|
DWORD index;
|
|
|
|
PEB * const peb = NtCurrentTeb()->Peb;
|
2008-02-29 10:19:43 +01:00
|
|
|
|
2008-02-29 19:56:04 +01:00
|
|
|
RtlAcquirePebLock();
|
|
|
|
if (!peb->FlsCallback &&
|
|
|
|
!(peb->FlsCallback = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
8 * sizeof(peb->FlsBitmapBits) * sizeof(void*) )))
|
|
|
|
{
|
|
|
|
SetLastError( ERROR_NOT_ENOUGH_MEMORY );
|
|
|
|
index = FLS_OUT_OF_INDEXES;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
index = RtlFindClearBitsAndSet( peb->FlsBitmap, 1, 0 );
|
|
|
|
if (index != ~0U)
|
|
|
|
{
|
|
|
|
if (!NtCurrentTeb()->FlsSlots &&
|
|
|
|
!(NtCurrentTeb()->FlsSlots = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
8 * sizeof(peb->FlsBitmapBits) * sizeof(void*) )))
|
|
|
|
{
|
|
|
|
RtlClearBits( peb->FlsBitmap, index, 1 );
|
|
|
|
index = FLS_OUT_OF_INDEXES;
|
|
|
|
SetLastError( ERROR_NOT_ENOUGH_MEMORY );
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
NtCurrentTeb()->FlsSlots[index] = 0; /* clear the value */
|
|
|
|
peb->FlsCallback[index] = callback;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else SetLastError( ERROR_NO_MORE_ITEMS );
|
|
|
|
}
|
|
|
|
RtlReleasePebLock();
|
|
|
|
return index;
|
2008-02-29 10:19:43 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* FlsFree (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
BOOL WINAPI FlsFree( DWORD index )
|
|
|
|
{
|
2008-02-29 19:56:04 +01:00
|
|
|
BOOL ret;
|
2008-02-29 10:19:43 +01:00
|
|
|
|
2008-02-29 19:56:04 +01:00
|
|
|
RtlAcquirePebLock();
|
|
|
|
ret = RtlAreBitsSet( NtCurrentTeb()->Peb->FlsBitmap, index, 1 );
|
|
|
|
if (ret) RtlClearBits( NtCurrentTeb()->Peb->FlsBitmap, index, 1 );
|
|
|
|
if (ret)
|
|
|
|
{
|
|
|
|
/* FIXME: call Fls callback */
|
|
|
|
/* FIXME: add equivalent of ThreadZeroTlsCell here */
|
|
|
|
if (NtCurrentTeb()->FlsSlots) NtCurrentTeb()->FlsSlots[index] = 0;
|
|
|
|
}
|
|
|
|
else SetLastError( ERROR_INVALID_PARAMETER );
|
|
|
|
RtlReleasePebLock();
|
|
|
|
return TRUE;
|
2008-02-29 10:19:43 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* FlsGetValue (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
PVOID WINAPI FlsGetValue( DWORD index )
|
|
|
|
{
|
2008-02-29 19:56:04 +01:00
|
|
|
if (index >= 8 * sizeof(NtCurrentTeb()->Peb->FlsBitmapBits) || !NtCurrentTeb()->FlsSlots)
|
|
|
|
{
|
|
|
|
SetLastError( ERROR_INVALID_PARAMETER );
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
SetLastError( ERROR_SUCCESS );
|
|
|
|
return NtCurrentTeb()->FlsSlots[index];
|
2008-02-29 10:19:43 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* FlsSetValue (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
BOOL WINAPI FlsSetValue( DWORD index, PVOID data )
|
|
|
|
{
|
2008-02-29 19:56:04 +01:00
|
|
|
if (index >= 8 * sizeof(NtCurrentTeb()->Peb->FlsBitmapBits))
|
|
|
|
{
|
|
|
|
SetLastError( ERROR_INVALID_PARAMETER );
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
if (!NtCurrentTeb()->FlsSlots &&
|
|
|
|
!(NtCurrentTeb()->FlsSlots = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
8 * sizeof(NtCurrentTeb()->Peb->FlsBitmapBits) * sizeof(void*) )))
|
|
|
|
{
|
|
|
|
SetLastError( ERROR_NOT_ENOUGH_MEMORY );
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
NtCurrentTeb()->FlsSlots[index] = data;
|
|
|
|
return TRUE;
|
2008-02-29 10:19:43 +01:00
|
|
|
}
|
2010-01-24 16:31:19 +01:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* IsThreadAFiber (KERNEL32.@)
|
|
|
|
*/
|
|
|
|
BOOL WINAPI IsThreadAFiber(void)
|
|
|
|
{
|
|
|
|
return NtCurrentTeb()->Tib.u.FiberData != NULL;
|
|
|
|
}
|