sched.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 sched_create(ABT_sched_def *def, int num_pools,
                                     ABT_pool *pools,
                                     ABTI_sched_config *p_config,
                                     ABT_bool def_automatic,
                                     ABTI_sched **pp_newsched);
static inline ABTI_sched_kind sched_get_kind(ABT_sched_def *def);
#ifdef ABT_CONFIG_USE_DEBUG_LOG
static inline uint64_t sched_get_new_id(void);
#endif
 
int ABT_sched_create(ABT_sched_def *def, int num_pools, ABT_pool *pools,
                     ABT_sched_config config, ABT_sched *newsched)
{
    ABTI_sched *p_sched;
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    *newsched = ABT_SCHED_NULL;
    ABTI_CHECK_TRUE(newsched != NULL, ABT_ERR_SCHED);
#endif
    ABTI_CHECK_TRUE(num_pools >= 0, ABT_ERR_INV_ARG);
 
    /* The default automatic is different from ABT_sched_create_basic(). */
    const ABT_bool def_automatic = ABT_FALSE;
    ABTI_sched_config *p_config = ABTI_sched_config_get_ptr(config);
    int abt_errno =
        sched_create(def, num_pools, pools, p_config, def_automatic, &p_sched);
    ABTI_CHECK_ERROR(abt_errno);
 
    /* Return value */
    *newsched = ABTI_sched_get_handle(p_sched);
    return ABT_SUCCESS;
}
 
int ABT_sched_create_basic(ABT_sched_predef predef, int num_pools,
                           ABT_pool *pools, ABT_sched_config config,
                           ABT_sched *newsched)
{
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    *newsched = ABT_SCHED_NULL;
    ABTI_CHECK_TRUE(newsched != NULL, ABT_ERR_SCHED);
#endif
    ABTI_CHECK_TRUE(num_pools >= 0, ABT_ERR_INV_ARG);
 
    ABTI_sched *p_newsched;
    ABTI_sched_config *p_config = ABTI_sched_config_get_ptr(config);
    int abt_errno = ABTI_sched_create_basic(predef, num_pools, pools, p_config,
                                            &p_newsched);
    ABTI_CHECK_ERROR(abt_errno);
    *newsched = ABTI_sched_get_handle(p_newsched);
    return ABT_SUCCESS;
}
 
int ABT_sched_free(ABT_sched *sched)
{
    ABTI_global *p_global;
    ABTI_SETUP_GLOBAL(&p_global);
    ABTI_local *p_local = ABTI_local_get_local();
    ABTI_sched *p_sched = ABTI_sched_get_ptr(*sched);
    ABTI_CHECK_NULL_SCHED_PTR(p_sched);
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    ABTI_CHECK_TRUE(p_sched->used == ABTI_SCHED_NOT_USED, ABT_ERR_SCHED);
#endif
 
    /* Free the scheduler */
    ABTI_sched_free(p_global, p_local, p_sched, ABT_FALSE);
 
    /* Return value */
    *sched = ABT_SCHED_NULL;
    return ABT_SUCCESS;
}
 
int ABT_sched_get_num_pools(ABT_sched sched, int *num_pools)
{
    ABTI_sched *p_sched = ABTI_sched_get_ptr(sched);
    ABTI_CHECK_NULL_SCHED_PTR(p_sched);
 
    *num_pools = p_sched->num_pools;
    return ABT_SUCCESS;
}
 
int ABT_sched_get_pools(ABT_sched sched, int max_pools, int idx,
                        ABT_pool *pools)
{
    ABTI_sched *p_sched = ABTI_sched_get_ptr(sched);
    ABTI_CHECK_NULL_SCHED_PTR(p_sched);
    ABTI_CHECK_TRUE(max_pools >= 0, ABT_ERR_INV_ARG);
    ABTI_CHECK_TRUE(idx >= 0, ABT_ERR_INV_ARG);
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    ABTI_CHECK_TRUE((size_t)(idx + max_pools) <= p_sched->num_pools,
                    ABT_ERR_SCHED);
#endif
 
    size_t p;
    for (p = idx; p < (size_t)idx + max_pools; p++) {
        if (p >= p_sched->num_pools) {
            /* Out of range. */
            break;
        }
        pools[p - idx] = p_sched->pools[p];
    }
    return ABT_SUCCESS;
}
 
int ABT_sched_finish(ABT_sched sched)
{
    ABTI_sched *p_sched = ABTI_sched_get_ptr(sched);
    ABTI_CHECK_NULL_SCHED_PTR(p_sched);
 
    ABTI_sched_finish(p_sched);
    return ABT_SUCCESS;
}
 
int ABT_sched_exit(ABT_sched sched)
{
    ABTI_sched *p_sched = ABTI_sched_get_ptr(sched);
    ABTI_CHECK_NULL_SCHED_PTR(p_sched);
 
    ABTI_sched_exit(p_sched);
    return ABT_SUCCESS;
}
 
int ABT_sched_has_to_stop(ABT_sched sched, ABT_bool *stop)
{
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    *stop = ABT_FALSE;
#endif
    ABTI_local *p_local = ABTI_local_get_local();
    ABTI_sched *p_sched = ABTI_sched_get_ptr(sched);
    ABTI_CHECK_NULL_SCHED_PTR(p_sched);
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    ABTI_CHECK_TRUE(p_local, ABT_ERR_INV_XSTREAM);
#endif
 
    *stop = ABTI_sched_has_to_stop(&p_local, p_sched);
    return ABT_SUCCESS;
}
 
int ABT_sched_set_data(ABT_sched sched, void *data)
{
    ABTI_sched *p_sched = ABTI_sched_get_ptr(sched);
    ABTI_CHECK_NULL_SCHED_PTR(p_sched);
 
    p_sched->data = data;
    return ABT_SUCCESS;
}
 
int ABT_sched_get_data(ABT_sched sched, void **data)
{
    ABTI_sched *p_sched = ABTI_sched_get_ptr(sched);
    ABTI_CHECK_NULL_SCHED_PTR(p_sched);
 
    *data = p_sched->data;
    return ABT_SUCCESS;
}
int ABT_sched_get_size(ABT_sched sched, size_t *size)
{
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    *size = 0;
#endif
 
    ABTI_sched *p_sched = ABTI_sched_get_ptr(sched);
    ABTI_CHECK_NULL_SCHED_PTR(p_sched);
 
    *size = ABTI_sched_get_size(p_sched);
    return ABT_SUCCESS;
}
 
int ABT_sched_get_total_size(ABT_sched sched, size_t *size)
{
#ifndef ABT_CONFIG_ENABLE_VER_20_API
    *size = 0;
#endif
 
    ABTI_sched *p_sched = ABTI_sched_get_ptr(sched);
    ABTI_CHECK_NULL_SCHED_PTR(p_sched);
 
    *size = ABTI_sched_get_total_size(p_sched);
    return ABT_SUCCESS;
}
 
/*****************************************************************************/
/* Private APIs                                                              */
/*****************************************************************************/
 
size_t ABTI_sched_get_size(ABTI_sched *p_sched)
{
    size_t pool_size = 0, p;
 
    for (p = 0; p < p_sched->num_pools; p++) {
        ABTI_pool *p_pool = ABTI_pool_get_ptr(p_sched->pools[p]);
        pool_size += ABTI_pool_get_size(p_pool);
    }
 
    return pool_size;
}
 
void ABTI_sched_finish(ABTI_sched *p_sched)
{
    ABTI_sched_set_request(p_sched, ABTI_SCHED_REQ_FINISH);
}
 
void ABTI_sched_exit(ABTI_sched *p_sched)
{
    ABTI_sched_set_request(p_sched, ABTI_SCHED_REQ_EXIT);
}
 
ABTU_ret_err int ABTI_sched_create_basic(ABT_sched_predef predef, int num_pools,
                                         ABT_pool *pools,
                                         ABTI_sched_config *p_config,
                                         ABTI_sched **pp_newsched)
{
    int abt_errno;
    ABT_pool_kind kind = ABT_POOL_FIFO;
    /* The default value is different from ABT_sched_create. */
    const ABT_bool def_automatic = ABT_TRUE;
    /* Always use MPMC pools */
    const ABT_pool_access def_access = ABT_POOL_ACCESS_MPMC;
 
    /* A pool array is provided, predef has to be compatible */
    if (pools != NULL) {
        /* Copy of the contents of pools */
        ABT_pool *pool_list;
        if (num_pools > 0) {
            abt_errno =
                ABTU_malloc(num_pools * sizeof(ABT_pool), (void **)&pool_list);
            ABTI_CHECK_ERROR(abt_errno);
 
            int p;
            for (p = 0; p < num_pools; p++) {
                if (pools[p] == ABT_POOL_NULL) {
                    ABTI_pool *p_newpool;
                    abt_errno =
                        ABTI_pool_create_basic(ABT_POOL_FIFO, def_access,
                                               ABT_TRUE, &p_newpool);
                    if (ABTI_IS_ERROR_CHECK_ENABLED &&
                        abt_errno != ABT_SUCCESS) {
                        /* Remove pools that are already created. */
                        int i;
                        for (i = 0; i < p; i++) {
                            if (pools[i] != ABT_POOL_NULL)
                                continue; /* User given pool. */
                            /* Free a pool created in this function. */
                            ABTI_pool_free(ABTI_pool_get_ptr(pool_list[i]));
                        }
                        ABTU_free(pool_list);
                        ABTI_HANDLE_ERROR(abt_errno);
                    }
                    pool_list[p] = ABTI_pool_get_handle(p_newpool);
                } else {
                    pool_list[p] = pools[p];
                }
            }
        } else {
            /* TODO: Check if it works. */
            pool_list = NULL;
        }
 
        /* Creation of the scheduler */
        switch (predef) {
            case ABT_SCHED_DEFAULT:
            case ABT_SCHED_BASIC:
                abt_errno = sched_create(ABTI_sched_get_basic_def(), num_pools,
                                         pool_list, p_config, def_automatic,
                                         pp_newsched);
                break;
            case ABT_SCHED_BASIC_WAIT:
                abt_errno = sched_create(ABTI_sched_get_basic_wait_def(),
                                         num_pools, pool_list, p_config,
                                         def_automatic, pp_newsched);
                break;
            case ABT_SCHED_PRIO:
                abt_errno = sched_create(ABTI_sched_get_prio_def(), num_pools,
                                         pool_list, p_config, def_automatic,
                                         pp_newsched);
                break;
            case ABT_SCHED_RANDWS:
                abt_errno = sched_create(ABTI_sched_get_randws_def(), num_pools,
                                         pool_list, p_config, def_automatic,
                                         pp_newsched);
                break;
            default:
                abt_errno = ABT_ERR_INV_SCHED_PREDEF;
                break;
        }
        if (ABTI_IS_ERROR_CHECK_ENABLED && abt_errno != ABT_SUCCESS) {
            /* Remove pools that are already created. */
            int i;
            for (i = 0; i < num_pools; i++) {
                if (pools[i] != ABT_POOL_NULL)
                    continue; /* User given pool. */
                /* Free a pool created in this function. */
                ABTI_pool_free(ABTI_pool_get_ptr(pool_list[i]));
            }
            ABTU_free(pool_list);
            ABTI_HANDLE_ERROR(abt_errno);
        }
        ABTU_free(pool_list);
    } else { /* No pool array is provided, predef has to be compatible */
        /* Set the number of pools */
        switch (predef) {
            case ABT_SCHED_DEFAULT:
            case ABT_SCHED_BASIC:
                num_pools = 1;
                break;
            case ABT_SCHED_BASIC_WAIT:
                /* FIFO_WAIT is default pool for use with BASIC_WAIT sched */
                kind = ABT_POOL_FIFO_WAIT;
                num_pools = 1;
                break;
            case ABT_SCHED_PRIO:
                num_pools = ABTI_SCHED_NUM_PRIO;
                break;
            case ABT_SCHED_RANDWS:
                num_pools = 1;
                break;
            default:
                abt_errno = ABT_ERR_INV_SCHED_PREDEF;
                ABTI_CHECK_ERROR(abt_errno);
                break;
        }
 
        /* Creation of the pools */
        /* To avoid the malloc overhead, we use a stack array. */
        ABT_pool pool_list[ABTI_SCHED_NUM_PRIO];
        int p;
        /* ICC 19 warns an unused variable in the following error path.  To
         * suppress the warning, let's initialize the array member here. */
        for (p = 0; p < num_pools; p++)
            pool_list[p] = ABT_POOL_NULL;
        for (p = 0; p < num_pools; p++) {
            ABTI_pool *p_newpool;
            abt_errno =
                ABTI_pool_create_basic(kind, def_access, ABT_TRUE, &p_newpool);
            if (ABTI_IS_ERROR_CHECK_ENABLED && abt_errno != ABT_SUCCESS) {
                /* Remove pools that are already created. */
                int i;
                for (i = 0; i < p; i++) {
                    /* Free a pool created in this function. */
                    ABTI_pool_free(ABTI_pool_get_ptr(pool_list[i]));
                }
                ABTI_HANDLE_ERROR(abt_errno);
            }
            pool_list[p] = ABTI_pool_get_handle(p_newpool);
        }
 
        /* Creation of the scheduler */
        switch (predef) {
            case ABT_SCHED_DEFAULT:
            case ABT_SCHED_BASIC:
                abt_errno = sched_create(ABTI_sched_get_basic_def(), num_pools,
                                         pool_list, p_config, def_automatic,
                                         pp_newsched);
                break;
            case ABT_SCHED_BASIC_WAIT:
                abt_errno = sched_create(ABTI_sched_get_basic_wait_def(),
                                         num_pools, pool_list, p_config,
                                         def_automatic, pp_newsched);
                break;
            case ABT_SCHED_PRIO:
                abt_errno = sched_create(ABTI_sched_get_prio_def(), num_pools,
                                         pool_list, p_config, def_automatic,
                                         pp_newsched);
                break;
            case ABT_SCHED_RANDWS:
                abt_errno = sched_create(ABTI_sched_get_randws_def(), num_pools,
                                         pool_list, p_config, def_automatic,
                                         pp_newsched);
                break;
            default:
                abt_errno = ABT_ERR_INV_SCHED_PREDEF;
                break;
        }
        if (ABTI_IS_ERROR_CHECK_ENABLED && abt_errno != ABT_SUCCESS) {
            /* Remove pools that are already created. */
            int i;
            for (i = 0; i < num_pools; i++) {
                /* Free a pool created in this function. */
                ABTI_pool_free(ABTI_pool_get_ptr(pool_list[i]));
            }
            ABTI_HANDLE_ERROR(abt_errno);
        }
    }
    return ABT_SUCCESS;
}
 
void ABTI_sched_free(ABTI_global *p_global, ABTI_local *p_local,
                     ABTI_sched *p_sched, ABT_bool force_free)
{
    ABTI_ASSERT(p_sched->used == ABTI_SCHED_NOT_USED);
    /* Free the scheduler first. */
    if (p_sched->free) {
        p_sched->free(ABTI_sched_get_handle(p_sched));
    }
    /* If sched is a default provided one, it should free its pool here.
     * Otherwise, freeing the pool is the user's responsibility. */
    size_t p;
    for (p = 0; p < p_sched->num_pools; p++) {
        ABTI_pool *p_pool = ABTI_pool_get_ptr(p_sched->pools[p]);
        if (!p_pool) {
            /* p_pool can be set to NULL when that p_pool must be preserved,
             * for example, when this function is called because
             * ABT_xstream_create_basic() fails. */
            continue;
        }
        int32_t num_scheds = ABTI_pool_release(p_pool);
        if ((p_pool->automatic == ABT_TRUE && num_scheds == 0) || force_free) {
            ABTI_pool_free(p_pool);
        }
    }
    ABTU_free(p_sched->pools);
 
    /* Free the associated work unit */
    if (p_sched->p_ythread) {
        ABTI_thread_free(p_global, p_local, &p_sched->p_ythread->thread);
    }
 
    LOG_DEBUG("[S%" PRIu64 "] freed\n", p_sched->id);
    p_sched->data = NULL;
 
    ABTU_free(p_sched);
}
 
ABT_bool ABTI_sched_has_to_stop(ABTI_local **pp_local, ABTI_sched *p_sched)
{
    /* Check exit request */
    if (ABTD_atomic_acquire_load_uint32(&p_sched->request) &
        ABTI_SCHED_REQ_EXIT) {
        return ABT_TRUE;
    }
 
    if (ABTI_sched_get_effective_size(*pp_local, p_sched) == 0) {
        if (ABTD_atomic_acquire_load_uint32(&p_sched->request) &
            (ABTI_SCHED_REQ_FINISH | ABTI_SCHED_REQ_REPLACE)) {
            /* Check join request */
            if (ABTI_sched_get_effective_size(*pp_local, p_sched) == 0)
                return ABT_TRUE;
        } else if (p_sched->used == ABTI_SCHED_IN_POOL) {
            /* Let's finish it anyway.
             * TODO: think about the condition. */
            return ABT_TRUE;
        }
    }
    return ABT_FALSE;
}
 
/* Get the pool suitable for receiving a migrating thread */
ABTU_ret_err int ABTI_sched_get_migration_pool(ABTI_sched *p_sched,
                                               ABTI_pool *source_pool,
                                               ABTI_pool **pp_pool)
{
    /* Find a pool.  If get_migr_pool is not defined, we pick the first pool */
    if (p_sched->get_migr_pool == NULL) {
        ABTI_CHECK_TRUE(p_sched->num_pools > 0, ABT_ERR_MIGRATION_TARGET);
        *pp_pool = ABTI_pool_get_ptr(p_sched->pools[0]);
    } else {
        ABT_sched sched = ABTI_sched_get_handle(p_sched);
        ABTI_pool *p_pool = ABTI_pool_get_ptr(p_sched->get_migr_pool(sched));
        ABTI_CHECK_TRUE(p_pool, ABT_ERR_MIGRATION_TARGET);
        *pp_pool = p_pool;
    }
    return ABT_SUCCESS;
}
 
size_t ABTI_sched_get_total_size(ABTI_sched *p_sched)
{
    size_t pool_size = 0, p;
 
    for (p = 0; p < p_sched->num_pools; p++) {
        ABTI_pool *p_pool = ABTI_pool_get_ptr(p_sched->pools[p]);
        pool_size += ABTI_pool_get_total_size(p_pool);
    }
 
    return pool_size;
}
 
/* Compared to \c ABTI_sched_get_total_size, ABTI_sched_get_effective_size does
 * not count the number of blocked ULTs if a pool has more than one consumer or
 * the caller ES is not the latest consumer. This is necessary when the ES
 * associated with the target scheduler has to be joined and the pool is shared
 * between different schedulers associated with different ESs. */
size_t ABTI_sched_get_effective_size(ABTI_local *p_local, ABTI_sched *p_sched)
{
    size_t pool_size = 0, p;
 
    for (p = 0; p < p_sched->num_pools; p++) {
        ABT_pool pool = p_sched->pools[p];
        ABTI_pool *p_pool = ABTI_pool_get_ptr(pool);
        pool_size += ABTI_pool_get_size(p_pool);
        switch (p_pool->access) {
            case ABT_POOL_ACCESS_PRIV:
                pool_size +=
                    ABTD_atomic_acquire_load_int32(&p_pool->num_blocked);
                break;
            case ABT_POOL_ACCESS_SPSC:
            case ABT_POOL_ACCESS_MPSC:
            case ABT_POOL_ACCESS_SPMC:
            case ABT_POOL_ACCESS_MPMC:
                if (ABTD_atomic_acquire_load_int32(&p_pool->num_scheds) == 1) {
                    pool_size +=
                        ABTD_atomic_acquire_load_int32(&p_pool->num_blocked);
                }
                break;
            default:
                break;
        }
    }
 
    return pool_size;
}
 
void ABTI_sched_print(ABTI_sched *p_sched, FILE *p_os, int indent,
                      ABT_bool print_sub)
{
    if (p_sched == NULL) {
        fprintf(p_os, "%*s== NULL SCHED ==\n", indent, "");
    } else {
        ABTI_sched_kind kind;
        const char *kind_str, *used;
 
        kind = p_sched->kind;
        if (kind == sched_get_kind(ABTI_sched_get_basic_def())) {
            kind_str = "BASIC";
        } else if (kind == sched_get_kind(ABTI_sched_get_basic_wait_def())) {
            kind_str = "BASIC_WAIT";
        } else if (kind == sched_get_kind(ABTI_sched_get_prio_def())) {
            kind_str = "PRIO";
        } else if (kind == sched_get_kind(ABTI_sched_get_randws_def())) {
            kind_str = "RANDWS";
        } else {
            kind_str = "USER";
        }
 
        switch (p_sched->used) {
            case ABTI_SCHED_NOT_USED:
                used = "NOT_USED";
                break;
            case ABTI_SCHED_MAIN:
                used = "MAIN";
                break;
            case ABTI_SCHED_IN_POOL:
                used = "IN_POOL";
                break;
            default:
                used = "UNKNOWN";
                break;
        }
 
        fprintf(p_os,
                "%*s== SCHED (%p) ==\n"
#ifdef ABT_CONFIG_USE_DEBUG_LOG
                "%*sid       : %" PRIu64 "\n"
#endif
                "%*skind     : %" PRIxPTR " (%s)\n"
                "%*sused     : %s\n"
                "%*sautomatic: %s\n"
                "%*srequest  : 0x%x\n"
                "%*snum_pools: %zu\n"
                "%*ssize     : %zu\n"
                "%*stot_size : %zu\n"
                "%*sthread   : %p\n"
                "%*sdata     : %p\n",
                indent, "", (void *)p_sched,
#ifdef ABT_CONFIG_USE_DEBUG_LOG
                indent, "", p_sched->id,
#endif
                indent, "", p_sched->kind, kind_str, indent, "", used, indent,
                "", (p_sched->automatic == ABT_TRUE) ? "TRUE" : "FALSE", indent,
                "", ABTD_atomic_acquire_load_uint32(&p_sched->request), indent,
                "", p_sched->num_pools, indent, "",
                ABTI_sched_get_size(p_sched), indent, "",
                ABTI_sched_get_total_size(p_sched), indent, "",
                (void *)p_sched->p_ythread, indent, "", p_sched->data);
        if (print_sub == ABT_TRUE) {
            size_t i;
            for (i = 0; i < p_sched->num_pools; i++) {
                ABTI_pool *p_pool = ABTI_pool_get_ptr(p_sched->pools[i]);
                ABTI_pool_print(p_pool, p_os, indent + 2);
            }
        }
    }
    fflush(p_os);
}
 
static ABTD_atomic_uint64 g_sched_id = ABTD_ATOMIC_UINT64_STATIC_INITIALIZER(0);
void ABTI_sched_reset_id(void)
{
    ABTD_atomic_relaxed_store_uint64(&g_sched_id, 0);
}
 
/*****************************************************************************/
/* Internal static functions                                                 */
/*****************************************************************************/
 
static inline ABTI_sched_kind sched_get_kind(ABT_sched_def *def)
{
    return (ABTI_sched_kind)def;
}
 
ABTU_ret_err static int sched_create(ABT_sched_def *def, int num_pools,
                                     ABT_pool *pools,
                                     ABTI_sched_config *p_config,
                                     ABT_bool def_automatic,
                                     ABTI_sched **pp_newsched)
{
    ABTI_sched *p_sched;
    int p, abt_errno;
 
    abt_errno = ABTU_malloc(sizeof(ABTI_sched), (void **)&p_sched);
    ABTI_CHECK_ERROR(abt_errno);
 
    /* We read the config and set the configured parameters */
    ABT_bool automatic = def_automatic;
    if (p_config) {
        int automatic_val = 0;
        abt_errno =
            ABTI_sched_config_read(p_config, ABT_sched_config_automatic.idx,
                                   &automatic_val);
        if (abt_errno == ABT_SUCCESS) {
            automatic = (automatic_val == 0) ? ABT_FALSE : ABT_TRUE;
        }
    }
 
    /* Copy of the contents of pools */
    ABT_pool *pool_list;
    abt_errno = ABTU_malloc(num_pools * sizeof(ABT_pool), (void **)&pool_list);
    if (ABTI_IS_ERROR_CHECK_ENABLED && abt_errno != ABT_SUCCESS) {
        ABTU_free(p_sched);
        return abt_errno;
    }
    for (p = 0; p < num_pools; p++) {
        if (pools[p] == ABT_POOL_NULL) {
            ABTI_pool *p_newpool;
            abt_errno =
                ABTI_pool_create_basic(ABT_POOL_FIFO, ABT_POOL_ACCESS_MPSC,
                                       ABT_TRUE, &p_newpool);
            if (ABTI_IS_ERROR_CHECK_ENABLED && abt_errno != ABT_SUCCESS) {
                int i;
                for (i = 0; i < p; i++) {
                    if (pools[i] == ABT_POOL_NULL)
                        ABTI_pool_free(ABTI_pool_get_ptr(pool_list[i]));
                }
                ABTU_free(pool_list);
                ABTU_free(p_sched);
                return abt_errno;
            }
            pool_list[p] = ABTI_pool_get_handle(p_newpool);
        } else {
            pool_list[p] = pools[p];
        }
    }
    /* Check if the pools are available */
    for (p = 0; p < num_pools; p++) {
        ABTI_pool_retain(ABTI_pool_get_ptr(pool_list[p]));
    }
 
    p_sched->used = ABTI_SCHED_NOT_USED;
    p_sched->automatic = automatic;
    p_sched->kind = sched_get_kind(def);
    p_sched->p_replace_sched = NULL;
    p_sched->p_replace_waiter = NULL;
    ABTD_atomic_relaxed_store_uint32(&p_sched->request, 0);
    p_sched->pools = pool_list;
    p_sched->num_pools = num_pools;
    p_sched->type = def->type;
    p_sched->p_ythread = NULL;
    p_sched->data = NULL;
 
    p_sched->init = def->init;
    p_sched->run = def->run;
    p_sched->free = def->free;
    p_sched->get_migr_pool = def->get_migr_pool;
 
#ifdef ABT_CONFIG_USE_DEBUG_LOG
    p_sched->id = sched_get_new_id();
#endif
    LOG_DEBUG("[S%" PRIu64 "] created\n", p_sched->id);
 
    /* Return value */
    ABT_sched newsched = ABTI_sched_get_handle(p_sched);
 
    /* Specific initialization */
    if (p_sched->init) {
        ABT_sched_config config = ABTI_sched_config_get_handle(p_config);
        abt_errno = p_sched->init(newsched, config);
        if (ABTI_IS_ERROR_CHECK_ENABLED && abt_errno != ABT_SUCCESS) {
            for (p = 0; p < num_pools; p++) {
                if (pools[p] == ABT_POOL_NULL) {
                    ABTI_pool_free(ABTI_pool_get_ptr(pool_list[p]));
                } else {
                    ABTI_pool_release(ABTI_pool_get_ptr(pool_list[p]));
                }
            }
            ABTU_free(pool_list);
            ABTU_free(p_sched);
            return abt_errno;
        }
    }
 
    *pp_newsched = p_sched;
 
    return ABT_SUCCESS;
}
 
#ifdef ABT_CONFIG_USE_DEBUG_LOG
static inline uint64_t sched_get_new_id(void)
{
    return ABTD_atomic_fetch_add_uint64(&g_sched_id, 1);
}
#endif