&(tMPI_Get_thread(comm, myrank)->cbl_multi));
if (cev->met[myrank].cb->size < total_send_size)
{
- fprintf(stderr, "ERROR: cb size too small\n");
- exit(1);
+ return tMPI_Error(comm, TMPI_ERR_COPY_BUFFER_SIZE);
}
/* copy to the new buf */
memcpy(cev->met[myrank].cb->buf, sendbuf, total_send_size);
&(tMPI_Get_thread(comm, myrank)->cbl_multi));
if (cev->met[myrank].cb->size < total_send_size)
{
- fprintf(stderr, "ERROR: cb size too small\n");
- exit(1);
+ return tMPI_Error(comm, TMPI_ERR_COPY_BUFFER_SIZE);
}
/* copy to the new buf */
memcpy(cev->met[myrank].cb->buf, sendbuf, total_send_size);