From f728784643460445f91833d46f0c8bf60beb6583 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 8 May 2005 12:19:51 +0000
Subject: [PATCH] Tweak the insertion of __attribute__((nonnull()))
 declarations in proto.h so it compiles with and without threads with gcc 3.4

p4raw-id: //depot/perl@24416
---
 embed.pl |  19 +-
 proto.h  | 945 ++++++++++++++++++++++++++++++++++++++++++++++++++++++---------
 2 files changed, 827 insertions(+), 137 deletions(-)

diff --git a/embed.pl b/embed.pl
index 39bd429..6487ff4 100755
--- a/embed.pl
+++ b/embed.pl
@@ -212,8 +212,23 @@ sub write_protos {
 	}
 	$ret .= "\n\t\t\t__attribute__((nonnull))" if $flags =~ /N/;
 	if ( @nonnull ) {
-	    my @pos = map { $has_context ? "pTHX_ $_" : $_ } @nonnull;
-	    $ret .= sprintf( "\n\t\t\t__attribute__((nonnull(%s)))", join( ",", @pos ) );
+	    if ($has_context) {
+		my @pos = map { $has_context ? $_ + 1 : $_ } @nonnull;
+		$ret .= sprintf( <<ATTR,
+
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(%s)))
+#else
+			__attribute__((nonnull(%s)))
+#endif
+ATTR
+		    join( ",", @pos ),
+		    join( ",", @nonnull ),
+		);
+	    }
+	    else {
+		$ret .= sprintf( "\n\t\t\t__attribute__((nonnull(%s)))", join( ",", @nonnull ) );
+	    }
 	}
 	$ret .= ";";
 	$ret .= ' */' if $flags =~ /m/;
diff --git a/proto.h b/proto.h
index a210be1..45fcd78 100644
--- a/proto.h
+++ b/proto.h
@@ -88,7 +88,12 @@ PERL_CALLCONV void	Perl_boot_core_UNIVERSAL(pTHX);
 PERL_CALLCONV void	Perl_boot_core_PerlIO(pTHX);
 PERL_CALLCONV void	Perl_call_list(pTHX_ I32 oldscope, AV* av_list);
 PERL_CALLCONV bool	Perl_cando(pTHX_ Mode_t mode, Uid_t effective, const Stat_t* statbufp)
-			__attribute__((nonnull(pTHX_ 3)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(4)))
+#else
+			__attribute__((nonnull(3)))
+#endif
+;
 PERL_CALLCONV U32	Perl_cast_ulong(pTHX_ NV f);
 PERL_CALLCONV I32	Perl_cast_i32(pTHX_ NV f);
 PERL_CALLCONV IV	Perl_cast_iv(pTHX_ NV f);
@@ -133,7 +138,12 @@ PERL_CALLCONV int	Perl_printf_nocontext(const char* fmt, ...)
 #endif
 PERL_CALLCONV void	Perl_cv_ckproto(pTHX_ const CV* cv, const GV* gv, const char* p);
 PERL_CALLCONV CV*	Perl_cv_clone(pTHX_ CV* proto)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV SV*	Perl_cv_const_sv(pTHX_ CV* cv);
 PERL_CALLCONV SV*	Perl_op_const_sv(pTHX_ const OP* o, CV* cv);
 PERL_CALLCONV void	Perl_cv_undef(pTHX_ CV* cv);
@@ -157,15 +167,35 @@ PERL_CALLCONV void	Perl_deb(pTHX_ const char* pat, ...)
 PERL_CALLCONV void	Perl_vdeb(pTHX_ const char* pat, va_list* args);
 PERL_CALLCONV void	Perl_debprofdump(pTHX);
 PERL_CALLCONV I32	Perl_debop(pTHX_ const OP* o)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV I32	Perl_debstack(pTHX);
 PERL_CALLCONV I32	Perl_debstackptrs(pTHX);
 PERL_CALLCONV char*	Perl_delimcpy(pTHX_ char* to, const char* toend, const char* from, const char* fromend, int delim, I32* retlen)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2,pTHX_ 3,pTHX_ 4,pTHX_ 6)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3,4,5,7)))
+#else
+			__attribute__((nonnull(1,2,3,4,6)))
+#endif
+;
 PERL_CALLCONV void	Perl_deprecate(pTHX_ const char* s)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_deprecate_old(pTHX_ const char* s)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV OP*	Perl_die(pTHX_ const char* pat, ...)
 			__attribute__format__(__printf__,pTHX_1,pTHX_2);
 PERL_CALLCONV OP*	Perl_vdie(pTHX_ const char* pat, va_list* args);
@@ -174,15 +204,40 @@ PERL_CALLCONV void	Perl_dounwind(pTHX_ I32 cxix);
 PERL_CALLCONV bool	Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp);
 PERL_CALLCONV bool	Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int flag);
 PERL_CALLCONV int	Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_do_chop(pTHX_ SV* asv, SV* sv)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV bool	Perl_do_close(pTHX_ GV* gv, bool not_implicit)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_do_eof(pTHX_ GV* gv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_do_exec(pTHX_ char* cmd)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 #if defined(WIN32) || defined(SYMBIAN)
 PERL_CALLCONV int	Perl_do_aspawn(pTHX_ SV* really, SV** mark, SV** sp);
 PERL_CALLCONV int	Perl_do_spawn(pTHX_ char* cmd);
@@ -215,9 +270,19 @@ PERL_CALLCONV Off_t	Perl_do_sysseek(pTHX_ GV* gv, Off_t pos, int whence);
 PERL_CALLCONV Off_t	Perl_do_tell(pTHX_ GV* gv);
 PERL_CALLCONV I32	Perl_do_trans(pTHX_ SV* sv);
 PERL_CALLCONV UV	Perl_do_vecget(pTHX_ SV* sv, I32 offset, I32 size)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_do_vecset(pTHX_ SV* sv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_do_vop(pTHX_ I32 optype, SV* sv, SV* left, SV* right);
 PERL_CALLCONV OP*	Perl_dofile(pTHX_ OP* term);
 PERL_CALLCONV I32	Perl_dowantarray(pTHX);
@@ -236,9 +301,19 @@ PERL_CALLCONV void	Perl_fbm_compile(pTHX_ SV* sv, U32 flags);
 PERL_CALLCONV char*	Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags);
 PERL_CALLCONV char*	Perl_find_script(pTHX_ const char *scriptname, bool dosearch, const char **search_ext, I32 flags);
 PERL_CALLCONV OP*	Perl_force_list(pTHX_ OP* arg)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV OP*	Perl_fold_constants(pTHX_ OP* arg)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV char*	Perl_form(pTHX_ const char* pat, ...)
 			__attribute__format__(__printf__,pTHX_1,pTHX_2);
 PERL_CALLCONV char*	Perl_vform(pTHX_ const char* pat, va_list* args);
@@ -294,22 +369,47 @@ PERL_CALLCONV SV**	Perl_hv_store_flags(pTHX_ HV* tb, const char* key, I32 klen,
 PERL_CALLCONV void	Perl_hv_undef(pTHX_ HV* tb);
 PERL_CALLCONV I32	Perl_ibcmp(pTHX_ const char* a, const char* b, I32 len)
 			__attribute__((pure))
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV I32	Perl_ibcmp_locale(pTHX_ const char* a, const char* b, I32 len)
 			__attribute__((pure))
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV I32	Perl_ibcmp_utf8(pTHX_ const char* a, char **pe1, UV l1, bool u1, const char* b, char **pe2, UV l2, bool u2)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 5)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,6)))
+#else
+			__attribute__((nonnull(1,5)))
+#endif
+;
 PERL_CALLCONV bool	Perl_ingroup(pTHX_ Gid_t testgid, Uid_t effective);
 PERL_CALLCONV void	Perl_init_argv_symbols(pTHX_ int argc, char **argv)
-			__attribute__((nonnull(pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(3)))
+#else
+			__attribute__((nonnull(2)))
+#endif
+;
 PERL_CALLCONV void	Perl_init_debugger(pTHX);
 PERL_CALLCONV void	Perl_init_stacks(pTHX);
 PERL_CALLCONV void	Perl_init_tm(pTHX_ struct tm *ptm);
 PERL_CALLCONV U32	Perl_intro_my(pTHX);
 PERL_CALLCONV char*	Perl_instr(pTHX_ const char* big, const char* little)
 			__attribute__((pure))
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV bool	Perl_io_close(pTHX_ IO* io, bool not_implicit);
 PERL_CALLCONV OP*	Perl_invert(pTHX_ OP* cmd);
 PERL_CALLCONV bool	Perl_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags);
@@ -332,13 +432,33 @@ PERL_CALLCONV bool	Perl_is_uni_print(pTHX_ UV c);
 PERL_CALLCONV bool	Perl_is_uni_punct(pTHX_ UV c);
 PERL_CALLCONV bool	Perl_is_uni_xdigit(pTHX_ UV c);
 PERL_CALLCONV UV	Perl_to_uni_upper(pTHX_ UV c, U8 *p, STRLEN *lenp)
-			__attribute__((nonnull(pTHX_ 2,pTHX_ 3)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(3,4)))
+#else
+			__attribute__((nonnull(2,3)))
+#endif
+;
 PERL_CALLCONV UV	Perl_to_uni_title(pTHX_ UV c, U8 *p, STRLEN *lenp)
-			__attribute__((nonnull(pTHX_ 2,pTHX_ 3)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(3,4)))
+#else
+			__attribute__((nonnull(2,3)))
+#endif
+;
 PERL_CALLCONV UV	Perl_to_uni_lower(pTHX_ UV c, U8 *p, STRLEN *lenp)
-			__attribute__((nonnull(pTHX_ 2,pTHX_ 3)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(3,4)))
+#else
+			__attribute__((nonnull(2,3)))
+#endif
+;
 PERL_CALLCONV UV	Perl_to_uni_fold(pTHX_ UV c, U8 *p, STRLEN *lenp)
-			__attribute__((nonnull(pTHX_ 2,pTHX_ 3)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(3,4)))
+#else
+			__attribute__((nonnull(2,3)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_uni_alnum_lc(pTHX_ UV c);
 PERL_CALLCONV bool	Perl_is_uni_alnumc_lc(pTHX_ UV c);
 PERL_CALLCONV bool	Perl_is_uni_idfirst_lc(pTHX_ UV c);
@@ -354,47 +474,152 @@ PERL_CALLCONV bool	Perl_is_uni_print_lc(pTHX_ UV c);
 PERL_CALLCONV bool	Perl_is_uni_punct_lc(pTHX_ UV c);
 PERL_CALLCONV bool	Perl_is_uni_xdigit_lc(pTHX_ UV c);
 PERL_CALLCONV STRLEN	Perl_is_utf8_char(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_string(pTHX_ const U8 *s, STRLEN len)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **p)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 3)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,4)))
+#else
+			__attribute__((nonnull(1,3)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_alnum(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_alnumc(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_idfirst(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_idcont(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_alpha(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_ascii(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_space(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_cntrl(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_digit(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_graph(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_upper(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_lower(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_print(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_punct(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_xdigit(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV bool	Perl_is_utf8_mark(pTHX_ const U8 *p)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV OP*	Perl_jmaybe(pTHX_ OP* arg)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV I32	Perl_keyword(pTHX_ char* d, I32 len)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_leave_scope(pTHX_ I32 base);
 PERL_CALLCONV void	Perl_lex_end(pTHX);
 PERL_CALLCONV void	Perl_lex_start(pTHX_ SV* line);
@@ -489,9 +714,19 @@ PERL_CALLCONV OP*	Perl_mod(pTHX_ OP* o, I32 type);
 PERL_CALLCONV int	Perl_mode_from_discipline(pTHX_ SV* discp);
 PERL_CALLCONV char*	Perl_moreswitches(pTHX_ char* s);
 PERL_CALLCONV OP*	Perl_my(pTHX_ OP* o)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV NV	Perl_my_atof(pTHX_ const char *s)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
 PERL_CALLCONV char*	Perl_my_bcopy(const char* from, char* to, I32 len)
 			__attribute__((nonnull(1,2)));
@@ -551,17 +786,32 @@ PERL_CALLCONV OP*	Perl_newSLICEOP(pTHX_ I32 flags, OP* subscript, OP* listop);
 PERL_CALLCONV OP*	Perl_newSTATEOP(pTHX_ I32 flags, char* label, OP* o);
 PERL_CALLCONV CV*	Perl_newSUB(pTHX_ I32 floor, OP* o, OP* proto, OP* block);
 PERL_CALLCONV CV*	Perl_newXS(pTHX_ const char* name, XSUBADDR_t f, const char* filename)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 3)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,4)))
+#else
+			__attribute__((nonnull(1,3)))
+#endif
+;
 PERL_CALLCONV AV*	Perl_newAV(pTHX);
 PERL_CALLCONV OP*	Perl_newAVREF(pTHX_ OP* o)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV OP*	Perl_newBINOP(pTHX_ I32 type, I32 flags, OP* first, OP* last);
 PERL_CALLCONV OP*	Perl_newCVREF(pTHX_ I32 flags, OP* o);
 PERL_CALLCONV OP*	Perl_newGVOP(pTHX_ I32 type, I32 flags, GV* gv);
 PERL_CALLCONV GV*	Perl_newGVgen(pTHX_ const char* pack);
 PERL_CALLCONV OP*	Perl_newGVREF(pTHX_ I32 type, OP* o);
 PERL_CALLCONV OP*	Perl_newHVREF(pTHX_ OP* o)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV HV*	Perl_newHV(pTHX);
 PERL_CALLCONV HV*	Perl_newHVhv(pTHX_ HV* hv);
 PERL_CALLCONV IO*	Perl_newIO(pTHX);
@@ -571,12 +821,27 @@ PERL_CALLCONV OP*	Perl_newPMOP(pTHX_ I32 type, I32 flags);
 PERL_CALLCONV OP*	Perl_newPVOP(pTHX_ I32 type, I32 flags, char* pv);
 PERL_CALLCONV SV*	Perl_newRV(pTHX_ SV* pref);
 PERL_CALLCONV SV*	Perl_newRV_noinc(pTHX_ SV *sv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV SV*	Perl_newSV(pTHX_ STRLEN len);
 PERL_CALLCONV OP*	Perl_newSVREF(pTHX_ OP* o)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV OP*	Perl_newSVOP(pTHX_ I32 type, I32 flags, SV* sv)
-			__attribute__((nonnull(pTHX_ 3)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(4)))
+#else
+			__attribute__((nonnull(3)))
+#endif
+;
 PERL_CALLCONV SV*	Perl_newSViv(pTHX_ IV i);
 PERL_CALLCONV SV*	Perl_newSVuv(pTHX_ UV u);
 PERL_CALLCONV SV*	Perl_newSVnv(pTHX_ NV n);
@@ -592,16 +857,31 @@ PERL_CALLCONV OP*	Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first);
 PERL_CALLCONV OP*	Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont, I32 has_my);
 PERL_CALLCONV PERL_SI*	Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems);
 PERL_CALLCONV char*	Perl_scan_vstring(pTHX_ const char *vstr, SV *sv)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV char*	Perl_scan_version(pTHX_ const char *vstr, SV *sv, bool qv)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV SV*	Perl_new_version(pTHX_ SV *ver);
 PERL_CALLCONV SV*	Perl_upg_version(pTHX_ SV *ver);
 PERL_CALLCONV SV*	Perl_vnumify(pTHX_ SV *vs);
 PERL_CALLCONV SV*	Perl_vnormal(pTHX_ SV *vs);
 PERL_CALLCONV SV*	Perl_vstringify(pTHX_ SV *vs);
 PERL_CALLCONV int	Perl_vcmp(pTHX_ SV *lvs, SV *rvs)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV PerlIO*	Perl_nextargv(pTHX_ GV* gv);
 PERL_CALLCONV char*	Perl_ninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend)
 			__attribute__((pure));
@@ -610,14 +890,34 @@ PERL_CALLCONV void	Perl_op_free(pTHX_ OP* arg);
 PERL_CALLCONV void	Perl_package(pTHX_ OP* o);
 PERL_CALLCONV PADOFFSET	Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype);
 PERL_CALLCONV PADOFFSET	Perl_allocmy(pTHX_ char* name)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV PADOFFSET	Perl_pad_findmy(pTHX_ const char* name)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV PADOFFSET	Perl_find_rundefsvoffset(pTHX);
 PERL_CALLCONV OP*	Perl_oopsAV(pTHX_ OP* o)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV OP*	Perl_oopsHV(pTHX_ OP* o)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_pad_leavemy(pTHX);
 PERL_CALLCONV SV*	Perl_pad_sv(pTHX_ PADOFFSET po);
 PERL_CALLCONV void	Perl_pad_free(pTHX_ PADOFFSET po);
@@ -633,65 +933,155 @@ PERL_CALLCONV void*	Perl_reentrant_retry(const char*, ...);
 #endif
 PERL_CALLCONV void	Perl_call_atexit(pTHX_ ATEXIT_t fn, void *ptr);
 PERL_CALLCONV I32	Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char** argv)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 3)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,4)))
+#else
+			__attribute__((nonnull(1,3)))
+#endif
+;
 PERL_CALLCONV I32	Perl_call_method(pTHX_ const char* methname, I32 flags)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV I32	Perl_call_pv(pTHX_ const char* sub_name, I32 flags)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV I32	Perl_call_sv(pTHX_ SV* sv, I32 flags);
 PERL_CALLCONV void	Perl_despatch_signals(pTHX);
 PERL_CALLCONV SV*	Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV I32	Perl_eval_sv(pTHX_ SV* sv, I32 flags)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV SV*	Perl_get_sv(pTHX_ const char* name, I32 create)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV AV*	Perl_get_av(pTHX_ const char* name, I32 create)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV HV*	Perl_get_hv(pTHX_ const char* name, I32 create);
 PERL_CALLCONV CV*	Perl_get_cv(pTHX_ const char* name, I32 create);
 PERL_CALLCONV int	Perl_init_i18nl10n(pTHX_ int printwarn);
 PERL_CALLCONV int	Perl_init_i18nl14n(pTHX_ int printwarn);
 PERL_CALLCONV void	Perl_new_collate(pTHX_ char* newcoll)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_new_ctype(pTHX_ char* newctype)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_new_numeric(pTHX_ char* newcoll)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_set_numeric_local(pTHX);
 PERL_CALLCONV void	Perl_set_numeric_radix(pTHX);
 PERL_CALLCONV void	Perl_set_numeric_standard(pTHX);
 PERL_CALLCONV void	Perl_require_pv(pTHX_ const char* pv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags);
 PERL_CALLCONV void	Perl_packlist(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist);
 PERL_CALLCONV void	Perl_pidgone(pTHX_ Pid_t pid, int status);
 PERL_CALLCONV void	Perl_pmflag(pTHX_ U32* pmfl, int ch)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV OP*	Perl_pmruntime(pTHX_ OP* pm, OP* expr, bool isreg)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV OP*	Perl_pmtrans(pTHX_ OP* o, OP* expr, OP* repl)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV void	Perl_pop_scope(pTHX);
 PERL_CALLCONV OP*	Perl_prepend_elem(pTHX_ I32 optype, OP* head, OP* tail);
 PERL_CALLCONV void	Perl_push_scope(pTHX);
 PERL_CALLCONV OP*	Perl_ref(pTHX_ OP* o, I32 type);
 PERL_CALLCONV OP*	Perl_refkids(pTHX_ OP* o, I32 type);
 PERL_CALLCONV void	Perl_regdump(pTHX_ regexp* r)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV SV*	Perl_regclass_swash(pTHX_ struct regnode *n, bool doinit, SV **listsvp, SV **altsvp);
 PERL_CALLCONV I32	Perl_pregexec(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2,pTHX_ 3,pTHX_ 4,pTHX_ 6)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3,4,5,7)))
+#else
+			__attribute__((nonnull(1,2,3,4,6)))
+#endif
+;
 PERL_CALLCONV void	Perl_pregfree(pTHX_ struct regexp* r);
 PERL_CALLCONV regexp*	Perl_pregcomp(pTHX_ char* exp, char* xend, PMOP* pm)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2,pTHX_ 3)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3,4)))
+#else
+			__attribute__((nonnull(1,2,3)))
+#endif
+;
 PERL_CALLCONV char*	Perl_re_intuit_start(pTHX_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data);
 PERL_CALLCONV SV*	Perl_re_intuit_string(pTHX_ regexp* prog);
 PERL_CALLCONV I32	Perl_regexec_flags(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags);
 PERL_CALLCONV regnode*	Perl_regnext(pTHX_ regnode* p);
 PERL_CALLCONV void	Perl_regprop(pTHX_ SV* sv, regnode* o);
 PERL_CALLCONV void	Perl_repeatcpy(pTHX_ char* to, const char* from, I32 len, I32 count)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV char*	Perl_rninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend)
 			__attribute__((pure));
 PERL_CALLCONV Sighandler_t	Perl_rsignal(pTHX_ int i, Sighandler_t t);
@@ -703,7 +1093,12 @@ PERL_CALLCONV void	Perl_rxres_restore(pTHX_ void** rsp, REGEXP* prx);
 PERL_CALLCONV void	Perl_rxres_save(pTHX_ void** rsp, REGEXP* prx);
 #if !defined(HAS_RENAME)
 PERL_CALLCONV I32	Perl_same_dirent(pTHX_ const char* a, const char* b)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 #endif
 PERL_CALLCONV char*	Perl_savepv(pTHX_ const char* pv);
 PERL_CALLCONV char*	Perl_savesharedpv(pTHX_ const char* pv);
@@ -768,11 +1163,21 @@ PERL_CALLCONV HEK*	Perl_share_hek(pTHX_ const char* sv, I32 len, U32 hash);
 PERL_CALLCONV Signal_t	Perl_sighandler(int sig);
 PERL_CALLCONV Signal_t	Perl_csighandler(int sig);
 PERL_CALLCONV SV**	Perl_stack_grow(pTHX_ SV** sp, SV**p, int n)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV I32	Perl_start_subparse(pTHX_ I32 is_format, U32 flags);
 PERL_CALLCONV void	Perl_sub_crush_depth(pTHX_ CV* cv);
 PERL_CALLCONV bool	Perl_sv_2bool(pTHX_ SV* sv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV CV*	Perl_sv_2cv(pTHX_ SV* sv, HV** st, GV** gvp, I32 lref);
 PERL_CALLCONV IO*	Perl_sv_2io(pTHX_ SV* sv);
 /* PERL_CALLCONV IV	sv_2iv(pTHX_ SV* sv); */
@@ -780,31 +1185,96 @@ PERL_CALLCONV IV	Perl_sv_2iv_flags(pTHX_ SV* sv, I32 flags);
 PERL_CALLCONV SV*	Perl_sv_2mortal(pTHX_ SV* sv);
 PERL_CALLCONV NV	Perl_sv_2nv(pTHX_ SV* sv);
 /* PERL_CALLCONV char*	sv_2pv(pTHX_ SV* sv, STRLEN* lp)
-			__attribute__((nonnull(pTHX_ 2))); */
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(3)))
+#else
+			__attribute__((nonnull(2)))
+#endif
+; */
 PERL_CALLCONV char*	Perl_sv_2pv_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags)
-			__attribute__((nonnull(pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(3)))
+#else
+			__attribute__((nonnull(2)))
+#endif
+;
 PERL_CALLCONV char*	Perl_sv_2pvutf8(pTHX_ SV* sv, STRLEN* lp)
-			__attribute__((nonnull(pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(3)))
+#else
+			__attribute__((nonnull(2)))
+#endif
+;
 PERL_CALLCONV char*	Perl_sv_2pvbyte(pTHX_ SV* sv, STRLEN* lp)
-			__attribute__((nonnull(pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(3)))
+#else
+			__attribute__((nonnull(2)))
+#endif
+;
 PERL_CALLCONV char*	Perl_sv_pvn_nomg(pTHX_ SV* sv, STRLEN* lp)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 /* PERL_CALLCONV UV	sv_2uv(pTHX_ SV* sv)
-			__attribute__((nonnull(pTHX_ 1))); */
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+; */
 PERL_CALLCONV UV	Perl_sv_2uv_flags(pTHX_ SV* sv, I32 flags)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV IV	Perl_sv_iv(pTHX_ SV* sv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV UV	Perl_sv_uv(pTHX_ SV* sv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV NV	Perl_sv_nv(pTHX_ SV* sv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV char*	Perl_sv_pvn(pTHX_ SV *sv, STRLEN *len)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV char*	Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *len)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV char*	Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *len)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV I32	Perl_sv_true(pTHX_ SV *sv);
 PERL_CALLCONV void	Perl_sv_add_arena(pTHX_ char* ptr, U32 size, U32 flags);
 PERL_CALLCONV int	Perl_sv_backoff(pTHX_ SV* sv);
@@ -825,26 +1295,66 @@ PERL_CALLCONV I32	Perl_sv_cmp_locale(pTHX_ SV* sv1, SV* sv2);
 PERL_CALLCONV char*	Perl_sv_collxfrm(pTHX_ SV* sv, STRLEN* nxp);
 #endif
 PERL_CALLCONV OP*	Perl_sv_compile_2op(pTHX_ SV* sv, OP** startp, const char* code, PAD** padp)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2,pTHX_ 3,pTHX_ 4)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3,4,5)))
+#else
+			__attribute__((nonnull(1,2,3,4)))
+#endif
+;
 PERL_CALLCONV int	Perl_getcwd_sv(pTHX_ SV* sv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_sv_dec(pTHX_ SV* sv);
 PERL_CALLCONV void	Perl_sv_dump(pTHX_ SV* sv);
 PERL_CALLCONV bool	Perl_sv_derived_from(pTHX_ SV* sv, const char* name)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV I32	Perl_sv_eq(pTHX_ SV* sv1, SV* sv2)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV void	Perl_sv_free(pTHX_ SV* sv);
 PERL_CALLCONV void	Perl_sv_free2(pTHX_ SV* sv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_sv_free_arenas(pTHX);
 PERL_CALLCONV char*	Perl_sv_gets(pTHX_ SV* sv, PerlIO* fp, I32 append)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV char*	Perl_sv_grow(pTHX_ SV* sv, STRLEN newlen)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_sv_inc(pTHX_ SV* sv);
 PERL_CALLCONV void	Perl_sv_insert(pTHX_ SV* bigsv, STRLEN offset, STRLEN len, const char* little, STRLEN littlelen)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 4)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,5)))
+#else
+			__attribute__((nonnull(1,4)))
+#endif
+;
 PERL_CALLCONV int	Perl_sv_isa(pTHX_ SV* sv, const char* name);
 PERL_CALLCONV int	Perl_sv_isobject(pTHX_ SV* sv);
 PERL_CALLCONV STRLEN	Perl_sv_len(pTHX_ SV* sv);
@@ -852,7 +1362,12 @@ PERL_CALLCONV STRLEN	Perl_sv_len_utf8(pTHX_ SV* sv);
 PERL_CALLCONV void	Perl_sv_magic(pTHX_ SV* sv, SV* obj, int how, const char* name, I32 namlen);
 PERL_CALLCONV MAGIC *	Perl_sv_magicext(pTHX_ SV* sv, SV* obj, int how, const MGVTBL *vtbl, const char* name, I32 namlen);
 PERL_CALLCONV SV*	Perl_sv_mortalcopy(pTHX_ SV* oldsv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV SV*	Perl_sv_newmortal(pTHX);
 PERL_CALLCONV SV*	Perl_sv_newref(pTHX_ SV* sv);
 PERL_CALLCONV char*	Perl_sv_peek(pTHX_ SV* sv);
@@ -881,7 +1396,12 @@ PERL_CALLCONV SV*	Perl_sv_setref_pv(pTHX_ SV* rv, const char* classname, void* p
 PERL_CALLCONV SV*	Perl_sv_setref_pvn(pTHX_ SV* rv, const char* classname, char* pv, STRLEN n);
 PERL_CALLCONV void	Perl_sv_setpv(pTHX_ SV* sv, const char* ptr);
 PERL_CALLCONV void	Perl_sv_setpvn(pTHX_ SV* sv, const char* ptr, STRLEN len)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 /* PERL_CALLCONV void	sv_setsv(pTHX_ SV* dsv, SV* ssv); */
 PERL_CALLCONV void	Perl_sv_taint(pTHX_ SV* sv);
 PERL_CALLCONV bool	Perl_sv_tainted(pTHX_ SV* sv);
@@ -915,15 +1435,35 @@ PERL_CALLCONV U8*	Perl_utf16_to_utf8(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newle
 PERL_CALLCONV U8*	Perl_utf16_to_utf8_reversed(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen);
 PERL_CALLCONV STRLEN	Perl_utf8_length(pTHX_ const U8* s, const U8 *e)
 			__attribute__((pure))
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV IV	Perl_utf8_distance(pTHX_ const U8 *a, const U8 *b)
 			__attribute__((pure))
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV U8*	Perl_utf8_hop(pTHX_ const U8 *s, I32 off)
 			__attribute__((pure))
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV U8*	Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *len)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV U8*	Perl_bytes_from_utf8(pTHX_ const U8 *s, STRLEN *len, bool *is_utf8);
 PERL_CALLCONV U8*	Perl_bytes_to_utf8(pTHX_ const U8 *s, STRLEN *len);
 PERL_CALLCONV UV	Perl_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN* retlen);
@@ -931,13 +1471,33 @@ PERL_CALLCONV UV	Perl_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN* retlen);
 PERL_CALLCONV UV	Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags);
 PERL_CALLCONV UV	Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags);
 PERL_CALLCONV U8*	Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV U8*	Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV U8*	Perl_uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV U8*	Perl_uvuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV char*	Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV flags);
 PERL_CALLCONV char*	Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags);
 PERL_CALLCONV void	Perl_vivify_defelem(pTHX_ SV* sv);
@@ -1029,7 +1589,12 @@ PERL_CALLCONV OP*	Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP
 PERL_CALLCONV CV*	Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
 PERL_CALLCONV void	Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) __attribute__((noreturn));
 PERL_CALLCONV OP *	Perl_my_attrs(pTHX_ OP *o, OP *attrs)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_boot_core_xsutils(pTHX);
 #if defined(USE_ITHREADS)
 PERL_CALLCONV PERL_CONTEXT*	Perl_cx_dup(pTHX_ PERL_CONTEXT* cx, I32 ix, I32 max, CLONE_PARAMS* param);
@@ -1049,11 +1614,26 @@ PERL_CALLCONV void	Perl_sys_intern_dup(pTHX_ struct interp_intern* src, struct i
 #endif
 PERL_CALLCONV PTR_TBL_t*	Perl_ptr_table_new(pTHX);
 PERL_CALLCONV void*	Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV void	Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, void *oldsv, void *newsv)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl);
 PERL_CALLCONV void	Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl);
 #endif
@@ -1063,9 +1643,19 @@ PERL_CALLCONV void	Perl_sys_intern_init(pTHX);
 #endif
 
 PERL_CALLCONV char *	Perl_custom_op_name(pTHX_ const OP* op)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV char *	Perl_custom_op_desc(pTHX_ const OP* op)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 
 #if defined(PERL_COPY_ON_WRITE)
 PERL_CALLCONV int	Perl_sv_release_IVX(pTHX_ SV *sv);
@@ -1170,19 +1760,54 @@ STATIC SV*	S_refto(pTHX_ SV* sv);
 STATIC I32	S_unpack_rec(pTHX_ struct tempsym* symptr, const char *s, const char *strbeg, const char *strend, const char **new_s);
 STATIC SV **	S_pack_rec(pTHX_ SV *cat, struct tempsym* symptr, SV **beglist, SV **endlist);
 STATIC SV*	S_mul128(pTHX_ SV *sv, U8 m)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 STATIC I32	S_measure_struct(pTHX_ struct tempsym* symptr)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 STATIC bool	S_next_symbol(pTHX_ struct tempsym* symptr)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 STATIC SV*	S_is_an_int(pTHX_ const char *s, STRLEN l)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 STATIC int	S_div128(pTHX_ SV *pnum, bool *done)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 STATIC const char *	S_group_end(pTHX_ const char *pat, const char *patend, char ender)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 STATIC const char *	S_get_num(pTHX_ const char *ppat, I32 *lenptr)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 #endif
 
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
@@ -1193,7 +1818,12 @@ STATIC OP*	S_doparseform(pTHX_ SV *sv);
 STATIC bool	S_num_overflow(NV value, I32 fldsize, I32 frcsize);
 STATIC I32	S_dopoptoeval(pTHX_ I32 startingblock);
 STATIC I32	S_dopoptolabel(pTHX_ const char *label)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 STATIC I32	S_dopoptoloop(pTHX_ I32 startingblock);
 STATIC I32	S_dopoptosub(pTHX_ I32 startingblock);
 STATIC I32	S_dopoptosub_at(pTHX_ PERL_CONTEXT* cxstk, I32 startingblock);
@@ -1201,7 +1831,12 @@ STATIC void	S_save_lines(pTHX_ AV *array, SV *sv);
 STATIC OP*	S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq);
 STATIC PerlIO *	S_doopen_pm(pTHX_ const char *name, const char *mode);
 STATIC bool	S_path_is_absolute(pTHX_ const char *name)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 #endif
 
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
@@ -1415,19 +2050,54 @@ STATIC NV	S_mulexp10(NV value, I32 exponent);
 START_EXTERN_C
 
 PERL_CALLCONV void	Perl_sv_setsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV void	Perl_sv_catpvn_flags(pTHX_ SV* sv, const char* ptr, STRLEN len, I32 flags)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV void	Perl_sv_catsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV STRLEN	Perl_sv_utf8_upgrade_flags(pTHX_ SV *sv, I32 flags)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV char*	Perl_sv_pvn_force_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags)
-			__attribute__((nonnull(pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(3)))
+#else
+			__attribute__((nonnull(2)))
+#endif
+;
 PERL_CALLCONV void	Perl_sv_copypv(pTHX_ SV* dsv, SV* ssv)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV char*	Perl_my_atof2(pTHX_ const char *s, NV* value)
-			__attribute__((nonnull(pTHX_ 1,pTHX_ 2)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2,3)))
+#else
+			__attribute__((nonnull(1,2)))
+#endif
+;
 PERL_CALLCONV int	Perl_my_socketpair(int family, int type, int protocol, int fd[2]);
 #ifdef PERL_COPY_ON_WRITE
 PERL_CALLCONV SV*	Perl_sv_setsv_cow(pTHX_ SV* dsv, SV* ssv);
@@ -1468,7 +2138,12 @@ STATIC void	S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I
 PERL_CALLCONV PADLIST*	Perl_pad_new(pTHX_ int flags);
 PERL_CALLCONV void	Perl_pad_undef(pTHX_ CV* cv);
 PERL_CALLCONV PADOFFSET	Perl_pad_add_name(pTHX_ const char *name, HV* typestash, HV* ourstash, bool clone)
-			__attribute__((nonnull(pTHX_ 1)));
+#ifdef USE_ITHREADS
+			__attribute__((nonnull(2)))
+#else
+			__attribute__((nonnull(1)))
+#endif
+;
 PERL_CALLCONV PADOFFSET	Perl_pad_add_anon(pTHX_ SV* sv, OPCODE op_type);
 PERL_CALLCONV void	Perl_pad_check_dup(pTHX_ const char* name, bool is_our, const HV* ourstash);
 #ifdef DEBUGGING
-- 
2.7.4