diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-30 13:09:40 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-30 13:09:40 +0000 |
| commit | ed6c66dd09fbfa492035c1c3ffab6e32232b3d6e (patch) | |
| tree | b017c949bf9b4d72ee4eb01205a7daba6307d946 /perl.c | |
| parent | d47053ebddc7ad9e077ef3549a5cfd970b0413f8 (diff) | |
| download | perl-ed6c66dd09fbfa492035c1c3ffab6e32232b3d6e.tar.gz | |
PERL_UNUSED_CONTEXT is not enough to silence warnings when pTHXx
is used.
p4raw-id: //depot/perl@28457
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -245,7 +245,7 @@ void perl_construct(pTHXx) { dVAR; - PERL_UNUSED_CONTEXT; + PERL_UNUSED_ARG(my_perl); #ifdef MULTIPLICITY init_interp(); PL_perl_destruct_level = 1; @@ -545,7 +545,7 @@ perl_destruct(pTHXx) pid_t child; #endif - PERL_UNUSED_CONTEXT; + PERL_UNUSED_ARG(my_perl); /* wait for all pseudo-forked children to finish */ PERL_WAIT_FOR_CHILDREN; @@ -1454,7 +1454,7 @@ perl_parse(pTHXx_ XSINIT_t xsinit, int argc, char **argv, char **env) int ret; dJMPENV; - PERL_UNUSED_VAR(my_perl); + PERL_UNUSED_ARG(my_perl); #ifdef SETUID_SCRIPTS_ARE_SECURE_NOW #ifdef IAMSUID @@ -2294,7 +2294,7 @@ perl_run(pTHXx) int ret = 0; dJMPENV; - PERL_UNUSED_CONTEXT; + PERL_UNUSED_ARG(my_perl); oldscope = PL_scopestack_ix; #ifdef VMS |