80 строки
2.8 KiB
C
80 строки
2.8 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2005 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$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
/**
|
|
* @file
|
|
*/
|
|
#ifndef MCA_PML_BASE_REQUEST_H
|
|
#define MCA_PML_BASE_REQUEST_H
|
|
|
|
#include "ompi/class/ompi_free_list.h"
|
|
#include "ompi/request/request.h"
|
|
|
|
#if defined(c_plusplus) || defined(__cplusplus)
|
|
extern "C" {
|
|
#endif
|
|
OMPI_DECLSPEC extern opal_class_t mca_pml_base_request_t_class;
|
|
|
|
/**
|
|
* Type of request.
|
|
*/
|
|
typedef enum {
|
|
MCA_PML_REQUEST_NULL,
|
|
MCA_PML_REQUEST_SEND,
|
|
MCA_PML_REQUEST_RECV,
|
|
MCA_PML_REQUEST_IPROBE,
|
|
MCA_PML_REQUEST_PROBE
|
|
} mca_pml_base_request_type_t;
|
|
|
|
|
|
/**
|
|
* Base type for PML P2P requests
|
|
*/
|
|
struct mca_pml_base_request_t {
|
|
ompi_request_t req_ompi; /**< base request */
|
|
void *req_addr; /**< pointer to application buffer */
|
|
size_t req_count; /**< count of user datatype elements */
|
|
int32_t req_peer; /**< peer process - rank w/in this communicator */
|
|
int32_t req_tag; /**< user defined tag */
|
|
struct ompi_communicator_t *req_comm; /**< communicator pointer */
|
|
struct ompi_proc_t* req_proc; /**< peer process */
|
|
uint64_t req_sequence; /**< sequence number for MPI pt-2-pt ordering */
|
|
struct ompi_datatype_t *req_datatype; /**< pointer to data type */
|
|
mca_pml_base_request_type_t req_type; /**< MPI request type - used for test */
|
|
volatile bool req_pml_complete; /**< flag indicating if the pt-2-pt layer is done with this request */
|
|
volatile bool req_free_called; /**< flag indicating if the user has freed this request */
|
|
};
|
|
typedef struct mca_pml_base_request_t mca_pml_base_request_t;
|
|
|
|
/*
|
|
* Mark the MPI request as completed and trigger the condition if required.
|
|
*/
|
|
#define MCA_PML_BASE_REQUEST_MPI_COMPLETE( request ) \
|
|
do { \
|
|
(request)->req_complete = true; \
|
|
ompi_request_completed++; \
|
|
if(ompi_request_waiting) { \
|
|
opal_condition_broadcast(&ompi_request_cond); \
|
|
} \
|
|
} while(0)
|
|
|
|
#if defined(c_plusplus) || defined(__cplusplus)
|
|
}
|
|
#endif
|
|
#endif
|
|
|