diff options
author | Vincent Pit <perl@profvince.com> | 2009-08-13 13:34:48 +0200 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-08-15 17:36:34 +0100 |
commit | d97a14cd9b8ce5839c44a005ba980cfae6ec3aee (patch) | |
tree | 2218ea379de636ac25f5d6a2b374c9c7409b6df8 | |
parent | 12378e95c4d03cd04288d10364c5b0514914333c (diff) | |
download | perl-d97a14cd9b8ce5839c44a005ba980cfae6ec3aee.tar.gz |
Perl_die_nocontext() is also called with NULL from XS extensions that want to set $@ themselves.
This commit goes with 52a5bfab8876f302d269f1bfa46eae1998f0d3ca.
(cherry picked from commit cf284a245bd2c9f479068768a1e22147f7925e7d)
-rw-r--r-- | embed.fnc | 2 | ||||
-rw-r--r-- | proto.h | 5 | ||||
-rw-r--r-- | util.c | 1 |
3 files changed, 2 insertions, 6 deletions
@@ -161,7 +161,7 @@ Aprd |void |croak_xs_usage |NN const CV *const cv \ #if defined(PERL_IMPLICIT_CONTEXT) Afnrp |void |croak_nocontext|NULLOK const char* pat|... -Afnp |OP* |die_nocontext |NN const char* pat|... +Afnp |OP* |die_nocontext |NULLOK const char* pat|... Afnp |void |deb_nocontext |NN const char* pat|... Afnp |char* |form_nocontext |NN const char* pat|... Anp |void |load_module_nocontext|U32 flags|NN SV* name|NULLOK SV* ver|... @@ -329,10 +329,7 @@ PERL_CALLCONV void Perl_croak_nocontext(const char* pat, ...) __attribute__format__null_ok__(__printf__,1,2); PERL_CALLCONV OP* Perl_die_nocontext(const char* pat, ...) - __attribute__format__(__printf__,1,2) - __attribute__nonnull__(1); -#define PERL_ARGS_ASSERT_DIE_NOCONTEXT \ - assert(pat) + __attribute__format__null_ok__(__printf__,1,2); PERL_CALLCONV void Perl_deb_nocontext(const char* pat, ...) __attribute__format__(__printf__,1,2) @@ -1397,7 +1397,6 @@ Perl_die_nocontext(const char* pat, ...) dTHX; OP *o; va_list args; - PERL_ARGS_ASSERT_DIE_NOCONTEXT; va_start(args, pat); o = vdie(pat, &args); va_end(args); |