From d43aa7f92b1a0cc0cbce5336d185006ba5ae1b4b Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 11 Sep 2008 21:27:43 +0000 Subject: [PATCH] The stash argument to S_isa_lookup() actually never is NULL. p4raw-id: //depot/perl@34351 --- embed.fnc | 2 +- proto.h | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) 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 -- 2.7.4