summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2006-02-20 18:27:11 -0600
committerSteve Peters <steve@fisharerojo.org>2006-02-24 10:41:53 +0000
commit96a5add60f1f39d38341c09c11f0542e68f782b0 (patch)
tree13f30a43f69671f51be60eec2b59f84e6d4679ca /perl.h
parent1e7f542f0732947deb78e87eb5c42a3ee9fa9418 (diff)
downloadperl-96a5add60f1f39d38341c09c11f0542e68f782b0.tar.gz
unused context warnings
Message-ID: <20060221062711.GA16160@petdance.com> p4raw-id: //depot/perl@27300
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h8
1 files changed, 7 insertions, 1 deletions
diff --git a/perl.h b/perl.h
index 9f4e8069ca..505c122346 100644
--- a/perl.h
+++ b/perl.h
@@ -137,7 +137,7 @@
# endif
#endif
-#define pVAR register struct perl_vars* my_vars PERL_UNUSED_DECL
+#define pVAR register struct perl_vars* const my_vars PERL_UNUSED_DECL
#ifdef PERL_GLOBAL_STRUCT
# define dVAR pVAR = (struct perl_vars*)PERL_GET_VARS()
@@ -234,6 +234,12 @@
# define PERL_UNUSED_VAR(x) ((void)x)
#endif
+#ifdef USE_ITHREADS
+# define PERL_UNUSED_CONTEXT PERL_UNUSED_ARG(my_perl)
+#else
+# define PERL_UNUSED_CONTEXT
+#endif
+
#define NOOP (void)0
#define dNOOP extern int Perl___notused PERL_UNUSED_DECL