From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
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);