From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 11 Sep 2008 21:27:43 +0000 (+0000)
Subject: The stash argument to S_isa_lookup() actually never is NULL.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d43aa7f92b1a0cc0cbce5336d185006ba5ae1b4b;p=p5sagit%2Fp5-mst-13.2.git

The stash argument to S_isa_lookup() actually never is NULL.

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

diff --git a/embed.fnc b/embed.fnc
index 368857c..d680a5b 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1660,7 +1660,7 @@ s	|void	|printbuf	|NN const char *const fmt|NN const char *const s
 #endif
 
 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
-s	|bool|isa_lookup	|NULLOK HV *stash|NN const char * const name
+s	|bool|isa_lookup	|NN HV *stash|NN const char * const name
 #endif
 
 #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
diff --git a/proto.h b/proto.h
index cd295a0..59080ec 100644
--- a/proto.h
+++ b/proto.h
@@ -5852,9 +5852,10 @@ STATIC void	S_printbuf(pTHX_ const char *const fmt, const char *const s)
 
 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
 STATIC bool	S_isa_lookup(pTHX_ HV *stash, const char * const name)
+			__attribute__nonnull__(pTHX_1)
 			__attribute__nonnull__(pTHX_2);
 #define PERL_ARGS_ASSERT_ISA_LOOKUP	\
-	assert(name)
+	assert(stash); assert(name)
 
 #endif