From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 10 Feb 2008 19:17:13 +0000 (+0000)
Subject: The sv argument to gv_stashsv() is not NULL.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8798655dec8bb39ddfc6da720c750a733c8d3662;p=p5sagit%2Fp5-mst-13.2.git

The sv argument to gv_stashsv() is not NULL.

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

diff --git a/embed.fnc b/embed.fnc
index cc362b5..7a9369c 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -297,7 +297,7 @@ Ap	|void	|gv_init	|NN GV* gv|NULLOK HV* stash|NN const char* name|STRLEN len|int
 Ap	|void	|gv_name_set	|NN GV* gv|NN const char *name|U32 len|U32 flags
 Apd	|HV*	|gv_stashpv	|NN const char* name|I32 flags
 Apd	|HV*	|gv_stashpvn	|NN const char* name|U32 namelen|I32 flags
-Apd	|HV*	|gv_stashsv	|NULLOK SV* sv|I32 flags
+Apd	|HV*	|gv_stashsv	|NN SV* sv|I32 flags
 Apd	|void	|hv_clear	|NULLOK HV* tb
 poM	|HV *	|hv_copy_hints_hv|NN HV *const ohv
 Ap	|void	|hv_delayfree_ent|NN HV* hv|NULLOK HE* entry
diff --git a/proto.h b/proto.h
index de32d12..feadc30 100644
--- a/proto.h
+++ b/proto.h
@@ -683,7 +683,9 @@ PERL_CALLCONV HV*	Perl_gv_stashpv(pTHX_ const char* name, I32 flags)
 PERL_CALLCONV HV*	Perl_gv_stashpvn(pTHX_ const char* name, U32 namelen, I32 flags)
 			__attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV HV*	Perl_gv_stashsv(pTHX_ SV* sv, I32 flags);
+PERL_CALLCONV HV*	Perl_gv_stashsv(pTHX_ SV* sv, I32 flags)
+			__attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV void	Perl_hv_clear(pTHX_ HV* tb);
 PERL_CALLCONV HV *	Perl_hv_copy_hints_hv(pTHX_ HV *const ohv)
 			__attribute__nonnull__(pTHX_1);