version 1.41, 2003/08/04 20:18:51
|
version 1.113, 2013/04/25 13:00:21
|
|
|
//%///////////////////////////////////////////////////////////////////////////// |
//%LICENSE//////////////////////////////////////////////////////////////// |
// | // |
// Copyright (c) 2000, 2001, 2002 BMC Software, Hewlett-Packard Company, IBM, |
// Licensed to The Open Group (TOG) under one or more contributor license |
// The Open Group, Tivoli Systems |
// agreements. Refer to the OpenPegasusNOTICE.txt file distributed with |
|
// this work for additional information regarding copyright ownership. |
|
// Each contributor licenses this file to you under the OpenPegasus Open |
|
// Source License; you may not use this file except in compliance with the |
|
// License. |
// | // |
// Permission is hereby granted, free of charge, to any person obtaining a copy |
// Permission is hereby granted, free of charge, to any person obtaining a |
// of this software and associated documentation files (the "Software"), to |
// copy of this software and associated documentation files (the "Software"), |
// deal in the Software without restriction, including without limitation the |
// to deal in the Software without restriction, including without limitation |
// rights to use, copy, modify, merge, publish, distribute, sublicense, and/or |
// the rights to use, copy, modify, merge, publish, distribute, sublicense, |
// sell copies of the Software, and to permit persons to whom the Software is |
// and/or sell copies of the Software, and to permit persons to whom the |
// furnished to do so, subject to the following conditions: |
// Software is furnished to do so, subject to the following conditions: |
// |
|
// THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE SHALL BE INCLUDED IN |
|
// ALL COPIES OR SUBSTANTIAL PORTIONS OF THE SOFTWARE. THE SOFTWARE IS PROVIDED |
|
// "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT |
|
// LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR |
|
// PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT |
|
// HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN |
|
// ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION |
|
// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
|
// | // |
//============================================================================== |
// The above copyright notice and this permission notice shall be included |
|
// in all copies or substantial portions of the Software. |
// | // |
// Author: Mike Day (mdday@us.ibm.com) |
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS |
|
// OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF |
|
// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. |
|
// IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY |
|
// CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, |
|
// TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE |
|
// SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
// | // |
// Modified By: Rudy Schuet (rudy.schuet@compaq.com) 11/12/01 |
////////////////////////////////////////////////////////////////////////// |
// added nsk platform support |
|
// | // |
//%///////////////////////////////////////////////////////////////////////////// | //%///////////////////////////////////////////////////////////////////////////// |
| |
#include "Thread.h" | #include "Thread.h" |
#include <Pegasus/Common/IPC.h> |
#include <errno.h> |
|
#include <exception> |
#include <Pegasus/Common/Tracer.h> | #include <Pegasus/Common/Tracer.h> |
|
#include <Pegasus/Common/AutoPtr.h> |
|
#include "Time.h" |
| |
#if defined(PEGASUS_OS_TYPE_WINDOWS) |
PEGASUS_USING_STD; |
# include "ThreadWindows.cpp" |
|
#elif defined(PEGASUS_OS_TYPE_UNIX) |
|
# include "ThreadUnix.cpp" |
|
#elif defined(PEGASUS_OS_TYPE_NSK) |
|
# include "ThreadNsk.cpp" |
|
#else |
|
# error "Unsupported platform" |
|
#endif |
|
| |
PEGASUS_NAMESPACE_BEGIN | PEGASUS_NAMESPACE_BEGIN |
| |
void thread_data::default_delete(void * data) |
//============================================================================== |
{ |
// |
if( data != NULL) |
// POSIX Threads Implementation: |
::operator delete(data); |
// |
} |
//============================================================================== |
|
|
Boolean Thread::_signals_blocked = false; |
|
// l10n |
|
PEGASUS_THREAD_KEY_TYPE Thread::_platform_thread_key; |
|
Boolean Thread::_key_initialized = false; |
|
Boolean Thread::_key_error = false; |
|
| |
|
#if defined(PEGASUS_HAVE_PTHREADS) |
| |
// for non-native implementations |
struct StartWrapperArg |
#ifndef PEGASUS_THREAD_CLEANUP_NATIVE |
|
void Thread::cleanup_push( void (*routine)(void *), void *parm) throw(IPCException) |
|
{ | { |
cleanup_handler *cu = new cleanup_handler(routine, parm); |
void *(PEGASUS_THREAD_CDECL * start) (void *); |
try |
void *arg; |
{ |
}; |
_cleanup.insert_first(cu); |
|
} |
|
catch(IPCException&) |
|
{ |
|
delete cu; |
|
throw; |
|
} |
|
return; |
|
} |
|
| |
void Thread::cleanup_pop(Boolean execute) throw(IPCException) |
extern "C" void *_start_wrapper(void *arg_) |
{ |
|
cleanup_handler *cu ; |
|
try |
|
{ | { |
cu = _cleanup.remove_first() ; |
// Clean up dynamic memory now to prevent a leak if the thread is canceled. |
} |
StartWrapperArg arg; |
catch(IPCException&) |
arg.start = ((StartWrapperArg *) arg_)->start; |
{ |
arg.arg = ((StartWrapperArg *) arg_)->arg; |
PEGASUS_ASSERT(0); |
delete (StartWrapperArg *) arg_; |
} |
|
if(execute == true) |
|
cu->execute(); |
|
delete cu; |
|
} |
|
|
|
#endif |
|
|
|
| |
//thread_data *Thread::put_tsd(const Sint8 *key, void (*delete_func)(void *), Uint32 size, void *value) throw(IPCException) |
// establish cancelability of the thread |
|
pthread_setcancelstate(PTHREAD_CANCEL_ENABLE, NULL); |
|
pthread_setcanceltype(PTHREAD_CANCEL_DEFERRED, NULL); |
| |
|
void *return_value = (*arg.start) (arg.arg); |
| |
#ifndef PEGASUS_THREAD_EXIT_NATIVE |
return return_value; |
void Thread::exit_self(PEGASUS_THREAD_RETURN exit_code) |
|
{ |
|
// execute the cleanup stack and then return |
|
while( _cleanup.count() ) |
|
{ |
|
try |
|
{ |
|
cleanup_pop(true); |
|
} |
|
catch(IPCException&) |
|
{ |
|
PEGASUS_ASSERT(0); |
|
break; |
|
} | } |
} |
|
_exit_code = exit_code; |
|
exit_thread(exit_code); |
|
_handle.thid = 0; |
|
} |
|
|
|
|
|
#endif |
|
| |
// l10n start |
void Thread::cancel() |
Sint8 Thread::initializeKey() |
|
{ |
|
PEG_METHOD_ENTER(TRC_THREAD, "Thread::initializeKey"); |
|
if (!Thread::_key_initialized) |
|
{ | { |
if (Thread::_key_error) |
pthread_cancel(_handle.thid.thread); |
{ |
|
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, |
|
"Thread: ERROR - thread key error"); |
|
return -1; |
|
} | } |
| |
if (pegasus_key_create(&Thread::_platform_thread_key) == 0) |
void Thread::thread_switch() |
{ | { |
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, |
#if defined(PEGASUS_OS_ZOS) |
"Thread: able to create a thread key"); |
pthread_yield(NULL); |
Thread::_key_initialized = true; |
#else |
} |
sched_yield(); |
else |
#endif |
{ |
|
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, |
|
"Thread: ERROR - unable to create a thread key"); |
|
Thread::_key_error = true; |
|
return -1; |
|
} |
|
} |
|
|
|
PEG_METHOD_EXIT(); |
|
return 0; |
|
} | } |
| |
Thread * Thread::getCurrent() |
void Thread::sleep(Uint32 msec) |
{ | { |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::getCurrent"); |
Threads::sleep(msec); |
if (Thread::initializeKey() != 0) |
|
{ |
|
return NULL; |
|
} |
|
PEG_METHOD_EXIT(); |
|
return (Thread *)pegasus_get_thread_specific(_platform_thread_key); |
|
} | } |
| |
void Thread::setCurrent(Thread * thrd) |
void Thread::join() |
{ |
|
PEG_METHOD_ENTER(TRC_THREAD, "Thread::setCurrent"); |
|
if (Thread::initializeKey() == 0) |
|
{ |
|
if (pegasus_set_thread_specific(Thread::_platform_thread_key, |
|
(void *) thrd) == 0) |
|
{ |
|
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, |
|
"Successful set Thread * into thread specific storage"); |
|
} |
|
else |
|
{ | { |
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, |
if (!_is_detached && !Threads::null(_handle.thid)) |
"ERROR: got error setting Thread * into thread specific storage"); |
pthread_join(_handle.thid.thread, &_exit_code); |
} |
|
} |
Threads::clear(_handle.thid); |
PEG_METHOD_EXIT(); |
|
} | } |
| |
AcceptLanguages * Thread::getLanguages() |
void Thread::detach() |
{ | { |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::getLanguages"); |
_is_detached = true; |
|
#if defined(PEGASUS_OS_ZOS) |
Thread * curThrd = Thread::getCurrent(); |
pthread_t thread_id=_handle.thid.thread; |
if (curThrd == NULL) |
pthread_detach(&thread_id); |
return NULL; |
#else |
AcceptLanguages * acceptLangs = |
pthread_detach(_handle.thid.thread); |
(AcceptLanguages *)curThrd->reference_tsd("acceptLanguages"); |
#endif |
curThrd->dereference_tsd(); |
|
PEG_METHOD_EXIT(); |
|
return acceptLangs; |
|
} | } |
| |
void Thread::setLanguages(AcceptLanguages *langs) //l10n |
ThreadStatus Thread::run() |
{ | { |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::setLanguages"); |
StartWrapperArg *arg = new StartWrapperArg; |
|
arg->start = _start; |
|
arg->arg = this; |
| |
Thread * currentThrd = Thread::getCurrent(); |
Threads::Type type = _is_detached ? Threads::DETACHED : Threads::JOINABLE; |
if (currentThrd != NULL) |
int rc = Threads::create(_handle.thid, type, _start_wrapper, arg); |
{ |
|
// deletes the old tsd and creates a new one |
|
currentThrd->put_tsd("acceptLanguages", |
|
thread_data::default_delete, |
|
sizeof(AcceptLanguages *), |
|
langs); |
|
} |
|
| |
PEG_METHOD_EXIT(); |
// On Linux distributions released prior 2005, the implementation of |
} |
// Native POSIX Thread Library returns ENOMEM instead of EAGAIN when |
|
// there |
|
// are no insufficient memory. Hence we are checking for both. See bug |
|
// 386. |
| |
void Thread::clearLanguages() //l10n |
if (rc == -1) |
|
rc = errno; |
|
if ((rc == EAGAIN) || (rc == ENOMEM)) |
{ | { |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::clearLanguages"); |
Threads::clear(_handle.thid); |
|
delete arg; |
Thread * currentThrd = Thread::getCurrent(); |
return PEGASUS_THREAD_INSUFFICIENT_RESOURCES; |
if (currentThrd != NULL) |
} |
|
else if (rc != 0) |
{ | { |
// deletes the old tsd |
Threads::clear(_handle.thid); |
currentThrd->delete_tsd("acceptLanguages"); |
delete arg; |
|
return PEGASUS_THREAD_SETUP_FAILURE; |
} | } |
|
return PEGASUS_THREAD_OK; |
PEG_METHOD_EXIT(); |
|
} | } |
// l10n end |
|
|
|
DQueue<ThreadPool> ThreadPool::_pools(true); |
|
|
|
| |
void ThreadPool::kill_idle_threads(void) |
Thread::Thread( |
|
ThreadReturnType(PEGASUS_THREAD_CDECL* start) (void*), |
|
void* parameter, |
|
Boolean detached) |
|
: _is_detached(detached), |
|
_start(start), |
|
_cleanup(), |
|
_thread_parm(parameter), |
|
_exit_code(0) |
{ | { |
static struct timeval now, last = {0, 0}; |
Threads::clear(_handle.thid); |
|
memset(_tsd, 0, sizeof(_tsd)); |
|
} |
| |
pegasus_gettimeofday(&now); |
Thread::~Thread() |
if(now.tv_sec - last.tv_sec > 5) |
|
{ |
|
_pools.lock(); |
|
ThreadPool *p = _pools.next(0); |
|
while(p != 0) |
|
{ | { |
try | try |
{ | { |
p->kill_dead_threads(); |
join(); |
|
empty_tsd(); |
} | } |
catch(...) | catch(...) |
{ | { |
} |
// Do not allow the destructor to throw an exception |
p = _pools.next(p); |
|
} |
|
_pools.unlock(); |
|
pegasus_gettimeofday(&last); |
|
} | } |
} | } |
| |
|
#endif /* PEGASUS_HAVE_PTHREADS */ |
| |
ThreadPool::ThreadPool(Sint16 initial_size, |
//============================================================================== |
const Sint8 *key, |
// |
Sint16 min, |
// Windows Threads Implementation: |
Sint16 max, |
// |
struct timeval & alloc_wait, |
//============================================================================== |
struct timeval & dealloc_wait, |
|
struct timeval & deadlock_detect) |
#if defined(PEGASUS_HAVE_WINDOWS_THREADS) |
: _max_threads(max), _min_threads(min), |
|
_current_threads(0), |
|
_pool(true), _running(true), |
|
_dead(true), _dying(0) |
|
{ |
|
_allocate_wait.tv_sec = alloc_wait.tv_sec; |
|
_allocate_wait.tv_usec = alloc_wait.tv_usec; |
|
_deallocate_wait.tv_sec = dealloc_wait.tv_sec; |
|
_deallocate_wait.tv_usec = dealloc_wait.tv_usec; |
|
_deadlock_detect.tv_sec = deadlock_detect.tv_sec; |
|
_deadlock_detect.tv_usec = deadlock_detect.tv_usec; |
|
memset(_key, 0x00, 17); |
|
if(key != 0) |
|
strncpy(_key, key, 16); |
|
if(_max_threads > 0 && _max_threads < initial_size) |
|
_max_threads = initial_size; |
|
if(_min_threads > initial_size) |
|
_min_threads = initial_size; |
|
| |
int i; |
ThreadStatus Thread::run() |
for(i = 0; i < initial_size; i++) |
|
{ | { |
_link_pool(_init_thread()); |
// Note: A Win32 thread ID is not the same thing as a pthread ID. |
} |
// Win32 threads have both a thread ID and a handle. The handle |
_pools.insert_last(this); |
// is used in the wait functions, etc. |
} |
// So _handle.thid is actually the thread handle. |
| |
|
unsigned threadid = 0; |
| |
|
ThreadType tt; |
|
tt.handle = (HANDLE) _beginthreadex(NULL, 0, _start, this, 0, &threadid); |
|
_handle.thid = tt; |
| |
ThreadPool::~ThreadPool(void) |
if (Threads::null(_handle.thid)) |
{ | { |
try |
if (errno == EAGAIN) |
{ | { |
_pools.remove(this); |
return PEGASUS_THREAD_INSUFFICIENT_RESOURCES; |
_dying++; |
|
Thread *th = 0; |
|
th = _pool.remove_first(); |
|
while(th != 0) |
|
{ |
|
Semaphore *sleep_sem = (Semaphore *)th->reference_tsd("sleep sem"); |
|
|
|
if(sleep_sem == 0) |
|
{ |
|
th->dereference_tsd(); |
|
throw NullPointer(); |
|
} |
|
|
|
sleep_sem->signal(); |
|
sleep_sem->signal(); |
|
th->dereference_tsd(); |
|
// signal the thread's sleep semaphore |
|
th->cancel(); |
|
th->join(); |
|
th->empty_tsd(); |
|
delete th; |
|
th = _pool.remove_first(); |
|
} |
|
|
|
th = _running.remove_first(); |
|
while(th != 0) |
|
{ |
|
// signal the thread's sleep semaphore |
|
th->cancel(); |
|
th->join(); |
|
th->empty_tsd(); |
|
delete th; |
|
th = _running.remove_first(); |
|
} |
|
|
|
th = _dead.remove_first(); |
|
while(th != 0) |
|
{ |
|
// signal the thread's sleep semaphore |
|
th->cancel(); |
|
th->join(); |
|
th->empty_tsd(); |
|
delete th; |
|
th = _dead.remove_first(); |
|
} | } |
} |
else |
catch(...) |
|
{ | { |
|
return PEGASUS_THREAD_SETUP_FAILURE; |
|
} |
} | } |
|
return PEGASUS_THREAD_OK; |
} | } |
| |
// make this static to the class |
void Thread::cancel() |
PEGASUS_THREAD_RETURN PEGASUS_THREAD_CDECL ThreadPool::_loop(void *parm) |
|
{ | { |
PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::_loop"); |
_cancelled = true; |
|
} |
| |
Thread *myself = (Thread *)parm; |
void Thread::thread_switch() |
if(myself == 0) |
|
{ | { |
PEG_METHOD_EXIT(); |
Sleep(0); |
throw NullPointer(); |
|
} | } |
| |
// l10n |
void Thread::sleep(Uint32 milliseconds) |
// Set myself into thread specific storage |
|
// This will allow code to get its own Thread |
|
Thread::setCurrent(myself); |
|
|
|
ThreadPool *pool = (ThreadPool *)myself->get_parm(); |
|
if(pool == 0 ) |
|
{ | { |
PEG_METHOD_EXIT(); |
Sleep(milliseconds); |
throw NullPointer(); |
|
} | } |
Semaphore *sleep_sem = 0; |
|
Semaphore *blocking_sem = 0; |
|
|
|
struct timeval *deadlock_timer = 0; |
|
| |
try |
void Thread::join() |
{ | { |
sleep_sem = (Semaphore *)myself->reference_tsd("sleep sem"); |
if (!Threads::null(_handle.thid)) |
myself->dereference_tsd(); |
|
deadlock_timer = (struct timeval *)myself->reference_tsd("deadlock timer"); |
|
myself->dereference_tsd(); |
|
} |
|
catch(IPCException &) |
|
{ | { |
PEG_METHOD_EXIT(); |
if (!_is_detached) |
myself->exit_self(0); |
|
} |
|
catch(...) |
|
{ | { |
PEG_METHOD_EXIT(); |
if (!_cancelled) |
myself->exit_self(0); |
|
} |
|
|
|
if(sleep_sem == 0 || deadlock_timer == 0) |
|
{ | { |
PEG_METHOD_EXIT(); |
// Emulate the unix join api. Caller sleeps until thread is |
throw NullPointer(); |
// done. |
|
WaitForSingleObject(_handle.thid.handle, INFINITE); |
} | } |
|
else |
while(pool->_dying < 1) |
|
{ | { |
sleep_sem->wait(); |
// Currently this is the only way to ensure this code does |
|
// not |
// when we awaken we reside on the running queue, not the pool queue |
// hang forever. |
if(pool->_dying > 0) |
if (WaitForSingleObject(_handle.thid.handle, 10000) == |
break; |
WAIT_TIMEOUT) |
|
|
PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *_work)(void *) = 0; |
|
void *parm = 0; |
|
|
|
try |
|
{ | { |
_work = (PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *)(void *)) \ |
TerminateThread(_handle.thid.handle, 0); |
myself->reference_tsd("work func"); |
|
myself->dereference_tsd(); |
|
parm = myself->reference_tsd("work parm"); |
|
myself->dereference_tsd(); |
|
blocking_sem = (Semaphore *)myself->reference_tsd("blocking sem"); |
|
myself->dereference_tsd(); |
|
|
|
} | } |
catch(IPCException &) |
|
{ |
|
PEG_METHOD_EXIT(); |
|
myself->exit_self(0); |
|
} | } |
| |
if(_work == 0) |
DWORD exit_code = 0; |
{ |
GetExitCodeThread(_handle.thid.handle, &exit_code); |
PEG_METHOD_EXIT(); |
_exit_code = (ThreadReturnType) exit_code; |
throw NullPointer(); |
|
} | } |
| |
if(_work == |
CloseHandle(_handle.thid.handle); |
(PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *)(void *)) &_undertaker) |
Threads::clear(_handle.thid); |
{ |
} |
_work(parm); |
|
} | } |
| |
gettimeofday(deadlock_timer, NULL); |
void Thread::detach() |
try |
|
{ | { |
_work(parm); |
_is_detached = true; |
} | } |
catch(...) |
|
|
Thread::Thread( |
|
ThreadReturnType(PEGASUS_THREAD_CDECL* start)(void*), |
|
void *parameter, |
|
Boolean detached) :_is_detached(detached), |
|
_cancelled(false), |
|
_start(start), |
|
_cleanup(), |
|
_thread_parm(parameter), |
|
_exit_code(0) |
{ | { |
gettimeofday(deadlock_timer, NULL); |
Threads::clear(_handle.thid); |
|
memset(_tsd, 0, sizeof(_tsd)); |
} | } |
| |
gettimeofday(deadlock_timer, NULL); |
Thread::~Thread() |
if( blocking_sem != 0 ) |
{ |
blocking_sem->signal(); |
|
|
|
// put myself back onto the available list |
|
try | try |
{ | { |
pool->_running.remove((void *)myself); |
join(); |
pool->_link_pool(myself); |
empty_tsd(); |
} | } |
catch(IPCException &) |
catch (...) |
{ | { |
PEG_METHOD_EXIT(); |
|
myself->exit_self(0); |
|
} | } |
} | } |
// wait to be awakend by the thread pool destructor |
|
sleep_sem->wait(); |
|
myself->test_cancel(); |
|
|
|
PEG_METHOD_EXIT(); |
|
myself->exit_self(0); |
|
return((PEGASUS_THREAD_RETURN)0); |
|
} |
|
|
|
void ThreadPool::allocate_and_awaken(void *parm, |
|
PEGASUS_THREAD_RETURN \ |
|
(PEGASUS_THREAD_CDECL *work)(void *), |
|
Semaphore *blocking) |
|
| |
throw(IPCException) |
#endif /* PEGASUS_HAVE_WINDOWS_THREADS */ |
{ |
|
PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::allocate_and_awaken"); |
|
struct timeval start; |
|
gettimeofday(&start, NULL); |
|
| |
Thread *th = _pool.remove_first(); |
//============================================================================== |
|
// |
|
// Common implementation: |
|
// |
|
//============================================================================== |
| |
// wait for the right interval and try again |
void language_delete(void *data) |
while (th == 0 && _dying < 1) |
|
{ | { |
_check_deadlock(&start) ; |
if (data != NULL) |
|
|
if(_max_threads == 0 || _current_threads < _max_threads) |
|
{ | { |
th = _init_thread(); |
AutoPtr < AcceptLanguageList > al(static_cast < |
continue; |
AcceptLanguageList * >(data)); |
} | } |
pegasus_yield(); |
|
th = _pool.remove_first(); |
|
} | } |
| |
|
Boolean Thread::_signals_blocked = false; |
|
#ifndef PEGASUS_OS_ZOS |
|
TSDKeyType Thread::_platform_thread_key = TSDKeyType(-1); |
|
#else |
|
TSDKeyType Thread::_platform_thread_key; |
|
#endif |
|
Boolean Thread::_key_initialized = false; |
|
Boolean Thread::_key_error = false; |
| |
if(_dying < 1) |
void Thread::cleanup_push(void (*routine) (void *), void *parm) |
{ |
|
// initialize the thread data with the work function and parameters |
|
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, |
|
"Initializing thread with work function and parameters: parm = %p", |
|
parm); |
|
|
|
th->delete_tsd("work func"); |
|
th->put_tsd("work func", NULL, |
|
sizeof( PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *)(void *)), |
|
(void *)work); |
|
th->delete_tsd("work parm"); |
|
th->put_tsd("work parm", NULL, sizeof(void *), parm); |
|
th->delete_tsd("blocking sem"); |
|
if(blocking != 0 ) |
|
th->put_tsd("blocking sem", NULL, sizeof(Semaphore *), blocking); |
|
|
|
// put the thread on the running list |
|
_running.insert_first(th); |
|
|
|
// signal the thread's sleep semaphore to awaken it |
|
Semaphore *sleep_sem = (Semaphore *)th->reference_tsd("sleep sem"); |
|
|
|
if(sleep_sem == 0) |
|
{ | { |
th->dereference_tsd(); |
AutoPtr < cleanup_handler > cu(new cleanup_handler(routine, parm)); |
PEG_METHOD_EXIT(); |
_cleanup.insert_front(cu.get()); |
throw NullPointer(); |
cu.release(); |
} |
return; |
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, "Signal thread to awaken"); |
|
sleep_sem->signal(); |
|
th->dereference_tsd(); |
|
} |
|
else |
|
_pool.insert_first(th); |
|
|
|
PEG_METHOD_EXIT(); |
|
} | } |
| |
// caller is responsible for only calling this routine during slack periods |
void Thread::cleanup_pop(Boolean execute) |
// but should call it at least once per _deadlock_detect with the running q |
|
// and at least once per _deallocate_wait for the pool q |
|
|
|
Uint32 ThreadPool::kill_dead_threads(void) |
|
throw(IPCException) |
|
{ | { |
struct timeval now; |
AutoPtr < cleanup_handler > cu; |
gettimeofday(&now, NULL); |
try |
Uint32 bodies = 0; |
|
|
|
// first go thread the dead q and clean it up as much as possible |
|
while(_dead.count() > 0) |
|
{ | { |
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, "ThreadPool:: removing and joining dead thread"); |
cu.reset(_cleanup.remove_front()); |
Thread *dead = _dead.remove_first(); |
|
if(dead == 0) |
|
throw NullPointer(); |
|
dead->join(); |
|
delete dead; |
|
} | } |
|
catch (...) |
DQueue<Thread> * map[2] = |
|
{ | { |
&_pool, &_running |
PEGASUS_ASSERT(0); |
}; |
} |
|
if (execute == true) |
|
{ |
|
cu->execute(); |
|
} |
|
} |
| |
| |
DQueue<Thread> *q = 0; |
void Thread::exit_self(ThreadReturnType exit_code) |
int i = 0; |
|
AtomicInt needed(0); |
|
|
|
#ifdef PEGASUS_DISABLE_KILLING_HUNG_THREADS |
|
// This change prevents the thread pool from killing "hung" threads. |
|
// The definition of a "hung" thread is one that has been on the run queue |
|
// for longer than the time interval set when the thread pool was created. |
|
// Cancelling "hung" threads has proven to be problematic. |
|
|
|
// With this change the thread pool will not cancel "hung" threads. This |
|
// may prevent a crash depending upon the state of the "hung" thread. In |
|
// the case that the thread is actually hung, this change causes the |
|
// thread resources not to be reclaimed. |
|
|
|
// Idle threads, those that have not executed a routine for a time |
|
// interval, continue to be destroyed. This is normal and should not |
|
// cause any problems. |
|
for( ; i < 1; i++) |
|
#else |
|
for( ; i < 2; i++) |
|
#endif |
|
{ | { |
q = map[i]; |
#if !defined(PEGASUS_PLATFORM_AIX_RS_IBMCXX) \ |
if(q->count() > 0 ) |
&& !defined(PEGASUS_PLATFORM_PASE_ISERIES_IBMCXX) |
|
Threads::exit(exit_code); |
|
#else |
|
// execute the cleanup stack and then return |
|
while (_cleanup.size()) |
{ | { |
try | try |
{ | { |
q->try_lock(); |
cleanup_pop(true); |
} | } |
catch(...) | catch(...) |
{ | { |
return bodies; |
PEGASUS_ASSERT(0); |
|
break; |
} | } |
|
|
struct timeval dt = { 0, 0 }; |
|
struct timeval *dtp; |
|
Thread *th = 0; |
|
th = q->next(th); |
|
while (th != 0 ) |
|
{ |
|
try |
|
{ |
|
dtp = (struct timeval *)th->try_reference_tsd("deadlock timer"); |
|
} | } |
catch(...) |
_exit_code = exit_code; |
{ |
Threads::exit(exit_code); |
q->unlock(); |
Threads::clear(_handle.thid); |
return bodies; |
#endif |
} | } |
| |
if(dtp != 0) |
Sint8 Thread::initializeKey() |
{ | { |
memcpy(&dt, dtp, sizeof(struct timeval)); |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::initializeKey"); |
} |
if (!Thread::_key_initialized) |
th->dereference_tsd(); |
|
struct timeval deadlock_timeout; |
|
Boolean too_long; |
|
if( i == 0) |
|
{ | { |
too_long = check_time(&dt, get_deallocate_wait(&deadlock_timeout)); |
if (Thread::_key_error) |
} |
|
else |
|
{ | { |
too_long = check_time(&dt, get_deadlock_detect(&deadlock_timeout)); |
PEG_TRACE_CSTRING(TRC_THREAD, Tracer::LEVEL1, |
|
"Thread: ERROR - thread key error"); |
|
return -1; |
} | } |
| |
if( true == too_long) |
if (TSDKey::create(&Thread::_platform_thread_key) == 0) |
{ |
|
// if we are deallocating from the pool, escape if we are |
|
// down to the minimum thread count |
|
_current_threads--; |
|
if( _current_threads.value() < (Uint32)_min_threads ) |
|
{ | { |
if( i == 0) |
PEG_TRACE_CSTRING(TRC_THREAD, Tracer::LEVEL4, |
{ |
"Thread: able to create a thread key"); |
_current_threads++; |
Thread::_key_initialized = true; |
th = q->next(th); |
|
continue; |
|
} | } |
else | else |
{ | { |
// we are killing a hung thread and we will drop below the |
PEG_TRACE_CSTRING(TRC_THREAD, Tracer::LEVEL1, |
// minimum. create another thread to make up for the one |
"Thread: ERROR - unable to create a thread key"); |
// we are about to kill |
Thread::_key_error = true; |
needed++; |
return -1; |
} | } |
} | } |
| |
th = q->remove_no_lock((void *)th); |
PEG_METHOD_EXIT(); |
|
return 0; |
|
} |
| |
if(th != 0) |
Thread *Thread::getCurrent() |
{ |
|
if( i == 0 ) |
|
{ | { |
th->delete_tsd("work func"); |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::getCurrent"); |
th->put_tsd("work func", NULL, |
if (Thread::initializeKey() != 0) |
sizeof( PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *)(void *)), |
|
(void *)&_undertaker); |
|
th->delete_tsd("work parm"); |
|
th->put_tsd("work parm", NULL, sizeof(void *), th); |
|
|
|
// signal the thread's sleep semaphore to awaken it |
|
Semaphore *sleep_sem = (Semaphore *)th->reference_tsd("sleep sem"); |
|
|
|
if(sleep_sem == 0) |
|
{ | { |
q->unlock(); |
return NULL; |
th->dereference_tsd(); |
|
throw NullPointer(); |
|
} | } |
|
PEG_METHOD_EXIT(); |
bodies++; |
return (Thread *) TSDKey::get_thread_specific(_platform_thread_key); |
th->dereference_tsd(); |
|
_dead.insert_first(th); |
|
sleep_sem->signal(); |
|
th = 0; |
|
} | } |
else |
|
|
void Thread::setCurrent(Thread * thrd) |
{ | { |
// deadlocked threads |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::setCurrent"); |
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, "Killing a deadlocked thread"); |
if (Thread::initializeKey() == 0) |
th->cancel(); |
|
delete th; |
|
} |
|
} |
|
} |
|
th = q->next(th); |
|
pegasus_sleep(1); |
|
} |
|
q->unlock(); |
|
while (needed.value() > 0) |
|
{ | { |
_link_pool(_init_thread()); |
if (TSDKey:: |
needed--; |
set_thread_specific(Thread::_platform_thread_key, |
pegasus_sleep(0); |
(void *) thrd) == 0) |
|
{ |
|
PEG_TRACE_CSTRING(TRC_THREAD, Tracer::LEVEL4, |
|
"Successful set Thread * into thread specific storage"); |
} | } |
|
else |
|
{ |
|
PEG_TRACE_CSTRING(TRC_THREAD, Tracer::LEVEL1, |
|
"ERROR: error setting Thread * into thread specific storage"); |
} | } |
} | } |
return bodies; |
PEG_METHOD_EXIT(); |
} | } |
| |
|
AcceptLanguageList *Thread::getLanguages() |
Boolean ThreadPool::check_time(struct timeval *start, struct timeval *interval) |
|
{ | { |
// never time out if the interval is zero |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::getLanguages"); |
if(interval && interval->tv_sec == 0 && interval->tv_usec == 0) |
|
return false; |
|
|
|
struct timeval now, finish, remaining ; |
|
Uint32 usec; |
|
pegasus_gettimeofday(&now); |
|
/* remove valgrind error */ |
|
pegasus_gettimeofday(&remaining); |
|
|
|
|
|
finish.tv_sec = start->tv_sec + interval->tv_sec; |
|
usec = start->tv_usec + interval->tv_usec; |
|
finish.tv_sec += (usec / 1000000); |
|
usec %= 1000000; |
|
finish.tv_usec = usec; |
|
|
|
if ( timeval_subtract(&remaining, &finish, &now) ) |
|
return true; |
|
else |
|
return false; |
|
} |
|
| |
PEGASUS_THREAD_RETURN ThreadPool::_undertaker( void *parm ) |
Thread *curThrd = Thread::getCurrent(); |
{ |
if (curThrd == NULL) |
exit_thread((PEGASUS_THREAD_RETURN)1); |
return NULL; |
return (PEGASUS_THREAD_RETURN)1; |
AcceptLanguageList *acceptLangs = |
|
(AcceptLanguageList *) curThrd->reference_tsd(TSD_ACCEPT_LANGUAGES); |
|
curThrd->dereference_tsd(); |
|
PEG_METHOD_EXIT(); |
|
return acceptLangs; |
} | } |
| |
|
void Thread::setLanguages(const AcceptLanguageList& langs) |
void ThreadPool::_sleep_sem_del(void *p) |
|
{ | { |
if(p != 0) |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::setLanguages"); |
{ |
|
delete (Semaphore *)p; |
|
} |
|
} |
|
| |
void ThreadPool::_check_deadlock(struct timeval *start) throw(Deadlock) |
Thread *currentThrd = Thread::getCurrent(); |
|
if (currentThrd != NULL) |
{ | { |
if (true == check_time(start, &_deadlock_detect)) |
AutoPtr<AcceptLanguageList> langsCopy(new AcceptLanguageList(langs)); |
throw Deadlock(pegasus_thread_self()); |
|
return; |
|
} |
|
| |
|
// deletes the old tsd and creates a new one |
|
currentThrd->put_tsd( |
|
TSD_ACCEPT_LANGUAGES, |
|
language_delete, |
|
sizeof (AcceptLanguageList *), |
|
langsCopy.get()); |
| |
Boolean ThreadPool::_check_deadlock_no_throw(struct timeval *start) |
langsCopy.release(); |
{ |
|
return(check_time(start, &_deadlock_detect)); |
|
} | } |
| |
Boolean ThreadPool::_check_dealloc(struct timeval *start) |
PEG_METHOD_EXIT(); |
{ |
|
return(check_time(start, &_deallocate_wait)); |
|
} | } |
| |
Thread *ThreadPool::_init_thread(void) throw(IPCException) |
void Thread::clearLanguages() |
{ | { |
Thread *th = (Thread *) new Thread(_loop, this, false); |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::clearLanguages"); |
// allocate a sleep semaphore and pass it in the thread context |
|
// initial count is zero, loop function will sleep until |
|
// we signal the semaphore |
|
Semaphore *sleep_sem = (Semaphore *) new Semaphore(0); |
|
th->put_tsd("sleep sem", &_sleep_sem_del, sizeof(Semaphore), (void *)sleep_sem); |
|
|
|
struct timeval *dldt = (struct timeval *) ::operator new(sizeof(struct timeval)); |
|
pegasus_gettimeofday(dldt); |
|
|
|
th->put_tsd("deadlock timer", thread_data::default_delete, sizeof(struct timeval), (void *)dldt); |
|
// thread will enter _loop(void *) and sleep on sleep_sem until we signal it |
|
|
|
th->run(); |
|
_current_threads++; |
|
pegasus_yield(); |
|
| |
return th; |
Thread *currentThrd = Thread::getCurrent(); |
|
if (currentThrd != NULL) |
|
{ |
|
// deletes the old tsd |
|
currentThrd->delete_tsd(TSD_ACCEPT_LANGUAGES); |
} | } |
| |
void ThreadPool::_link_pool(Thread *th) throw(IPCException) |
PEG_METHOD_EXIT(); |
{ |
|
if(th == 0) |
|
throw NullPointer(); |
|
_pool.insert_first(th); |
|
} | } |
| |
|
// ATTN: not sure where to put this! |
|
#ifdef PEGASUS_ZOS_SECURITY |
|
bool isEnhancedSecurity = 99; |
|
#endif |
| |
PEGASUS_NAMESPACE_END | PEGASUS_NAMESPACE_END |
|
|