diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-03-29 12:30:25 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-03-29 20:06:53 +0100 |
| commit | 9340c80aaec7d3857f387eea86207c1a9604b2ad (patch) | |
| tree | d14cf6e87ca4541f6c552727e937332ca625b990 /proto.h | |
| parent | 51683ce6d9770c21b79198196ae37e3474eceb5f (diff) | |
| download | perl-9340c80aaec7d3857f387eea86207c1a9604b2ad.tar.gz | |
In Perl_newCONSTSUB(), sv should not be NULL.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1992,7 +1992,11 @@ PERL_CALLCONV OP* Perl_newCONDOP(pTHX_ I32 flags, OP* first, OP* trueop, OP* fal #define PERL_ARGS_ASSERT_NEWCONDOP \ assert(first) -PERL_CALLCONV CV* Perl_newCONSTSUB(pTHX_ HV* stash, const char* name, SV* sv); +PERL_CALLCONV CV* Perl_newCONSTSUB(pTHX_ HV* stash, const char* name, SV* sv) + __attribute__nonnull__(pTHX_3); +#define PERL_ARGS_ASSERT_NEWCONSTSUB \ + assert(sv) + #ifdef PERL_MAD PERL_CALLCONV OP* Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block); #else |