From: Rafael Garcia-Suarez Date: Mon, 3 Oct 2005 15:17:09 +0000 (+0000) Subject: Yitzchak points out that this function argument is NULLOK X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5596814408229890caf65f1e85854d103697d576;p=p5sagit%2Fp5-mst-13.2.git Yitzchak points out that this function argument is NULLOK p4raw-id: //depot/perl@25685 --- diff --git a/embed.fnc b/embed.fnc index d2e41a1..edfba7f 100644 --- a/embed.fnc +++ b/embed.fnc @@ -659,7 +659,7 @@ Ap |void |save_bool |NN bool* boolp Ap |void |save_clearsv |NN SV** svp Ap |void |save_delete |NN HV* hv|NN char* key|I32 klen Ap |void |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|NN void* p -Ap |void |save_destructor_x|DESTRUCTORFUNC_t f|NN void* p +Ap |void |save_destructor_x|DESTRUCTORFUNC_t f|NULLOK void* p Ap |void |save_freesv |NULLOK SV* sv p |void |save_freeop |NULLOK OP* o Ap |void |save_freepv |NULLOK char* pv diff --git a/proto.h b/proto.h index 9996bf3..703631c 100644 --- a/proto.h +++ b/proto.h @@ -1857,9 +1857,7 @@ PERL_CALLCONV void Perl_save_delete(pTHX_ HV* hv, char* key, I32 klen) PERL_CALLCONV void Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p) __attribute__nonnull__(pTHX_2); -PERL_CALLCONV void Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p) - __attribute__nonnull__(pTHX_2); - +PERL_CALLCONV void Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p); PERL_CALLCONV void Perl_save_freesv(pTHX_ SV* sv); PERL_CALLCONV void Perl_save_freeop(pTHX_ OP* o); PERL_CALLCONV void Perl_save_freepv(pTHX_ char* pv);