In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/41bd5b1176b48bff6dc0491197429c580c47263d?hp=82651abe60a8c1ca1f9eb6aae0202ecfd34bfecf>
- Log ----------------------------------------------------------------- commit 41bd5b1176b48bff6dc0491197429c580c47263d Author: Paul "LeoNerd" Evans <[email protected]> Date: Wed Jul 3 17:19:10 2019 +0100 Print a more helpful UNREACHABLE message when NOT_REACHED assertion fails ----------------------------------------------------------------------- Summary of changes: perl.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl.h b/perl.h index a82d055733..f5f18ff4f7 100644 --- a/perl.h +++ b/perl.h @@ -3509,9 +3509,9 @@ EXTERN_C int perl_tsa_mutex_unlock(perl_mutex* mutex) # define NOT_REACHED #elif defined(DEBUGGING) && (__has_builtin(__builtin_unreachable) \ || (__GNUC__ == 4 && __GNUC_MINOR__ >= 5 || __GNUC__ > 4)) /* 4.5 -> */ -# define NOT_REACHED STMT_START { ASSUME(0); __builtin_unreachable(); } STMT_END +# define NOT_REACHED STMT_START { ASSUME(!"UNREACHABLE"); __builtin_unreachable(); } STMT_END #else -# define NOT_REACHED ASSUME(0) +# define NOT_REACHED ASSUME(!"UNREACHABLE") #endif /* Some unistd.h's give a prototype for pause() even though -- Perl5 Master Repository
