ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Do not increase the reference count for the datatype if it is not required. Plus

Просмотр исходного кода 
some typos.

This commit was SVN r11728.
Этот коммит содержится в:
George Bosilca 2006-09-20 20:14:15 +00:00
родитель ddffc8748f
Коммит 1c464d340c
1 изменённых файлов: 7 добавлений и 9 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

16
ompi/mca/pml/base/pml_base_sendreq.h
Просмотреть файл

@ -31,14 +31,12 @@
#if defined(c_plusplus) || defined(__cplusplus) #if defined(c_plusplus) || defined(__cplusplus)
extern "C" { extern "C" {
#endif #endif
OMPI_DECLSPEC extern opal_class_t mca_pml_base_send_request_t_class;
/** /**
* Base type for send requests * Base type for send requests
*/ */
struct mca_pml_base_send_request_t { struct mca_pml_base_send_request_t {
mca_pml_base_request_t req_base; /** base request type - common data structure for use by wait/test */ mca_pml_base_request_t req_base; /**< base request type - common data structure for use by wait/test */
void *req_addr; /**< pointer to send buffer - may not be application buffer */ void *req_addr; /**< pointer to send buffer - may not be application buffer */
size_t req_bytes_packed; /**< packed size of a message given the datatype and count */ size_t req_bytes_packed; /**< packed size of a message given the datatype and count */
mca_pml_base_send_mode_t req_send_mode; /**< type of send */ mca_pml_base_send_mode_t req_send_mode; /**< type of send */
@ -46,7 +44,7 @@ struct mca_pml_base_send_request_t {
}; };
typedef struct mca_pml_base_send_request_t mca_pml_base_send_request_t; typedef struct mca_pml_base_send_request_t mca_pml_base_send_request_t;
OMPI_DECLSPEC OBJ_CLASS_DECLARATION( mca_pml_base_send_request_t );
/** /**
* Initialize a send request with call parameters. * Initialize a send request with call parameters.
@ -77,7 +75,6 @@ typedef struct mca_pml_base_send_request_t mca_pml_base_send_request_t;
{ \ { \
/* increment reference counts */ \ /* increment reference counts */ \
OBJ_RETAIN(comm); \ OBJ_RETAIN(comm); \
OBJ_RETAIN(datatype); \
\ \
OMPI_REQUEST_INIT(&(request)->req_base.req_ompi, persistent); \ OMPI_REQUEST_INIT(&(request)->req_base.req_ompi, persistent); \
(request)->req_addr = addr; \ (request)->req_addr = addr; \
@ -92,9 +89,11 @@ typedef struct mca_pml_base_send_request_t mca_pml_base_send_request_t;
(request)->req_base.req_pml_complete = OPAL_INT_TO_BOOL(persistent); \ (request)->req_base.req_pml_complete = OPAL_INT_TO_BOOL(persistent); \
(request)->req_base.req_free_called = false; \ (request)->req_base.req_free_called = false; \
(request)->req_base.req_ompi.req_status._cancelled = 0; \ (request)->req_base.req_ompi.req_status._cancelled = 0; \
(request)->req_bytes_packed = 0; \
\ \
/* initialize datatype convertor for this request */ \ /* initialize datatype convertor for this request */ \
if(count > 0) { \ if( count > 0 ) { \
OBJ_RETAIN(datatype); \
/* We will create a convertor specialized for the */ \ /* We will create a convertor specialized for the */ \
/* remote architecture and prepared with the datatype. */ \ /* remote architecture and prepared with the datatype. */ \
ompi_convertor_copy_and_prepare_for_send( \ ompi_convertor_copy_and_prepare_for_send( \
@ -106,8 +105,6 @@ typedef struct mca_pml_base_send_request_t mca_pml_base_send_request_t;
&(request)->req_convertor ); \ &(request)->req_convertor ); \
ompi_convertor_get_packed_size( &(request)->req_convertor, \ ompi_convertor_get_packed_size( &(request)->req_convertor, \
&((request)->req_bytes_packed) );\ &((request)->req_bytes_packed) );\
} else { \
(request)->req_bytes_packed = 0; \
} \ } \
PERUSE_TRACE_COMM_EVENT (PERUSE_COMM_REQ_ACTIVATE, \ PERUSE_TRACE_COMM_EVENT (PERUSE_COMM_REQ_ACTIVATE, \
&(request)->req_base, \ &(request)->req_base, \
@ -138,7 +135,8 @@ typedef struct mca_pml_base_send_request_t mca_pml_base_send_request_t;
do { \ do { \
OMPI_REQUEST_FINI(&(request)->req_base.req_ompi); \ OMPI_REQUEST_FINI(&(request)->req_base.req_ompi); \
OBJ_RELEASE((request)->req_base.req_comm); \ OBJ_RELEASE((request)->req_base.req_comm); \
OBJ_RELEASE((request)->req_base.req_datatype); \ if( 0 != (request)->req_base.req_count ) \
OBJ_RELEASE((request)->req_base.req_datatype); \
ompi_convertor_cleanup( &((request)->req_convertor) ); \ ompi_convertor_cleanup( &((request)->req_convertor) ); \
} while (0) } while (0)