From: Artur Bergman <sky@nanisky.com>
Date: Tue, 11 Sep 2001 06:35:29 +0000 (+0000)
Subject: Sometimes dTHX is added because it is needed on non
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=24e8e6248637a136c6d6adb2f7afc426a0156fa0;p=p5sagit%2Fp5-mst-13.2.git

Sometimes dTHX is added because it is needed on non
gnuc platforms, but not needed there. This uses GCC
to silence GCC specific warnings by marking pTHX as
unused.

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

diff --git a/perl.h b/perl.h
index cbe2cf3..af8e954 100644
--- a/perl.h
+++ b/perl.h
@@ -62,7 +62,7 @@
 #ifdef PERL_IMPLICIT_CONTEXT
 #  ifdef USE_5005THREADS
 struct perl_thread;
-#    define pTHX	register struct perl_thread *thr
+#    define pTHX	register struct perl_thread *thr PERL_UNUSED_DECL
 #    define aTHX	thr
 #    define dTHR	dNOOP /* only backward compatibility */
 #    define dTHXa(a)	pTHX = (struct perl_thread*)a
@@ -70,7 +70,7 @@ struct perl_thread;
 #    ifndef MULTIPLICITY
 #      define MULTIPLICITY
 #    endif
-#    define pTHX	register PerlInterpreter *my_perl
+#    define pTHX	register PerlInterpreter *my_perl PERL_UNUSED_DECL
 #    define aTHX	my_perl
 #    define dTHXa(a)	pTHX = (PerlInterpreter*)a
 #  endif