task.c

Go to the documentation of this file.

/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
/*
 * See COPYRIGHT in top-level directory.
 */
 
#include "abti.h"
 
ABTU_ret_err static int task_create(ABTI_global *p_global, ABTI_local *p_local,
                                    ABTI_pool *p_pool,
                                    void (*task_func)(void *), void *arg,
                                    ABTI_sched *p_sched, int refcount,
                                    ABTI_thread **pp_newtask);
 
int ABT_task_create(ABT_pool pool, void (*task_func)(void *), void *arg,
                    ABT_task *newtask)
{
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    /* Argobots 1.x sets newtask to NULL on error. */
    if (newtask)
        *newtask = ABT_TASK_NULL;
#endif
    ABTI_global *p_global = ABTI_global_get_global();
    ABTI_local *p_local = ABTI_local_get_local();
    ABTI_thread *p_newtask;
    ABTI_pool *p_pool = ABTI_pool_get_ptr(pool);
    ABTI_CHECK_NULL_POOL_PTR(p_pool);
 
    int refcount = (newtask != NULL) ? 1 : 0;
    int abt_errno = task_create(p_global, p_local, p_pool, task_func, arg, NULL,
                                refcount, &p_newtask);
    ABTI_CHECK_ERROR(abt_errno);
 
    /* Return value */
    if (newtask)
        *newtask = ABTI_thread_get_handle(p_newtask);
    return ABT_SUCCESS;
}
 
int ABT_task_create_on_xstream(ABT_xstream xstream, void (*task_func)(void *),
                               void *arg, ABT_task *newtask)
{
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    /* Argobots 1.x sets newtask to NULL on error. */
    if (newtask)
        *newtask = ABT_TASK_NULL;
#endif
    ABTI_global *p_global = ABTI_global_get_global();
    ABTI_local *p_local = ABTI_local_get_local();
    ABTI_thread *p_newtask;
 
    ABTI_xstream *p_xstream = ABTI_xstream_get_ptr(xstream);
    ABTI_CHECK_NULL_XSTREAM_PTR(p_xstream);
 
    /* TODO: need to consider the access type of target pool */
    ABTI_pool *p_pool = ABTI_xstream_get_main_pool(p_xstream);
    int refcount = (newtask != NULL) ? 1 : 0;
    int abt_errno = task_create(p_global, p_local, p_pool, task_func, arg, NULL,
                                refcount, &p_newtask);
    ABTI_CHECK_ERROR(abt_errno);
 
    /* Return value */
    if (newtask)
        *newtask = ABTI_thread_get_handle(p_newtask);
    return ABT_SUCCESS;
}
 
int ABT_task_revive(ABT_pool pool, void (*task_func)(void *), void *arg,
                    ABT_task *task)
{
    int abt_errno = ABT_thread_revive(pool, task_func, arg, task);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    return abt_errno;
}
 
int ABT_task_free(ABT_task *task)
{
    int abt_errno = ABT_thread_free(task);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    if (!(ABTI_IS_ERROR_CHECK_ENABLED && abt_errno != ABT_SUCCESS)) {
        *task = ABT_TASK_NULL;
    }
    return abt_errno;
}
 
int ABT_task_join(ABT_task task)
{
    int abt_errno = ABT_thread_join(task);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    return abt_errno;
}
 
int ABT_task_cancel(ABT_task task)
{
    int abt_errno = ABT_thread_cancel(task);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    return abt_errno;
}
 
int ABT_task_self(ABT_task *task)
{
    ABTI_xstream *p_local_xstream;
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    *task = ABT_TASK_NULL;
    ABTI_SETUP_GLOBAL(NULL);
    ABTI_SETUP_LOCAL_XSTREAM(&p_local_xstream);
    ABTI_CHECK_TRUE(!(p_local_xstream->p_thread->type &
                      ABTI_THREAD_TYPE_YIELDABLE),
                    ABT_ERR_INV_TASK);
#else
    ABTI_SETUP_LOCAL_XSTREAM(&p_local_xstream);
#endif
    *task = ABTI_thread_get_handle(p_local_xstream->p_thread);
    return ABT_SUCCESS;
}
 
int ABT_task_self_id(ABT_unit_id *id)
{
    ABTI_xstream *p_local_xstream;
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    ABTI_SETUP_GLOBAL(NULL);
    ABTI_SETUP_LOCAL_XSTREAM(&p_local_xstream);
    ABTI_CHECK_TRUE(!(p_local_xstream->p_thread->type &
                      ABTI_THREAD_TYPE_YIELDABLE),
                    ABT_ERR_INV_TASK);
#else
    ABTI_SETUP_LOCAL_XSTREAM(&p_local_xstream);
#endif
    *id = ABTI_thread_get_id(p_local_xstream->p_thread);
    return ABT_SUCCESS;
}
 
int ABT_task_get_xstream(ABT_task task, ABT_xstream *xstream)
{
    int abt_errno = ABT_thread_get_last_xstream(task, xstream);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    return abt_errno;
}
 
int ABT_task_get_state(ABT_task task, ABT_task_state *state)
{
    ABT_thread_state thread_state;
    int abt_errno = ABT_thread_get_state(task, &thread_state);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    if (thread_state == ABT_THREAD_STATE_READY) {
        *state = ABT_TASK_STATE_READY;
    } else if (thread_state == ABT_THREAD_STATE_TERMINATED) {
        *state = ABT_TASK_STATE_TERMINATED;
    } else {
        *state = ABT_TASK_STATE_RUNNING;
    }
    return abt_errno;
}
 
int ABT_task_get_last_pool(ABT_task task, ABT_pool *pool)
{
    int abt_errno = ABT_thread_get_last_pool(task, pool);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    return abt_errno;
}
 
int ABT_task_get_last_pool_id(ABT_task task, int *id)
{
    int abt_errno = ABT_thread_get_last_pool_id(task, id);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    return abt_errno;
}
 
int ABT_task_set_migratable(ABT_task task, ABT_bool flag)
{
    int abt_errno = ABT_thread_set_migratable(task, flag);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    return abt_errno;
}
 
int ABT_task_is_migratable(ABT_task task, ABT_bool *flag)
{
    int abt_errno = ABT_thread_is_migratable(task, flag);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    return abt_errno;
}
 
#ifdef ABT_CONFIG_USE_DOXYGEN
 
int ABT_task_is_unnamed(ABT_task task, ABT_bool *flag);
#endif
 
int ABT_task_equal(ABT_task task1, ABT_task task2, ABT_bool *result)
{
    return ABT_thread_equal(task1, task2, result);
}
 
int ABT_task_get_id(ABT_task task, ABT_unit_id *task_id)
{
    int abt_errno = ABT_thread_get_id(task, task_id);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    return abt_errno;
}
 
int ABT_task_get_arg(ABT_task task, void **arg)
{
    int abt_errno = ABT_thread_get_arg(task, arg);
    ABTI_CHECK_TRUE(abt_errno != ABT_ERR_INV_THREAD, ABT_ERR_INV_TASK);
    return abt_errno;
}
 
#ifdef ABT_CONFIG_USE_DOXYGEN
 
int ABT_task_set_specific(ABT_task task, ABT_key key, void *value);
#endif
 
#ifdef ABT_CONFIG_USE_DOXYGEN
 
int ABT_task_get_specific(ABT_task task, ABT_key key, void **value);
#endif
 
/*****************************************************************************/
/* Internal static functions                                                 */
/*****************************************************************************/
 
ABTU_ret_err static int task_create(ABTI_global *p_global, ABTI_local *p_local,
                                    ABTI_pool *p_pool,
                                    void (*task_func)(void *), void *arg,
                                    ABTI_sched *p_sched, int refcount,
                                    ABTI_thread **pp_newtask)
{
    ABTI_thread *p_newtask;
 
    /* Allocate a task object */
    int abt_errno = ABTI_mem_alloc_nythread(p_local, &p_newtask);
    ABTI_CHECK_ERROR(abt_errno);
    abt_errno = ABTI_thread_init_pool(p_global, p_newtask, p_pool);
    if (ABTI_IS_ERROR_CHECK_ENABLED && abt_errno != ABT_SUCCESS) {
        ABTI_mem_free_nythread(p_global, p_local, p_newtask);
        ABTI_HANDLE_ERROR(abt_errno);
    }
 
    p_newtask->p_last_xstream = NULL;
    p_newtask->p_parent = NULL;
    ABTD_atomic_relaxed_store_int(&p_newtask->state, ABT_THREAD_STATE_READY);
    ABTD_atomic_relaxed_store_uint32(&p_newtask->request, 0);
    p_newtask->f_thread = task_func;
    p_newtask->p_arg = arg;
    ABTD_atomic_relaxed_store_ptr(&p_newtask->p_keytable, NULL);
    p_newtask->id = ABTI_TASK_INIT_ID;
 
    /* Create a wrapper work unit */
    ABTI_thread_type thread_type =
        refcount ? (ABTI_THREAD_TYPE_THREAD | ABTI_THREAD_TYPE_NAMED)
                 : ABTI_THREAD_TYPE_THREAD;
#ifndef ABT_CONFIG_DISABLE_MIGRATION
    thread_type |= ABTI_THREAD_TYPE_MIGRATABLE;
#endif
    p_newtask->type |= thread_type;
 
    ABTI_tool_event_thread_create(p_local, p_newtask,
                                  ABTI_local_get_xstream_or_null(p_local)
                                      ? ABTI_local_get_xstream(p_local)
                                            ->p_thread
                                      : NULL,
                                  p_pool);
    LOG_DEBUG("[T%" PRIu64 "] created\n", ABTI_thread_get_id(p_newtask));
 
    /* Add this task to the scheduler's pool */
    ABTI_pool_push(p_pool, p_newtask->unit);
 
    /* Return value */
    *pp_newtask = p_newtask;
 
    return ABT_SUCCESS;
}