108 строки
3.9 KiB
C
108 строки
3.9 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2006 The University of Tennessee and The University
|
|
* of Tennessee Research Foundation. All rights
|
|
* reserved.
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
* University of Stuttgart. All rights reserved.
|
|
* Copyright (c) 2004-2005 The Regents of the University of California.
|
|
* All rights reserved.
|
|
* Copyright (c) 2010 Cisco Systems, Inc. All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#ifndef ORTE_THREAD_H
|
|
#define ORTE_THREAD_H
|
|
|
|
#include "orte_config.h"
|
|
|
|
#include "opal/class/opal_object.h"
|
|
#if OPAL_ENABLE_DEBUG
|
|
#include "opal/util/output.h"
|
|
#endif
|
|
|
|
#include "mutex.h"
|
|
#include "condition.h"
|
|
|
|
BEGIN_C_DECLS
|
|
|
|
typedef struct {
|
|
opal_object_t super;
|
|
opal_mutex_t lock;
|
|
opal_condition_t cond;
|
|
volatile bool active;
|
|
volatile bool running;
|
|
volatile bool stop;
|
|
struct timeval rate;
|
|
} orte_thread_ctl_t;
|
|
OBJ_CLASS_DECLARATION(orte_thread_ctl_t);
|
|
|
|
ORTE_DECLSPEC extern bool orte_debug_threads;
|
|
|
|
#if OPAL_ENABLE_DEBUG
|
|
#define ORTE_ACQUIRE_THREAD(ctl) \
|
|
do { \
|
|
ORTE_THREAD_LOCK(&(ctl)->lock); \
|
|
if (orte_debug_threads) { \
|
|
opal_output(0, "Waiting for thread %s:%d", \
|
|
__FILE__, __LINE__); \
|
|
} \
|
|
while ((ctl)->active) { \
|
|
orte_condition_wait(&(ctl)->cond, &(ctl)->lock); \
|
|
} \
|
|
if (orte_debug_threads) { \
|
|
opal_output(0, "Thread obtained %s:%d", \
|
|
__FILE__, __LINE__); \
|
|
} \
|
|
(ctl)->active = true; \
|
|
} while(0);
|
|
#else
|
|
#define ORTE_ACQUIRE_THREAD(ctl) \
|
|
do { \
|
|
ORTE_THREAD_LOCK(&(ctl)->lock); \
|
|
while ((ctl)->active) { \
|
|
orte_condition_wait(&(ctl)->cond, &(ctl)->lock); \
|
|
} \
|
|
(ctl)->active = true; \
|
|
} while(0);
|
|
#endif
|
|
|
|
|
|
#if OPAL_ENABLE_DEBUG
|
|
#define ORTE_RELEASE_THREAD(ctl) \
|
|
do { \
|
|
if (orte_debug_threads) { \
|
|
opal_output(0, "Releasing thread %s:%d", \
|
|
__FILE__, __LINE__); \
|
|
} \
|
|
(ctl)->active = false; \
|
|
orte_condition_broadcast(&(ctl)->cond); \
|
|
ORTE_THREAD_UNLOCK(&(ctl)->lock); \
|
|
} while(0);
|
|
#else
|
|
#define ORTE_RELEASE_THREAD(ctl) \
|
|
do { \
|
|
(ctl)->active = false; \
|
|
orte_condition_broadcast(&(ctl)->cond); \
|
|
ORTE_THREAD_UNLOCK(&(ctl)->lock); \
|
|
} while(0);
|
|
#endif
|
|
|
|
|
|
#define ORTE_WAKEUP_THREAD(ctl) \
|
|
do { \
|
|
(ctl)->active = false; \
|
|
orte_condition_broadcast(&(ctl)->cond); \
|
|
} while(0);
|
|
|
|
|
|
END_C_DECLS
|
|
|
|
#endif /* ORTE_THREAD_H */
|