From a3b680e6b77dd7f88268fad8b1dbdf4f641dd836 Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Mon, 16 May 2005 05:13:53 -0500 Subject: consting-eleventy.patch: More consts, plus actual bug fix Message-ID: <20050516151353.GA25387@petdance.com> p4raw-id: //depot/perl@24489 --- perl.h | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'perl.h') diff --git a/perl.h b/perl.h index 7f8654bbb7..b691daf23e 100644 --- a/perl.h +++ b/perl.h @@ -168,6 +168,9 @@ # define pTHX_4 5 # define pTHX_5 6 # define pTHX_6 7 +# define pTHX_7 8 +# define pTHX_8 9 +# define pTHX_9 10 #endif #define STATIC static @@ -213,7 +216,7 @@ * for silencing unused variables that are actually used most of the time, * but we cannot quite get rid of, such `ax' in PPCODE+noargs xsubs */ -#define PERL_UNUSED_VAR(var) if (0) var = var +#define PERL_UNUSED_VAR(var) ((void)var) #define NOOP (void)0 #define dNOOP extern int Perl___notused PERL_UNUSED_DECL @@ -231,6 +234,9 @@ # define pTHX_4 4 # define pTHX_5 5 # define pTHX_6 6 +# define pTHX_7 7 +# define pTHX_8 8 +# define pTHX_9 9 #endif #ifndef dVAR -- cgit v1.2.1