5
5
* reserved.
6
6
* Copyright (c) 2018 Triad National Security, LLC. All rights
7
7
* reserved.
8
+ * Copyright (c) 2022 Cisco Systems, Inc. All rights reserved.
8
9
* $COPYRIGHT$
9
10
*
10
11
* Additional copyrights may follow
@@ -52,7 +53,7 @@ static void show_neighborhood(double* ptr, int how_many, bool show_hex)
52
53
printf ("\n : " );
53
54
for ( i = - how_many ; i < how_many ; i ++ ) {
54
55
if ( 0 == i ) printf (" <" );
55
- for ( int j = 0 ; j < sizeof (double ); j ++ ) {
56
+ for ( size_t j = 0 ; j < sizeof (double ); j ++ ) {
56
57
printf ("%02x" , cptr [i * sizeof (double )+ j ]);
57
58
}
58
59
if ( 0 == i ) printf ("> " );
@@ -71,7 +72,7 @@ static void show_neighborhood(double* ptr, int how_many, bool show_hex)
71
72
72
73
int main ( int argc , char * argv [] )
73
74
{
74
- opal_datatype_t * vector ;
75
+ ompi_datatype_t * vector ;
75
76
ompi_datatype_t * base ;
76
77
uint32_t iov_count ;
77
78
size_t max_data , size , length ;
@@ -88,13 +89,13 @@ int main( int argc, char* argv[] )
88
89
ompi_datatype_create_vector (TYPE_COUNT , TYPE_BLEN , TYPE_STRIDE , MPI_DOUBLE , & base );
89
90
ompi_datatype_create_contiguous (CONT_COUNT , base , & vector );
90
91
91
- opal_datatype_commit ( vector );
92
+ opal_datatype_commit (& vector -> super );
92
93
93
94
ompi_datatype_dump (vector );
94
95
95
- opal_datatype_type_size (vector , & size );
96
- opal_datatype_type_extent (vector , & extent );
97
- opal_datatype_type_extent (base , & base_extent );
96
+ opal_datatype_type_size (& vector -> super , & size );
97
+ opal_datatype_type_extent (& vector -> super , & extent );
98
+ opal_datatype_type_extent (& base -> super , & base_extent );
98
99
99
100
array = (double * )malloc ( extent * COUNT );
100
101
packed = (double * )malloc ( size * COUNT );
@@ -113,7 +114,7 @@ int main( int argc, char* argv[] )
113
114
* of the buffered operation.
114
115
*/
115
116
convertor = opal_convertor_create ( opal_local_arch , 0 );
116
- opal_convertor_prepare_for_recv ( convertor , vector , COUNT , array );
117
+ opal_convertor_prepare_for_recv (convertor , & vector -> super , COUNT , array );
117
118
118
119
for ( length = 0 ; length < (size * COUNT ); ) {
119
120
iov [0 ].iov_base = bpacked + length ;
@@ -124,7 +125,8 @@ int main( int argc, char* argv[] )
124
125
opal_convertor_unpack ( convertor , iov , & iov_count , & max_data );
125
126
length += max_data ;
126
127
127
- int idx = 0 , checked = 0 ;
128
+ int idx = 0 ;
129
+ size_t checked = 0 ;
128
130
for ( int m = 0 ; m < COUNT ; m ++ ) {
129
131
char * mptr = (char * )array + m * extent ;
130
132
for ( int k = 0 ; k < CONT_COUNT ; k ++ ) {
0 commit comments