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
@@ -53,7 +54,7 @@ static void show_neighborhood(double *ptr, int how_many, bool show_hex)
53
54
for (i = - how_many ; i < how_many ; i ++ ) {
54
55
if (0 == i )
55
56
printf (" <" );
56
- for (int j = 0 ; j < sizeof (double ); j ++ ) {
57
+ for (size_t j = 0 ; j < sizeof (double ); j ++ ) {
57
58
printf ("%02x" , cptr [i * sizeof (double ) + j ]);
58
59
}
59
60
if (0 == i )
@@ -76,7 +77,7 @@ static void show_neighborhood(double *ptr, int how_many, bool show_hex)
76
77
77
78
int main (int argc , char * argv [])
78
79
{
79
- opal_datatype_t * vector ;
80
+ ompi_datatype_t * vector ;
80
81
ompi_datatype_t * base ;
81
82
uint32_t iov_count ;
82
83
size_t max_data , size , length ;
@@ -93,13 +94,13 @@ int main(int argc, char *argv[])
93
94
ompi_datatype_create_vector (TYPE_COUNT , TYPE_BLEN , TYPE_STRIDE , MPI_DOUBLE , & base );
94
95
ompi_datatype_create_contiguous (CONT_COUNT , base , & vector );
95
96
96
- opal_datatype_commit (vector );
97
+ opal_datatype_commit (& vector -> super );
97
98
98
99
ompi_datatype_dump (vector );
99
100
100
- opal_datatype_type_size (vector , & size );
101
- opal_datatype_type_extent (vector , & extent );
102
- opal_datatype_type_extent (base , & base_extent );
101
+ opal_datatype_type_size (& vector -> super , & size );
102
+ opal_datatype_type_extent (& vector -> super , & extent );
103
+ opal_datatype_type_extent (& base -> super , & base_extent );
103
104
104
105
array = (double * ) malloc (extent * COUNT );
105
106
packed = (double * ) malloc (size * COUNT );
@@ -118,7 +119,7 @@ int main(int argc, char *argv[])
118
119
* of the buffered operation.
119
120
*/
120
121
convertor = opal_convertor_create (opal_local_arch , 0 );
121
- opal_convertor_prepare_for_recv (convertor , vector , COUNT , array );
122
+ opal_convertor_prepare_for_recv (convertor , & vector -> super , COUNT , array );
122
123
123
124
for (length = 0 ; length < (size * COUNT );) {
124
125
iov [0 ].iov_base = bpacked + length ;
@@ -129,7 +130,8 @@ int main(int argc, char *argv[])
129
130
opal_convertor_unpack (convertor , iov , & iov_count , & max_data );
130
131
length += max_data ;
131
132
132
- int idx = 0 , checked = 0 ;
133
+ int idx = 0 ;
134
+ size_t checked = 0 ;
133
135
for (int m = 0 ; m < COUNT ; m ++ ) {
134
136
char * mptr = (char * ) array + m * extent ;
135
137
for (int k = 0 ; k < CONT_COUNT ; k ++ ) {
0 commit comments