Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 33db88f1 authored by SYLVAND Guillaume's avatar SYLVAND Guillaume
Browse files

Replace morse_error() by morse_fatal_error() when tag size is insufficient

parent e02ce06c
No related branches found
No related tags found
1 merge request!4Gs/dev
Pipeline #
...@@ -150,13 +150,13 @@ void RUNTIME_desc_create( MORSE_desc_t *desc ) ...@@ -150,13 +150,13 @@ void RUNTIME_desc_create( MORSE_desc_t *desc )
/* Check that we won't create overflow in tags used */ /* Check that we won't create overflow in tags used */
if ( (lnt*lmt) > ((uintptr_t)(1UL<<tag_sep)) ) { if ( (lnt*lmt) > ((uintptr_t)(1UL<<tag_sep)) ) {
morse_error("RUNTIME_desc_create", "Too many tiles in the descriptor for MPI tags"); morse_fatal_error("RUNTIME_desc_create", "Too many tiles in the descriptor for MPI tags");
return; return;
} }
assert(lmt*lmt<=(1<<tag_sep)); assert(lmt*lmt<=(1<<tag_sep));
if (desc->id >= 1UL<<(tag_width-tag_sep)) { if (desc->id >= 1UL<<(tag_width-tag_sep)) {
morse_error("RUNTIME_desc_create", "Number of descriptor available in MPI mode out of stock"); morse_fatal_error("RUNTIME_desc_create", "Number of descriptor available in MPI mode out of stock");
return; return;
} }
assert( desc->id < (1UL<<(tag_width-tag_sep)) ); assert( desc->id < (1UL<<(tag_width-tag_sep)) );
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment