Change 11997 by sky@sky-titanic on 2001/09/11 06:35:29
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.
Affected files ...
... //depot/perl/perl.h#392 edit
Differences ...
==== //depot/perl/perl.h#392 (text) ====
Index: perl/perl.h
--- perl/perl.h.~1~ Tue Sep 11 00:45:05 2001
+++ perl/perl.h Tue Sep 11 00:45:05 2001
@@ -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 @@
# 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
End of Patch.
