version 1.19, 2002/06/07 15:17:13
|
version 1.90.2.4, 2006/07/28 21:22:01
|
|
|
//%///////////////////////////////////////////////////////////////////////////// |
//%2006//////////////////////////////////////////////////////////////////////// |
// | // |
// Copyright (c) 2000, 2001, 2002 BMC Software, Hewlett-Packard Company, IBM, |
// Copyright (c) 2000, 2001, 2002 BMC Software; Hewlett-Packard Development |
// The Open Group, Tivoli Systems |
// Company, L.P.; IBM Corp.; The Open Group; Tivoli Systems. |
|
// Copyright (c) 2003 BMC Software; Hewlett-Packard Development Company, L.P.; |
|
// IBM Corp.; EMC Corporation, The Open Group. |
|
// Copyright (c) 2004 BMC Software; Hewlett-Packard Development Company, L.P.; |
|
// IBM Corp.; EMC Corporation; VERITAS Software Corporation; The Open Group. |
|
// Copyright (c) 2005 Hewlett-Packard Development Company, L.P.; IBM Corp.; |
|
// EMC Corporation; VERITAS Software Corporation; The Open Group. |
|
// Copyright (c) 2006 Hewlett-Packard Development Company, L.P.; IBM Corp.; |
|
// EMC Corporation; Symantec Corporation; The Open Group. |
// | // |
// 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 copy |
// of this software and associated documentation files (the "Software"), to | // of this software and associated documentation files (the "Software"), to |
|
|
// | // |
// Modified By: Rudy Schuet (rudy.schuet@compaq.com) 11/12/01 | // Modified By: Rudy Schuet (rudy.schuet@compaq.com) 11/12/01 |
// added nsk platform support | // added nsk platform support |
|
// Roger Kumpf, Hewlett-Packard Company (roger_kumpf@hp.com) |
|
// Amit K Arora, IBM (amita@in.ibm.com) for PEP#101 |
|
// Sean Keenan, Hewlett-Packard Company (sean.keenan@hp.com) |
|
// David Dillard, VERITAS Software Corp. |
|
// (david.dillard@veritas.com) |
// | // |
//%///////////////////////////////////////////////////////////////////////////// | //%///////////////////////////////////////////////////////////////////////////// |
| |
#include "Thread.h" | #include "Thread.h" |
#include <Pegasus/Common/IPC.h> |
#include <exception> |
#include <Pegasus/Common/Tracer.h> | #include <Pegasus/Common/Tracer.h> |
|
#include "Time.h" |
| |
#if defined(PEGASUS_OS_TYPE_WINDOWS) | #if defined(PEGASUS_OS_TYPE_WINDOWS) |
# include "ThreadWindows.cpp" | # include "ThreadWindows.cpp" |
|
|
# include "ThreadUnix.cpp" | # include "ThreadUnix.cpp" |
#elif defined(PEGASUS_OS_TYPE_NSK) | #elif defined(PEGASUS_OS_TYPE_NSK) |
# include "ThreadNsk.cpp" | # include "ThreadNsk.cpp" |
|
#elif defined(PEGASUS_OS_VMS) |
|
# include "ThreadVms.cpp" |
#else | #else |
# error "Unsupported platform" | # error "Unsupported platform" |
#endif | #endif |
| |
|
PEGASUS_USING_STD; |
PEGASUS_NAMESPACE_BEGIN | PEGASUS_NAMESPACE_BEGIN |
| |
|
|
void thread_data::default_delete(void * data) | void thread_data::default_delete(void * data) |
{ | { |
if( data != NULL) | if( data != NULL) |
::operator delete(data); | ::operator delete(data); |
} | } |
| |
Boolean Thread::_signals_blocked = false; |
// l10n start |
|
void language_delete(void * data) |
// for non-native implementations |
|
#ifndef PEGASUS_THREAD_CLEANUP_NATIVE |
|
void Thread::cleanup_push( void (*routine)(void *), void *parm) throw(IPCException) |
|
{ | { |
cleanup_handler *cu = new cleanup_handler(routine, parm); |
if( data != NULL) |
try |
|
{ | { |
_cleanup.insert_first(cu); |
AutoPtr<AcceptLanguageList> al(static_cast<AcceptLanguageList *>(data)); |
} | } |
catch(IPCException&) |
|
{ |
|
delete cu; |
|
throw; |
|
} | } |
|
// l10n end |
|
|
|
Boolean Thread::_signals_blocked = false; |
|
// l10n |
|
#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; |
|
|
|
|
|
void Thread::cleanup_push( void (*routine)(void *), void *parm) |
|
{ |
|
AutoPtr<cleanup_handler> cu(new cleanup_handler(routine, parm)); |
|
_cleanup.insert_front(cu.get()); |
|
cu.release(); |
return; | return; |
} | } |
| |
void Thread::cleanup_pop(Boolean execute) throw(IPCException) |
void Thread::cleanup_pop(Boolean execute) |
{ | { |
cleanup_handler *cu ; |
AutoPtr<cleanup_handler> cu; |
try | try |
{ | { |
cu = _cleanup.remove_first() ; |
cu.reset(_cleanup.remove_front()); |
} | } |
catch(IPCException&) | catch(IPCException&) |
{ | { |
|
|
} | } |
if(execute == true) | if(execute == true) |
cu->execute(); | cu->execute(); |
delete cu; |
|
} | } |
| |
#endif |
|
|
|
| |
//thread_data *Thread::put_tsd(const Sint8 *key, void (*delete_func)(void *), Uint32 size, void *value) throw(IPCException) |
//thread_data *Thread::put_tsd(const Sint8 *key, void (*delete_func)(void *), Uint32 size, void *value) |
| |
| |
#ifndef PEGASUS_THREAD_EXIT_NATIVE | #ifndef PEGASUS_THREAD_EXIT_NATIVE |
void Thread::exit_self(PEGASUS_THREAD_RETURN exit_code) |
void Thread::exit_self(ThreadReturnType exit_code) |
{ | { |
// execute the cleanup stack and then return | // execute the cleanup stack and then return |
while( _cleanup.count() ) |
while( _cleanup.size() ) |
{ | { |
try | try |
{ | { |
|
|
} | } |
} | } |
_exit_code = exit_code; | _exit_code = exit_code; |
exit_thread(exit_code); |
Threads::exit(exit_code); |
_handle.thid = 0; |
Threads::clear(_handle.thid); |
} | } |
| |
| |
#endif | #endif |
| |
ThreadPool::ThreadPool(Sint16 initial_size, |
// l10n start |
const Sint8 *key, |
Sint8 Thread::initializeKey() |
Sint16 min, |
{ |
Sint16 max, |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::initializeKey"); |
struct timeval & alloc_wait, |
if (!Thread::_key_initialized) |
struct timeval & dealloc_wait, |
{ |
struct timeval & deadlock_detect) |
if (Thread::_key_error) |
: _max_threads(max), _min_threads(min), |
{ |
_current_threads(0), |
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, |
_pool(true), _running(true), |
"Thread: ERROR - thread key error"); |
_dead(true), _dying(0) |
return -1; |
{ |
} |
_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 < initial_size) |
|
_max_threads = initial_size; |
|
if(_min_threads > initial_size) |
|
_min_threads = initial_size; |
|
| |
int i; |
if (TSDKey::create(&Thread::_platform_thread_key) == 0) |
for(i = 0; i < initial_size; i++) |
{ |
|
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, |
|
"Thread: able to create a thread key"); |
|
Thread::_key_initialized = true; |
|
} |
|
else |
{ | { |
_link_pool(_init_thread()); |
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() |
|
{ |
|
PEG_METHOD_ENTER(TRC_THREAD, "Thread::getCurrent"); |
|
if (Thread::initializeKey() != 0) |
|
{ |
|
return NULL; |
|
} |
|
PEG_METHOD_EXIT(); |
|
return (Thread *)TSDKey::get_thread_specific(_platform_thread_key); |
|
} |
| |
|
void Thread::setCurrent(Thread * thrd) |
|
{ |
|
PEG_METHOD_ENTER(TRC_THREAD, "Thread::setCurrent"); |
|
if (Thread::initializeKey() == 0) |
|
{ |
|
if (TSDKey::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, |
|
"ERROR: error setting Thread * into thread specific storage"); |
|
} |
|
} |
|
PEG_METHOD_EXIT(); |
|
} |
| |
ThreadPool::~ThreadPool(void) |
AcceptLanguageList * Thread::getLanguages() |
{ | { |
|
PEG_METHOD_ENTER(TRC_THREAD, "Thread::getLanguages"); |
| |
_dying++; |
Thread * curThrd = Thread::getCurrent(); |
Thread *th = 0; |
if (curThrd == NULL) |
th = _pool.remove_first(); |
return NULL; |
while(th != 0) |
AcceptLanguageList * acceptLangs = |
|
(AcceptLanguageList *)curThrd->reference_tsd("acceptLanguages"); |
|
curThrd->dereference_tsd(); |
|
PEG_METHOD_EXIT(); |
|
return acceptLangs; |
|
} |
|
|
|
void Thread::setLanguages(AcceptLanguageList *langs) //l10n |
{ | { |
Semaphore *sleep_sem = (Semaphore *)th->reference_tsd("sleep sem"); |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::setLanguages"); |
| |
if(sleep_sem == 0) |
Thread* currentThrd = Thread::getCurrent(); |
|
if (currentThrd != NULL) |
{ | { |
th->dereference_tsd(); |
// deletes the old tsd and creates a new one |
throw NullPointer(); |
currentThrd->put_tsd("acceptLanguages", |
|
language_delete, |
|
sizeof(AcceptLanguageList *), |
|
langs); |
} | } |
| |
sleep_sem->signal(); |
PEG_METHOD_EXIT(); |
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(); |
void Thread::clearLanguages() //l10n |
while(th != 0) |
|
{ | { |
// signal the thread's sleep semaphore |
PEG_METHOD_ENTER(TRC_THREAD, "Thread::clearLanguages"); |
th->cancel(); |
|
th->join(); |
Thread * currentThrd = Thread::getCurrent(); |
th->empty_tsd(); |
if (currentThrd != NULL) |
delete th; |
{ |
th = _running.remove_first(); |
// deletes the old tsd |
|
currentThrd->delete_tsd("acceptLanguages"); |
|
} |
|
|
|
PEG_METHOD_EXIT(); |
|
} |
|
// l10n end |
|
|
|
|
|
/////////////////////////////////////////////////////////////////////////////// |
|
// |
|
// ThreadPool |
|
// |
|
/////////////////////////////////////////////////////////////////////////////// |
|
|
|
ThreadPool::ThreadPool( |
|
Sint16 initialSize, |
|
const char* key, |
|
Sint16 minThreads, |
|
Sint16 maxThreads, |
|
struct timeval& deallocateWait) |
|
: _maxThreads(maxThreads), |
|
_minThreads(minThreads), |
|
_currentThreads(0), |
|
_idleThreads(), |
|
_runningThreads(), |
|
_dying(0) |
|
{ |
|
_deallocateWait.tv_sec = deallocateWait.tv_sec; |
|
_deallocateWait.tv_usec = deallocateWait.tv_usec; |
|
|
|
memset(_key, 0x00, 17); |
|
if (key != 0) |
|
{ |
|
strncpy(_key, key, 16); |
} | } |
| |
th = _dead.remove_first(); |
if ((_maxThreads > 0) && (_maxThreads < initialSize)) |
while(th != 0) |
|
{ | { |
// signal the thread's sleep semaphore |
_maxThreads = initialSize; |
th->cancel(); |
|
th->join(); |
|
th->empty_tsd(); |
|
delete th; |
|
th = _dead.remove_first(); |
|
} | } |
|
|
|
if (_minThreads > initialSize) |
|
{ |
|
_minThreads = initialSize; |
} | } |
| |
// make this static to the class |
for (int i = 0; i < initialSize; i++) |
PEGASUS_THREAD_RETURN PEGASUS_THREAD_CDECL ThreadPool::_loop(void *parm) |
|
{ | { |
PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::_loop"); |
_addToIdleThreadsQueue(_initializeThread()); |
|
} |
|
} |
| |
Thread *myself = (Thread *)parm; |
ThreadPool::~ThreadPool() |
if(myself == 0) |
|
{ | { |
PEG_METHOD_EXIT(); |
PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::~ThreadPool"); |
throw NullPointer(); |
|
|
try |
|
{ |
|
// Set the dying flag so all thread know the destructor has been entered |
|
_dying++; |
|
Tracer::trace(TRC_THREAD, Tracer::LEVEL2, |
|
"Cleaning up %d idle threads. ", _currentThreads.get()); |
|
|
|
printf("***BEFORE\n"); |
|
while (_currentThreads.get() > 0) |
|
{ |
|
Thread* thread = _idleThreads.remove_front(); |
|
if (thread != 0) |
|
{ |
|
printf("***INSIDE1\n"); |
|
_cleanupThread(thread); |
|
_currentThreads--; |
} | } |
ThreadPool *pool = (ThreadPool *)myself->get_parm(); |
else |
if(pool == 0 ) |
|
{ | { |
PEG_METHOD_EXIT(); |
printf("***INSIDE2\n"); |
throw NullPointer(); |
Threads::yield(); |
} | } |
Semaphore *sleep_sem = 0; |
} |
Semaphore *blocking_sem = 0; |
printf("***AFTER\n"); |
|
} |
|
catch (...) |
|
{ |
|
} |
|
} |
|
|
|
ThreadReturnType PEGASUS_THREAD_CDECL ThreadPool::_loop(void* parm) |
|
{ |
|
PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::_loop"); |
|
|
|
try |
|
{ |
|
Thread* myself = (Thread *)parm; |
|
PEGASUS_ASSERT(myself != 0); |
|
|
|
// Set myself into thread specific storage |
|
// This will allow code to get its own Thread |
|
Thread::setCurrent(myself); |
| |
struct timeval *deadlock_timer = 0; |
ThreadPool* pool = (ThreadPool *)myself->get_parm(); |
|
PEGASUS_ASSERT(pool != 0); |
|
|
|
Semaphore* sleep_sem = 0; |
|
struct timeval* lastActivityTime = 0; |
| |
try | try |
{ | { |
sleep_sem = (Semaphore *)myself->reference_tsd("sleep sem"); | sleep_sem = (Semaphore *)myself->reference_tsd("sleep sem"); |
myself->dereference_tsd(); | myself->dereference_tsd(); |
deadlock_timer = (struct timeval *)myself->reference_tsd("deadlock timer"); |
PEGASUS_ASSERT(sleep_sem != 0); |
|
|
|
lastActivityTime = |
|
(struct timeval *)myself->reference_tsd("last activity time"); |
myself->dereference_tsd(); | myself->dereference_tsd(); |
|
PEGASUS_ASSERT(lastActivityTime != 0); |
} | } |
catch(IPCException &) |
catch (...) |
{ |
|
PEG_METHOD_EXIT(); |
|
myself->exit_self(0); |
|
} |
|
if(sleep_sem == 0 || deadlock_timer == 0) |
|
{ | { |
|
Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"ThreadPool::_loop: Failure getting sleep_sem or " |
|
"lastActivityTime."); |
|
PEGASUS_ASSERT(false); |
|
pool->_idleThreads.remove(myself); |
|
pool->_currentThreads--; |
PEG_METHOD_EXIT(); | PEG_METHOD_EXIT(); |
throw NullPointer(); |
return((ThreadReturnType)1); |
} | } |
| |
while(pool->_dying < 1) |
while (1) |
|
{ |
|
try |
{ | { |
sleep_sem->wait(); | sleep_sem->wait(); |
|
} |
|
catch (...) |
|
{ |
|
Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"ThreadPool::_loop: failure on sleep_sem->wait()."); |
|
PEGASUS_ASSERT(false); |
|
pool->_idleThreads.remove(myself); |
|
pool->_currentThreads--; |
|
PEG_METHOD_EXIT(); |
|
return((ThreadReturnType)1); |
|
} |
| |
// when we awaken we reside on the running queue, not the pool queue |
// When we awaken we reside on the _runningThreads queue, not the |
if(pool->_dying > 0) |
// _idleThreads queue. |
break; |
|
| |
PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *_work)(void *) = 0; |
ThreadReturnType (PEGASUS_THREAD_CDECL* work)(void *) = 0; |
void *parm = 0; | void *parm = 0; |
|
Semaphore* blocking_sem = 0; |
| |
try | try |
{ | { |
_work = (PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *)(void *)) \ |
work = (ThreadReturnType (PEGASUS_THREAD_CDECL *)(void *)) |
myself->reference_tsd("work func"); | myself->reference_tsd("work func"); |
myself->dereference_tsd(); | myself->dereference_tsd(); |
parm = myself->reference_tsd("work parm"); | parm = myself->reference_tsd("work parm"); |
myself->dereference_tsd(); | myself->dereference_tsd(); |
blocking_sem = (Semaphore *)myself->reference_tsd("blocking sem"); | blocking_sem = (Semaphore *)myself->reference_tsd("blocking sem"); |
myself->dereference_tsd(); | myself->dereference_tsd(); |
|
|
} | } |
catch(IPCException &) |
catch (...) |
{ | { |
|
Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"ThreadPool::_loop: Failure accessing work func, work parm, " |
|
"or blocking sem."); |
|
PEGASUS_ASSERT(false); |
|
pool->_idleThreads.remove(myself); |
|
pool->_currentThreads--; |
PEG_METHOD_EXIT(); | PEG_METHOD_EXIT(); |
myself->exit_self(0); |
return((ThreadReturnType)1); |
} | } |
| |
if(_work == 0) |
if (work == 0) |
{ | { |
PEG_METHOD_EXIT(); |
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, |
throw NullPointer(); |
"ThreadPool::_loop: work func is 0, meaning we should exit."); |
|
break; |
} | } |
gettimeofday(deadlock_timer, NULL); |
|
_work(parm); |
|
| |
if( blocking_sem != 0 ) |
Time::gettimeofday(lastActivityTime); |
blocking_sem->signal(); |
|
|
try |
|
{ |
|
PEG_TRACE_STRING(TRC_THREAD, Tracer::LEVEL4, "Work starting."); |
|
work(parm); |
|
PEG_TRACE_STRING(TRC_THREAD, Tracer::LEVEL4, "Work finished."); |
|
} |
|
catch (Exception & e) |
|
{ |
|
PEG_TRACE_STRING(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
String("Exception from work in ThreadPool::_loop: ") + |
|
e.getMessage()); |
|
} |
|
#if !defined(PEGASUS_OS_LSB) |
|
catch (const exception& e) |
|
{ |
|
PEG_TRACE_STRING(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
String("Exception from work in ThreadPool::_loop: ") + |
|
e.what()); |
|
} |
|
#endif |
|
catch (...) |
|
{ |
|
PEG_TRACE_STRING(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"Unknown exception from work in ThreadPool::_loop."); |
|
} |
| |
// put myself back onto the available list | // put myself back onto the available list |
try | try |
{ | { |
pool->_running.remove((void *)myself); |
Time::gettimeofday(lastActivityTime); |
pool->_link_pool(myself); |
if (blocking_sem != 0) |
|
{ |
|
blocking_sem->signal(); |
} | } |
catch(IPCException &) |
|
|
pool->_runningThreads.remove(myself); |
|
pool->_idleThreads.insert_front(myself); |
|
} |
|
catch (...) |
{ | { |
|
Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"ThreadPool::_loop: Adding thread to idle pool failed."); |
|
PEGASUS_ASSERT(false); |
|
pool->_currentThreads--; |
PEG_METHOD_EXIT(); | PEG_METHOD_EXIT(); |
myself->exit_self(0); |
return((ThreadReturnType)1); |
} | } |
|
|
} | } |
// wait to be awakend by the thread pool destructor |
} |
sleep_sem->wait(); |
catch (const Exception& e) |
myself->test_cancel(); |
{ |
|
PEG_TRACE_STRING(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"Caught exception: \"" + e.getMessage() + "\". Exiting _loop."); |
|
} |
|
catch (...) |
|
{ |
|
PEG_TRACE_STRING(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"Caught unrecognized exception. Exiting _loop."); |
|
} |
| |
PEG_METHOD_EXIT(); | PEG_METHOD_EXIT(); |
myself->exit_self(0); |
return((ThreadReturnType)0); |
return((PEGASUS_THREAD_RETURN)0); |
|
} | } |
| |
void ThreadPool::allocate_and_awaken(void *parm, |
ThreadStatus ThreadPool::allocate_and_awaken( |
PEGASUS_THREAD_RETURN \ |
void* parm, |
(PEGASUS_THREAD_CDECL *work)(void *), |
ThreadReturnType (PEGASUS_THREAD_CDECL* work)(void *), |
Semaphore *blocking) | Semaphore *blocking) |
|
|
throw(IPCException) |
|
{ | { |
PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::allocate_and_awaken"); | PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::allocate_and_awaken"); |
struct timeval start; |
|
gettimeofday(&start, NULL); |
|
| |
Thread *th = _pool.remove_first(); |
// Allocate_and_awaken will not run if the _dying flag is set. |
|
// Once the lock is acquired, ~ThreadPool will not change |
|
// the value of _dying until the lock is released. |
| |
// wait for the right interval and try again |
try |
while(th == 0 && _dying < 1) |
|
{ | { |
_check_deadlock(&start) ; |
if (_dying.get()) |
|
{ |
|
Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"ThreadPool::allocate_and_awaken: ThreadPool is dying(1)."); |
|
return PEGASUS_THREAD_UNAVAILABLE; |
|
} |
|
struct timeval start; |
|
Time::gettimeofday(&start); |
|
Thread* th = 0; |
|
|
|
th = _idleThreads.remove_front(); |
| |
if(_current_threads < _max_threads) |
if (th == 0) |
|
{ |
|
if ((_maxThreads == 0) || |
|
(_currentThreads.get() < Uint32(_maxThreads))) |
{ | { |
th = _init_thread(); |
th = _initializeThread(); |
continue; |
|
} | } |
pegasus_yield(); |
|
th = _pool.remove_first(); |
|
} | } |
| |
|
if (th == 0) |
if(_dying < 1) |
|
{ | { |
|
// ATTN-DME-P3-20031103: This trace message should not be |
|
// be labeled TRC_DISCARDED_DATA, because it does not |
|
// necessarily imply that a failure has occurred. However, |
|
// this label is being used temporarily to help isolate |
|
// the cause of client timeout problems. |
|
Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"ThreadPool::allocate_and_awaken: Insufficient resources: " |
|
" pool = %s, running threads = %d, idle threads = %d", |
|
_key, _runningThreads.size(), _idleThreads.size()); |
|
return PEGASUS_THREAD_INSUFFICIENT_RESOURCES; |
|
} |
|
|
// initialize the thread data with the work function and parameters | // initialize the thread data with the work function and parameters |
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, | Tracer::trace(TRC_THREAD, Tracer::LEVEL4, |
"Initializing thread with work function and parameters: parm = %p", | "Initializing thread with work function and parameters: parm = %p", |
|
|
| |
th->delete_tsd("work func"); | th->delete_tsd("work func"); |
th->put_tsd("work func", NULL, | th->put_tsd("work func", NULL, |
sizeof( PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *)(void *)), |
sizeof( ThreadReturnType (PEGASUS_THREAD_CDECL *)(void *)), |
(void *)work); | (void *)work); |
th->delete_tsd("work parm"); | th->delete_tsd("work parm"); |
th->put_tsd("work parm", NULL, sizeof(void *), parm); | th->put_tsd("work parm", NULL, sizeof(void *), parm); |
|
|
th->put_tsd("blocking sem", NULL, sizeof(Semaphore *), blocking); | th->put_tsd("blocking sem", NULL, sizeof(Semaphore *), blocking); |
| |
// put the thread on the running list | // put the thread on the running list |
_running.insert_first(th); |
_runningThreads.insert_front(th); |
| |
// signal the thread's sleep semaphore to awaken it | // signal the thread's sleep semaphore to awaken it |
Semaphore *sleep_sem = (Semaphore *)th->reference_tsd("sleep sem"); | Semaphore *sleep_sem = (Semaphore *)th->reference_tsd("sleep sem"); |
|
PEGASUS_ASSERT(sleep_sem != 0); |
| |
if(sleep_sem == 0) |
|
{ |
|
th->dereference_tsd(); |
|
PEG_METHOD_EXIT(); |
|
throw NullPointer(); |
|
} |
|
Tracer::trace(TRC_THREAD, Tracer::LEVEL4, "Signal thread to awaken"); | Tracer::trace(TRC_THREAD, Tracer::LEVEL4, "Signal thread to awaken"); |
sleep_sem->signal(); | sleep_sem->signal(); |
th->dereference_tsd(); | th->dereference_tsd(); |
} | } |
else |
catch (...) |
_pool.insert_first(th); |
{ |
|
Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"ThreadPool::allocate_and_awaken: Operation Failed."); |
PEG_METHOD_EXIT(); | PEG_METHOD_EXIT(); |
|
// ATTN: Error result has not yet been defined |
|
return PEGASUS_THREAD_SETUP_FAILURE; |
|
} |
|
PEG_METHOD_EXIT(); |
|
return PEGASUS_THREAD_OK; |
} | } |
| |
// caller is responsible for only calling this routine during slack periods | // caller is responsible for only calling this routine during slack periods |
// but should call it at least once per _deadlock_detect with the running q |
// but should call it at least once per _deallocateWait interval. |
// and at least once per _deallocate_wait for the pool q |
|
| |
Uint32 ThreadPool::kill_dead_threads(void) |
Uint32 ThreadPool::cleanupIdleThreads() |
throw(IPCException) |
|
{ | { |
struct timeval now; |
PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::cleanupIdleThreads"); |
gettimeofday(&now, NULL); |
|
Uint32 bodies = 0; |
|
| |
// first go thread the dead q and clean it up as much as possible |
Uint32 numThreadsCleanedUp = 0; |
while(_dead.count() > 0) |
|
{ |
Uint32 numIdleThreads = _idleThreads.size(); |
Thread *dead = _dead.remove_first(); |
for (Uint32 i = 0; i < numIdleThreads; i++) |
if(dead == 0) |
|
throw NullPointer(); |
|
if(dead->_handle.thid != 0) |
|
{ | { |
dead->detach(); |
// Do not dip below the minimum thread count |
destroy_thread(dead->_handle.thid, 0); |
if (_currentThreads.get() <= (Uint32)_minThreads) |
dead->_handle.thid = 0; |
|
while(dead->_cleanup.count() ) |
|
{ | { |
// this may throw a permission exception, |
break; |
// which I will remove from the code prior to stabilizing |
|
dead->cleanup_pop(true); |
|
} |
|
} |
|
delete dead; |
|
} | } |
| |
DQueue<Thread> * map[2] = |
Thread* thread = _idleThreads.remove_back(); |
{ |
|
&_pool, &_running |
|
}; |
|
|
|
| |
DQueue<Thread> *q = 0; |
// If there are no more threads in the _idleThreads queue, we're done. |
int i = 0; |
if (thread == 0) |
AtomicInt needed(0); |
|
|
|
for( q = map[i] ; i < 2; i++, q = map[i]) |
|
{ |
|
if(q->count() > 0 ) |
|
{ |
|
try |
|
{ |
|
q->try_lock(); |
|
} |
|
catch(...) |
|
{ | { |
return bodies; |
break; |
} | } |
| |
struct timeval dt = { 0, 0 }; |
struct timeval* lastActivityTime; |
struct timeval *dtp; |
|
Thread *th = 0; |
|
th = q->next(th); |
|
while (th != 0 ) |
|
{ |
|
try | try |
{ | { |
dtp = (struct timeval *)th->try_reference_tsd("deadlock timer"); |
lastActivityTime = (struct timeval *)thread->try_reference_tsd( |
|
"last activity time"); |
|
PEGASUS_ASSERT(lastActivityTime != 0); |
} | } |
catch(...) | catch(...) |
{ | { |
return bodies; |
PEGASUS_ASSERT(false); |
} |
_idleThreads.insert_back(thread); |
|
break; |
if(dtp != 0) |
|
{ |
|
memcpy(&dt, dtp, sizeof(struct timeval)); |
|
} |
|
th->dereference_tsd(); |
|
struct timeval deadlock_timeout; |
|
Boolean too_long; |
|
if( i == 0) |
|
{ |
|
too_long = check_time(&dt, get_deallocate_wait(&deadlock_timeout)); |
|
} |
|
else |
|
{ |
|
check_time(&dt, get_deadlock_detect(&deadlock_timeout)); |
|
} | } |
| |
if( true == too_long) |
Boolean cleanupThisThread = |
{ |
_timeIntervalExpired(lastActivityTime, &_deallocateWait); |
// if we are deallocating from the pool, escape if we are |
thread->dereference_tsd(); |
// down to the minimum thread count |
|
_current_threads--; |
if (cleanupThisThread) |
if( _current_threads.value() < (Uint32)_min_threads ) |
{ |
{ |
_cleanupThread(thread); |
if( i == 0) |
_currentThreads--; |
{ |
numThreadsCleanedUp++; |
_current_threads++; |
|
th = q->next(th); |
|
continue; |
|
} | } |
else | else |
{ | { |
// we are killing a hung thread and we will drop below the |
_idleThreads.insert_front(thread); |
// minimum. create another thread to make up for the one |
|
// we are about to kill |
|
needed++; |
|
} | } |
} | } |
| |
th = q->remove_no_lock((void *)th); |
PEG_METHOD_EXIT(); |
|
return numThreadsCleanedUp; |
|
} |
| |
if(th != 0) |
void ThreadPool::_cleanupThread(Thread* thread) |
{ | { |
|
PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::cleanupThread"); |
| |
th->delete_tsd("work func"); |
// Set the "work func" and "work parm" to 0 so _loop() knows to exit. |
th->put_tsd("work func", NULL, |
thread->delete_tsd("work func"); |
sizeof( PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *)(void *)), |
thread->put_tsd( |
(void *)&_undertaker); |
"work func", 0, |
th->delete_tsd("work parm"); |
sizeof(ThreadReturnType (PEGASUS_THREAD_CDECL *)(void *)), |
th->put_tsd("work parm", NULL, sizeof(void *), th); |
(void *) 0); |
|
thread->delete_tsd("work parm"); |
|
thread->put_tsd("work parm", 0, sizeof(void *), 0); |
| |
// signal the thread's sleep semaphore to awaken it | // signal the thread's sleep semaphore to awaken it |
Semaphore *sleep_sem = (Semaphore *)th->reference_tsd("sleep sem"); |
Semaphore* sleep_sem = (Semaphore *)thread->reference_tsd("sleep sem"); |
|
PEGASUS_ASSERT(sleep_sem != 0); |
if(sleep_sem == 0) |
|
{ |
|
th->dereference_tsd(); |
|
throw NullPointer(); |
|
} |
|
|
|
// put the thread on the dead list |
|
_dead.insert_first(th); |
|
bodies++; |
|
sleep_sem->signal(); | sleep_sem->signal(); |
|
thread->dereference_tsd(); |
| |
th->dereference_tsd(); |
thread->join(); |
th = 0; |
delete thread; |
} |
|
} |
PEG_METHOD_EXIT(); |
th = q->next(th); |
|
} | } |
q->unlock(); |
|
while (needed.value() > 0) |
Boolean ThreadPool::_timeIntervalExpired( |
|
struct timeval* start, |
|
struct timeval* interval) |
{ | { |
_link_pool(_init_thread()); |
// never time out if the interval is zero |
needed--; |
if (interval && (interval->tv_sec == 0) && (interval->tv_usec == 0)) |
} |
{ |
} |
return false; |
} |
|
return bodies; |
|
} | } |
| |
|
|
Boolean ThreadPool::check_time(struct timeval *start, struct timeval *interval) |
|
{ |
|
struct timeval now, finish, remaining; | struct timeval now, finish, remaining; |
Uint32 usec; | Uint32 usec; |
gettimeofday(&now, NULL); |
Time::gettimeofday(&now); |
|
Time::gettimeofday(&remaining); // Avoid valgrind error |
| |
finish.tv_sec = start->tv_sec + interval->tv_sec; | finish.tv_sec = start->tv_sec + interval->tv_sec; |
usec = start->tv_usec + interval->tv_usec; | usec = start->tv_usec + interval->tv_usec; |
|
|
usec %= 1000000; | usec %= 1000000; |
finish.tv_usec = usec; | finish.tv_usec = usec; |
| |
if ( timeval_subtract(&remaining, &finish, &now) ) |
return (Time::subtract(&remaining, &finish, &now) != 0); |
return true; |
|
else |
|
return false; |
|
} | } |
| |
|
void ThreadPool::_deleteSemaphore(void *p) |
PEGASUS_THREAD_RETURN ThreadPool::_undertaker( void *parm ) |
|
{ |
|
Thread *myself = reinterpret_cast<Thread *>(parm); |
|
if(myself != 0) |
|
{ |
|
myself->detach(); |
|
myself->_handle.thid = 0; |
|
myself->cancel(); |
|
myself->test_cancel(); |
|
myself->exit_self(0); |
|
} |
|
return((PEGASUS_THREAD_RETURN)0); |
|
} |
|
|
|
|
|
void ThreadPool::_sleep_sem_del(void *p) |
|
{ |
|
if(p != 0) |
|
{ | { |
delete (Semaphore *)p; | delete (Semaphore *)p; |
} | } |
} |
|
|
|
void ThreadPool::_check_deadlock(struct timeval *start) throw(Deadlock) |
|
{ |
|
if (true == check_time(start, &_deadlock_detect)) |
|
throw Deadlock(pegasus_thread_self()); |
|
return; |
|
} |
|
| |
|
Thread* ThreadPool::_initializeThread() |
Boolean ThreadPool::_check_deadlock_no_throw(struct timeval *start) |
|
{ | { |
return(check_time(start, &_deadlock_detect)); |
PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::_initializeThread"); |
} |
|
| |
Boolean ThreadPool::_check_dealloc(struct timeval *start) |
|
{ |
|
return(check_time(start, &_deallocate_wait)); |
|
} |
|
|
|
Thread *ThreadPool::_init_thread(void) throw(IPCException) |
|
{ |
|
Thread *th = (Thread *) new Thread(_loop, this, false); | Thread *th = (Thread *) new Thread(_loop, this, false); |
|
|
// allocate a sleep semaphore and pass it in the thread context | // allocate a sleep semaphore and pass it in the thread context |
// initial count is zero, loop function will sleep until | // initial count is zero, loop function will sleep until |
// we signal the semaphore | // we signal the semaphore |
Semaphore *sleep_sem = (Semaphore *) new Semaphore(0); | Semaphore *sleep_sem = (Semaphore *) new Semaphore(0); |
th->put_tsd("sleep sem", &_sleep_sem_del, sizeof(Semaphore), (void *)sleep_sem); |
th->put_tsd( |
|
"sleep sem", &_deleteSemaphore, sizeof(Semaphore), (void *)sleep_sem); |
|
|
|
struct timeval* lastActivityTime = |
|
(struct timeval *) ::operator new(sizeof(struct timeval)); |
|
Time::gettimeofday(lastActivityTime); |
| |
struct timeval *dldt = (struct timeval *) ::operator new(sizeof(struct timeval)); |
th->put_tsd("last activity time", thread_data::default_delete, |
th->put_tsd("deadlock timer", thread_data::default_delete, sizeof(struct timeval), (void *)dldt); |
sizeof(struct timeval), (void *)lastActivityTime); |
// thread will enter _loop(void *) and sleep on sleep_sem until we signal it |
// thread will enter _loop() and sleep on sleep_sem until we signal it |
th->run(); |
|
_current_threads++; |
|
pegasus_yield(); |
|
| |
|
if (th->run() != PEGASUS_THREAD_OK) |
|
{ |
|
Tracer::trace(TRC_THREAD, Tracer::LEVEL2, |
|
"Could not create thread. Error code is %d.", errno); |
|
delete th; |
|
return 0; |
|
} |
|
_currentThreads++; |
|
Threads::yield(); |
|
|
|
PEG_METHOD_EXIT(); |
return th; | return th; |
} | } |
| |
void ThreadPool::_link_pool(Thread *th) throw(IPCException) |
void ThreadPool::_addToIdleThreadsQueue(Thread* th) |
{ | { |
if(th == 0) | if(th == 0) |
|
{ |
|
Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"ThreadPool::_addToIdleThreadsQueue: Thread pointer is null."); |
throw NullPointer(); | throw NullPointer(); |
_pool.insert_first(th); |
|
} | } |
| |
|
try |
|
{ |
|
_idleThreads.insert_front(th); |
|
} |
|
catch (...) |
|
{ |
|
Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2, |
|
"ThreadPool::_addToIdleThreadsQueue: _idleThreads.insert_front " |
|
"failed."); |
|
} |
|
} |
| |
|
// ATTN: not sure where to put this! |
|
#ifdef PEGASUS_ZOS_SECURITY |
|
bool isEnhancedSecurity=99; |
|
#endif |
| |
PEGASUS_NAMESPACE_END | PEGASUS_NAMESPACE_END |
|
|