pegasus/src/Pegasus/Common/Thread.cpp - diff

Return to Thread.cpp CVS log

Up to [Pegasus] / pegasus / src / Pegasus / Common

Diff for /pegasus/src/Pegasus/Common/Thread.cpp between version 1.71.2.6 and 1.90.2.9

version 1.71.2.6, 2005/08/16 17:30:51

version 1.90.2.9, 2006/07/29 15:54:07

Line 1

//%2004////////////////////////////////////////////////////////////////////////

//%2006////////////////////////////////////////////////////////////////////////

// Company, L.P.; IBM Corp.; The Open Group; Tivoli Systems.

Line 6

// IBM Corp.; EMC Corporation, The Open Group.

// IBM Corp.; EMC Corporation; VERITAS Software Corporation; The Open Group.

// EMC Corporation; VERITAS Software Corporation; The Open Group.

// EMC Corporation; Symantec Corporation; The Open Group.

// Permission is hereby granted, free of charge, to any person obtaining a copy

// of this software and associated documentation files (the "Software"), to

Line 31

Line 35

// 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 <exception>

#include <Pegasus/Common/IPC.h>

#include <Pegasus/Common/Tracer.h>

#include "Time.h"

#if defined(PEGASUS_OS_TYPE_WINDOWS)

# 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_USING_STD;

PEGASUS_NAMESPACE_BEGIN

//==============================================================================

// POSIX Threads Implementation:

//==============================================================================

void thread_data::default_delete(void * data)

#if defined(PEGASUS_HAVE_PTHREADS)

{

if( data != NULL)

::operator delete(data);

}

// l10n start

struct StartWrapperArg

void language_delete(void * data)

{

if( data != NULL)

{

AutoPtr<AcceptLanguages> al(static_cast<AcceptLanguages *>(data));

void *(PEGASUS_THREAD_CDECL * start) (void *);

}

void *arg;

}

};

// l10n end

Boolean Thread::_signals_blocked = false;

extern "C" void *_start_wrapper(void *arg_)

// l10n

{

#ifndef PEGASUS_OS_ZOS

StartWrapperArg *arg = (StartWrapperArg *) arg_;

PEGASUS_THREAD_KEY_TYPE Thread::_platform_thread_key =

PEGASUS_THREAD_KEY_TYPE(-1);

#else

PEGASUS_THREAD_KEY_TYPE Thread::_platform_thread_key;

#endif

Boolean Thread::_key_initialized = false;

Boolean Thread::_key_error = false;

void *return_value = (*arg->start) (arg->arg);

delete arg;

void Thread::cleanup_push( void (*routine)(void *), void *parm) throw(IPCException)

return return_value;

{

AutoPtr<cleanup_handler> cu(new cleanup_handler(routine, parm));

_cleanup.insert_first(cu.get());

cu.release();

return;

}

void Thread::cleanup_pop(Boolean execute) throw(IPCException)

void Thread::cancel()

{

AutoPtr<cleanup_handler> cu ;

try

{

cu.reset(_cleanup.remove_first());

}

catch(IPCException&)

{

PEGASUS_ASSERT(0);

_cancelled = true;

}

pthread_cancel(_handle.thid.tt_handle());

if(execute == true)

cu->execute();

}

void Thread::test_cancel()

//thread_data *Thread::put_tsd(const Sint8 *key, void (*delete_func)(void *), Uint32 size, void *value) throw(IPCException)

#ifndef PEGASUS_THREAD_EXIT_NATIVE

void Thread::exit_self(PEGASUS_THREAD_RETURN exit_code)

{

// execute the cleanup stack and then return

while( _cleanup.count() )

{

try

#if defined(PEGASUS_PLATFORM_ZOS_ZSERIES_IBM)

{

pthread_testintr();

cleanup_pop(true);

#else

}

pthread_testcancel();

catch(IPCException&)

{

PEGASUS_ASSERT(0);

break;

}

_exit_code = exit_code;

exit_thread(exit_code);

_handle.thid = 0;

}

#endif

// l10n start

Sint8 Thread::initializeKey()

{

PEG_METHOD_ENTER(TRC_THREAD, "Thread::initializeKey");

if (!Thread::_key_initialized)

{

if (Thread::_key_error)

{

Tracer::trace(TRC_THREAD, Tracer::LEVEL4,

"Thread: ERROR - thread key error");

return -1;

}

if (pegasus_key_create(&Thread::_platform_thread_key) == 0)

Boolean Thread::is_cancelled(void)

{

Tracer::trace(TRC_THREAD, Tracer::LEVEL4,

return _cancelled;

"Thread: able to create a thread key");

Thread::_key_initialized = true;

}

else

{

Tracer::trace(TRC_THREAD, Tracer::LEVEL4,

"Thread: ERROR - unable to create a thread key");

Thread::_key_error = true;

return -1;

}

PEG_METHOD_EXIT();

void Thread::thread_switch()

return 0;

}

Thread * Thread::getCurrent()

{

PEG_METHOD_ENTER(TRC_THREAD, "Thread::getCurrent");

if (Thread::initializeKey() != 0)

{

return NULL;

#if defined(PEGASUS_PLATFORM_ZOS_ZSERIES_IBM)

}

pthread_yield(NULL);

PEG_METHOD_EXIT();

#else

return (Thread *)pegasus_get_thread_specific(_platform_thread_key);

sched_yield();

#endif

}

void Thread::setCurrent(Thread * thrd)

{

ATTN: why are these missing on other platforms?

PEG_METHOD_ENTER(TRC_THREAD, "Thread::setCurrent");

if (Thread::initializeKey() == 0)

#if defined(PEGASUS_PLATFORM_LINUX_GENERIC_GNU)

{

void Thread::suspend()

if (pegasus_set_thread_specific(Thread::_platform_thread_key,

(void *) thrd) == 0)

{

Tracer::trace(TRC_THREAD, Tracer::LEVEL4,

pthread_kill(_handle.thid.tt_handle(), SIGSTOP);

"Successful set Thread * into thread specific storage");

}

else

void Thread::resume()

{

Tracer::trace(TRC_THREAD, Tracer::LEVEL4,

pthread_kill(_handle.thid.tt_handle(), SIGCONT);

"ERROR: got error setting Thread * into thread specific storage");

}

PEG_METHOD_EXIT();

}

#endif

AcceptLanguages * Thread::getLanguages()

void Thread::sleep(Uint32 msec)

{

PEG_METHOD_ENTER(TRC_THREAD, "Thread::getLanguages");

Threads::sleep(msec);

Thread * curThrd = Thread::getCurrent();

if (curThrd == NULL)

return NULL;

AcceptLanguages * acceptLangs =

(AcceptLanguages *)curThrd->reference_tsd("acceptLanguages");

curThrd->dereference_tsd();

PEG_METHOD_EXIT();

return acceptLangs;

}

void Thread::setLanguages(AcceptLanguages *langs) //l10n

void Thread::join(void)

{

PEG_METHOD_ENTER(TRC_THREAD, "Thread::setLanguages");

if (!_is_detached && Threads::id(_handle.thid) != 0)

pthread_join(_handle.thid.tt_handle(), &_exit_code);

Thread * currentThrd = Thread::getCurrent();

Threads::clear(_handle.thid);

if (currentThrd != NULL)

{

// deletes the old tsd and creates a new one

currentThrd->put_tsd("acceptLanguages",

language_delete,

sizeof(AcceptLanguages *),

langs);

}

PEG_METHOD_EXIT();

void Thread::thread_init(void)

{

#if defined(PEGASUS_PLATFORM_ZOS_ZSERIES_IBM)

pthread_setintr(PTHREAD_INTR_ENABLE);

pthread_setintrtype(PTHREAD_INTR_ASYNCHRONOUS);

#else

pthread_setcancelstate(PTHREAD_CANCEL_ENABLE, NULL);

pthread_setcanceltype(PTHREAD_CANCEL_DEFERRED, NULL);

#endif

_cancel_enabled = true;

}

void Thread::clearLanguages() //l10n

void Thread::detach(void)

{

PEG_METHOD_ENTER(TRC_THREAD, "Thread::clearLanguages");

_is_detached = true;

pthread_detach(_handle.thid.tt_handle());

}

Thread * currentThrd = Thread::getCurrent();

ThreadStatus Thread::run()

if (currentThrd != NULL)

{

// deletes the old tsd

StartWrapperArg *arg = new StartWrapperArg;

currentThrd->delete_tsd("acceptLanguages");

arg->start = _start;

}

arg->arg = this;

PEG_METHOD_EXIT();

Threads::Type type = _is_detached ? Threads::DETACHED : Threads::JOINABLE;

}

int rc = Threads::create(_handle.thid, type, _start_wrapper, arg);

// l10n end

#if 0

// On Linux distributions released prior 2005, the implementation of

// two special synchronization classes for ThreadPool

// Native POSIX Thread Library returns ENOMEM instead of EAGAIN when

// there

// are no insufficient memory. Hence we are checking for both. See bug

// 386.

class timed_mutex

if ((rc == EAGAIN) || (rc == ENOMEM))

{

public:

timed_mutex(Mutex* mut, int msec)

:_mut(mut)

{

_mut->timed_lock(msec, pegasus_thread_self());

Threads::clear(_handle.thid);

}

delete arg;

~timed_mutex(void)

return PEGASUS_THREAD_INSUFFICIENT_RESOURCES;

{

_mut->unlock();

}

Mutex* _mut;

else if (rc != 0)

};

#endif

class try_mutex

{

public:

Threads::clear(_handle.thid);

try_mutex(Mutex* mut)

delete arg;

:_mut(mut)

return PEGASUS_THREAD_SETUP_FAILURE;

{

_mut->try_lock(pegasus_thread_self());

}

~try_mutex(void)

return PEGASUS_THREAD_OK;

{

_mut->unlock();

}

Mutex* _mut;

static sigset_t *block_signal_mask(sigset_t * sig)

};

class auto_int

{

public:

sigemptyset(sig);

auto_int(AtomicInt* num)

// should not be used for main()

: _int(num)

sigaddset(sig, SIGHUP);

{

sigaddset(sig, SIGINT);

_int->operator++();

// maybe useless, since KILL can't be blocked according to POSIX

}

sigaddset(sig, SIGKILL);

~auto_int(void)

{

sigaddset(sig, SIGABRT);

_int->operator--();

sigaddset(sig, SIGALRM);

sigaddset(sig, SIGPIPE);

// Note: older versions of the linux pthreads library use SIGUSR1 and SIGUSR2

// internally to stop and start threads that are blocking, the newer ones

// implement this through the kernel's real time signals

// since SIGSTOP/CONT can handle suspend()/resume() on Linux

// block them

// #if defined(PEGASUS_PLATFORM_LINUX_IX86_GNU)

// sigaddset(sig, SIGUSR1);

// sigaddset(sig, SIGUSR2);

// #endif

#ifndef PEGASUS_PLATFORM_ZOS_ZSERIES_IBM

pthread_sigmask(SIG_BLOCK, sig, NULL);

#else

sigprocmask(SIG_BLOCK, sig, NULL);

#endif

return sig;

}

AtomicInt *_int;

};

Thread::Thread(ThreadReturnType(PEGASUS_THREAD_CDECL * start) (void *), void *parameter, Boolean detached):_is_detached(detached),

AtomicInt _idle_control;

_cancel_enabled(true),

_cancelled(false),

DQueue<ThreadPool> ThreadPool::_pools(true);

_start(start), _cleanup(), _tsd(), _thread_parm(parameter), _exit_code(0)

void ThreadPool::kill_idle_threads(void)

{

static struct timeval now, last = {0, 0};

Threads::clear(_handle.thid);

}

pegasus_gettimeofday(&now);

Thread::~Thread()

if(now.tv_sec - last.tv_sec > 5)

{

_pools.lock();

ThreadPool *p = _pools.next(0);

while(p != 0)

{

try

{

p->kill_dead_threads();

join();

empty_tsd();

}

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)

: _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;

#if defined(PEGASUS_HAVE_WINDOWS_THREADS)

for(i = 0; i < initial_size; i++)

{

_link_pool(_init_thread());

}

_pools.insert_last(this);

}

ThreadPool::~ThreadPool(void)

ThreadStatus Thread::run(void)

{

PEG_METHOD_ENTER(TRC_THREAD, "Thread::~ThreadPool");

// Note: A Win32 thread ID is not the same thing as a pthread ID.

try

// Win32 threads have both a thread ID and a handle. The handle

{

// is used in the wait functions, etc.

// Set the dying flag so all thread know the destructor has been entered

// So _handle.thid is actually the thread handle.

_dying++;

unsigned threadid = 0;

// remove from the global pools list

ThreadType tt;

_pools.remove(this);

tt.handle = (HANDLE) _beginthreadex(NULL, 0, _start, this, 0, &threadid);

_handle.thid = tt;

while(_current_threads.value() > 0)

if (Threads::id(_handle.thid) == 0)

{

Thread* thread = _pool.remove_first();

if (errno == EAGAIN)

if (thread != 0)

{

_cleanupThread(thread);

return PEGASUS_THREAD_INSUFFICIENT_RESOURCES;

_current_threads--;

}

else

{

pegasus_yield();

return PEGASUS_THREAD_SETUP_FAILURE;

}

return PEGASUS_THREAD_OK;

}

catch(...)

void Thread::cancel(void)

{

}

_cancelled = true;

}

// make this static to the class

void Thread::test_cancel(void)

PEGASUS_THREAD_RETURN PEGASUS_THREAD_CDECL ThreadPool::_loop(void *parm)

{

PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::_loop");

if (_cancel_enabled && _cancelled)

Thread *myself = (Thread *)parm;

if(myself == 0)

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

exit_self(0);

"ThreadPool::_loop: Thread pointer is null");

}

PEG_METHOD_EXIT();

throw NullPointer();

}

// l10n

Boolean Thread::is_cancelled(void)

// 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 )

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

return _cancelled;

"ThreadPool::_loop: ThreadPool pointer is null");

PEG_METHOD_EXIT();

throw NullPointer();

}

Semaphore *sleep_sem = 0;

void Thread::thread_switch(void)

Semaphore *blocking_sem = 0;

struct timeval *deadlock_timer = 0;

try

{

sleep_sem = (Semaphore *)myself->reference_tsd("sleep sem");

Sleep(0);

myself->dereference_tsd();

PEGASUS_ASSERT(sleep_sem != 0);

deadlock_timer = (struct timeval *)myself->reference_tsd("deadlock timer");

myself->dereference_tsd();

PEGASUS_ASSERT(deadlock_timer != 0);

}

catch(...)

void Thread::sleep(Uint32 milliseconds)

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

Sleep(milliseconds);

"ThreadPool::_loop: Failure getting sleep_sem or deadlock_timer.");

PEGASUS_ASSERT(false);

pool->_pool.remove(myself);

pool->_current_threads--;

PEG_METHOD_EXIT();

return((PEGASUS_THREAD_RETURN)1);

}

while(1)

void Thread::join(void)

{

try

if (Threads::id(_handle.thid) != 0)

{

if (!_is_detached)

{

sleep_sem->wait();

if (!_cancelled)

{

// Emulate the unix join api. Caller sleeps until thread is

// done.

WaitForSingleObject(_handle.thid.handle, INFINITE);

}

catch(...)

else

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

// Currently this is the only way to ensure this code does

"ThreadPool::_loop: failure on sleep_sem->wait().");

// not

PEGASUS_ASSERT(false);

// hang forever.

pool->_pool.remove(myself);

if (WaitForSingleObject(_handle.thid.handle, 10000) ==

pool->_current_threads--;

WAIT_TIMEOUT)

PEG_METHOD_EXIT();

{

return((PEGASUS_THREAD_RETURN)1);

TerminateThread(_handle.thid.handle, 0);

}

// when we awaken we reside on the running queue, not the pool queue

DWORD exit_code = 0;

/* Hence no need to move the thread to the _dead queue, as the _running

GetExitCodeThread(_handle.thid.handle, &exit_code);

* queue is only dused by kill_dead_threads which makes sure that the

_exit_code = (ThreadReturnType) exit_code;

* the threads are cleaned up (unlocking any locked lists in the TSD, etc)

}

* before killing it.

PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *_work)(void *) = 0;

void *parm = 0;

Semaphore* blocking_sem = 0;

try

{

_work = (PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *)(void *)) \

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();

CloseHandle(_handle.thid.handle);

Threads::clear(_handle.thid);

}

catch(...)

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

"ThreadPool::_loop: Failure accessing work func, work parm, or blocking sem.");

PEGASUS_ASSERT(false);

pool->_pool.remove(myself);

pool->_current_threads--;

PEG_METHOD_EXIT();

return((PEGASUS_THREAD_RETURN)1);

}

if(_work == 0)

void Thread::thread_init(void)

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

_cancel_enabled = true;

"ThreadPool::_loop: work func is 0, meaning we should exit.");

break;

}

gettimeofday(deadlock_timer, NULL);

void Thread::detach(void)

try

{

PEG_TRACE_STRING(TRC_THREAD, Tracer::LEVEL4,

_is_detached = true;

"Worker started");

_work(parm);

PEG_TRACE_STRING(TRC_THREAD, Tracer::LEVEL4,

"Worker 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 (exception& e)

{

PEG_TRACE_STRING(TRC_DISCARDED_DATA, Tracer::LEVEL2,

String("Exception from _work in ThreadPool::_loop: ") +

e.what());

}

#endif

catch(...)

Thread::Thread(ThreadReturnType(PEGASUS_THREAD_CDECL * start) (void *),

void *parameter,

Boolean detached):_is_detached(detached),

_cancel_enabled(true),

_cancelled(false),

_start(start), _cleanup(), _tsd(), _thread_parm(parameter), _exit_code(0)

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

Threads::clear(_handle.thid);

"ThreadPool::_loop: execution of _work failed.");

}

// put myself back onto the available list

Thread::~Thread()

{

try

{

gettimeofday(deadlock_timer, NULL);

join();

if( blocking_sem != 0 )

empty_tsd();

blocking_sem->signal();

Boolean removed = pool->_running.remove((void *)myself);

PEGASUS_ASSERT(removed);

pool->_pool.insert_first(myself);

}

catch(...)

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

"ThreadPool::_loop: Adding thread to idle pool failed.");

PEGASUS_ASSERT(false);

pool->_current_threads--;

PEG_METHOD_EXIT();

return((PEGASUS_THREAD_RETURN)1);

}

PEG_METHOD_EXIT();

#endif /* PEGASUS_HAVE_WINDOWS_THREADS */

return((PEGASUS_THREAD_RETURN)0);

}

ThreadStatus ThreadPool::allocate_and_awaken(void *parm,

PEGASUS_THREAD_RETURN \

(PEGASUS_THREAD_CDECL *work)(void *),

Semaphore *blocking)

{

PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::allocate_and_awaken");

// 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.

// Common implementation:

//==============================================================================

try

void thread_data::default_delete(void *data)

{

if (_dying.value())

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

if (data != NULL)

"ThreadPool::allocate_and_awaken: ThreadPool is dying(1).");

::operator delete(data);

return PEGASUS_THREAD_UNAVAILABLE;

}

struct timeval start;

gettimeofday(&start, NULL);

Thread *th = 0;

th = _pool.remove_first();

if (th == 0)

void language_delete(void *data)

{

// will throw an IPCException&

if (data != NULL)

_check_deadlock(&start) ;

if(_max_threads == 0 || _current_threads < _max_threads)

{

th = _init_thread();

AutoPtr < AcceptLanguageList > al(static_cast <

AcceptLanguageList * >(data));

}

if (th == 0)

Boolean Thread::_signals_blocked = false;

{

#ifndef PEGASUS_OS_ZOS

// ATTN-DME-P3-20031103: This trace message should not be

TSDKeyType Thread::_platform_thread_key = TSDKeyType(-1);

// be labeled TRC_DISCARDED_DATA, because it does not

#else

// necessarily imply that a failure has occurred. However,

TSDKeyType Thread::_platform_thread_key;

// this label is being used temporarily to help isolate

#endif

// the cause of client timeout problems.

Boolean Thread::_key_initialized = false;

Boolean Thread::_key_error = false;

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

void Thread::cleanup_push(void (*routine) (void *), void *parm)

"ThreadPool::allocate_and_awaken: Insufficient resources: "

{

" pool = %s, running threads = %d, idle threads = %d, dead threads = %d ",

AutoPtr < cleanup_handler > cu(new cleanup_handler(routine, parm));

_key, _running.count(), _pool.count(), _dead.count());

_cleanup.insert_front(cu.get());

return PEGASUS_THREAD_INSUFFICIENT_RESOURCES;

cu.release();

return;

}

// initialize the thread data with the work function and parameters

void Thread::cleanup_pop(Boolean execute)

Tracer::trace(TRC_THREAD, Tracer::LEVEL4,

{

"Initializing thread with work function and parameters: parm = %p",

AutoPtr < cleanup_handler > cu;

parm);

try

{

th->delete_tsd("work func");

cu.reset(_cleanup.remove_front());

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");

PEGASUS_ASSERT(sleep_sem != 0);

Tracer::trace(TRC_THREAD, Tracer::LEVEL4, "Signal thread to awaken");

sleep_sem->signal();

th->dereference_tsd();

}

catch (...)

catch(IPCException &)

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

PEGASUS_ASSERT(0);

"ThreadPool::allocate_and_awaken: Operation Failed.");

PEG_METHOD_EXIT();

// ATTN: Error result has not yet been defined

return PEGASUS_THREAD_SETUP_FAILURE;

}

PEG_METHOD_EXIT();

if (execute == true)

return PEGASUS_THREAD_OK;

cu->execute();

}

// 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

// and at least once per _deallocate_wait for the pool q

Uint32 ThreadPool::kill_dead_threads(void)

//thread_data *Thread::put_tsd(const Sint8 *key, void (*delete_func)(void *), Uint32 size, void *value)

throw(IPCException)

{

PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::kill_dead_threads");

Uint32 numThreadsCleanedUp = 0;

Uint32 numIdleThreads = _pool.count();

void Thread::exit_self(ThreadReturnType exit_code)

for (Uint32 i = 0; i < numIdleThreads; i++)

{

// Do not dip below the minimum thread count

#if defined(PEGASUS_PLATFORM_HPUX_ACC) || \

if (_current_threads.value() <= (Uint32)_min_threads)

defined(PEGASUS_PLATFORM_LINUX_GENERIC_GNU)

// NOTE: pthread_exit exhibits unusual behavior on RHEL 3 U2, as

// documented in Bugzilla 3836. Where feasible, it may be advantageous

// to avoid using this function.

pthread_exit(exit_code);

#else

// execute the cleanup stack and then return

while (_cleanup.size())

{

break;

try

{

cleanup_pop(true);

}

catch(IPCException &)

Thread* thread = _pool.remove_last();

// If there are no more threads in the _pool queue, we're done.

if (thread == 0)

{

PEGASUS_ASSERT(0);

break;

}

_exit_code = exit_code;

Threads::exit(exit_code);

Threads::clear(_handle.thid);

#endif

}

struct timeval* lastActivityTime;

Sint8 Thread::initializeKey()

try

{

lastActivityTime = (struct timeval *)thread->try_reference_tsd(

PEG_METHOD_ENTER(TRC_THREAD, "Thread::initializeKey");

"deadlock timer");

if (!Thread::_key_initialized)

PEGASUS_ASSERT(lastActivityTime != 0);

}

catch (...)

{

PEGASUS_ASSERT(false);

if (Thread::_key_error)

_pool.insert_last(thread);

{

break;

Tracer::trace(TRC_THREAD, Tracer::LEVEL4,

"Thread: ERROR - thread key error");

return -1;

}

Boolean cleanupThisThread =

if (TSDKey::create(&Thread::_platform_thread_key) == 0)

check_time(lastActivityTime, &_deallocate_wait);

{

thread->dereference_tsd();

Tracer::trace(TRC_THREAD, Tracer::LEVEL4,

"Thread: able to create a thread key");

if (cleanupThisThread)

Thread::_key_initialized = true;

{

_cleanupThread(thread);

_current_threads--;

numThreadsCleanedUp++;

}

else

{

_pool.insert_first(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 numThreadsCleanedUp;

return 0;

}

void ThreadPool::_cleanupThread(Thread* th)

Thread *Thread::getCurrent()

{

PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::cleanupThread");

PEG_METHOD_ENTER(TRC_THREAD, "Thread::getCurrent");

if (Thread::initializeKey() != 0)

// Set the "work func" and "work parm" to 0 so _loop() knows to exit.

th->delete_tsd("work func");

th->put_tsd(

"work func", NULL,

sizeof(PEGASUS_THREAD_RETURN (PEGASUS_THREAD_CDECL *)(void *)),

(void *) 0);

th->delete_tsd("work parm");

th->put_tsd("work parm", NULL, sizeof(void *), 0);

// signal the thread's sleep semaphore to awaken it

Semaphore* sleep_sem = (Semaphore *)th->reference_tsd("sleep sem");

PEGASUS_ASSERT(sleep_sem != 0);

sleep_sem->signal();

th->dereference_tsd();

th->join();

delete th;

PEG_METHOD_EXIT();

}

Boolean ThreadPool::check_time(struct timeval *start, struct timeval *interval)

{

// never time out if the interval is zero

return NULL;

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 )

{

PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::_undertaker");

exit_thread((PEGASUS_THREAD_RETURN)1);

PEG_METHOD_EXIT();

return (PEGASUS_THREAD_RETURN)1;

return (Thread *) TSDKey::get_thread_specific(_platform_thread_key);

}

PEGASUS_THREAD_RETURN ThreadPool::_graveyard(Thread *t)

void Thread::setCurrent(Thread * thrd)

{

PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::_graveyard");

PEG_METHOD_ENTER(TRC_THREAD, "Thread::setCurrent");

ThreadPool *pool = (ThreadPool *)t->get_parm();

if (Thread::initializeKey() == 0)

if(pool == 0 ) {

Tracer::trace(TRC_THREAD, Tracer::LEVEL2,

"Could not obtain the pool information from the Thread.", t);

return (PEGASUS_THREAD_RETURN)1;

}

if (pool->_pool.exists(t))

{

if (pool->_pool.remove( (void *) t) != 0)

if (TSDKey::

set_thread_specific(Thread::_platform_thread_key,

(void *) thrd) == 0)

{

Tracer::trace(TRC_THREAD, Tracer::LEVEL4,

"Moving thread %p", t);

"Successful set Thread * into thread specific storage");

/* We are moving the thread to the _running queue b/c

_only_ kill_dead_threads has enough logic to take care

of cleaning up the threads.*/

pool->_running.insert_first( t );

}

else

{

Tracer::trace(TRC_THREAD, Tracer::LEVEL4,

"Could not move Thread %p from _pool to _runing queue.", t);

"ERROR: error setting Thread * into thread specific storage");

return (PEGASUS_THREAD_RETURN)1;

}

else if (pool->_running.exists(t))

{

Tracer::trace(TRC_THREAD, Tracer::LEVEL4,

"Thread %p is on _running queue. Letting kill_dead_threads take care of the problem.", t);

return (PEGASUS_THREAD_RETURN)1;

}

if (!pool->_dead.exists(t))

{

Tracer::trace(TRC_THREAD, Tracer::LEVEL2,

"Thread is not on any queue! Moving it to the running queue.");

pool->_running.insert_first( t );

}

PEG_METHOD_EXIT();

return (PEGASUS_THREAD_RETURN)0;

}

void ThreadPool::_sleep_sem_del(void *p)

AcceptLanguageList *Thread::getLanguages()

{

if(p != 0)

{

delete (Semaphore *)p;

PEG_METHOD_ENTER(TRC_THREAD, "Thread::getLanguages");

}

void ThreadPool::_check_deadlock(struct timeval *start) throw(Deadlock)

Thread *curThrd = Thread::getCurrent();

{

if (curThrd == NULL)

if (true == check_time(start, &_deadlock_detect))

return NULL;

throw Deadlock(pegasus_thread_self());

AcceptLanguageList *acceptLangs =

return;

(AcceptLanguageList *) curThrd->reference_tsd("acceptLanguages");

curThrd->dereference_tsd();

PEG_METHOD_EXIT();

return acceptLangs;

}

void Thread::setLanguages(AcceptLanguageList * langs) // l10n

{

PEG_METHOD_ENTER(TRC_THREAD, "Thread::setLanguages");

Boolean ThreadPool::_check_deadlock_no_throw(struct timeval *start)

Thread *currentThrd = Thread::getCurrent();

if (currentThrd != NULL)

{

return(check_time(start, &_deadlock_detect));

// deletes the old tsd and creates a new one

currentThrd->put_tsd("acceptLanguages",

language_delete,

sizeof (AcceptLanguageList *), langs);

}

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() // l10n

{

PEG_METHOD_ENTER(TRC_THREAD, "ThreadPool::_init_thread");

PEG_METHOD_ENTER(TRC_THREAD, "Thread::clearLanguages");

Thread *th = (Thread *) new Thread(_loop, this, false);

// 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

if (th->run() != PEGASUS_THREAD_OK)

Thread *currentThrd = Thread::getCurrent();

if (currentThrd != NULL)

{

Tracer::trace(TRC_THREAD, Tracer::LEVEL2,

// deletes the old tsd

"Could not create thread. Error code is %d.", errno);

currentThrd->delete_tsd("acceptLanguages");

delete th;

return 0;

}

_current_threads++;

pegasus_yield();

PEG_METHOD_EXIT();

return th;

}

void ThreadPool::_link_pool(Thread *th) throw(IPCException)

{

if(th == 0)

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

"ThreadPool::_link_pool: Thread pointer is null.");

throw NullPointer();

}

try

{

_pool.insert_first(th);

}

catch(...)

{

Tracer::trace(TRC_DISCARDED_DATA, Tracer::LEVEL2,

"ThreadPool::_link_pool: _pool.insert_first failed.");

}

// ATTN: not sure where to put this!

#ifdef PEGASUS_ZOS_SECURITY

bool isEnhancedSecurity = 99;

#endif

PEGASUS_NAMESPACE_END

Legend:

Removed from v.1.71.2.6
changed lines
	Added in v.1.90.2.9

No CVS admin address has been configured