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

Be nice and remember the real type of the last data. Optimizing the optimization leads to strange behaviours ...

Просмотр исходного кода 
This commit was SVN r6387.
Этот коммит содержится в:
George Bosilca 2005-07-08 06:50:43 +00:00
родитель 6c6b18eb20
Коммит d38c8b6895
1 изменённых файлов: 6 добавлений и 1 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

7
ompi/datatype/dt_optimize.c
Просмотреть файл

@ -100,7 +100,9 @@ int32_t ompi_ddt_optimize_short( ompi_datatype_t* pData, int32_t count,
/* if the previous data is contiguous with this piece and it has a length not ZERO */ /* if the previous data is contiguous with this piece and it has a length not ZERO */
if( last_length != 0 ) { if( last_length != 0 ) {
if( (last_disp + last_length) == (total_disp + loop_disp) ) { if( (last_disp + last_length) == (total_disp + loop_disp) ) {
last_length *= ompi_ddt_basicDatatypes[last_type]->size;
last_length += end_loop->size; last_length += end_loop->size;
last_type = DT_BYTE;
counter--; counter--;
} }
CREATE_ELEM( pElemDesc, last_type, DT_FLAG_BASIC, last_length, last_disp, last_extent ); CREATE_ELEM( pElemDesc, last_type, DT_FLAG_BASIC, last_length, last_disp, last_extent );
@ -147,10 +149,12 @@ int32_t ompi_ddt_optimize_short( ompi_datatype_t* pData, int32_t count,
(pData->desc.desc[pos_desc].elem.extent == (int32_t)ompi_ddt_basicDatatypes[type]->size) ) { (pData->desc.desc[pos_desc].elem.extent == (int32_t)ompi_ddt_basicDatatypes[type]->size) ) {
if( type == last_type ) { if( type == last_type ) {
last_length += pData->desc.desc[pos_desc].elem.count; last_length += pData->desc.desc[pos_desc].elem.count;
last_extent = pData->desc.desc[pos_desc].elem.extent;
} else { } else {
if( last_length == 0 ) { if( last_length == 0 ) {
last_type = type; last_type = type;
last_length = pData->desc.desc[pos_desc].elem.count; last_length = pData->desc.desc[pos_desc].elem.count;
last_extent = pData->desc.desc[pos_desc].elem.extent;
} else { } else {
last_length = last_length * ompi_ddt_basicDatatypes[last_type]->size + last_length = last_length * ompi_ddt_basicDatatypes[last_type]->size +
pData->desc.desc[pos_desc].elem.count * ompi_ddt_basicDatatypes[type]->size; pData->desc.desc[pos_desc].elem.count * ompi_ddt_basicDatatypes[type]->size;
@ -166,8 +170,9 @@ int32_t ompi_ddt_optimize_short( ompi_datatype_t* pData, int32_t count,
pElemDesc++; nbElems++; pElemDesc++; nbElems++;
} }
last_disp = total_disp + pData->desc.desc[pos_desc].elem.disp; last_disp = total_disp + pData->desc.desc[pos_desc].elem.disp;
last_length = pData->desc.desc[pos_desc].elem.count * ompi_ddt_basicDatatypes[type]->size; last_length = pData->desc.desc[pos_desc].elem.count;
last_extent = pData->desc.desc[pos_desc].elem.extent; last_extent = pData->desc.desc[pos_desc].elem.extent;
last_type = type;
} }
pos_desc++; /* advance to the next data */ pos_desc++; /* advance to the next data */
} }