/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */

/*

 *  (C) 2005 by Argonne National Laboratory.

 *      See COPYRIGHT in top-level directory.

 */

#ifndef MPICH_DLL_DEFS_H_INCLUDED

#define MPICH_DLL_DEFS_H_INCLUDED

/***********************************************************************

 * Information associated with a specific executable image

 */

typedef struct {

    const struct mqs_image_callbacks *image_callbacks;  /* Functions needed here */

    /* in the embedded MPI_Status object */

    int count_offs;

    int MPI_SOURCE_offs;

    int MPI_TAG_offs;

    /* Fields in MPIR_Comm_list */

    int sequence_number_offs;

    int comm_head_offs;

    /* Fields in MPIR_Comm */

    int comm_rsize_offs;

    int lrank_to_grank_offs;

    int comm_rank_offs;

    int comm_context_id_offs;

    int comm_recvcontext_id_offs;

    int comm_next_offs;

    int comm_name_offs;

    /* Fields in MPIR_Request (including structures within the request) */

    int req_status_offs;

    int req_cc_offs;

    int req_dev_offs;

    int req_next_offs;

    int req_tag_offs;

    int req_rank_offs;

    int req_context_id_offs;

    int req_user_buf_offs;

    int req_user_count_offs;

    int req_datatype_offs;

    /* Fields in MPIR_Sendq */

    int sendq_next_offs;

    int sendq_tag_offs;

    int sendq_rank_offs;

    int sendq_context_id_offs;

    int sendq_req_offs;

} mpich_image_info;

/***********************************************************************

 * Information associated with a specific process

 */

typedef struct group_t {

    mqs_taddr_t table_base;     /* Where was it in the process  */

    int ref_count;              /* How many references to us */

    int entries;                /* How many entries */

    int *local_to_global;       /* The translation table */

} group_t;

/* Information for a single process, a list of communicators, some

 * useful addresses, and the state of the iterators.

 */

typedef struct {

    const struct mqs_process_callbacks *process_callbacks;      /* Functions needed here */

    struct communicator_t *communicator_list;   /* List of communicators in the process */

    mqs_target_type_sizes sizes;        /* Process architecture information */

    /* Addresses in the target process */

    mqs_taddr_t posted_base;    /* Where to find the message queues */

    mqs_taddr_t unexpected_base;

    mqs_taddr_t sendq_base;     /* Where to find the send queue */

    mqs_taddr_t commlist_base;  /* Where to find the list of communicators */

    /* Other info we need to remember about it */

    mqs_tword_t communicator_sequence;

    int has_sendq;

    /* State for the iterators */

    struct communicator_t *current_communicator;        /* Easy, we're walking a simple list */

    mqs_taddr_t next_msg;       /* And state for the message iterator */

    mqs_op_class what;          /* What queue are we looking on */

} mpich_process_info;

#endif /* MPICH_DLL_DEFS_H_INCLUDED */