diff options
| author | Andy Lester <andy@petdance.com> | 2006-04-30 08:23:22 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-02 08:48:04 +0000 |
| commit | a25429c695343745462bc9b108964dcc3a8aae05 (patch) | |
| tree | 12bbc9fb1b2bd6effbe895230a30c0dcf559c0f0 /perlio.c | |
| parent | 46da273f387b179a7655892d9988a75dc6e89057 (diff) | |
| download | perl-a25429c695343745462bc9b108964dcc3a8aae05.tar.gz | |
quiet some perlio.c warnings
Message-ID: <20060430182322.GA18064@petdance.com>
p4raw-id: //depot/perl@28048
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -649,7 +649,7 @@ PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param) PL_known_layers = PerlIO_clone_list(aTHX_ proto->Iknown_layers, param); PL_def_layerlist = PerlIO_clone_list(aTHX_ proto->Idef_layerlist, param); PerlIO_allocate(aTHX); /* root slot is never used */ - PerlIO_debug("Clone %p from %p\n",aTHX,proto); + PerlIO_debug("Clone %p from %p\n",(void*)aTHX,(void*)proto); while ((f = *table)) { int i; table = (PerlIO **) (f++); @@ -661,6 +661,7 @@ PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param) } } #else + PERL_UNUSED_CONTEXT; PERL_UNUSED_ARG(proto); PERL_UNUSED_ARG(param); #endif @@ -673,7 +674,7 @@ PerlIO_destruct(pTHX) PerlIO **table = &PL_perlio; PerlIO *f; #ifdef USE_ITHREADS - PerlIO_debug("Destruct %p\n",aTHX); + PerlIO_debug("Destruct %p\n",(void*)aTHX); #endif while ((f = *table)) { int i; @@ -2372,7 +2373,7 @@ PerlIO_cleanup(pTHX) dVAR; int i; #ifdef USE_ITHREADS - PerlIO_debug("Cleanup layers for %p\n",aTHX); + PerlIO_debug("Cleanup layers for %p\n",(void*)aTHX); #else PerlIO_debug("Cleanup layers\n"); #endif |