
Add a framework to support different types of threading models including user space thread packages such as Qthreads and argobot: https://github.com/pmodels/argobots https://github.com/Qthreads/qthreads The default threading model is pthreads. Alternate thread models are specificed at configure time using the --with-threads=X option. The framework is static. The theading model to use is selected at Open MPI configure/build time. mca/threads: implement Argobots threading layer config: fix thread configury - Add double quotations - Change Argobot to Argobots config: implement Argobots check If the poll time is too long, MPI hangs. This quick fix just sets it to 0, but it is not good for the Pthreads version. Need to find a good way to abstract it. Note that even 1 (= 1 millisecond) causes disastrous performance degradation. rework threads MCA framework configury It now works more like the ompi/mca/rte configury, modulo some edge items that are special for threading package linking, etc. qthreads module some argobots cleanup Signed-off-by: Noah Evans <noah.evans@gmail.com> Signed-off-by: Shintaro Iwasaki <siwasaki@anl.gov> Signed-off-by: Howard Pritchard <howardp@lanl.gov>
182 строки
5.8 KiB
C
182 строки
5.8 KiB
C
/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil -*- */
|
|
/*
|
|
* Copyright (c) 2004-2010 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2007 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) 2007-2017 Cisco Systems, Inc. All rights reserved
|
|
* Copyright (c) 2009 Sun Microsystems, Inc. All rights reserved.
|
|
* Copyright (c) 2012-2015 Los Alamos National Security, LLC. All rights
|
|
* reserved.
|
|
* Copyright (c) 2016-2017 IBM Corporation. All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#ifndef OMPI_INFO_H
|
|
#define OMPI_INFO_H
|
|
|
|
#include "ompi_config.h"
|
|
#include <string.h>
|
|
|
|
#include "mpi.h"
|
|
#include "opal/util/info.h"
|
|
#include "opal/class/opal_list.h"
|
|
#include "opal/class/opal_pointer_array.h"
|
|
#include "opal/mca/threads/mutex.h"
|
|
|
|
#include "opal/mca/base/mca_base_var_enum.h"
|
|
|
|
|
|
struct ompi_info_t {
|
|
struct opal_info_t super;
|
|
/**< generic list pointer which is the container for (key,value)
|
|
pairs */
|
|
int i_f_to_c_index;
|
|
/**< fortran handle for info. This is needed for translation from
|
|
fortran to C and vice versa */
|
|
/**< Mutex for thread safety */
|
|
bool i_freed;
|
|
/**< Whether this info has been freed or not */
|
|
};
|
|
typedef struct ompi_info_t ompi_info_t;
|
|
|
|
/**
|
|
* Padded struct to maintain back compatibiltiy.
|
|
* See ompi/communicator/communicator.h comments with struct ompi_communicator_t
|
|
* for full explanation why we chose the following padding construct for predefines.
|
|
*/
|
|
#define PREDEFINED_INFO_PAD 256
|
|
|
|
struct ompi_predefined_info_t {
|
|
struct ompi_info_t info;
|
|
char padding[PREDEFINED_INFO_PAD - sizeof(ompi_info_t)];
|
|
};
|
|
typedef struct ompi_predefined_info_t ompi_predefined_info_t;
|
|
|
|
BEGIN_C_DECLS
|
|
|
|
/**
|
|
* Global instance for MPI_INFO_NULL
|
|
*/
|
|
OMPI_DECLSPEC extern ompi_predefined_info_t ompi_mpi_info_null;
|
|
|
|
/**
|
|
* Symbol for Fortran 03 bindings to bind to
|
|
*/
|
|
OMPI_DECLSPEC extern ompi_predefined_info_t *ompi_mpi_info_null_addr;
|
|
|
|
/**
|
|
* \internal
|
|
* Some declarations needed to use OBJ_NEW and OBJ_DESTRUCT macros
|
|
*/
|
|
OMPI_DECLSPEC OBJ_CLASS_DECLARATION(ompi_info_t);
|
|
|
|
/**
|
|
* This function is invoked during ompi_mpi_init() and sets up
|
|
* MPI_Info handling.
|
|
*/
|
|
int ompi_mpiinfo_init(void);
|
|
|
|
/**
|
|
* This function is used to free a ompi level info
|
|
*/
|
|
int ompi_info_free (ompi_info_t **info);
|
|
|
|
|
|
/**
|
|
* This functions is called during ompi_mpi_finalize() and shuts
|
|
* down MPI_Info handling.
|
|
*/
|
|
int ompi_mpiinfo_finalize(void);
|
|
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_dup (ompi_info_t *info, ompi_info_t **newinfo);
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_dup_mpistandard (ompi_info_t *info, ompi_info_t **newinfo);
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_set (ompi_info_t *info, const char *key, const char *value);
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_set_value_enum (ompi_info_t *info, const char *key, int value,
|
|
mca_base_var_enum_t *var_enum);
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_get_bool (ompi_info_t *info, char *key, bool *value, int *flag);
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_get_value_enum (ompi_info_t *info, const char *key,
|
|
int *value, int default_value,
|
|
mca_base_var_enum_t *var_enum, int *flag);
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_get (ompi_info_t *info, const char *key, int valuelen,
|
|
char *value, int *flag);
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_delete (ompi_info_t *info, const char *key);
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_get_valuelen (ompi_info_t *info, const char *key, int *valuelen,
|
|
int *flag);
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_get_nthkey (ompi_info_t *info, int n, char *key);
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_value_to_bool(char *value, bool *interp);
|
|
/**
|
|
* ompi_info_foo() wrapper around various opal_info_foo() calls
|
|
*/
|
|
OMPI_DECLSPEC int ompi_info_get_nkeys(ompi_info_t *info, int *nkeys);
|
|
|
|
|
|
END_C_DECLS
|
|
|
|
/**
|
|
* Return whether this info has been freed already or not.
|
|
*
|
|
* @param info Pointer to opal_info_t object.
|
|
*
|
|
* @retval true If the info has already been freed
|
|
* @retval false If the info has not yet been freed
|
|
*
|
|
* If the info has been freed, return true. This will likely only
|
|
* happen in a reliable manner if opal_debug_handle_never_free is
|
|
* true, in which case an extra OBJ_RETAIN is set on the object during
|
|
* OBJ_NEW, meaning that the user will never be able to actually free
|
|
* the underlying object. It's a good way to find out if a process is
|
|
* unintentionally using a freed handle.
|
|
*/
|
|
static inline bool ompi_info_is_freed(ompi_info_t *info)
|
|
{
|
|
return info->i_freed;
|
|
}
|
|
|
|
|
|
|
|
#endif /* OMPI_INFO_H */
|