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

Starting to support the language and type flags for the data. They will be used to detect the

Просмотр исходного кода 
correct size in type_match_size function. I update the dump datatype function. However these flags are
only available for predefined datatypes, it's seems to be useless to use them for the derived datatypes ...

This commit was SVN r4479.
Этот коммит содержится в:
George Bosilca 2005-02-22 07:40:42 +00:00
родитель 40d42f38d4
Коммит c9c6ce1945
2 изменённых файлов: 51 добавлений и 14 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

37
src/datatype/datatype.h
Просмотреть файл

@ -51,18 +51,28 @@ OMPI_DECLSPEC extern ompi_pointer_array_t *ompi_datatype_f_to_c_table;
#define DT_MAX_PREDEFINED 0x2A
/* flags for the datatypes. */
#define DT_FLAG_DESTROYED 0x0001 /**< user destroyed but some other layers still have a reference */
#define DT_FLAG_COMMITED 0x0002 /**< ready to be used for a send/recv operation */
#define DT_FLAG_CONTIGUOUS 0x0004 /**< contiguous datatype */
#define DT_FLAG_OVERLAP 0x0008 /**< datatype is unpropper for a recv operation */
#define DT_FLAG_USER_LB 0x0010 /**< has a user defined LB */
#define DT_FLAG_USER_UB 0x0020 /**< has a user defined UB */
#define DT_FLAG_FOREVER 0x0040 /**< cannot be removed: initial and predefined datatypes */
#define DT_FLAG_IN_LOOP 0x0080 /**< we are inside a loop */
#define DT_FLAG_INITIAL 0x0100 /**< one of the initial datatype */
#define DT_FLAG_DATA 0x0200 /**< data or control structure */
#define DT_FLAG_ONE_SIDED 0x0400 /**< datatype can be used for one sided operations */
#define DT_FLAG_BASIC (DT_FLAG_INITIAL | DT_FLAG_COMMITED | DT_FLAG_FOREVER | DT_FLAG_CONTIGUOUS)
#define DT_FLAG_DESTROYED 0x0001 /**< user destroyed but some other layers still have a reference */
#define DT_FLAG_COMMITED 0x0002 /**< ready to be used for a send/recv operation */
#define DT_FLAG_CONTIGUOUS 0x0004 /**< contiguous datatype */
#define DT_FLAG_OVERLAP 0x0008 /**< datatype is unpropper for a recv operation */
#define DT_FLAG_USER_LB 0x0010 /**< has a user defined LB */
#define DT_FLAG_USER_UB 0x0020 /**< has a user defined UB */
#define DT_FLAG_FOREVER 0x0040 /**< cannot be removed: initial and predefined datatypes */
#define DT_FLAG_IN_LOOP 0x0080 /**< we are inside a loop */
#define DT_FLAG_INITIAL 0x0100 /**< one of the initial datatype */
#define DT_FLAG_DATA 0x0200 /**< data or control structure */
#define DT_FLAG_ONE_SIDED 0x0400 /**< datatype can be used for one sided operations */
#define DT_FLAG_BASIC (DT_FLAG_INITIAL | DT_FLAG_COMMITED | DT_FLAG_FOREVER | DT_FLAG_CONTIGUOUS)
/* Keep trace of the type of the predefined datatypes */
#define DT_FLAG_DATA_INT 0x1000
#define DT_FLAG_DATA_FLOAT 0x2000
#define DT_FLAG_DATA_COMPLEX 0x3000
#define DT_FLAG_DATA_TYPE 0x3000
/* In which language the datatype is intended for to be used */
#define DT_FLAG_DATA_C 0x4000
#define DT_FLAG_DATA_CPP 0x8000
#define DT_FLAG_DATA_FORTRAN 0xC000
#define DT_FLAG_DATA_LANGUAGE 0xC000
/* the basic element. A data description is composed
* by a set of basic elements.
@ -268,6 +278,9 @@ static inline int32_t ompi_convertor_unpack( ompi_convertor_t* pConv,
return pConv->fAdvance( pConv, iov, out_size, max_data, freeAfter );
}
/* Base convertor for all external32 operations */
extern ompi_convertor_t* ompi_mpi_external32_convertor;
/* and finally the convertor functions */
OMPI_DECLSPEC ompi_convertor_t* ompi_convertor_create( int32_t remote_arch, int32_t mode );
OMPI_DECLSPEC int32_t ompi_convertor_init_for_send( ompi_convertor_t* pConv, uint32_t flags,

28
src/datatype/dt_module.c
Просмотреть файл

@ -473,7 +473,7 @@ int ompi_ddt_finalize( void )
static int _dump_data_flags( unsigned short usflags, char* ptr )
{
sprintf( ptr, "-----------" ); /* set everything to - */
sprintf( ptr, "-----------[ ][ ]" ); /* set everything to - */
if( usflags & DT_FLAG_DESTROYED ) ptr[0] = 'd';
if( usflags & DT_FLAG_COMMITED ) ptr[1] = 'c';
if( usflags & DT_FLAG_CONTIGUOUS ) ptr[2] = 'C';
@ -483,8 +483,32 @@ static int _dump_data_flags( unsigned short usflags, char* ptr )
if( usflags & DT_FLAG_FOREVER ) ptr[6] = 'F';
if( usflags & DT_FLAG_IN_LOOP ) ptr[7] = 'L';
if( usflags & DT_FLAG_DATA ) ptr[8] = 'D';
if( usflags & DT_FLAG_INITIAL ) ptr[9] = 'I';
if( usflags & DT_FLAG_INITIAL ) ptr[9] = '*';
if( (usflags & DT_FLAG_BASIC) == DT_FLAG_BASIC ) ptr[10] = 'B';
if( usflags & DT_FLAG_INITIAL ) {
/* Which kind of datatype is that */
switch( usflags & DT_FLAG_DATA_LANGUAGE ) {
case DT_FLAG_DATA_C:
ptr[13] = 'C'; break;
case DT_FLAG_DATA_CPP:
ptr[12] = 'C'; ptr[13] = 'P'; ptr[14] = 'P'; break;
case DT_FLAG_DATA_FORTRAN:
ptr[12] = 'F'; ptr[13] = '7'; ptr[14] = '7'; break;
default:
ptr[12] = 'E'; ptr[13] = 'R'; ptr[14] = 'R'; break;
}
switch( usflags & DT_FLAG_DATA_TYPE ) {
case DT_FLAG_DATA_INT:
ptr[17] = 'I'; ptr[18] = 'N'; ptr[19] = 'T'; break;
case DT_FLAG_DATA_FLOAT:
ptr[17] = 'F'; ptr[18] = 'L'; ptr[19] = 'T'; break;
case DT_FLAG_DATA_COMPLEX:
ptr[17] = 'C'; ptr[18] = 'P'; ptr[19] = 'L'; break;
default:
ptr[17] = 'E'; ptr[18] = 'R'; ptr[19] = 'R'; break;
}
return 20;
}
return 11;
}