Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
dkrz-sw
yaxt
Commits
98da572d
Commit
98da572d
authored
Jun 03, 2021
by
Thomas Jahns
🤸
Browse files
Merge temporary buffers.
parent
bc81f626
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/xt_mpi.c
View file @
98da572d
...
...
@@ -622,9 +622,9 @@ parse_stripe(const struct Xt_offset_ext *v, size_t vlen, MPI_Datatype old_type,
result_dt
=
wdt
[
0
];
}
else
{
MPI_Aint
old_type_lb
,
old_type_extent
;
MPI_Aint
*
restrict
wbdisp
=
xmalloc
((
size_t
)
wlen
*
sizeof
(
*
wbdisp
));
int
*
restrict
wblocklength
=
xmalloc
((
size_t
)
wlen
*
sizeof
(
*
wblocklength
)
);
;
MPI_Aint
*
restrict
wbdisp
=
xmalloc
((
size_t
)
wlen
*
(
sizeof
(
*
wbdisp
)
+
sizeof
(
int
)));
int
*
restrict
wblocklength
=
(
int
*
)(
wbdisp
+
wlen
);
xt_mpi_call
(
MPI_Type_get_extent
(
old_type
,
&
old_type_lb
,
&
old_type_extent
),
comm
);
for
(
size_t
i
=
0
;
i
<
wlen
;
i
++
)
{
...
...
@@ -633,7 +633,6 @@ parse_stripe(const struct Xt_offset_ext *v, size_t vlen, MPI_Datatype old_type,
}
xt_mpi_call
(
MPI_Type_create_struct
((
int
)
wlen
,
wblocklength
,
wbdisp
,
wdt
,
&
result_dt
),
comm
);
free
(
wblocklength
);
free
(
wbdisp
);
for
(
size_t
i
=
0
;
i
<
wlen
;
i
++
)
if
(
wdt
[
i
]
!=
old_type
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment