309ff000a6
linked into libmpi * add --enable-mca-direct to specify components that should be directly called (instead of going through component structs and the like). The components and component frameworks must explicitly support this. Currently, only the TEG PML does so. * Updated all the calls to the PML to use a macro so that they can either be direct called or called through function pointer interfaces (aka the component infrastructure) This commit was SVN r5291.
50 строки
1.3 KiB
C
50 строки
1.3 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University.
|
|
* All rights reserved.
|
|
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
|
|
* 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$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
#include "ompi_config.h"
|
|
#include <stdio.h>
|
|
|
|
#include "mpi.h"
|
|
#include "mpi/c/bindings.h"
|
|
#include "mca/pml/pml.h"
|
|
|
|
|
|
#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES
|
|
#pragma weak MPI_Startall = PMPI_Startall
|
|
#endif
|
|
|
|
#if OMPI_PROFILING_DEFINES
|
|
#include "mpi/c/profile/defines.h"
|
|
#endif
|
|
|
|
static const char FUNC_NAME[] = "MPI_Startall";
|
|
|
|
|
|
int MPI_Startall(int count, MPI_Request *requests)
|
|
{
|
|
if ( MPI_PARAM_CHECK ) {
|
|
int rc = MPI_SUCCESS;
|
|
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
|
|
if (NULL == requests) {
|
|
rc = MPI_ERR_REQUEST;
|
|
} else if (count < 0) {
|
|
rc = MPI_ERR_ARG;
|
|
}
|
|
OMPI_ERRHANDLER_CHECK(rc, MPI_COMM_WORLD, rc, FUNC_NAME);
|
|
}
|
|
return MCA_PML_CALL(start(count, requests));
|
|
}
|
|
|