@@ -2157,7 +2157,7 @@ PREFIX(sendget) (caf_token_t token_s, size_t offset_s, int image_index_s,
2157
2157
else
2158
2158
{
2159
2159
dprint ("allocating %zd bytes for dst_t_buff.\n" , dst_size * size );
2160
- if (free_dst_t_buff = ((dst_t_buff = alloca (dst_size * size )) == NULL ))
2160
+ if (( free_dst_t_buff = ((dst_t_buff = alloca (dst_size * size )) == NULL ) ))
2161
2161
{
2162
2162
dst_t_buff = malloc (dst_size * size );
2163
2163
if (dst_t_buff == NULL )
@@ -2184,7 +2184,7 @@ PREFIX(sendget) (caf_token_t token_s, size_t offset_s, int image_index_s,
2184
2184
/* When replication is needed, only access the scalar on the remote. */
2185
2185
const size_t src_real_size = src_rank > 0 ?
2186
2186
(src_size * size ) : src_size ;
2187
- if (free_dst_t_buff = ((dst_t_buff = alloca (dst_size * size )) == NULL ))
2187
+ if (( free_dst_t_buff = ((dst_t_buff = alloca (dst_size * size )) == NULL ) ))
2188
2188
{
2189
2189
dst_t_buff = malloc (dst_size * size );
2190
2190
if (dst_t_buff == NULL )
@@ -2194,7 +2194,7 @@ PREFIX(sendget) (caf_token_t token_s, size_t offset_s, int image_index_s,
2194
2194
2195
2195
if (dst_kind != src_kind || src_rank == 0 || dest_char_array_is_longer )
2196
2196
{
2197
- if (free_src_t_buff = ((src_t_buff = alloca (src_size * size )) == NULL ))
2197
+ if (( free_src_t_buff = ((src_t_buff = alloca (src_size * size )) == NULL ) ))
2198
2198
{
2199
2199
src_t_buff = malloc (src_size * size );
2200
2200
if (src_t_buff == NULL )
@@ -6169,7 +6169,7 @@ case kind: \
6169
6169
6170
6170
cap *= GFC_DESCRIPTOR_SIZE (src );
6171
6171
temp_src .base .base_addr = alloca (cap );
6172
- if (free_temp_src = (temp_src .base .base_addr == NULL ))
6172
+ if (( free_temp_src = (temp_src .base .base_addr == NULL ) ))
6173
6173
{
6174
6174
temp_src .base .base_addr = malloc (cap );
6175
6175
if (temp_src .base .base_addr == NULL )
@@ -6772,7 +6772,8 @@ PREFIX(is_present) (caf_token_t token, int image_index, caf_reference_t *refs)
6772
6772
/* The first descriptor is accessible by the mpi_token->memptr_win.
6773
6773
* Count the dims to fetch. */
6774
6774
for (ref_rank = 0 ; riter -> u .a .mode [ref_rank ] != CAF_ARR_REF_NONE ;
6775
- ++ ref_rank ) ;
6775
+ ++ ref_rank )
6776
+ ;
6776
6777
dprint ("Getting remote descriptor of rank %zd from win: %d, "
6777
6778
"sizeof() %zd\n" , ref_rank , mpi_token -> memptr_win ,
6778
6779
sizeof_desc_for_rank (ref_rank ));
@@ -6787,7 +6788,8 @@ PREFIX(is_present) (caf_token_t token, int image_index, caf_reference_t *refs)
6787
6788
/* All inner descriptors go by the dynamic window.
6788
6789
* Count the dims to fetch. */
6789
6790
for (ref_rank = 0 ; riter -> u .a .mode [ref_rank ] != CAF_ARR_REF_NONE ;
6790
- ++ ref_rank ) ;
6791
+ ++ ref_rank )
6792
+ ;
6791
6793
dprint ("Getting remote descriptor of rank %zd from: %p, "
6792
6794
"sizeof() %zd\n" , ref_rank , remote_base_memptr ,
6793
6795
sizeof_desc_for_rank (ref_rank ));
0 commit comments