First arg to op_const_sv is never null

1 files changed, 4 insertions, 1 deletions

diff --git a/proto.h b/proto.h
index c88bd0a640..19c7d292bc 100644
--- a/proto.h
+++ b/proto.h
@@ -3197,7 +3197,10 @@ PERL_CALLCONV void	Perl_op_clear(pTHX_ OP* o)
 	assert(o)
 
 PERL_CALLCONV SV*	Perl_op_const_sv(pTHX_ const OP* o, CV* cv, CV *outside)
-			__attribute__warn_unused_result__;
+			__attribute__warn_unused_result__
+			__attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_OP_CONST_SV	\
+	assert(o)
 
 PERL_CALLCONV OP*	Perl_op_contextualize(pTHX_ OP* o, I32 context)
 			__attribute__nonnull__(pTHX_1);