In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/cc8b45bd305949a5d1b6071215c6c8e429dd68bb?hp=a26fecbbe7f9ad305d4e7e45430c95829d6f5aac>
- Log ----------------------------------------------------------------- commit cc8b45bd305949a5d1b6071215c6c8e429dd68bb Author: Andy Lester <[email protected]> Date: Tue Feb 21 23:22:07 2017 -0600 Make Perl_abort_execution flagged as not returning ----------------------------------------------------------------------- Summary of changes: embed.fnc | 2 +- proto.h | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/embed.fnc b/embed.fnc index 89986b4acb..25bf824f26 100644 --- a/embed.fnc +++ b/embed.fnc @@ -1881,7 +1881,7 @@ p |void |write_to_stderr|NN SV* msv : Used in op.c p |int |yyerror |NN const char *const s p |void |yyquit -p |void |abort_execution|NN const char * const msg|NN const char * const name +pr |void |abort_execution|NN const char * const msg|NN const char * const name p |int |yyerror_pv |NN const char *const s|U32 flags p |int |yyerror_pvn |NULLOK const char *const s|STRLEN len|U32 flags : Used in perly.y, and by Data::Alias diff --git a/proto.h b/proto.h index fea633f86b..bb7efa69ff 100644 --- a/proto.h +++ b/proto.h @@ -118,9 +118,11 @@ PERL_CALLCONV UV Perl__to_utf8_upper_flags(pTHX_ const U8 *p, const U8 *e, U8* u #define PERL_ARGS_ASSERT__TO_UTF8_UPPER_FLAGS \ assert(p); assert(ustrp); assert(file) PERL_CALLCONV void Perl__warn_problematic_locale(void); -PERL_CALLCONV void Perl_abort_execution(pTHX_ const char * const msg, const char * const name); +PERL_CALLCONV_NO_RET void Perl_abort_execution(pTHX_ const char * const msg, const char * const name) + __attribute__noreturn__; #define PERL_ARGS_ASSERT_ABORT_EXECUTION \ assert(msg); assert(name) + PERL_CALLCONV LOGOP* Perl_alloc_LOGOP(pTHX_ I32 type, OP *first, OP *other); PERL_CALLCONV PADOFFSET Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags); #define PERL_ARGS_ASSERT_ALLOCMY \ -- Perl5 Master Repository
