openmpi/src/mca/ptl/base/ptl_base_comm.h

#ifndef MCA_PML_COMM_H
#define MCA_PML_COMM_H

#include "lam/threads/mutex.h"
#include "lam/threads/condition.h"
#include "mca/mpi/ptl/ptl.h"
#include "lam/lfc/lam_list.h"

/*
 *  Structure associated w/ lam_communicator_t that contains data 
 *  specific to the PML. 
 */

extern lam_class_t mca_pml_comm_t_class;

struct mca_pml_comm_t {
    lam_object_t super;

    /* send message sequence-number support - sender side */
    mca_ptl_base_sequence_t *c_msg_seq;

    /* send message sequence-number support - receiver side */
    mca_ptl_base_sequence_t *c_next_msg_seq;

    /* matching lock */
    lam_mutex_t *c_matching_lock;

    /* unexpected fragments queues */
    lam_list_t *c_unexpected_frags;

    /* these locks are needed to avoid a probe interfering with a match */
    lam_mutex_t *c_unexpected_frags_lock;

    /* out-of-order fragments queues */
    lam_list_t *c_frags_cant_match;

    /* queues of unmatched specific (source process specified) receives
     * sorted by source process */
    lam_list_t *c_specific_receives;

    /* queue of unmatched wild (source process not specified) receives
     * */
    lam_list_t c_wild_receives;

    /* protect access to wild receives */
    lam_mutex_t c_wild_lock;
};
typedef struct mca_pml_comm_t mca_pml_comm_t;


extern int mca_pml_ptl_comm_init_size(struct mca_pml_comm_t*, size_t);

static inline mca_ptl_base_sequence_t mca_pml_ptl_comm_send_sequence(struct mca_pml_comm_t* comm, int dst)
{
   mca_ptl_base_sequence_t sequence;
   lam_mutex_lock(comm->c_matching_lock+dst);
   sequence = comm->c_msg_seq[dst]++;
   lam_mutex_unlock(comm->c_matching_lock+dst);
   return sequence;
}

#endif