summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorVincent Pit <perl@profvince.com>2009-08-13 13:34:48 +0200
committerDavid Mitchell <davem@iabyn.com>2009-08-15 17:36:34 +0100
commitd97a14cd9b8ce5839c44a005ba980cfae6ec3aee (patch)
tree2218ea379de636ac25f5d6a2b374c9c7409b6df8 /proto.h
parent12378e95c4d03cd04288d10364c5b0514914333c (diff)
downloadperl-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)
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h5
1 files changed, 1 insertions, 4 deletions
diff --git a/proto.h b/proto.h
index ccb9eb3ba8..ce766bcd9b 100644
--- a/proto.h
+++ b/proto.h
@@ -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)