diff options
| author | Andy Lester <andy@petdance.com> | 2006-02-20 18:27:11 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-02-24 10:41:53 +0000 |
| commit | 96a5add60f1f39d38341c09c11f0542e68f782b0 (patch) | |
| tree | 13f30a43f69671f51be60eec2b59f84e6d4679ca /perl.c | |
| parent | 1e7f542f0732947deb78e87eb5c42a3ee9fa9418 (diff) | |
| download | perl-96a5add60f1f39d38341c09c11f0542e68f782b0.tar.gz | |
unused context warnings
Message-ID: <20060221062711.GA16160@petdance.com>
p4raw-id: //depot/perl@27300
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -228,7 +228,7 @@ void perl_construct(pTHXx) { dVAR; - PERL_UNUSED_ARG(my_perl); + PERL_UNUSED_CONTEXT; #ifdef MULTIPLICITY init_interp(); PL_perl_destruct_level = 1; @@ -404,6 +404,7 @@ no threads. int Perl_nothreadhook(pTHX) { + PERL_UNUSED_CONTEXT; return 0; } @@ -523,7 +524,7 @@ perl_destruct(pTHXx) pid_t child; #endif - PERL_UNUSED_ARG(my_perl); + PERL_UNUSED_CONTEXT; /* wait for all pseudo-forked children to finish */ PERL_WAIT_FOR_CHILDREN; @@ -2234,7 +2235,7 @@ perl_run(pTHXx) int ret = 0; dJMPENV; - PERL_UNUSED_ARG(my_perl); + PERL_UNUSED_CONTEXT; oldscope = PL_scopestack_ix; #ifdef VMS |