diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-09-11 06:35:29 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-09-11 06:35:29 +0000 |
| commit | 24e8e6248637a136c6d6adb2f7afc426a0156fa0 (patch) | |
| tree | 664b03aaf45e2ca1a72cf1086873b4cc2025fc92 /perl.h | |
| parent | c079d275c4f9c514ec0de3de1aef066d6f4595aa (diff) | |
| download | perl-24e8e6248637a136c6d6adb2f7afc426a0156fa0.tar.gz | |
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
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |