summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-01-27 17:03:59 +0000
committerNicholas Clark <nick@ccl4.org>2007-01-27 17:03:59 +0000
commit58182927067ecc460e3d1befd5302093f53edafd (patch)
treeb95a94b7e9fa78a22ee0bca7791d6f08532a6f66 /proto.h
parent392d04bb758cd08529ab92bc6bac169774c64676 (diff)
downloadperl-58182927067ecc460e3d1befd5302093f53edafd.tar.gz
newPADOP()'s sv parameter is never NULL, so mark it as so.
(Well, in theory it could be NULL if someone is creating ops during symbol table destruction, but snowballs in hell, etc. This is usually the point where Jarkko observes that the aliens are looking for a free slot in their diaries...) p4raw-id: //depot/perl@30034
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h3
1 files changed, 2 insertions, 1 deletions
diff --git a/proto.h b/proto.h
index a76e001734..f9bcc51e35 100644
--- a/proto.h
+++ b/proto.h
@@ -1552,7 +1552,8 @@ PERL_CALLCONV OP* Perl_newLISTOP(pTHX_ I32 type, I32 flags, OP* first, OP* last)
#ifdef USE_ITHREADS
PERL_CALLCONV OP* Perl_newPADOP(pTHX_ I32 type, I32 flags, SV* sv)
__attribute__malloc__
- __attribute__warn_unused_result__;
+ __attribute__warn_unused_result__
+ __attribute__nonnull__(pTHX_3);
#endif
PERL_CALLCONV OP* Perl_newPMOP(pTHX_ I32 type, I32 flags)