From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 28 Sep 2005 19:56:53 +0000 (+0000)
Subject: savepv and savepvn are actually NULLOK
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=639f6c3d60ee2ae4935616e7c47c2288c4dd637d;p=p5sagit%2Fp5-mst-13.2.git

savepv and savepvn are actually NULLOK

p4raw-id: //depot/perl@25640
---

diff --git a/embed.fnc b/embed.fnc
index 929fe5b..c8f96ec 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -645,8 +645,8 @@ p	|void	|rxres_save	|NN void** rsp|NN REGEXP* prx
 #if !defined(HAS_RENAME)
 p	|I32	|same_dirent	|NN const char* a|NN const char* b
 #endif
-Apda	|char*	|savepv		|NN const char* pv
-Apda	|char*	|savepvn	|NN const char* pv|I32 len
+Apda	|char*	|savepv		|NULLOK const char* pv
+Apda	|char*	|savepvn	|NULLOK const char* pv|I32 len
 Apda	|char*	|savesharedpv	|NULLOK const char* pv
 Apda	|char*	|savesvpv	|NN SV* sv
 Ap	|void	|savestack_grow
diff --git a/proto.h b/proto.h
index d486b94..d09f802 100644
--- a/proto.h
+++ b/proto.h
@@ -1816,13 +1816,11 @@ PERL_CALLCONV I32	Perl_same_dirent(pTHX_ const char* a, const char* b)
 #endif
 PERL_CALLCONV char*	Perl_savepv(pTHX_ const char* pv)
 			__attribute__malloc__
-			__attribute__warn_unused_result__
-			__attribute__nonnull__(pTHX_1);
+			__attribute__warn_unused_result__;
 
 PERL_CALLCONV char*	Perl_savepvn(pTHX_ const char* pv, I32 len)
 			__attribute__malloc__
-			__attribute__warn_unused_result__
-			__attribute__nonnull__(pTHX_1);
+			__attribute__warn_unused_result__;
 
 PERL_CALLCONV char*	Perl_savesharedpv(pTHX_ const char* pv)
 			__attribute__malloc__